diff --git a/240Pu ansvers.xlsx b/240Pu ansvers.xlsx old mode 100755 new mode 100644 diff --git a/AMPLIFI_distributions_v100_table.xlsx b/AMPLIFI_distributions_v100_table.xlsx old mode 100755 new mode 100644 diff --git a/Orekhov.xlsx b/Orekhov.xlsx old mode 100755 new mode 100644 diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_gid_Qw1.nb b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_gid_Qw1.nb new file mode 100644 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_gid_Qw1.nb @@ -0,0 +1,9365 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399390, 9355] +NotebookOptionsPosition[ 375168, 8989] +NotebookOutlinePosition[ 375597, 9006] +CellTagsIndexPosition[ 375554, 9003] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "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->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_gid_Qw2.nb b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_gid_Qw2.nb new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_osc_Qw1.nb b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_osc_Qw1.nb new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_osc_Qw2.nb b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_osc_Qw2.nb new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_pr_Qw1.nb b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_pr_Qw1.nb new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_pr_Qw2.nb b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_pr_Qw2.nb new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_фитирование.nb b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_фитирование.nb new file mode 100644 index 0000000..f5f506a --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/h_152-88_h_Pu240_6-7_фитирование.nb @@ -0,0 +1,10510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 489182, 10502] +NotebookOptionsPosition[ 478245, 10305] +NotebookOutlinePosition[ 478650, 10322] +CellTagsIndexPosition[ 478607, 10319] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{ + 3.9917123412710648`*^9, 3.991964081912874*^9, 3.9919650528748665`*^9, { + 3.992442549824594*^9, 3.9924425682627153`*^9}, 3.9924858766052437`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"27221adb-7302-4a8b-b382-5eebc2c25db1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{ + 3.991712341297064*^9, 3.9919640821998634`*^9, 3.991965052903612*^9, { + 3.992442550104803*^9, 3.992442568295034*^9}, 3.9924858769336023`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"a55785fc-e72d-4f04-ad80-bb9ec5c87a95"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{ + 3.991712341324932*^9, 3.9919640822258663`*^9, 3.9919650529266243`*^9, { + 3.9924425501267853`*^9, 3.992442568326577*^9}, 3.992485876966145*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"d6e876b3-d61a-42fb-a1f3-d71272f98673"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{ + 3.9917123413539066`*^9, 3.991964082252865*^9, 3.9919650529506397`*^9, { + 3.992442550146508*^9, 3.992442568348023*^9}, 3.9924858769903603`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"bfca7a38-9de4-48ee-a75a-cc71869a3a49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{ + 3.991712341376917*^9, 3.9919640822778645`*^9, 3.9919650529736423`*^9, { + 3.9924425501658916`*^9, 3.992442568369429*^9}, 3.992485877011318*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"ec0b254d-bcff-471c-908f-a5484d971128"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{ + 3.991712341392933*^9, 3.9919640822888775`*^9, 3.9919650530016823`*^9, { + 3.992442550188595*^9, 3.992442568389591*^9}, 3.992485877032215*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"efc294cb-6504-4725-bd9f-af88a2600228"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, { + 3.9924425502134733`*^9, 3.992442568411634*^9}, 3.992485877054838*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"bf707b11-23e1-4ec1-b8e3-9adeb085ffe0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "152"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.992442489002638*^9, + 3.9924424902152243`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["152"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, { + 3.99244255023271*^9, 3.992442568429336*^9}, 3.992485877073382*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"d6c3b5f3-0aad-4aef-96bd-e0bc43c65e4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.991707828219631*^9, 3.9917123414174232`*^9, + 3.9919641050847206`*^9, 3.9919650689841537`*^9, {3.992442550251585*^9, + 3.992442568446157*^9}, 3.992485877092187*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"a96a9974-c025-4235-9e86-fb6e797deb25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.546`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.9917078282275677`*^9, 3.9917123414253197`*^9, + 3.991964105132374*^9, 3.99196507082041*^9, {3.99244255027148*^9, + 3.99244256846386*^9}, 3.992485877111465*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3c823531-bfba-4180-ad1e-c65dd6407c92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.9917078282485256`*^9, 3.9917123414324265`*^9, + 3.991964105152542*^9, 3.9919650751473694`*^9, {3.992442550290894*^9, + 3.992442568481812*^9}, 3.992485877131373*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"2c775033-4e11-4b6d-8b21-7bc7b575ba69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.190691825034912`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.9917078282706223`*^9, 3.9917123414384117`*^9, + 3.991964105158039*^9, 3.9919650774986343`*^9, {3.992442550310264*^9, + 3.992442568499639*^9}, 3.992485877151813*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"ab0099ad-488f-43ff-9d73-967c7858db68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["5.159633810120811`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.9917078282785244`*^9, 3.991712341447321*^9, + 3.9919641051782207`*^9, 3.99196507853343*^9, {3.992442550330574*^9, + 3.992442568518076*^9}, 3.9924858771714783`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"f749c131-45c1-4d68-8f7f-d110255cf524"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9762"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9924425005692*^9, 3.9924425165963783`*^9}, { + 3.9924425557735987`*^9, 3.992442556961574*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.9762`"], "Output", + CellChangeTimes->{3.992442568536195*^9, 3.992485877189291*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"4653a196-c477-407f-a540-2044d4952562"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.5944"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992442527386754*^9, 3.992442561161112*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.5944`"], "Output", + CellChangeTimes->{3.99244256855368*^9, 3.992485877206574*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"45429feb-5252-4f8f-a3f2-eca4bef3bbb0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.9917078283276424`*^9, 3.991712341478319*^9, + 3.9919641257179623`*^9, 3.9919651236440945`*^9, {3.992442550407249*^9, + 3.99244256857171*^9}, 3.992485877225318*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"511d3b26-d917-4569-a0eb-e1effe06ea42"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.99170782834754*^9, 3.9917123414863186`*^9, + 3.9919641257640095`*^9, 3.991965124607527*^9, {3.992442550429078*^9, + 3.992442568589602*^9}, 3.992485877244679*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"f905f80e-e1e9-4fac-ab0f-cdb86a3ea55b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.8", ",", "12.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992442583362503*^9, 3.992442614769313*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVkHk41Akcxh3Fk2Me3RHGXOYnaXoijJXvN3bWUR4tajW1WGa0qm00wzhq +tZEhZV2TkiORkiJFyZSjRM4yUTxyVJtrMU/lyJXW/vE+7/N5Pv+8z0vxE7jz +VZSUlDyW8n9f08ljm5uTMYbdWthxRwGU1xm6RRZkrDxapb9QrIDsdOmssSUZ +edasFbQlvkSVVOixyXjAmr9HcFsB5ywC2SpAxkTniUTlmwoQerHYchcymrqV +JmvlKgBzHlkL/MjYh7R4WaoC3rI6rG4lk1EqRBt+iAKcJFpBa2fIGLHlOt3C +VAF+jdv035oa4c7N9eqc7nHYUlPDe8Q1whiMbT0VOQ5Sd/cmaYIRStMECRzN +cVDBydAVlUb4hKX13DVxDDQb0+1DPxnh+sKzjpSpUch9mvN5kkrBg4dsrvU7 +jgKufzis7U7BqzTLUU7yvxCu3r5AjqGg9rKwK2alIyBzX/RqLaMgVVbterFl +GM6SzqXH/0PB9GntG486hmCCv/ErrqNiMLfnuEnJIPA2PM5M4VCxtGp7WVz8 +AAQF+Pr0hlHR200kj7b+CBqMADXrW1S8FKZ7/XTPB7htd3LKrJuKuuoBmsUJ +72Fk4oKygTYNDc2HzKP034HZspq9N2xpaKzdVdQo6QWtkvH6TUE0NFMbjIL8 +bghvOalflUvDOjbncP5gJygc9GVjchqeH9NN2iB6DYv7qoPXLKfji98pHoOf +XsHaOmFopwUd96yrnY9/2gayvFjvQn86qiTn2kBKK8wZ5PiJ0+jYEucv9bzV +CPYTDcW9dXQstqsWuPrXA4M3td5ulo5ZXoHPZi1rIY0TzS82ZeDU7ko7vbAa +IEVR5iu4DOT56JdPH3sMFG5tUVUCA0UZJEHepodgmxBS4F3JwMMGBRrD98tg +YOvZWNIYA7MX2h9sfHYXTIJyossNjZEWx3/jq1YMwRoNz+ddjfGyrC18Y/ZN +4OIEwT695El/Cabi8sFJvuXVyrvG2LW6mu/skgvPXjX7zPUbo63JCcN9tCvQ +LTiq0bOKiblDJpfsyZdh5pDBNy97Jq74Ejg9yUyDu/NyrZchTDTh7qbXxqTA +zPchpb0FTLSsrez7WzsRHH1IO8SdTFT9OZxl6RkPW7nWaUkaBPok0T/mKEuA +UiK0+smGQJGiWpyVEQU5YlKlZiCBAVnx/ZFJp0DWVeTTlEGgc52tUg4vAoov +ej2PzSTwzOi3DBWPCMjbp8riZBGosX1kIGhnBJzv8FqszibQTXKHH2QYAd5t +qln3rxJI5tFxriscVBr2d+fcILBTvalx255w2FW+fG9oKYF3uhyEqo5h0HPh +Vxd6M4EU6WdXqacYmoBZ8XWJddmzsnEHMTwc+cRsbiGw32n1aQ9zMaTuOLNc ++ILAzJO7Jh1WicFloLCmWk6gf3JbRHlbCJRbzFge6CIwf953x3u3EEhpT6Gl +DBBYD7IElV+C4a8/D6bwBwlcxonWeuMYDMeYxsrsIQI/rJG/KLMOBucTFX39 +wwTKOz4upOoFgxLtXbrZGIGuvVkbuvpE8IfQTKfxC4E6a8xZQYEi4Op/jcyc +IFD1h8GVk1wRONXXjAsml/YdFzyI2i0Cup5n87ppAt2d/Bk1LBF0P4mQ8GYJ +vD5ys0o2LYSGIz9OWc0t/Xuvqj11WAgP1pJ4mvMEiqPmj4R2CyE58OrOewsE +alkpq3tXCSFy9ZGSmG8EJmn7zfmWCOFopQV5/yKBC/V67sdyhcA9tJiw+TuB +i7YxahKpEJxWNix8X+LfXirpFEiE8B9nPFYx + "]]}, + 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:eJwVkHk41Akcxh3Fk2Me3RHGXOYnaXoijJXvN3bWUR4tajW1WGa0qm00wzhq +tZEhZV2TkiORkiJFyZSjRM4yUTxyVJtrMU/lyJXW/vE+7/N5Pv+8z0vxE7jz +VZSUlDyW8n9f08ljm5uTMYbdWthxRwGU1xm6RRZkrDxapb9QrIDsdOmssSUZ +edasFbQlvkSVVOixyXjAmr9HcFsB5ywC2SpAxkTniUTlmwoQerHYchcymrqV +JmvlKgBzHlkL/MjYh7R4WaoC3rI6rG4lk1EqRBt+iAKcJFpBa2fIGLHlOt3C +VAF+jdv035oa4c7N9eqc7nHYUlPDe8Q1whiMbT0VOQ5Sd/cmaYIRStMECRzN +cVDBydAVlUb4hKX13DVxDDQb0+1DPxnh+sKzjpSpUch9mvN5kkrBg4dsrvU7 +jgKufzis7U7BqzTLUU7yvxCu3r5AjqGg9rKwK2alIyBzX/RqLaMgVVbterFl +GM6SzqXH/0PB9GntG486hmCCv/ErrqNiMLfnuEnJIPA2PM5M4VCxtGp7WVz8 +AAQF+Pr0hlHR200kj7b+CBqMADXrW1S8FKZ7/XTPB7htd3LKrJuKuuoBmsUJ +72Fk4oKygTYNDc2HzKP034HZspq9N2xpaKzdVdQo6QWtkvH6TUE0NFMbjIL8 +bghvOalflUvDOjbncP5gJygc9GVjchqeH9NN2iB6DYv7qoPXLKfji98pHoOf +XsHaOmFopwUd96yrnY9/2gayvFjvQn86qiTn2kBKK8wZ5PiJ0+jYEucv9bzV +CPYTDcW9dXQstqsWuPrXA4M3td5ulo5ZXoHPZi1rIY0TzS82ZeDU7ko7vbAa +IEVR5iu4DOT56JdPH3sMFG5tUVUCA0UZJEHepodgmxBS4F3JwMMGBRrD98tg +YOvZWNIYA7MX2h9sfHYXTIJyossNjZEWx3/jq1YMwRoNz+ddjfGyrC18Y/ZN +4OIEwT695El/Cabi8sFJvuXVyrvG2LW6mu/skgvPXjX7zPUbo63JCcN9tCvQ +LTiq0bOKiblDJpfsyZdh5pDBNy97Jq74Ejg9yUyDu/NyrZchTDTh7qbXxqTA +zPchpb0FTLSsrez7WzsRHH1IO8SdTFT9OZxl6RkPW7nWaUkaBPok0T/mKEuA +UiK0+smGQJGiWpyVEQU5YlKlZiCBAVnx/ZFJp0DWVeTTlEGgc52tUg4vAoov +ej2PzSTwzOi3DBWPCMjbp8riZBGosX1kIGhnBJzv8FqszibQTXKHH2QYAd5t +qln3rxJI5tFxriscVBr2d+fcILBTvalx255w2FW+fG9oKYF3uhyEqo5h0HPh +Vxd6M4EU6WdXqacYmoBZ8XWJddmzsnEHMTwc+cRsbiGw32n1aQ9zMaTuOLNc ++ILAzJO7Jh1WicFloLCmWk6gf3JbRHlbCJRbzFge6CIwf953x3u3EEhpT6Gl +DBBYD7IElV+C4a8/D6bwBwlcxonWeuMYDMeYxsrsIQI/rJG/KLMOBucTFX39 +wwTKOz4upOoFgxLtXbrZGIGuvVkbuvpE8IfQTKfxC4E6a8xZQYEi4Op/jcyc +IFD1h8GVk1wRONXXjAsml/YdFzyI2i0Cup5n87ppAt2d/Bk1LBF0P4mQ8GYJ +vD5ys0o2LYSGIz9OWc0t/Xuvqj11WAgP1pJ4mvMEiqPmj4R2CyE58OrOewsE +alkpq3tXCSFy9ZGSmG8EJmn7zfmWCOFopQV5/yKBC/V67sdyhcA9tJiw+TuB +i7YxahKpEJxWNix8X+LfXirpFEiE8B9nPFYx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 0.9589637123079205}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 0.9589637123079205}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHk41Akcxh3Fk2Me3RHGXOYnaXoijJXvN3bWUR4tajW1WGa0qm00wzhq +tZEhZV2TkiORkiJFyZSjRM4yUTxyVJtrMU/lyJXW/vE+7/N5Pv+8z0vxE7jz +VZSUlDyW8n9f08ljm5uTMYbdWthxRwGU1xm6RRZkrDxapb9QrIDsdOmssSUZ +edasFbQlvkSVVOixyXjAmr9HcFsB5ywC2SpAxkTniUTlmwoQerHYchcymrqV +JmvlKgBzHlkL/MjYh7R4WaoC3rI6rG4lk1EqRBt+iAKcJFpBa2fIGLHlOt3C +VAF+jdv035oa4c7N9eqc7nHYUlPDe8Q1whiMbT0VOQ5Sd/cmaYIRStMECRzN +cVDBydAVlUb4hKX13DVxDDQb0+1DPxnh+sKzjpSpUch9mvN5kkrBg4dsrvU7 +jgKufzis7U7BqzTLUU7yvxCu3r5AjqGg9rKwK2alIyBzX/RqLaMgVVbterFl +GM6SzqXH/0PB9GntG486hmCCv/ErrqNiMLfnuEnJIPA2PM5M4VCxtGp7WVz8 +AAQF+Pr0hlHR200kj7b+CBqMADXrW1S8FKZ7/XTPB7htd3LKrJuKuuoBmsUJ +72Fk4oKygTYNDc2HzKP034HZspq9N2xpaKzdVdQo6QWtkvH6TUE0NFMbjIL8 +bghvOalflUvDOjbncP5gJygc9GVjchqeH9NN2iB6DYv7qoPXLKfji98pHoOf +XsHaOmFopwUd96yrnY9/2gayvFjvQn86qiTn2kBKK8wZ5PiJ0+jYEucv9bzV +CPYTDcW9dXQstqsWuPrXA4M3td5ulo5ZXoHPZi1rIY0TzS82ZeDU7ko7vbAa +IEVR5iu4DOT56JdPH3sMFG5tUVUCA0UZJEHepodgmxBS4F3JwMMGBRrD98tg +YOvZWNIYA7MX2h9sfHYXTIJyossNjZEWx3/jq1YMwRoNz+ddjfGyrC18Y/ZN +4OIEwT695El/Cabi8sFJvuXVyrvG2LW6mu/skgvPXjX7zPUbo63JCcN9tCvQ +LTiq0bOKiblDJpfsyZdh5pDBNy97Jq74Ejg9yUyDu/NyrZchTDTh7qbXxqTA +zPchpb0FTLSsrez7WzsRHH1IO8SdTFT9OZxl6RkPW7nWaUkaBPok0T/mKEuA +UiK0+smGQJGiWpyVEQU5YlKlZiCBAVnx/ZFJp0DWVeTTlEGgc52tUg4vAoov +ej2PzSTwzOi3DBWPCMjbp8riZBGosX1kIGhnBJzv8FqszibQTXKHH2QYAd5t +qln3rxJI5tFxriscVBr2d+fcILBTvalx255w2FW+fG9oKYF3uhyEqo5h0HPh +Vxd6M4EU6WdXqacYmoBZ8XWJddmzsnEHMTwc+cRsbiGw32n1aQ9zMaTuOLNc ++ILAzJO7Jh1WicFloLCmWk6gf3JbRHlbCJRbzFge6CIwf953x3u3EEhpT6Gl +DBBYD7IElV+C4a8/D6bwBwlcxonWeuMYDMeYxsrsIQI/rJG/KLMOBucTFX39 +wwTKOz4upOoFgxLtXbrZGIGuvVkbuvpE8IfQTKfxC4E6a8xZQYEi4Op/jcyc +IFD1h8GVk1wRONXXjAsml/YdFzyI2i0Cup5n87ppAt2d/Bk1LBF0P4mQ8GYJ +vD5ys0o2LYSGIz9OWc0t/Xuvqj11WAgP1pJ4mvMEiqPmj4R2CyE58OrOewsE +alkpq3tXCSFy9ZGSmG8EJmn7zfmWCOFopQV5/yKBC/V67sdyhcA9tJiw+TuB +i7YxahKpEJxWNix8X+LfXirpFEiE8B9nPFYx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 0.9589637123079205}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.800000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.8, 12.5}, {0., 0.9589637123079205}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.992442574454049*^9, 3.9924426154411793`*^9}, + 3.992485880359928*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"dddda636-436d-445b-ab09-ff3c3ee4a20f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.8", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.8", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}, {3.992442630219116*^9, + 3.992442635446726*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.16104766713820526`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.18958664940835762`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.16104766713820526`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.18958664940835762`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.7998833313375946`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"721199.445359491`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"46\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\ +\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\ +\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"2.7998833313375946`\\\", \\\" \\\", \\\"R1\\\"}], \ +\\\"]\\\"}]}], RowBox[{\\\"3.709361315957156`*^9\\\", \\\"+\\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 40, 4, 25981474780918464987, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9, 3.99244265160185*^9}, + CellLabel-> + "During evaluation of \ +In[40]:=",ExpressionUUID->"cdc8ad0d-9789-4a81-bf35-5c7c121719c1"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8974057311495861`"}], ",", + RowBox[{"b0", "\[Rule]", "1.2124504414158654`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9, 3.992442651689802*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6369bd4f-e1f8-4752-9bde-ca18d20e87eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.8", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.8", ",", "12.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9924426435507708`*^9, 3.992442645732576*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 41, 5, 25981474780918464987, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9, 3.992442651780101*^9}, + CellLabel-> + "During evaluation of \ +In[41]:=",ExpressionUUID->"0dbb6ab0-7aa8-4ad3-933f-47780106064d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8974252707167016`"}], ",", + RowBox[{"b0", "\[Rule]", "1.2124492557045983`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9, 3.9924426519094343`*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"561c9c05-f406-4f16-a3cb-52dfc3a75c28"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.63"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}, {3.992442674919711*^9, 3.992442683315135*^9}, { + 3.992486172850213*^9, 3.992486177969531*^9}, {3.992486256759342*^9, + 3.9924862720781727`*^9}, {3.992486319952189*^9, 3.992486320271936*^9}, { + 3.992486395307149*^9, 3.992486430744832*^9}}, + CellLabel->"In[59]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["1.63`"], "Output", + CellChangeTimes->{{3.992486388856598*^9, 3.992486431430531*^9}}, + CellLabel->"Out[59]=",ExpressionUUID->"096ccce9-4833-4a0a-a6e7-67aef180fe65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.856"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}, {3.99244268877989*^9, 3.992442703644696*^9}, { + 3.992486211519672*^9, 3.9924862453986893`*^9}, {3.9924863305429373`*^9, + 3.9924863406409683`*^9}, {3.992486374316263*^9, 3.9924863750230017`*^9}}, + CellLabel->"In[49]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.856`"], "Output", + CellChangeTimes->{{3.9924863541263027`*^9, 3.9924863761063137`*^9}}, + CellLabel->"Out[49]=",ExpressionUUID->"dc771e6c-221e-456b-b89d-5aad1bf2ad1b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.8", ",", "12.5"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}, + 3.992442711116556*^9}, + CellLabel->"In[60]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVkWs0FHgYxqc5tXKb3FmxY+5/FUZmY4T3VWxIp7LZo1GpiTpKjSbRfVVi +1dqZQQ4px2UXJ5l02XVramrlfklpiZQuwomONYkx0toPz3nO78vz4fcwxJKQ +KCqFQtkwn//7d5MioZsbHe09WG1LiqnY59LlXqago/uPQ9FVSQswINko1nKa +jlXSkQ3B6ykoblpp17fcATUfEctC58BZrY6sFTlgSftSzmenWcgMCWnOTHPA +Fgt54K5RLVDxU4K+ygEfnf/Z/u7wFBg25axJGHfAzU9ivKX/TELhw/x/PzEZ +6KZeuPjaqAbQumrYOISBNqe2ng3CCTim93SWfp6BfuFdc0Q2DjUhc2FtdxiI +xbd1BvyPkEq7mHPhLQMvFoRqDZM/gCZq6RRaMbGoYDJ9qm8YIm3uXkn3Z6JK +Wz92JuM9xO7ZGdF/lInmm7tKize+AwPOnm88yphYnROenRD4Bq77nJx06mWi +ycqhmMfyARjRXFpgb8zCqI0Nl/l3+8FpoTq0xIuF8c5+gld9vWBUMVa/LHae +1Zs2H9XvgWOtJ+3uFbLQ6sIvfX4XnsHHtXY1o50stPCS3HGVPIW5n+7HWSxi +o0dt0mtlRCdYPpImdAvYuDLOR/BmXQfUFKXsuLabjQ07vdpp37fCjH2+OD6L +jRkcLxpP0ARrNI3K/kdsdKxSUh4o64ETOWnto2Wjvt1Q1EbPOsjyPxelXM7B +P38N7nY3ewi0swxdtYiDQZVi18S1amCI/i6/l8bBblGcjSlVBV5pR0p3qDho +4r3OenZJDQzyU1NooxzMHV202zm+Ehxj889VfsfFeLAY6Ri7A3EGjQ26DVx8 +ubj1dWLHLRChhgjPcHH1vvfPB9QVENDp/MT0Jhf7c0lOmakS6p60RMy84uKX +4+vVH/TLoFcSY/DCjIfS1DqLxTalML3X/kvYGh6ai7lM38I/4Kau06jjCA9v +VpratkERTH8dooSW8rBnH6krdyyAdRE07/huHoY3v60y784DvsgjS25A8MR4 +3dXAI7nAqJC6/+BJMMsysS2vMBvy42kqw2iC2ctLHL/jZkFNT3lEcy7BoBVn +hG21GfDi0vYgdgvBtw+2eJRWKiDAtHH261eCe7pm9Jr3yQDzaz0kYjpau9Jf +51tSMf1pOit9kOCBucf8DqUcpGEuws4gOi5srnUZ307FSsH0qvAegh1X2Dof +VwUckDqZNE0Q/HzAfdCTL4eLgmghFejo4y830ztLxaDBa+r7nQSTg93OTRxW +AIU1kOM0StC26+ohQ4kceh8cT47Uzu9Z6g3cfieDbGZyta2Qji8SXLcaZ1Ix +wztpkbSd4OTopt7rlxQQeKL65athgoKJyxXtv8mBbbulxeozwcO7hitWmMpB +EV3ge2uWYAo/WpxUIoO8nEwtdxUdda7mZkuuUrFqZJzX0kqwkn1jZ2GxAg7y +uAuEQwRJpKdvQ54cAurVY5JPBMcnkkKvO8jhL0tapKGOoKWk9aBxvQxiVAL6 +1jmCVi4teTapMmA8y/22XEDHsLBhmayAis3Aq56a910nivBl3VBA4qlt6VHv +CaqOrw5uKpaDyG7q9BUNwV0U6/uHiBwa9/tNus8Q9C810m57JoPT5vsrzn8h +2JDv+zwoWwaivXNpK+b/WqZKuTF2TAb/AXV4KYc= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, + 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVkWs0FHgYxqc5tXKb3FmxY+5/FUZmY4T3VWxIp7LZo1GpiTpKjSbRfVVi +1dqZQQ4px2UXJ5l02XVramrlfklpiZQuwomONYkx0toPz3nO78vz4fcwxJKQ +KCqFQtkwn//7d5MioZsbHe09WG1LiqnY59LlXqago/uPQ9FVSQswINko1nKa +jlXSkQ3B6ykoblpp17fcATUfEctC58BZrY6sFTlgSftSzmenWcgMCWnOTHPA +Fgt54K5RLVDxU4K+ygEfnf/Z/u7wFBg25axJGHfAzU9ivKX/TELhw/x/PzEZ +6KZeuPjaqAbQumrYOISBNqe2ng3CCTim93SWfp6BfuFdc0Q2DjUhc2FtdxiI +xbd1BvyPkEq7mHPhLQMvFoRqDZM/gCZq6RRaMbGoYDJ9qm8YIm3uXkn3Z6JK +Wz92JuM9xO7ZGdF/lInmm7tKize+AwPOnm88yphYnROenRD4Bq77nJx06mWi +ycqhmMfyARjRXFpgb8zCqI0Nl/l3+8FpoTq0xIuF8c5+gld9vWBUMVa/LHae +1Zs2H9XvgWOtJ+3uFbLQ6sIvfX4XnsHHtXY1o50stPCS3HGVPIW5n+7HWSxi +o0dt0mtlRCdYPpImdAvYuDLOR/BmXQfUFKXsuLabjQ07vdpp37fCjH2+OD6L +jRkcLxpP0ARrNI3K/kdsdKxSUh4o64ETOWnto2Wjvt1Q1EbPOsjyPxelXM7B +P38N7nY3ewi0swxdtYiDQZVi18S1amCI/i6/l8bBblGcjSlVBV5pR0p3qDho +4r3OenZJDQzyU1NooxzMHV202zm+Ehxj889VfsfFeLAY6Ri7A3EGjQ26DVx8 +ubj1dWLHLRChhgjPcHH1vvfPB9QVENDp/MT0Jhf7c0lOmakS6p60RMy84uKX +4+vVH/TLoFcSY/DCjIfS1DqLxTalML3X/kvYGh6ai7lM38I/4Kau06jjCA9v +VpratkERTH8dooSW8rBnH6krdyyAdRE07/huHoY3v60y784DvsgjS25A8MR4 +3dXAI7nAqJC6/+BJMMsysS2vMBvy42kqw2iC2ctLHL/jZkFNT3lEcy7BoBVn +hG21GfDi0vYgdgvBtw+2eJRWKiDAtHH261eCe7pm9Jr3yQDzaz0kYjpau9Jf +51tSMf1pOit9kOCBucf8DqUcpGEuws4gOi5srnUZ307FSsH0qvAegh1X2Dof +VwUckDqZNE0Q/HzAfdCTL4eLgmghFejo4y830ztLxaDBa+r7nQSTg93OTRxW +AIU1kOM0StC26+ohQ4kceh8cT47Uzu9Z6g3cfieDbGZyta2Qji8SXLcaZ1Ix +wztpkbSd4OTopt7rlxQQeKL65athgoKJyxXtv8mBbbulxeozwcO7hitWmMpB +EV3ge2uWYAo/WpxUIoO8nEwtdxUdda7mZkuuUrFqZJzX0kqwkn1jZ2GxAg7y +uAuEQwRJpKdvQ54cAurVY5JPBMcnkkKvO8jhL0tapKGOoKWk9aBxvQxiVAL6 +1jmCVi4teTapMmA8y/22XEDHsLBhmayAis3Aq56a910nivBl3VBA4qlt6VHv +CaqOrw5uKpaDyG7q9BUNwV0U6/uHiBwa9/tNus8Q9C810m57JoPT5vsrzn8h +2JDv+zwoWwaivXNpK+b/WqZKuTF2TAb/AXV4KYc= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 2.331084826123528}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzn0wFHgcx/Ftp06eNs+cuLXPPxVW9mKF71dxIU3lcqNVqY0apVab6PlU +4tS53UWGlPFwh0k2Pdx5amvr5PkhpSNSehAmGmcTa6Vzf3zmPa//PgyxJCSK +SqFQNszv//5uUiR0c6OjvQerbUkxFRnPcr8tF9AxLGxYJiugYl5Oppa7io46 +V3OzJVepmM1MrrYV0vFFgutW40wqXhREC6lARx9/uZneWSpKw1yEnUF0XNhc +6zK+nYqYX+shEdPR2pX+Ot+Sin0uXe5lCjq6/zgUXZW0AAOSjWItp+lYJR3Z +ELyeguKmlXZ9yx1Q8xGxLHQOnNXqyFqRA5a0L+V8dpqFzJCQ5sw0B2yxkAfu +GtUCFT8l6Ksc8NH5n+3vDk+BYVPOmoRxB9z8JMZb+s8kFD7M//cTk4Fu6oWL +r41qAK2rho1DGGhzauvZIJyAY3pPZ+nnGegX3jVHZONQEzIX1naHgVh8W2fA +/wiptIs5F94y8GJBqNYw+QNoopZOoRUTiwom06f6hiHS5u6VdH8mqrT1Y2cy +3kPsnp0R/UeZaL65q7R44zsw4Oz5xqOMidU54dkJgW/gus/JSadeJpqsHIp5 +LB+AEc2lBfbGLIza2HCZf7cfnBaqQ0u8WBjv7Cd41dcLRhVj9cti563etPmo +fg8caz1pd6+QhVYXfunzu/AMPq61qxntZKGFl+SOq+QpzP10P85iERs9apNe +KyM6wfKRNKFbwMaVcT6CN+s6oKYoZce13Wxs2OnVTvu+FWbs88XxWWzM4HjR +eIImWKNpVPY/YqNjlZLyQFkPnMhJax8tG/XthqI2etZBlv+5KOVyDv75a3C3 +u9lDoJ1l6KpFHAyqFLsmrlUDQ/R3+b00DnaL4mxMqSrwSjtSukPFQRPvddaz +S2pgkJ+aQhvlYO7oot3O8ZXgGJt/rvI7LsaDxUjH2B2IM2hs0G3g4svFra8T +O26BCDVEeIaLq/e9fz6groCATucnpje52J9LcspMlVD3pCVi5hUXvxxfr/6g +Xwa9khiDF2Y8lKbWWSy2KYXpvfZfwtbw0FzMZfoW/gE3dZ1GHUd4eLPS1LYN +imD66xAltJSHPftIXbljAayLoHnHd/MwvPltlXl3HvBFHllyA4InxuuuBh7J +BUaF1P0HT4JZlolteYXZkB9PUxlGE8xeXuL4HTcLanrKI5pzCQatOCNsq82A +F5e2B7FbCL59sMWjtFIBzcCrnpp3nSjCl3VDAVUj47yWVoKV7Bs7C4sVkOGd +tEjaTnBydFPv9UsKCBq8pr7fSTA52O3cxGEFVAqmV4X3EOy4wtb5uCog/Wk6 +K32Q4IG5x/wOpRwST21Lj3pPUHV8dXBTsRwO8rgLhEMESaSnb0OeHAJPVL98 +NUxQMHG5ov03OVBYAzlOowRtu64eMpTI4YDUyaRpguDnA+6Dnnw5iOymTl/R +ENxFsb5/iMghoF49JvlEcHwiKfS6gxzYtltarD4TPLxruGKFqRx6HxxPjtTO +/7PUG7j9TgaN+/0m3WcI+pcaabc9k8FflrRIQx1BS0nrQeN6GSiiC3xvzRJM +4UeLk0pkcNp8f8X5LwQb8n2fB2XLIEYloG+dI2jl0pJnkyoD0d65tBVfCS5T +pdwYOyaDANPG2a/z3tM1o9e8Twb/ASktKYc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 2.331084826123528}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzn0wFHgcx/Ftp06eNs+cuLXPPxVW9mKF71dxIU3lcqNVqY0apVab6PlU +4tS53UWGlPFwh0k2Pdx5amvr5PkhpSNSehAmGmcTa6Vzf3zmPa//PgyxJCSK +SqFQNszv//5uUiR0c6OjvQerbUkxFRnPcr8tF9AxLGxYJiugYl5Oppa7io46 +V3OzJVepmM1MrrYV0vFFgutW40wqXhREC6lARx9/uZneWSpKw1yEnUF0XNhc +6zK+nYqYX+shEdPR2pX+Ot+Sin0uXe5lCjq6/zgUXZW0AAOSjWItp+lYJR3Z +ELyeguKmlXZ9yx1Q8xGxLHQOnNXqyFqRA5a0L+V8dpqFzJCQ5sw0B2yxkAfu +GtUCFT8l6Ksc8NH5n+3vDk+BYVPOmoRxB9z8JMZb+s8kFD7M//cTk4Fu6oWL +r41qAK2rho1DGGhzauvZIJyAY3pPZ+nnGegX3jVHZONQEzIX1naHgVh8W2fA +/wiptIs5F94y8GJBqNYw+QNoopZOoRUTiwom06f6hiHS5u6VdH8mqrT1Y2cy +3kPsnp0R/UeZaL65q7R44zsw4Oz5xqOMidU54dkJgW/gus/JSadeJpqsHIp5 +LB+AEc2lBfbGLIza2HCZf7cfnBaqQ0u8WBjv7Cd41dcLRhVj9cti563etPmo +fg8caz1pd6+QhVYXfunzu/AMPq61qxntZKGFl+SOq+QpzP10P85iERs9apNe +KyM6wfKRNKFbwMaVcT6CN+s6oKYoZce13Wxs2OnVTvu+FWbs88XxWWzM4HjR +eIImWKNpVPY/YqNjlZLyQFkPnMhJax8tG/XthqI2etZBlv+5KOVyDv75a3C3 +u9lDoJ1l6KpFHAyqFLsmrlUDQ/R3+b00DnaL4mxMqSrwSjtSukPFQRPvddaz +S2pgkJ+aQhvlYO7oot3O8ZXgGJt/rvI7LsaDxUjH2B2IM2hs0G3g4svFra8T +O26BCDVEeIaLq/e9fz6groCATucnpje52J9LcspMlVD3pCVi5hUXvxxfr/6g +Xwa9khiDF2Y8lKbWWSy2KYXpvfZfwtbw0FzMZfoW/gE3dZ1GHUd4eLPS1LYN +imD66xAltJSHPftIXbljAayLoHnHd/MwvPltlXl3HvBFHllyA4InxuuuBh7J +BUaF1P0HT4JZlolteYXZkB9PUxlGE8xeXuL4HTcLanrKI5pzCQatOCNsq82A +F5e2B7FbCL59sMWjtFIBzcCrnpp3nSjCl3VDAVUj47yWVoKV7Bs7C4sVkOGd +tEjaTnBydFPv9UsKCBq8pr7fSTA52O3cxGEFVAqmV4X3EOy4wtb5uCog/Wk6 +K32Q4IG5x/wOpRwST21Lj3pPUHV8dXBTsRwO8rgLhEMESaSnb0OeHAJPVL98 +NUxQMHG5ov03OVBYAzlOowRtu64eMpTI4YDUyaRpguDnA+6Dnnw5iOymTl/R +ENxFsb5/iMghoF49JvlEcHwiKfS6gxzYtltarD4TPLxruGKFqRx6HxxPjtTO +/7PUG7j9TgaN+/0m3WcI+pcaabc9k8FflrRIQx1BS0nrQeN6GSiiC3xvzRJM +4UeLk0pkcNp8f8X5LwQb8n2fB2XLIEYloG+dI2jl0pJnkyoD0d65tBVfCS5T +pdwYOyaDANPG2a/z3tM1o9e8Twb/ASktKYc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVkWs0FHgYxqc5tXKb3FmxY+5/FUZmY4T3VWxIp7LZo1GpiTpKjSbRfVVi +1dqZQQ4px2UXJ5l02XVramrlfklpiZQuwomONYkx0toPz3nO78vz4fcwxJKQ +KCqFQtkwn//7d5MioZsbHe09WG1LiqnY59LlXqago/uPQ9FVSQswINko1nKa +jlXSkQ3B6ykoblpp17fcATUfEctC58BZrY6sFTlgSftSzmenWcgMCWnOTHPA +Fgt54K5RLVDxU4K+ygEfnf/Z/u7wFBg25axJGHfAzU9ivKX/TELhw/x/PzEZ +6KZeuPjaqAbQumrYOISBNqe2ng3CCTim93SWfp6BfuFdc0Q2DjUhc2FtdxiI +xbd1BvyPkEq7mHPhLQMvFoRqDZM/gCZq6RRaMbGoYDJ9qm8YIm3uXkn3Z6JK +Wz92JuM9xO7ZGdF/lInmm7tKize+AwPOnm88yphYnROenRD4Bq77nJx06mWi +ycqhmMfyARjRXFpgb8zCqI0Nl/l3+8FpoTq0xIuF8c5+gld9vWBUMVa/LHae +1Zs2H9XvgWOtJ+3uFbLQ6sIvfX4XnsHHtXY1o50stPCS3HGVPIW5n+7HWSxi +o0dt0mtlRCdYPpImdAvYuDLOR/BmXQfUFKXsuLabjQ07vdpp37fCjH2+OD6L +jRkcLxpP0ARrNI3K/kdsdKxSUh4o64ETOWnto2Wjvt1Q1EbPOsjyPxelXM7B +P38N7nY3ewi0swxdtYiDQZVi18S1amCI/i6/l8bBblGcjSlVBV5pR0p3qDho +4r3OenZJDQzyU1NooxzMHV202zm+Ehxj889VfsfFeLAY6Ri7A3EGjQ26DVx8 +ubj1dWLHLRChhgjPcHH1vvfPB9QVENDp/MT0Jhf7c0lOmakS6p60RMy84uKX +4+vVH/TLoFcSY/DCjIfS1DqLxTalML3X/kvYGh6ai7lM38I/4Kau06jjCA9v +VpratkERTH8dooSW8rBnH6krdyyAdRE07/huHoY3v60y784DvsgjS25A8MR4 +3dXAI7nAqJC6/+BJMMsysS2vMBvy42kqw2iC2ctLHL/jZkFNT3lEcy7BoBVn +hG21GfDi0vYgdgvBtw+2eJRWKiDAtHH261eCe7pm9Jr3yQDzaz0kYjpau9Jf +51tSMf1pOit9kOCBucf8DqUcpGEuws4gOi5srnUZ307FSsH0qvAegh1X2Dof +VwUckDqZNE0Q/HzAfdCTL4eLgmghFejo4y830ztLxaDBa+r7nQSTg93OTRxW +AIU1kOM0StC26+ohQ4kceh8cT47Uzu9Z6g3cfieDbGZyta2Qji8SXLcaZ1Ix +wztpkbSd4OTopt7rlxQQeKL65athgoKJyxXtv8mBbbulxeozwcO7hitWmMpB +EV3ge2uWYAo/WpxUIoO8nEwtdxUdda7mZkuuUrFqZJzX0kqwkn1jZ2GxAg7y +uAuEQwRJpKdvQ54cAurVY5JPBMcnkkKvO8jhL0tapKGOoKWk9aBxvQxiVAL6 +1jmCVi4teTapMmA8y/22XEDHsLBhmayAis3Aq56a910nivBl3VBA4qlt6VHv +CaqOrw5uKpaDyG7q9BUNwV0U6/uHiBwa9/tNus8Q9C810m57JoPT5vsrzn8h +2JDv+zwoWwaivXNpK+b/WqZKuTF2TAb/AXV4KYc= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, + 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 2.331084826123528}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzn0wFHgcx/Ftp06eNs+cuLXPPxVW9mKF71dxIU3lcqNVqY0apVab6PlU +4tS53UWGlPFwh0k2Pdx5amvr5PkhpSNSehAmGmcTa6Vzf3zmPa//PgyxJCSK +SqFQNszv//5uUiR0c6OjvQerbUkxFRnPcr8tF9AxLGxYJiugYl5Oppa7io46 +V3OzJVepmM1MrrYV0vFFgutW40wqXhREC6lARx9/uZneWSpKw1yEnUF0XNhc +6zK+nYqYX+shEdPR2pX+Ot+Sin0uXe5lCjq6/zgUXZW0AAOSjWItp+lYJR3Z +ELyeguKmlXZ9yx1Q8xGxLHQOnNXqyFqRA5a0L+V8dpqFzJCQ5sw0B2yxkAfu +GtUCFT8l6Ksc8NH5n+3vDk+BYVPOmoRxB9z8JMZb+s8kFD7M//cTk4Fu6oWL +r41qAK2rho1DGGhzauvZIJyAY3pPZ+nnGegX3jVHZONQEzIX1naHgVh8W2fA +/wiptIs5F94y8GJBqNYw+QNoopZOoRUTiwom06f6hiHS5u6VdH8mqrT1Y2cy +3kPsnp0R/UeZaL65q7R44zsw4Oz5xqOMidU54dkJgW/gus/JSadeJpqsHIp5 +LB+AEc2lBfbGLIza2HCZf7cfnBaqQ0u8WBjv7Cd41dcLRhVj9cti563etPmo +fg8caz1pd6+QhVYXfunzu/AMPq61qxntZKGFl+SOq+QpzP10P85iERs9apNe +KyM6wfKRNKFbwMaVcT6CN+s6oKYoZce13Wxs2OnVTvu+FWbs88XxWWzM4HjR +eIImWKNpVPY/YqNjlZLyQFkPnMhJax8tG/XthqI2etZBlv+5KOVyDv75a3C3 +u9lDoJ1l6KpFHAyqFLsmrlUDQ/R3+b00DnaL4mxMqSrwSjtSukPFQRPvddaz +S2pgkJ+aQhvlYO7oot3O8ZXgGJt/rvI7LsaDxUjH2B2IM2hs0G3g4svFra8T +O26BCDVEeIaLq/e9fz6groCATucnpje52J9LcspMlVD3pCVi5hUXvxxfr/6g +Xwa9khiDF2Y8lKbWWSy2KYXpvfZfwtbw0FzMZfoW/gE3dZ1GHUd4eLPS1LYN +imD66xAltJSHPftIXbljAayLoHnHd/MwvPltlXl3HvBFHllyA4InxuuuBh7J +BUaF1P0HT4JZlolteYXZkB9PUxlGE8xeXuL4HTcLanrKI5pzCQatOCNsq82A +F5e2B7FbCL59sMWjtFIBzcCrnpp3nSjCl3VDAVUj47yWVoKV7Bs7C4sVkOGd +tEjaTnBydFPv9UsKCBq8pr7fSTA52O3cxGEFVAqmV4X3EOy4wtb5uCog/Wk6 +K32Q4IG5x/wOpRwST21Lj3pPUHV8dXBTsRwO8rgLhEMESaSnb0OeHAJPVL98 +NUxQMHG5ov03OVBYAzlOowRtu64eMpTI4YDUyaRpguDnA+6Dnnw5iOymTl/R +ENxFsb5/iMghoF49JvlEcHwiKfS6gxzYtltarD4TPLxruGKFqRx6HxxPjtTO +/7PUG7j9TgaN+/0m3WcI+pcaabc9k8FflrRIQx1BS0nrQeN6GSiiC3xvzRJM +4UeLk0pkcNp8f8X5LwQb8n2fB2XLIEYloG+dI2jl0pJnkyoD0d65tBVfCS5T +pdwYOyaDANPG2a/z3tM1o9e8Twb/ASktKYc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.800000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.8, 12.5}, {0., 2.331084826123528}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9, 3.9924427129165287`*^9, {3.99248621474858*^9, + 3.992486276174131*^9}, {3.992486322295388*^9, 3.9924864335404997`*^9}}, + CellLabel->"Out[60]=",ExpressionUUID->"74a5ae47-6c0b-4d96-b783-6f1376811b40"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[61]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVkHk41Akcxh3Fk2Me3RHGXOYnaXoijJXvN3bWUR4tajW1WGa0qm00wzhq +tZEhZV2TkiORkiJFyZSjRM4yUTxyVJtrMU/lyJXW/vE+7/N5Pv+8z0vxE7jz +VZSUlDyW8n9f08ljm5uTMYbdWthxRwGU1xm6RRZkrDxapb9QrIDsdOmssSUZ +edasFbQlvkSVVOixyXjAmr9HcFsB5ywC2SpAxkTniUTlmwoQerHYchcymrqV +JmvlKgBzHlkL/MjYh7R4WaoC3rI6rG4lk1EqRBt+iAKcJFpBa2fIGLHlOt3C +VAF+jdv035oa4c7N9eqc7nHYUlPDe8Q1whiMbT0VOQ5Sd/cmaYIRStMECRzN +cVDBydAVlUb4hKX13DVxDDQb0+1DPxnh+sKzjpSpUch9mvN5kkrBg4dsrvU7 +jgKufzis7U7BqzTLUU7yvxCu3r5AjqGg9rKwK2alIyBzX/RqLaMgVVbterFl +GM6SzqXH/0PB9GntG486hmCCv/ErrqNiMLfnuEnJIPA2PM5M4VCxtGp7WVz8 +AAQF+Pr0hlHR200kj7b+CBqMADXrW1S8FKZ7/XTPB7htd3LKrJuKuuoBmsUJ +72Fk4oKygTYNDc2HzKP034HZspq9N2xpaKzdVdQo6QWtkvH6TUE0NFMbjIL8 +bghvOalflUvDOjbncP5gJygc9GVjchqeH9NN2iB6DYv7qoPXLKfji98pHoOf +XsHaOmFopwUd96yrnY9/2gayvFjvQn86qiTn2kBKK8wZ5PiJ0+jYEucv9bzV +CPYTDcW9dXQstqsWuPrXA4M3td5ulo5ZXoHPZi1rIY0TzS82ZeDU7ko7vbAa +IEVR5iu4DOT56JdPH3sMFG5tUVUCA0UZJEHepodgmxBS4F3JwMMGBRrD98tg +YOvZWNIYA7MX2h9sfHYXTIJyossNjZEWx3/jq1YMwRoNz+ddjfGyrC18Y/ZN +4OIEwT695El/Cabi8sFJvuXVyrvG2LW6mu/skgvPXjX7zPUbo63JCcN9tCvQ +LTiq0bOKiblDJpfsyZdh5pDBNy97Jq74Ejg9yUyDu/NyrZchTDTh7qbXxqTA +zPchpb0FTLSsrez7WzsRHH1IO8SdTFT9OZxl6RkPW7nWaUkaBPok0T/mKEuA +UiK0+smGQJGiWpyVEQU5YlKlZiCBAVnx/ZFJp0DWVeTTlEGgc52tUg4vAoov +ej2PzSTwzOi3DBWPCMjbp8riZBGosX1kIGhnBJzv8FqszibQTXKHH2QYAd5t +qln3rxJI5tFxriscVBr2d+fcILBTvalx255w2FW+fG9oKYF3uhyEqo5h0HPh +Vxd6M4EU6WdXqacYmoBZ8XWJddmzsnEHMTwc+cRsbiGw32n1aQ9zMaTuOLNc ++ILAzJO7Jh1WicFloLCmWk6gf3JbRHlbCJRbzFge6CIwf953x3u3EEhpT6Gl +DBBYD7IElV+C4a8/D6bwBwlcxonWeuMYDMeYxsrsIQI/rJG/KLMOBucTFX39 +wwTKOz4upOoFgxLtXbrZGIGuvVkbuvpE8IfQTKfxC4E6a8xZQYEi4Op/jcyc +IFD1h8GVk1wRONXXjAsml/YdFzyI2i0Cup5n87ppAt2d/Bk1LBF0P4mQ8GYJ +vD5ys0o2LYSGIz9OWc0t/Xuvqj11WAgP1pJ4mvMEiqPmj4R2CyE58OrOewsE +alkpq3tXCSFy9ZGSmG8EJmn7zfmWCOFopQV5/yKBC/V67sdyhcA9tJiw+TuB +i7YxahKpEJxWNix8X+LfXirpFEiE8B9nPFYx + "]]}, + 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:eJwVkHk41Akcxh3Fk2Me3RHGXOYnaXoijJXvN3bWUR4tajW1WGa0qm00wzhq +tZEhZV2TkiORkiJFyZSjRM4yUTxyVJtrMU/lyJXW/vE+7/N5Pv+8z0vxE7jz +VZSUlDyW8n9f08ljm5uTMYbdWthxRwGU1xm6RRZkrDxapb9QrIDsdOmssSUZ +edasFbQlvkSVVOixyXjAmr9HcFsB5ywC2SpAxkTniUTlmwoQerHYchcymrqV +JmvlKgBzHlkL/MjYh7R4WaoC3rI6rG4lk1EqRBt+iAKcJFpBa2fIGLHlOt3C +VAF+jdv035oa4c7N9eqc7nHYUlPDe8Q1whiMbT0VOQ5Sd/cmaYIRStMECRzN +cVDBydAVlUb4hKX13DVxDDQb0+1DPxnh+sKzjpSpUch9mvN5kkrBg4dsrvU7 +jgKufzis7U7BqzTLUU7yvxCu3r5AjqGg9rKwK2alIyBzX/RqLaMgVVbterFl +GM6SzqXH/0PB9GntG486hmCCv/ErrqNiMLfnuEnJIPA2PM5M4VCxtGp7WVz8 +AAQF+Pr0hlHR200kj7b+CBqMADXrW1S8FKZ7/XTPB7htd3LKrJuKuuoBmsUJ +72Fk4oKygTYNDc2HzKP034HZspq9N2xpaKzdVdQo6QWtkvH6TUE0NFMbjIL8 +bghvOalflUvDOjbncP5gJygc9GVjchqeH9NN2iB6DYv7qoPXLKfji98pHoOf +XsHaOmFopwUd96yrnY9/2gayvFjvQn86qiTn2kBKK8wZ5PiJ0+jYEucv9bzV +CPYTDcW9dXQstqsWuPrXA4M3td5ulo5ZXoHPZi1rIY0TzS82ZeDU7ko7vbAa +IEVR5iu4DOT56JdPH3sMFG5tUVUCA0UZJEHepodgmxBS4F3JwMMGBRrD98tg +YOvZWNIYA7MX2h9sfHYXTIJyossNjZEWx3/jq1YMwRoNz+ddjfGyrC18Y/ZN +4OIEwT695El/Cabi8sFJvuXVyrvG2LW6mu/skgvPXjX7zPUbo63JCcN9tCvQ +LTiq0bOKiblDJpfsyZdh5pDBNy97Jq74Ejg9yUyDu/NyrZchTDTh7qbXxqTA +zPchpb0FTLSsrez7WzsRHH1IO8SdTFT9OZxl6RkPW7nWaUkaBPok0T/mKEuA +UiK0+smGQJGiWpyVEQU5YlKlZiCBAVnx/ZFJp0DWVeTTlEGgc52tUg4vAoov +ej2PzSTwzOi3DBWPCMjbp8riZBGosX1kIGhnBJzv8FqszibQTXKHH2QYAd5t +qln3rxJI5tFxriscVBr2d+fcILBTvalx255w2FW+fG9oKYF3uhyEqo5h0HPh +Vxd6M4EU6WdXqacYmoBZ8XWJddmzsnEHMTwc+cRsbiGw32n1aQ9zMaTuOLNc ++ILAzJO7Jh1WicFloLCmWk6gf3JbRHlbCJRbzFge6CIwf953x3u3EEhpT6Gl +DBBYD7IElV+C4a8/D6bwBwlcxonWeuMYDMeYxsrsIQI/rJG/KLMOBucTFX39 +wwTKOz4upOoFgxLtXbrZGIGuvVkbuvpE8IfQTKfxC4E6a8xZQYEi4Op/jcyc +IFD1h8GVk1wRONXXjAsml/YdFzyI2i0Cup5n87ppAt2d/Bk1LBF0P4mQ8GYJ +vD5ys0o2LYSGIz9OWc0t/Xuvqj11WAgP1pJ4mvMEiqPmj4R2CyE58OrOewsE +alkpq3tXCSFy9ZGSmG8EJmn7zfmWCOFopQV5/yKBC/V67sdyhcA9tJiw+TuB +i7YxahKpEJxWNix8X+LfXirpFEiE8B9nPFYx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 0.9589637123079205}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 0.9589637123079205}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkHk41Akcxh3Fk2Me3RHGXOYnaXoijJXvN3bWUR4tajW1WGa0qm00wzhq +tZEhZV2TkiORkiJFyZSjRM4yUTxyVJtrMU/lyJXW/vE+7/N5Pv+8z0vxE7jz +VZSUlDyW8n9f08ljm5uTMYbdWthxRwGU1xm6RRZkrDxapb9QrIDsdOmssSUZ +edasFbQlvkSVVOixyXjAmr9HcFsB5ywC2SpAxkTniUTlmwoQerHYchcymrqV +JmvlKgBzHlkL/MjYh7R4WaoC3rI6rG4lk1EqRBt+iAKcJFpBa2fIGLHlOt3C +VAF+jdv035oa4c7N9eqc7nHYUlPDe8Q1whiMbT0VOQ5Sd/cmaYIRStMECRzN +cVDBydAVlUb4hKX13DVxDDQb0+1DPxnh+sKzjpSpUch9mvN5kkrBg4dsrvU7 +jgKufzis7U7BqzTLUU7yvxCu3r5AjqGg9rKwK2alIyBzX/RqLaMgVVbterFl +GM6SzqXH/0PB9GntG486hmCCv/ErrqNiMLfnuEnJIPA2PM5M4VCxtGp7WVz8 +AAQF+Pr0hlHR200kj7b+CBqMADXrW1S8FKZ7/XTPB7htd3LKrJuKuuoBmsUJ +72Fk4oKygTYNDc2HzKP034HZspq9N2xpaKzdVdQo6QWtkvH6TUE0NFMbjIL8 +bghvOalflUvDOjbncP5gJygc9GVjchqeH9NN2iB6DYv7qoPXLKfji98pHoOf +XsHaOmFopwUd96yrnY9/2gayvFjvQn86qiTn2kBKK8wZ5PiJ0+jYEucv9bzV +CPYTDcW9dXQstqsWuPrXA4M3td5ulo5ZXoHPZi1rIY0TzS82ZeDU7ko7vbAa +IEVR5iu4DOT56JdPH3sMFG5tUVUCA0UZJEHepodgmxBS4F3JwMMGBRrD98tg +YOvZWNIYA7MX2h9sfHYXTIJyossNjZEWx3/jq1YMwRoNz+ddjfGyrC18Y/ZN +4OIEwT695El/Cabi8sFJvuXVyrvG2LW6mu/skgvPXjX7zPUbo63JCcN9tCvQ +LTiq0bOKiblDJpfsyZdh5pDBNy97Jq74Ejg9yUyDu/NyrZchTDTh7qbXxqTA +zPchpb0FTLSsrez7WzsRHH1IO8SdTFT9OZxl6RkPW7nWaUkaBPok0T/mKEuA +UiK0+smGQJGiWpyVEQU5YlKlZiCBAVnx/ZFJp0DWVeTTlEGgc52tUg4vAoov +ej2PzSTwzOi3DBWPCMjbp8riZBGosX1kIGhnBJzv8FqszibQTXKHH2QYAd5t +qln3rxJI5tFxriscVBr2d+fcILBTvalx255w2FW+fG9oKYF3uhyEqo5h0HPh +Vxd6M4EU6WdXqacYmoBZ8XWJddmzsnEHMTwc+cRsbiGw32n1aQ9zMaTuOLNc ++ILAzJO7Jh1WicFloLCmWk6gf3JbRHlbCJRbzFge6CIwf953x3u3EEhpT6Gl +DBBYD7IElV+C4a8/D6bwBwlcxonWeuMYDMeYxsrsIQI/rJG/KLMOBucTFX39 +wwTKOz4upOoFgxLtXbrZGIGuvVkbuvpE8IfQTKfxC4E6a8xZQYEi4Op/jcyc +IFD1h8GVk1wRONXXjAsml/YdFzyI2i0Cup5n87ppAt2d/Bk1LBF0P4mQ8GYJ +vD5ys0o2LYSGIz9OWc0t/Xuvqj11WAgP1pJ4mvMEiqPmj4R2CyE58OrOewsE +alkpq3tXCSFy9ZGSmG8EJmn7zfmWCOFopQV5/yKBC/V67sdyhcA9tJiw+TuB +i7YxahKpEJxWNix8X+LfXirpFEiE8B9nPFYx + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 0.9589637123079205}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVkWs0FHgYxqc5tXKb3FmxY+5/FUZmY4T3VWxIp7LZo1GpiTpKjSbRfVVi +1dqZQQ4px2UXJ5l02XVramrlfklpiZQuwomONYkx0toPz3nO78vz4fcwxJKQ +KCqFQtkwn//7d5MioZsbHe09WG1LiqnY59LlXqago/uPQ9FVSQswINko1nKa +jlXSkQ3B6ykoblpp17fcATUfEctC58BZrY6sFTlgSftSzmenWcgMCWnOTHPA +Fgt54K5RLVDxU4K+ygEfnf/Z/u7wFBg25axJGHfAzU9ivKX/TELhw/x/PzEZ +6KZeuPjaqAbQumrYOISBNqe2ng3CCTim93SWfp6BfuFdc0Q2DjUhc2FtdxiI +xbd1BvyPkEq7mHPhLQMvFoRqDZM/gCZq6RRaMbGoYDJ9qm8YIm3uXkn3Z6JK +Wz92JuM9xO7ZGdF/lInmm7tKize+AwPOnm88yphYnROenRD4Bq77nJx06mWi +ycqhmMfyARjRXFpgb8zCqI0Nl/l3+8FpoTq0xIuF8c5+gld9vWBUMVa/LHae +1Zs2H9XvgWOtJ+3uFbLQ6sIvfX4XnsHHtXY1o50stPCS3HGVPIW5n+7HWSxi +o0dt0mtlRCdYPpImdAvYuDLOR/BmXQfUFKXsuLabjQ07vdpp37fCjH2+OD6L +jRkcLxpP0ARrNI3K/kdsdKxSUh4o64ETOWnto2Wjvt1Q1EbPOsjyPxelXM7B +P38N7nY3ewi0swxdtYiDQZVi18S1amCI/i6/l8bBblGcjSlVBV5pR0p3qDho +4r3OenZJDQzyU1NooxzMHV202zm+Ehxj889VfsfFeLAY6Ri7A3EGjQ26DVx8 +ubj1dWLHLRChhgjPcHH1vvfPB9QVENDp/MT0Jhf7c0lOmakS6p60RMy84uKX +4+vVH/TLoFcSY/DCjIfS1DqLxTalML3X/kvYGh6ai7lM38I/4Kau06jjCA9v +VpratkERTH8dooSW8rBnH6krdyyAdRE07/huHoY3v60y784DvsgjS25A8MR4 +3dXAI7nAqJC6/+BJMMsysS2vMBvy42kqw2iC2ctLHL/jZkFNT3lEcy7BoBVn +hG21GfDi0vYgdgvBtw+2eJRWKiDAtHH261eCe7pm9Jr3yQDzaz0kYjpau9Jf +51tSMf1pOit9kOCBucf8DqUcpGEuws4gOi5srnUZ307FSsH0qvAegh1X2Dof +VwUckDqZNE0Q/HzAfdCTL4eLgmghFejo4y830ztLxaDBa+r7nQSTg93OTRxW +AIU1kOM0StC26+ohQ4kceh8cT47Uzu9Z6g3cfieDbGZyta2Qji8SXLcaZ1Ix +wztpkbSd4OTopt7rlxQQeKL65athgoKJyxXtv8mBbbulxeozwcO7hitWmMpB +EV3ge2uWYAo/WpxUIoO8nEwtdxUdda7mZkuuUrFqZJzX0kqwkn1jZ2GxAg7y +uAuEQwRJpKdvQ54cAurVY5JPBMcnkkKvO8jhL0tapKGOoKWk9aBxvQxiVAL6 +1jmCVi4teTapMmA8y/22XEDHsLBhmayAis3Aq56a910nivBl3VBA4qlt6VHv +CaqOrw5uKpaDyG7q9BUNwV0U6/uHiBwa9/tNus8Q9C810m57JoPT5vsrzn8h +2JDv+zwoWwaivXNpK+b/WqZKuTF2TAb/AXV4KYc= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, + 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVkWs0FHgYxqc5tXKb3FmxY+5/FUZmY4T3VWxIp7LZo1GpiTpKjSbRfVVi +1dqZQQ4px2UXJ5l02XVramrlfklpiZQuwomONYkx0toPz3nO78vz4fcwxJKQ +KCqFQtkwn//7d5MioZsbHe09WG1LiqnY59LlXqago/uPQ9FVSQswINko1nKa +jlXSkQ3B6ykoblpp17fcATUfEctC58BZrY6sFTlgSftSzmenWcgMCWnOTHPA +Fgt54K5RLVDxU4K+ygEfnf/Z/u7wFBg25axJGHfAzU9ivKX/TELhw/x/PzEZ +6KZeuPjaqAbQumrYOISBNqe2ng3CCTim93SWfp6BfuFdc0Q2DjUhc2FtdxiI +xbd1BvyPkEq7mHPhLQMvFoRqDZM/gCZq6RRaMbGoYDJ9qm8YIm3uXkn3Z6JK +Wz92JuM9xO7ZGdF/lInmm7tKize+AwPOnm88yphYnROenRD4Bq77nJx06mWi +ycqhmMfyARjRXFpgb8zCqI0Nl/l3+8FpoTq0xIuF8c5+gld9vWBUMVa/LHae +1Zs2H9XvgWOtJ+3uFbLQ6sIvfX4XnsHHtXY1o50stPCS3HGVPIW5n+7HWSxi +o0dt0mtlRCdYPpImdAvYuDLOR/BmXQfUFKXsuLabjQ07vdpp37fCjH2+OD6L +jRkcLxpP0ARrNI3K/kdsdKxSUh4o64ETOWnto2Wjvt1Q1EbPOsjyPxelXM7B +P38N7nY3ewi0swxdtYiDQZVi18S1amCI/i6/l8bBblGcjSlVBV5pR0p3qDho +4r3OenZJDQzyU1NooxzMHV202zm+Ehxj889VfsfFeLAY6Ri7A3EGjQ26DVx8 +ubj1dWLHLRChhgjPcHH1vvfPB9QVENDp/MT0Jhf7c0lOmakS6p60RMy84uKX +4+vVH/TLoFcSY/DCjIfS1DqLxTalML3X/kvYGh6ai7lM38I/4Kau06jjCA9v +VpratkERTH8dooSW8rBnH6krdyyAdRE07/huHoY3v60y784DvsgjS25A8MR4 +3dXAI7nAqJC6/+BJMMsysS2vMBvy42kqw2iC2ctLHL/jZkFNT3lEcy7BoBVn +hG21GfDi0vYgdgvBtw+2eJRWKiDAtHH261eCe7pm9Jr3yQDzaz0kYjpau9Jf +51tSMf1pOit9kOCBucf8DqUcpGEuws4gOi5srnUZ307FSsH0qvAegh1X2Dof +VwUckDqZNE0Q/HzAfdCTL4eLgmghFejo4y830ztLxaDBa+r7nQSTg93OTRxW +AIU1kOM0StC26+ohQ4kceh8cT47Uzu9Z6g3cfieDbGZyta2Qji8SXLcaZ1Ix +wztpkbSd4OTopt7rlxQQeKL65athgoKJyxXtv8mBbbulxeozwcO7hitWmMpB +EV3ge2uWYAo/WpxUIoO8nEwtdxUdda7mZkuuUrFqZJzX0kqwkn1jZ2GxAg7y +uAuEQwRJpKdvQ54cAurVY5JPBMcnkkKvO8jhL0tapKGOoKWk9aBxvQxiVAL6 +1jmCVi4teTapMmA8y/22XEDHsLBhmayAis3Aq56a910nivBl3VBA4qlt6VHv +CaqOrw5uKpaDyG7q9BUNwV0U6/uHiBwa9/tNus8Q9C810m57JoPT5vsrzn8h +2JDv+zwoWwaivXNpK+b/WqZKuTF2TAb/AXV4KYc= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 2.331084826123528}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzn0wFHgcx/Ftp06eNs+cuLXPPxVW9mKF71dxIU3lcqNVqY0apVab6PlU +4tS53UWGlPFwh0k2Pdx5amvr5PkhpSNSehAmGmcTa6Vzf3zmPa//PgyxJCSK +SqFQNszv//5uUiR0c6OjvQerbUkxFRnPcr8tF9AxLGxYJiugYl5Oppa7io46 +V3OzJVepmM1MrrYV0vFFgutW40wqXhREC6lARx9/uZneWSpKw1yEnUF0XNhc +6zK+nYqYX+shEdPR2pX+Ot+Sin0uXe5lCjq6/zgUXZW0AAOSjWItp+lYJR3Z +ELyeguKmlXZ9yx1Q8xGxLHQOnNXqyFqRA5a0L+V8dpqFzJCQ5sw0B2yxkAfu +GtUCFT8l6Ksc8NH5n+3vDk+BYVPOmoRxB9z8JMZb+s8kFD7M//cTk4Fu6oWL +r41qAK2rho1DGGhzauvZIJyAY3pPZ+nnGegX3jVHZONQEzIX1naHgVh8W2fA +/wiptIs5F94y8GJBqNYw+QNoopZOoRUTiwom06f6hiHS5u6VdH8mqrT1Y2cy +3kPsnp0R/UeZaL65q7R44zsw4Oz5xqOMidU54dkJgW/gus/JSadeJpqsHIp5 +LB+AEc2lBfbGLIza2HCZf7cfnBaqQ0u8WBjv7Cd41dcLRhVj9cti563etPmo +fg8caz1pd6+QhVYXfunzu/AMPq61qxntZKGFl+SOq+QpzP10P85iERs9apNe +KyM6wfKRNKFbwMaVcT6CN+s6oKYoZce13Wxs2OnVTvu+FWbs88XxWWzM4HjR +eIImWKNpVPY/YqNjlZLyQFkPnMhJax8tG/XthqI2etZBlv+5KOVyDv75a3C3 +u9lDoJ1l6KpFHAyqFLsmrlUDQ/R3+b00DnaL4mxMqSrwSjtSukPFQRPvddaz +S2pgkJ+aQhvlYO7oot3O8ZXgGJt/rvI7LsaDxUjH2B2IM2hs0G3g4svFra8T +O26BCDVEeIaLq/e9fz6groCATucnpje52J9LcspMlVD3pCVi5hUXvxxfr/6g +Xwa9khiDF2Y8lKbWWSy2KYXpvfZfwtbw0FzMZfoW/gE3dZ1GHUd4eLPS1LYN +imD66xAltJSHPftIXbljAayLoHnHd/MwvPltlXl3HvBFHllyA4InxuuuBh7J +BUaF1P0HT4JZlolteYXZkB9PUxlGE8xeXuL4HTcLanrKI5pzCQatOCNsq82A +F5e2B7FbCL59sMWjtFIBzcCrnpp3nSjCl3VDAVUj47yWVoKV7Bs7C4sVkOGd +tEjaTnBydFPv9UsKCBq8pr7fSTA52O3cxGEFVAqmV4X3EOy4wtb5uCog/Wk6 +K32Q4IG5x/wOpRwST21Lj3pPUHV8dXBTsRwO8rgLhEMESaSnb0OeHAJPVL98 +NUxQMHG5ov03OVBYAzlOowRtu64eMpTI4YDUyaRpguDnA+6Dnnw5iOymTl/R +ENxFsb5/iMghoF49JvlEcHwiKfS6gxzYtltarD4TPLxruGKFqRx6HxxPjtTO +/7PUG7j9TgaN+/0m3WcI+pcaabc9k8FflrRIQx1BS0nrQeN6GSiiC3xvzRJM +4UeLk0pkcNp8f8X5LwQb8n2fB2XLIEYloG+dI2jl0pJnkyoD0d65tBVfCS5T +pdwYOyaDANPG2a/z3tM1o9e8Twb/ASktKYc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 2.331084826123528}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzn0wFHgcx/Ftp06eNs+cuLXPPxVW9mKF71dxIU3lcqNVqY0apVab6PlU +4tS53UWGlPFwh0k2Pdx5amvr5PkhpSNSehAmGmcTa6Vzf3zmPa//PgyxJCSK +SqFQNszv//5uUiR0c6OjvQerbUkxFRnPcr8tF9AxLGxYJiugYl5Oppa7io46 +V3OzJVepmM1MrrYV0vFFgutW40wqXhREC6lARx9/uZneWSpKw1yEnUF0XNhc +6zK+nYqYX+shEdPR2pX+Ot+Sin0uXe5lCjq6/zgUXZW0AAOSjWItp+lYJR3Z +ELyeguKmlXZ9yx1Q8xGxLHQOnNXqyFqRA5a0L+V8dpqFzJCQ5sw0B2yxkAfu +GtUCFT8l6Ksc8NH5n+3vDk+BYVPOmoRxB9z8JMZb+s8kFD7M//cTk4Fu6oWL +r41qAK2rho1DGGhzauvZIJyAY3pPZ+nnGegX3jVHZONQEzIX1naHgVh8W2fA +/wiptIs5F94y8GJBqNYw+QNoopZOoRUTiwom06f6hiHS5u6VdH8mqrT1Y2cy +3kPsnp0R/UeZaL65q7R44zsw4Oz5xqOMidU54dkJgW/gus/JSadeJpqsHIp5 +LB+AEc2lBfbGLIza2HCZf7cfnBaqQ0u8WBjv7Cd41dcLRhVj9cti563etPmo +fg8caz1pd6+QhVYXfunzu/AMPq61qxntZKGFl+SOq+QpzP10P85iERs9apNe +KyM6wfKRNKFbwMaVcT6CN+s6oKYoZce13Wxs2OnVTvu+FWbs88XxWWzM4HjR +eIImWKNpVPY/YqNjlZLyQFkPnMhJax8tG/XthqI2etZBlv+5KOVyDv75a3C3 +u9lDoJ1l6KpFHAyqFLsmrlUDQ/R3+b00DnaL4mxMqSrwSjtSukPFQRPvddaz +S2pgkJ+aQhvlYO7oot3O8ZXgGJt/rvI7LsaDxUjH2B2IM2hs0G3g4svFra8T +O26BCDVEeIaLq/e9fz6groCATucnpje52J9LcspMlVD3pCVi5hUXvxxfr/6g +Xwa9khiDF2Y8lKbWWSy2KYXpvfZfwtbw0FzMZfoW/gE3dZ1GHUd4eLPS1LYN +imD66xAltJSHPftIXbljAayLoHnHd/MwvPltlXl3HvBFHllyA4InxuuuBh7J +BUaF1P0HT4JZlolteYXZkB9PUxlGE8xeXuL4HTcLanrKI5pzCQatOCNsq82A +F5e2B7FbCL59sMWjtFIBzcCrnpp3nSjCl3VDAVUj47yWVoKV7Bs7C4sVkOGd +tEjaTnBydFPv9UsKCBq8pr7fSTA52O3cxGEFVAqmV4X3EOy4wtb5uCog/Wk6 +K32Q4IG5x/wOpRwST21Lj3pPUHV8dXBTsRwO8rgLhEMESaSnb0OeHAJPVL98 +NUxQMHG5ov03OVBYAzlOowRtu64eMpTI4YDUyaRpguDnA+6Dnnw5iOymTl/R +ENxFsb5/iMghoF49JvlEcHwiKfS6gxzYtltarD4TPLxruGKFqRx6HxxPjtTO +/7PUG7j9TgaN+/0m3WcI+pcaabc9k8FflrRIQx1BS0nrQeN6GSiiC3xvzRJM +4UeLk0pkcNp8f8X5LwQb8n2fB2XLIEYloG+dI2jl0pJnkyoD0d65tBVfCS5T +pdwYOyaDANPG2a/z3tM1o9e8Twb/ASktKYc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVkWs0FHgYxqc5tXKb3FmxY+5/FUZmY4T3VWxIp7LZo1GpiTpKjSbRfVVi +1dqZQQ4px2UXJ5l02XVramrlfklpiZQuwomONYkx0toPz3nO78vz4fcwxJKQ +KCqFQtkwn//7d5MioZsbHe09WG1LiqnY59LlXqago/uPQ9FVSQswINko1nKa +jlXSkQ3B6ykoblpp17fcATUfEctC58BZrY6sFTlgSftSzmenWcgMCWnOTHPA +Fgt54K5RLVDxU4K+ygEfnf/Z/u7wFBg25axJGHfAzU9ivKX/TELhw/x/PzEZ +6KZeuPjaqAbQumrYOISBNqe2ng3CCTim93SWfp6BfuFdc0Q2DjUhc2FtdxiI +xbd1BvyPkEq7mHPhLQMvFoRqDZM/gCZq6RRaMbGoYDJ9qm8YIm3uXkn3Z6JK +Wz92JuM9xO7ZGdF/lInmm7tKize+AwPOnm88yphYnROenRD4Bq77nJx06mWi +ycqhmMfyARjRXFpgb8zCqI0Nl/l3+8FpoTq0xIuF8c5+gld9vWBUMVa/LHae +1Zs2H9XvgWOtJ+3uFbLQ6sIvfX4XnsHHtXY1o50stPCS3HGVPIW5n+7HWSxi +o0dt0mtlRCdYPpImdAvYuDLOR/BmXQfUFKXsuLabjQ07vdpp37fCjH2+OD6L +jRkcLxpP0ARrNI3K/kdsdKxSUh4o64ETOWnto2Wjvt1Q1EbPOsjyPxelXM7B +P38N7nY3ewi0swxdtYiDQZVi18S1amCI/i6/l8bBblGcjSlVBV5pR0p3qDho +4r3OenZJDQzyU1NooxzMHV202zm+Ehxj889VfsfFeLAY6Ri7A3EGjQ26DVx8 +ubj1dWLHLRChhgjPcHH1vvfPB9QVENDp/MT0Jhf7c0lOmakS6p60RMy84uKX +4+vVH/TLoFcSY/DCjIfS1DqLxTalML3X/kvYGh6ai7lM38I/4Kau06jjCA9v +VpratkERTH8dooSW8rBnH6krdyyAdRE07/huHoY3v60y784DvsgjS25A8MR4 +3dXAI7nAqJC6/+BJMMsysS2vMBvy42kqw2iC2ctLHL/jZkFNT3lEcy7BoBVn +hG21GfDi0vYgdgvBtw+2eJRWKiDAtHH261eCe7pm9Jr3yQDzaz0kYjpau9Jf +51tSMf1pOit9kOCBucf8DqUcpGEuws4gOi5srnUZ307FSsH0qvAegh1X2Dof +VwUckDqZNE0Q/HzAfdCTL4eLgmghFejo4y830ztLxaDBa+r7nQSTg93OTRxW +AIU1kOM0StC26+ohQ4kceh8cT47Uzu9Z6g3cfieDbGZyta2Qji8SXLcaZ1Ix +wztpkbSd4OTopt7rlxQQeKL65athgoKJyxXtv8mBbbulxeozwcO7hitWmMpB +EV3ge2uWYAo/WpxUIoO8nEwtdxUdda7mZkuuUrFqZJzX0kqwkn1jZ2GxAg7y +uAuEQwRJpKdvQ54cAurVY5JPBMcnkkKvO8jhL0tapKGOoKWk9aBxvQxiVAL6 +1jmCVi4teTapMmA8y/22XEDHsLBhmayAis3Aq56a910nivBl3VBA4qlt6VHv +CaqOrw5uKpaDyG7q9BUNwV0U6/uHiBwa9/tNus8Q9C810m57JoPT5vsrzn8h +2JDv+zwoWwaivXNpK+b/WqZKuTF2TAb/AXV4KYc= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, + 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12.5}, {0., 2.331084826123528}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzn0wFHgcx/Ftp06eNs+cuLXPPxVW9mKF71dxIU3lcqNVqY0apVab6PlU +4tS53UWGlPFwh0k2Pdx5amvr5PkhpSNSehAmGmcTa6Vzf3zmPa//PgyxJCSK +SqFQNszv//5uUiR0c6OjvQerbUkxFRnPcr8tF9AxLGxYJiugYl5Oppa7io46 +V3OzJVepmM1MrrYV0vFFgutW40wqXhREC6lARx9/uZneWSpKw1yEnUF0XNhc +6zK+nYqYX+shEdPR2pX+Ot+Sin0uXe5lCjq6/zgUXZW0AAOSjWItp+lYJR3Z +ELyeguKmlXZ9yx1Q8xGxLHQOnNXqyFqRA5a0L+V8dpqFzJCQ5sw0B2yxkAfu +GtUCFT8l6Ksc8NH5n+3vDk+BYVPOmoRxB9z8JMZb+s8kFD7M//cTk4Fu6oWL +r41qAK2rho1DGGhzauvZIJyAY3pPZ+nnGegX3jVHZONQEzIX1naHgVh8W2fA +/wiptIs5F94y8GJBqNYw+QNoopZOoRUTiwom06f6hiHS5u6VdH8mqrT1Y2cy +3kPsnp0R/UeZaL65q7R44zsw4Oz5xqOMidU54dkJgW/gus/JSadeJpqsHIp5 +LB+AEc2lBfbGLIza2HCZf7cfnBaqQ0u8WBjv7Cd41dcLRhVj9cti563etPmo +fg8caz1pd6+QhVYXfunzu/AMPq61qxntZKGFl+SOq+QpzP10P85iERs9apNe +KyM6wfKRNKFbwMaVcT6CN+s6oKYoZce13Wxs2OnVTvu+FWbs88XxWWzM4HjR +eIImWKNpVPY/YqNjlZLyQFkPnMhJax8tG/XthqI2etZBlv+5KOVyDv75a3C3 +u9lDoJ1l6KpFHAyqFLsmrlUDQ/R3+b00DnaL4mxMqSrwSjtSukPFQRPvddaz +S2pgkJ+aQhvlYO7oot3O8ZXgGJt/rvI7LsaDxUjH2B2IM2hs0G3g4svFra8T +O26BCDVEeIaLq/e9fz6groCATucnpje52J9LcspMlVD3pCVi5hUXvxxfr/6g +Xwa9khiDF2Y8lKbWWSy2KYXpvfZfwtbw0FzMZfoW/gE3dZ1GHUd4eLPS1LYN +imD66xAltJSHPftIXbljAayLoHnHd/MwvPltlXl3HvBFHllyA4InxuuuBh7J +BUaF1P0HT4JZlolteYXZkB9PUxlGE8xeXuL4HTcLanrKI5pzCQatOCNsq82A +F5e2B7FbCL59sMWjtFIBzcCrnpp3nSjCl3VDAVUj47yWVoKV7Bs7C4sVkOGd +tEjaTnBydFPv9UsKCBq8pr7fSTA52O3cxGEFVAqmV4X3EOy4wtb5uCog/Wk6 +K32Q4IG5x/wOpRwST21Lj3pPUHV8dXBTsRwO8rgLhEMESaSnb0OeHAJPVL98 +NUxQMHG5ov03OVBYAzlOowRtu64eMpTI4YDUyaRpguDnA+6Dnnw5iOymTl/R +ENxFsb5/iMghoF49JvlEcHwiKfS6gxzYtltarD4TPLxruGKFqRx6HxxPjtTO +/7PUG7j9TgaN+/0m3WcI+pcaabc9k8FflrRIQx1BS0nrQeN6GSiiC3xvzRJM +4UeLk0pkcNp8f8X5LwQb8n2fB2XLIEYloG+dI2jl0pJnkyoD0d65tBVfCS5T +pdwYOyaDANPG2a/z3tM1o9e8Twb/ASktKYc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.800000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.8, 12.5}, {0., 0.9589637123079205}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9, 3.992442717818136*^9, {3.992486239489011*^9, + 3.992486278650496*^9}, {3.992486324014636*^9, 3.9924864358499317`*^9}}, + CellLabel->"Out[61]=",ExpressionUUID->"2b75ee2e-250f-4b82-96fb-334cb7021926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "11.6"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9924865882967663`*^9, + 3.9924866089611197`*^9}}, + CellLabel->"In[66]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0ld0XB3BDhrglXjTI2PM8V1GZS4O9jSFkzhBKEZI5GctwXSFDShki +XmUoZXhDrgYVJUmSSpmHCJGxNP/u74+zzvqsddY563zP3kfW1dfSjYuDg2OR +Pf4/vzydy8PBIYWf+rjaDEOm4dYh8xIjTikcHz596djJaUjR5d57nksKzfra +PiUHT4MJn2caxSOFN0TnZV8FTUNLipqEqYAUSvM+GrPwn4bG3OdK2aJSmLsn +8+wur2moq//uqLZRCp8q70q97TgNhd9sqjwspTClV+K57O5p0HN+/enBDSnk +3ry103V+Cp58PRCh8FcKM9V+FJpfnYK263HUgrk0OnwSKeM1mYJ/TQMdbpRK +Y2P7WF5j32ewkzs+GfxLGquGbM3rvT7D1JxY7BoFGdQvGvXh6pkE/6FGCWK/ +DB45ox2yavckjE58H9KMksH8FoVV5y5OwEMv4S9PymTwHE/n8brWcUjmLt/o +/FYGuXPxlPrPT7B+0+UvG/7KIP2UQ7712k8g3Hzsx0EFWey2mbRcpI3Bt1MP +VUusZdG71J8x9Osj6N78XukeLYt3uRUqLB+MgKVndL3VTVn08uW3YQQMg6VW +6rzxW1mUsVcweKcwBHcST/vVccnhxgU/Zc/6ARCaWZRQUZTDJ2c5zk/c7oPW +VjOanL0corWE/tbybjDZ9i0e4+Rw3vqY011WF9xjkSqet+RwSozJvZbvLVyo +1pBd3s32J7EX/mqv4cCzF1r/LduA6hlt7lbV7TDmdXssafMGzFhzrVK5qxW6 +YiPfdNtvwMODhGeBSTOwqltn1WM3oNuZbZsnwhqBy+WPJV/FBtz0/Kv8iVcN +sOLiaeDr2YCkcm+zu0c9LB9lOgjzEKi/v9wy0bsGqGTeg4/ZHj6Z65RjVwN6 +aky3E7wEzp7c7c3Sq4GomDi/93wEOkZ9jpKTrIGvUgxmgQCBwZI+v7PaqmFo +f3SV8ioCJyr+9MmqVQPrWbiApQSBiin6u/yX34ZjN/1Y6coECszsFB7sroTP +3tc/bVch8ErH5dbDrZXgozgi3s92k8g/52bvVoLfjf2BCmoEejsZym3Jq4Tg +Ui3FRg0CLwsVD2w6VAlR12h5izsJTHcoyd0yXgEXckui7QwIDDdk6OzmrID7 +yQOGUo4EVtBMCp7ml0Fw0h7lh2y3zbUUMOPLYGvCrbVHDhCYl9YcZudTBvmM +iIlSJwK3921MU9tVBtHha86qHySQrlGx+0XXDdDzNH9p4kagMLe0cYjYDXim +12AT7ktgv2GhesDlUuj8ecW1K5bACL9v9T19ReAVu04+gUEg65apnXZzEXAI +ZkxpxhFo1aZpVVdZBIrrEkNymASOhK5XG2YUAWN7UIpzAju/9xamkopFoHrC +kDWSQiBNyHmXzKlrkD49IzybRWByhL0jTekqmA9qP1xeQSBn544ffc0FYBwd +XH6LbfPPAzNztQWgJ3sj16qSwLqN3xXEigtg2yHRsNwqAgtNeo0YcQUgNTiq +olxN4KWJNEmabgFMDiRdtWMRWDm45WtdQz4wB97EFzcSGLA0syrn7BW41+9p +pv+ewJUfH/vfnMmBC8ur1i6xffMwS0LydQ54q/4Yuf6BwNMdoT9KqnNgXXxi ++KoeAq//0fojGp4DIVtulHT3ERhz3ffOTr4cUIn8zBUwQmDrZMdwBZENxet8 +a/O+ELg6dlNsYWAmnNKrjbGYIdC/fedbX/tMsPX5a7pslsByUfsKG8iEZY9S +RzznCDzz/nrRccFMcPWsEFZfJDCWzLVrvXoJ1t+ZPfb8Bzu/7p5ulZ6LcM4m +SGaJh8QfViX94k4Z0HopWPQKL4mH1XhLg/ZkAP+HEH4DPhIlAjgZo8oZcMo5 +cuY8P4mhyklbefkywOsos2GrIInhXj2FqlUXQCc08+DRVSTmjh621qRdgIXL +d/PfriOxluIhGW3pYDuyTLZ6K4n8tQOsN2fSoPmI2ks7Jfb+JpLq4iFpsOPj +4chfbPeL0Lzdj6aB1Oij97oqJPpp7u9RN0iDsbGo9A41Eps8651Tl6VByOQv +7hlNEnNctBN1+VMhe25hdJMeiTqR+gLv1ycDLZDIaGO71vG6wZq/Z+HUvJVu +gD6Jgb4F/YGDZ8F1oepKnQGJMe/qn54uOgsKX/3sDI1InBva9m5M+Szc/f75 +mZsZibyZPg4jpknQy/GxLN+OxLH6EdOprARQFJTfbmlP4sQ6mRXmkQkQIXbs +MbcDiRsimp62H0xg/7ez790d2feJkX2gIJ8ADla/eTc7k9hy/nip3p0z0HVN +7FDdYRK7peKNJ3rjodPYQKzDh8SB46HDe7SYQNgk5Mf6khjCSNdSJ5kQ5NKq +oO5H4qUe1o7dNCb8E2Spk+lPYnWdRsXlD3Fgmevs6xxE4mCvdMvFkDho/xL8 +bCKUxOb8gtZDdQx4fqE4kjuOxGiRvGvFprFwqvaqcinbXF8Eh7ZoxoLKh4KP +ZkwSdxyKutFCxEKm9GXT7HgSxU65Z8OvGHC/niapnEjiLr2S3vVlMcDVEHrP +OZVEy7GznReEYmDH5N7fdVkkRt0z3/5rJAqmVxhVumSTaCEy3TDbEQUFSgZu +PDns+orOzvzeEAX8wfjC/DKJD6R/zkBuFLzlUM8dyyOx4H7jsWu2URAgLrVb +7CqJ/7rLPkvIOg2l2jMRfrdIdDrM7H+SFAk7pjlWEuUkZtzR/O3sGQmt2cJX +3rF92K7dUnJPJEzPqzzUqiQxba6Pn8YdCSpFJ3hW3CaxTiPL+WZEBLAEfiaX +1pFoP84p0hccDq2vea4MNbLXFz/OmI0LBacocaWLTSQe4OzS4fMIhWlF+kOj +JyS+jpOI0TIOhVVMw+GKpyR+3SShICwUCtbbk+inW0h8esHDXjc7BHovr6qQ +aCfxhXuW3L2akzDtJvHQupvEN0zB4vV8wVBjbk/j6SHx8UDt35ypE3Bq56X9 +1WyT6R+qt3WegJXC/0yL9ZG4e3dY4+OCE7D1roDEuwESE36+11DQOgF+Ij+C +7EdJvDrlRElFBMHc/S5551kSNxeVWb4UDARWqXjQyjkS3YGPXrgYADEXrB/c +Z/tBOL07tT8ARLzabaQX2PntfxD6338BoCrWHDPwlURTrvEaGacACDpW2+P6 +i+2fjTURt/3h6+qLaUf5KDS07J9KCvIDOYmUZTR+ChOClP/JcPUDMylmSAXb +0WH7FCvN/aCICD74fTmFq9Nsp2U3+4GNsq1SEo3CMl4dw6cvfOG2sXj7LWEK +pRpc9MvrfSAg8qLQVwkKuxtonnxV3pAXlRKbvZ5CRUHNkdR0b2iJZX7TkqSw +M6SnVTPQG+QSg/vjpShcUrntMqvmDa8u2pavlaVwDgqHJuuOgVKF+L7dFIU7 +lezCZp95wfTQxRSGEoXGfBuWO3N6wpLvv/0ayhTeO/9WmzHsAZy/byqNsz31 +Ul30RZMHiK5u6jBVZZ8/unaqKdEDduydF1+tQaF84aSRubgHMP/bd6V0J4Vv +RSI5i1WPghSDv6LNgMKuOtFyZ6YbyAuLckbvodDjWfRAmrcbKOdJW6oaUpgV +y1ActHQDvTsaC5eMKEy0HU/ulnYDr89Hth8yoVBTQfaVav0RqLF+2DBvQWHP +zrICm2+HwZQMe7XGicLnoa0XTjNcgdUCex+wHUDrTKzwdQV5P54mN2cKc4Uu +mi05uAJXfdqdKhcKjwVb9T9XdoVa8+IrJq4UPjWXS4oaOASyEZ3Ho45SKJTK +zxDUOQSLHVsEPvlT6HTW2pNf7CC4hizEpgRQqK+nvW+U6yC0S7J+qwVSGPP2 +nFPFoAtc99CfjQ6i0KDvleCXLBdw+ePYJXGSwgOM9FQ9mgs825hQtC+CQiJ6 +fE5hyYnd4sM6tUwKm+3UozomHUHnyNtgh3gKk9dNaPW0OsLonmfXf7MtKCp6 +ie+WI2wRKhfRS6BQkjXPfOTnCA25YUPtSey8XW+nN31zgCGWcMxEGoWeKW2a +Q4IOQC3CQ8kcCjd//34jaa8dtHSpLDawffT11Eemkh343CU3HrlMoekw1/kr +YnZQGyt47nouhX9Jgxb5gf1gKPLu4LZ89vuWLpheCt4PXlt9OCyusetx20fR +lhJbKPe8DIxyCqXv1MrdkbUBpXf/mqtXUMhITEyW57eBKr3SQ6Nsv54Xs6id +toYa6ZpYwyoKxzzibLfetYb7b14+pVVTaGTmnxZnZw1t2tzmGSwKV9b/GS+7 +aAWf13odLGpi13NwsQiHvCX4xPv5739C4bjY1twfwpYwsxAcw/+Uwk0PXDyE +flnAwsvYq17NFEZ9/GsQ324BP+NyP215zs6v80RXWZgFCMy1+9W2s+vdU9+q ++rU5yLdsi27upjDvfqXIx637YKX5Eut4D7uf7oZwRdP2wfybOwsivRRWNf0K +0Rs3g/uDmh5OfRQqWVFm2oVmYPN95765AQofReycXrHWDGLkUXL9KIURTePY +JmgKvUzDOt8ZCq+6w5cXtL3wiLZ8XnSWQsdszBSYNoaS9GeKLLZb2pexPF8a +Q1Cecf6yeXb/X/nVnpJuDAI1JvFZixReiHdT91tnDNs/mts8/kHhufBreb5K +RpCuaz8rzkNHMZ8hjqNBe8DCz8b1JdtD0zJ16bZ7YFWuxet4XjrOuSb3DG/f +AylfjaqX+OiYs2R7c/G3ASSU7gj9IEDHX0+dIzsSDCBKaD1n3io6JuWdv2tU +og8+3X2ryPV0zI6YTOf4qwub+buje9kubk4pYXzUhc9q7+YyJOl46vXqdvlW +XfBKednJK03HAD9WTXuWLrhpN2R+kqWjqs3NrGwNXThQXCBTRqfjCPcWgcUT +OiDRmXvuiDwdBwMnxD2cdeADRzaX5EY6Gp8U7Fgy0AE7h/SR5E3s9YbPGwLW +6ID1itgS3810PDNCi2+8qw3/7Di9Vn4LHbVsommyRdrQ4R6eOMC2+29P6exU +bTBvCPS2UKLj0UKrg4Ou2iA05du7XJmOGf+uNyw30Ya2td5mj9juCBtXytLQ +hrMGHg/CVOh4M5xvKU9GG/YGHlFSVaWj0b2psAYBbfgf4jDIqQ== + "]]}, + 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:eJwV1Hk0ld0XB3BDhrglXjTI2PM8V1GZS4O9jSFkzhBKEZI5GctwXSFDShki +XmUoZXhDrgYVJUmSSpmHCJGxNP/u74+zzvqsddY563zP3kfW1dfSjYuDg2OR +Pf4/vzydy8PBIYWf+rjaDEOm4dYh8xIjTikcHz596djJaUjR5d57nksKzfra +PiUHT4MJn2caxSOFN0TnZV8FTUNLipqEqYAUSvM+GrPwn4bG3OdK2aJSmLsn +8+wur2moq//uqLZRCp8q70q97TgNhd9sqjwspTClV+K57O5p0HN+/enBDSnk +3ry103V+Cp58PRCh8FcKM9V+FJpfnYK263HUgrk0OnwSKeM1mYJ/TQMdbpRK +Y2P7WF5j32ewkzs+GfxLGquGbM3rvT7D1JxY7BoFGdQvGvXh6pkE/6FGCWK/ +DB45ox2yavckjE58H9KMksH8FoVV5y5OwEMv4S9PymTwHE/n8brWcUjmLt/o +/FYGuXPxlPrPT7B+0+UvG/7KIP2UQ7712k8g3Hzsx0EFWey2mbRcpI3Bt1MP +VUusZdG71J8x9Osj6N78XukeLYt3uRUqLB+MgKVndL3VTVn08uW3YQQMg6VW +6rzxW1mUsVcweKcwBHcST/vVccnhxgU/Zc/6ARCaWZRQUZTDJ2c5zk/c7oPW +VjOanL0corWE/tbybjDZ9i0e4+Rw3vqY011WF9xjkSqet+RwSozJvZbvLVyo +1pBd3s32J7EX/mqv4cCzF1r/LduA6hlt7lbV7TDmdXssafMGzFhzrVK5qxW6 +YiPfdNtvwMODhGeBSTOwqltn1WM3oNuZbZsnwhqBy+WPJV/FBtz0/Kv8iVcN +sOLiaeDr2YCkcm+zu0c9LB9lOgjzEKi/v9wy0bsGqGTeg4/ZHj6Z65RjVwN6 +aky3E7wEzp7c7c3Sq4GomDi/93wEOkZ9jpKTrIGvUgxmgQCBwZI+v7PaqmFo +f3SV8ioCJyr+9MmqVQPrWbiApQSBiin6u/yX34ZjN/1Y6coECszsFB7sroTP +3tc/bVch8ErH5dbDrZXgozgi3s92k8g/52bvVoLfjf2BCmoEejsZym3Jq4Tg +Ui3FRg0CLwsVD2w6VAlR12h5izsJTHcoyd0yXgEXckui7QwIDDdk6OzmrID7 +yQOGUo4EVtBMCp7ml0Fw0h7lh2y3zbUUMOPLYGvCrbVHDhCYl9YcZudTBvmM +iIlSJwK3921MU9tVBtHha86qHySQrlGx+0XXDdDzNH9p4kagMLe0cYjYDXim +12AT7ktgv2GhesDlUuj8ecW1K5bACL9v9T19ReAVu04+gUEg65apnXZzEXAI +ZkxpxhFo1aZpVVdZBIrrEkNymASOhK5XG2YUAWN7UIpzAju/9xamkopFoHrC +kDWSQiBNyHmXzKlrkD49IzybRWByhL0jTekqmA9qP1xeQSBn544ffc0FYBwd +XH6LbfPPAzNztQWgJ3sj16qSwLqN3xXEigtg2yHRsNwqAgtNeo0YcQUgNTiq +olxN4KWJNEmabgFMDiRdtWMRWDm45WtdQz4wB97EFzcSGLA0syrn7BW41+9p +pv+ewJUfH/vfnMmBC8ur1i6xffMwS0LydQ54q/4Yuf6BwNMdoT9KqnNgXXxi ++KoeAq//0fojGp4DIVtulHT3ERhz3ffOTr4cUIn8zBUwQmDrZMdwBZENxet8 +a/O+ELg6dlNsYWAmnNKrjbGYIdC/fedbX/tMsPX5a7pslsByUfsKG8iEZY9S +RzznCDzz/nrRccFMcPWsEFZfJDCWzLVrvXoJ1t+ZPfb8Bzu/7p5ulZ6LcM4m +SGaJh8QfViX94k4Z0HopWPQKL4mH1XhLg/ZkAP+HEH4DPhIlAjgZo8oZcMo5 +cuY8P4mhyklbefkywOsos2GrIInhXj2FqlUXQCc08+DRVSTmjh621qRdgIXL +d/PfriOxluIhGW3pYDuyTLZ6K4n8tQOsN2fSoPmI2ks7Jfb+JpLq4iFpsOPj +4chfbPeL0Lzdj6aB1Oij97oqJPpp7u9RN0iDsbGo9A41Eps8651Tl6VByOQv +7hlNEnNctBN1+VMhe25hdJMeiTqR+gLv1ycDLZDIaGO71vG6wZq/Z+HUvJVu +gD6Jgb4F/YGDZ8F1oepKnQGJMe/qn54uOgsKX/3sDI1InBva9m5M+Szc/f75 +mZsZibyZPg4jpknQy/GxLN+OxLH6EdOprARQFJTfbmlP4sQ6mRXmkQkQIXbs +MbcDiRsimp62H0xg/7ez790d2feJkX2gIJ8ADla/eTc7k9hy/nip3p0z0HVN +7FDdYRK7peKNJ3rjodPYQKzDh8SB46HDe7SYQNgk5Mf6khjCSNdSJ5kQ5NKq +oO5H4qUe1o7dNCb8E2Spk+lPYnWdRsXlD3Fgmevs6xxE4mCvdMvFkDho/xL8 +bCKUxOb8gtZDdQx4fqE4kjuOxGiRvGvFprFwqvaqcinbXF8Eh7ZoxoLKh4KP +ZkwSdxyKutFCxEKm9GXT7HgSxU65Z8OvGHC/niapnEjiLr2S3vVlMcDVEHrP +OZVEy7GznReEYmDH5N7fdVkkRt0z3/5rJAqmVxhVumSTaCEy3TDbEQUFSgZu +PDns+orOzvzeEAX8wfjC/DKJD6R/zkBuFLzlUM8dyyOx4H7jsWu2URAgLrVb +7CqJ/7rLPkvIOg2l2jMRfrdIdDrM7H+SFAk7pjlWEuUkZtzR/O3sGQmt2cJX +3rF92K7dUnJPJEzPqzzUqiQxba6Pn8YdCSpFJ3hW3CaxTiPL+WZEBLAEfiaX +1pFoP84p0hccDq2vea4MNbLXFz/OmI0LBacocaWLTSQe4OzS4fMIhWlF+kOj +JyS+jpOI0TIOhVVMw+GKpyR+3SShICwUCtbbk+inW0h8esHDXjc7BHovr6qQ +aCfxhXuW3L2akzDtJvHQupvEN0zB4vV8wVBjbk/j6SHx8UDt35ypE3Bq56X9 +1WyT6R+qt3WegJXC/0yL9ZG4e3dY4+OCE7D1roDEuwESE36+11DQOgF+Ij+C +7EdJvDrlRElFBMHc/S5551kSNxeVWb4UDARWqXjQyjkS3YGPXrgYADEXrB/c +Z/tBOL07tT8ARLzabaQX2PntfxD6338BoCrWHDPwlURTrvEaGacACDpW2+P6 +i+2fjTURt/3h6+qLaUf5KDS07J9KCvIDOYmUZTR+ChOClP/JcPUDMylmSAXb +0WH7FCvN/aCICD74fTmFq9Nsp2U3+4GNsq1SEo3CMl4dw6cvfOG2sXj7LWEK +pRpc9MvrfSAg8qLQVwkKuxtonnxV3pAXlRKbvZ5CRUHNkdR0b2iJZX7TkqSw +M6SnVTPQG+QSg/vjpShcUrntMqvmDa8u2pavlaVwDgqHJuuOgVKF+L7dFIU7 +lezCZp95wfTQxRSGEoXGfBuWO3N6wpLvv/0ayhTeO/9WmzHsAZy/byqNsz31 +Ul30RZMHiK5u6jBVZZ8/unaqKdEDduydF1+tQaF84aSRubgHMP/bd6V0J4Vv +RSI5i1WPghSDv6LNgMKuOtFyZ6YbyAuLckbvodDjWfRAmrcbKOdJW6oaUpgV +y1ActHQDvTsaC5eMKEy0HU/ulnYDr89Hth8yoVBTQfaVav0RqLF+2DBvQWHP +zrICm2+HwZQMe7XGicLnoa0XTjNcgdUCex+wHUDrTKzwdQV5P54mN2cKc4Uu +mi05uAJXfdqdKhcKjwVb9T9XdoVa8+IrJq4UPjWXS4oaOASyEZ3Ho45SKJTK +zxDUOQSLHVsEPvlT6HTW2pNf7CC4hizEpgRQqK+nvW+U6yC0S7J+qwVSGPP2 +nFPFoAtc99CfjQ6i0KDvleCXLBdw+ePYJXGSwgOM9FQ9mgs825hQtC+CQiJ6 +fE5hyYnd4sM6tUwKm+3UozomHUHnyNtgh3gKk9dNaPW0OsLonmfXf7MtKCp6 +ie+WI2wRKhfRS6BQkjXPfOTnCA25YUPtSey8XW+nN31zgCGWcMxEGoWeKW2a +Q4IOQC3CQ8kcCjd//34jaa8dtHSpLDawffT11Eemkh343CU3HrlMoekw1/kr +YnZQGyt47nouhX9Jgxb5gf1gKPLu4LZ89vuWLpheCt4PXlt9OCyusetx20fR +lhJbKPe8DIxyCqXv1MrdkbUBpXf/mqtXUMhITEyW57eBKr3SQ6Nsv54Xs6id +toYa6ZpYwyoKxzzibLfetYb7b14+pVVTaGTmnxZnZw1t2tzmGSwKV9b/GS+7 +aAWf13odLGpi13NwsQiHvCX4xPv5739C4bjY1twfwpYwsxAcw/+Uwk0PXDyE +flnAwsvYq17NFEZ9/GsQ324BP+NyP215zs6v80RXWZgFCMy1+9W2s+vdU9+q ++rU5yLdsi27upjDvfqXIx637YKX5Eut4D7uf7oZwRdP2wfybOwsivRRWNf0K +0Rs3g/uDmh5OfRQqWVFm2oVmYPN95765AQofReycXrHWDGLkUXL9KIURTePY +JmgKvUzDOt8ZCq+6w5cXtL3wiLZ8XnSWQsdszBSYNoaS9GeKLLZb2pexPF8a +Q1Cecf6yeXb/X/nVnpJuDAI1JvFZixReiHdT91tnDNs/mts8/kHhufBreb5K +RpCuaz8rzkNHMZ8hjqNBe8DCz8b1JdtD0zJ16bZ7YFWuxet4XjrOuSb3DG/f +AylfjaqX+OiYs2R7c/G3ASSU7gj9IEDHX0+dIzsSDCBKaD1n3io6JuWdv2tU +og8+3X2ryPV0zI6YTOf4qwub+buje9kubk4pYXzUhc9q7+YyJOl46vXqdvlW +XfBKednJK03HAD9WTXuWLrhpN2R+kqWjqs3NrGwNXThQXCBTRqfjCPcWgcUT +OiDRmXvuiDwdBwMnxD2cdeADRzaX5EY6Gp8U7Fgy0AE7h/SR5E3s9YbPGwLW +6ID1itgS3810PDNCi2+8qw3/7Di9Vn4LHbVsommyRdrQ4R6eOMC2+29P6exU +bTBvCPS2UKLj0UKrg4Ou2iA05du7XJmOGf+uNyw30Ya2td5mj9juCBtXytLQ +hrMGHg/CVOh4M5xvKU9GG/YGHlFSVaWj0b2psAYBbfgf4jDIqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.6}, {0., 0.9521831535011787}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.6}, {0., 0.9521831535011787}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0ld0XB3BDhrglXjTI2PM8V1GZS4O9jSFkzhBKEZI5GctwXSFDShki +XmUoZXhDrgYVJUmSSpmHCJGxNP/u74+zzvqsddY563zP3kfW1dfSjYuDg2OR +Pf4/vzydy8PBIYWf+rjaDEOm4dYh8xIjTikcHz596djJaUjR5d57nksKzfra +PiUHT4MJn2caxSOFN0TnZV8FTUNLipqEqYAUSvM+GrPwn4bG3OdK2aJSmLsn +8+wur2moq//uqLZRCp8q70q97TgNhd9sqjwspTClV+K57O5p0HN+/enBDSnk +3ry103V+Cp58PRCh8FcKM9V+FJpfnYK263HUgrk0OnwSKeM1mYJ/TQMdbpRK +Y2P7WF5j32ewkzs+GfxLGquGbM3rvT7D1JxY7BoFGdQvGvXh6pkE/6FGCWK/ +DB45ox2yavckjE58H9KMksH8FoVV5y5OwEMv4S9PymTwHE/n8brWcUjmLt/o +/FYGuXPxlPrPT7B+0+UvG/7KIP2UQ7712k8g3Hzsx0EFWey2mbRcpI3Bt1MP +VUusZdG71J8x9Osj6N78XukeLYt3uRUqLB+MgKVndL3VTVn08uW3YQQMg6VW +6rzxW1mUsVcweKcwBHcST/vVccnhxgU/Zc/6ARCaWZRQUZTDJ2c5zk/c7oPW +VjOanL0corWE/tbybjDZ9i0e4+Rw3vqY011WF9xjkSqet+RwSozJvZbvLVyo +1pBd3s32J7EX/mqv4cCzF1r/LduA6hlt7lbV7TDmdXssafMGzFhzrVK5qxW6 +YiPfdNtvwMODhGeBSTOwqltn1WM3oNuZbZsnwhqBy+WPJV/FBtz0/Kv8iVcN +sOLiaeDr2YCkcm+zu0c9LB9lOgjzEKi/v9wy0bsGqGTeg4/ZHj6Z65RjVwN6 +aky3E7wEzp7c7c3Sq4GomDi/93wEOkZ9jpKTrIGvUgxmgQCBwZI+v7PaqmFo +f3SV8ioCJyr+9MmqVQPrWbiApQSBiin6u/yX34ZjN/1Y6coECszsFB7sroTP +3tc/bVch8ErH5dbDrZXgozgi3s92k8g/52bvVoLfjf2BCmoEejsZym3Jq4Tg +Ui3FRg0CLwsVD2w6VAlR12h5izsJTHcoyd0yXgEXckui7QwIDDdk6OzmrID7 +yQOGUo4EVtBMCp7ml0Fw0h7lh2y3zbUUMOPLYGvCrbVHDhCYl9YcZudTBvmM +iIlSJwK3921MU9tVBtHha86qHySQrlGx+0XXDdDzNH9p4kagMLe0cYjYDXim +12AT7ktgv2GhesDlUuj8ecW1K5bACL9v9T19ReAVu04+gUEg65apnXZzEXAI +ZkxpxhFo1aZpVVdZBIrrEkNymASOhK5XG2YUAWN7UIpzAju/9xamkopFoHrC +kDWSQiBNyHmXzKlrkD49IzybRWByhL0jTekqmA9qP1xeQSBn544ffc0FYBwd +XH6LbfPPAzNztQWgJ3sj16qSwLqN3xXEigtg2yHRsNwqAgtNeo0YcQUgNTiq +olxN4KWJNEmabgFMDiRdtWMRWDm45WtdQz4wB97EFzcSGLA0syrn7BW41+9p +pv+ewJUfH/vfnMmBC8ur1i6xffMwS0LydQ54q/4Yuf6BwNMdoT9KqnNgXXxi ++KoeAq//0fojGp4DIVtulHT3ERhz3ffOTr4cUIn8zBUwQmDrZMdwBZENxet8 +a/O+ELg6dlNsYWAmnNKrjbGYIdC/fedbX/tMsPX5a7pslsByUfsKG8iEZY9S +RzznCDzz/nrRccFMcPWsEFZfJDCWzLVrvXoJ1t+ZPfb8Bzu/7p5ulZ6LcM4m +SGaJh8QfViX94k4Z0HopWPQKL4mH1XhLg/ZkAP+HEH4DPhIlAjgZo8oZcMo5 +cuY8P4mhyklbefkywOsos2GrIInhXj2FqlUXQCc08+DRVSTmjh621qRdgIXL +d/PfriOxluIhGW3pYDuyTLZ6K4n8tQOsN2fSoPmI2ks7Jfb+JpLq4iFpsOPj +4chfbPeL0Lzdj6aB1Oij97oqJPpp7u9RN0iDsbGo9A41Eps8651Tl6VByOQv +7hlNEnNctBN1+VMhe25hdJMeiTqR+gLv1ycDLZDIaGO71vG6wZq/Z+HUvJVu +gD6Jgb4F/YGDZ8F1oepKnQGJMe/qn54uOgsKX/3sDI1InBva9m5M+Szc/f75 +mZsZibyZPg4jpknQy/GxLN+OxLH6EdOprARQFJTfbmlP4sQ6mRXmkQkQIXbs +MbcDiRsimp62H0xg/7ez790d2feJkX2gIJ8ADla/eTc7k9hy/nip3p0z0HVN +7FDdYRK7peKNJ3rjodPYQKzDh8SB46HDe7SYQNgk5Mf6khjCSNdSJ5kQ5NKq +oO5H4qUe1o7dNCb8E2Spk+lPYnWdRsXlD3Fgmevs6xxE4mCvdMvFkDho/xL8 +bCKUxOb8gtZDdQx4fqE4kjuOxGiRvGvFprFwqvaqcinbXF8Eh7ZoxoLKh4KP +ZkwSdxyKutFCxEKm9GXT7HgSxU65Z8OvGHC/niapnEjiLr2S3vVlMcDVEHrP +OZVEy7GznReEYmDH5N7fdVkkRt0z3/5rJAqmVxhVumSTaCEy3TDbEQUFSgZu +PDns+orOzvzeEAX8wfjC/DKJD6R/zkBuFLzlUM8dyyOx4H7jsWu2URAgLrVb +7CqJ/7rLPkvIOg2l2jMRfrdIdDrM7H+SFAk7pjlWEuUkZtzR/O3sGQmt2cJX +3rF92K7dUnJPJEzPqzzUqiQxba6Pn8YdCSpFJ3hW3CaxTiPL+WZEBLAEfiaX +1pFoP84p0hccDq2vea4MNbLXFz/OmI0LBacocaWLTSQe4OzS4fMIhWlF+kOj +JyS+jpOI0TIOhVVMw+GKpyR+3SShICwUCtbbk+inW0h8esHDXjc7BHovr6qQ +aCfxhXuW3L2akzDtJvHQupvEN0zB4vV8wVBjbk/j6SHx8UDt35ypE3Bq56X9 +1WyT6R+qt3WegJXC/0yL9ZG4e3dY4+OCE7D1roDEuwESE36+11DQOgF+Ij+C +7EdJvDrlRElFBMHc/S5551kSNxeVWb4UDARWqXjQyjkS3YGPXrgYADEXrB/c +Z/tBOL07tT8ARLzabaQX2PntfxD6338BoCrWHDPwlURTrvEaGacACDpW2+P6 +i+2fjTURt/3h6+qLaUf5KDS07J9KCvIDOYmUZTR+ChOClP/JcPUDMylmSAXb +0WH7FCvN/aCICD74fTmFq9Nsp2U3+4GNsq1SEo3CMl4dw6cvfOG2sXj7LWEK +pRpc9MvrfSAg8qLQVwkKuxtonnxV3pAXlRKbvZ5CRUHNkdR0b2iJZX7TkqSw +M6SnVTPQG+QSg/vjpShcUrntMqvmDa8u2pavlaVwDgqHJuuOgVKF+L7dFIU7 +lezCZp95wfTQxRSGEoXGfBuWO3N6wpLvv/0ayhTeO/9WmzHsAZy/byqNsz31 +Ul30RZMHiK5u6jBVZZ8/unaqKdEDduydF1+tQaF84aSRubgHMP/bd6V0J4Vv +RSI5i1WPghSDv6LNgMKuOtFyZ6YbyAuLckbvodDjWfRAmrcbKOdJW6oaUpgV +y1ActHQDvTsaC5eMKEy0HU/ulnYDr89Hth8yoVBTQfaVav0RqLF+2DBvQWHP +zrICm2+HwZQMe7XGicLnoa0XTjNcgdUCex+wHUDrTKzwdQV5P54mN2cKc4Uu +mi05uAJXfdqdKhcKjwVb9T9XdoVa8+IrJq4UPjWXS4oaOASyEZ3Ho45SKJTK +zxDUOQSLHVsEPvlT6HTW2pNf7CC4hizEpgRQqK+nvW+U6yC0S7J+qwVSGPP2 +nFPFoAtc99CfjQ6i0KDvleCXLBdw+ePYJXGSwgOM9FQ9mgs825hQtC+CQiJ6 +fE5hyYnd4sM6tUwKm+3UozomHUHnyNtgh3gKk9dNaPW0OsLonmfXf7MtKCp6 +ie+WI2wRKhfRS6BQkjXPfOTnCA25YUPtSey8XW+nN31zgCGWcMxEGoWeKW2a +Q4IOQC3CQ8kcCjd//34jaa8dtHSpLDawffT11Eemkh343CU3HrlMoekw1/kr +YnZQGyt47nouhX9Jgxb5gf1gKPLu4LZ89vuWLpheCt4PXlt9OCyusetx20fR +lhJbKPe8DIxyCqXv1MrdkbUBpXf/mqtXUMhITEyW57eBKr3SQ6Nsv54Xs6id +toYa6ZpYwyoKxzzibLfetYb7b14+pVVTaGTmnxZnZw1t2tzmGSwKV9b/GS+7 +aAWf13odLGpi13NwsQiHvCX4xPv5739C4bjY1twfwpYwsxAcw/+Uwk0PXDyE +flnAwsvYq17NFEZ9/GsQ324BP+NyP215zs6v80RXWZgFCMy1+9W2s+vdU9+q ++rU5yLdsi27upjDvfqXIx637YKX5Eut4D7uf7oZwRdP2wfybOwsivRRWNf0K +0Rs3g/uDmh5OfRQqWVFm2oVmYPN95765AQofReycXrHWDGLkUXL9KIURTePY +JmgKvUzDOt8ZCq+6w5cXtL3wiLZ8XnSWQsdszBSYNoaS9GeKLLZb2pexPF8a +Q1Cecf6yeXb/X/nVnpJuDAI1JvFZixReiHdT91tnDNs/mts8/kHhufBreb5K +RpCuaz8rzkNHMZ8hjqNBe8DCz8b1JdtD0zJ16bZ7YFWuxet4XjrOuSb3DG/f +AylfjaqX+OiYs2R7c/G3ASSU7gj9IEDHX0+dIzsSDCBKaD1n3io6JuWdv2tU +og8+3X2ryPV0zI6YTOf4qwub+buje9kubk4pYXzUhc9q7+YyJOl46vXqdvlW +XfBKednJK03HAD9WTXuWLrhpN2R+kqWjqs3NrGwNXThQXCBTRqfjCPcWgcUT +OiDRmXvuiDwdBwMnxD2cdeADRzaX5EY6Gp8U7Fgy0AE7h/SR5E3s9YbPGwLW +6ID1itgS3810PDNCi2+8qw3/7Di9Vn4LHbVsommyRdrQ4R6eOMC2+29P6exU +bTBvCPS2UKLj0UKrg4Ou2iA05du7XJmOGf+uNyw30Ya2td5mj9juCBtXytLQ +hrMGHg/CVOh4M5xvKU9GG/YGHlFSVaWj0b2psAYBbfgf4jDIqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.6}, {0., 0.9521831535011787}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.5, 11.6}, {0., 0.9521831535011787}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.992486582404604*^9, + 3.9924866098536053`*^9}}, + CellLabel->"Out[66]=",ExpressionUUID->"2f13ebb7-9849-4bd2-9dd4-7482a9e0342b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "11.6", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "11.6", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}, {3.992486618297974*^9, + 3.992486627759219*^9}}, + CellLabel->"In[67]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.03559153443754337`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.18958664940835762`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.03559153443754337`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.18958664940835762`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"417991.53320241044`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"40\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.03559153443754337`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.18958664940835762`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"7.2216334461594`*^8\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ +numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) \ +at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 67, 1, 25981759383722902615, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9, + 3.992486636207074*^9}, + CellLabel-> + "During evaluation of \ +In[67]:=",ExpressionUUID->"d93dc98b-bceb-44b2-9926-2c68c56386ee"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.549078904016535`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.731754956768325`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9, + 3.992486636309121*^9}, + CellLabel->"Out[67]=",ExpressionUUID->"c4225639-7a04-4f96-aeea-816ceb8205f7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.55"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9, {3.992486648328236*^9, 3.99248665143046*^9}}, + CellLabel->"In[69]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.55`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9, + 3.9924866777501793`*^9}, + CellLabel->"Out[69]=",ExpressionUUID->"10ce4869-65c0-4ca0-9f3b-09a1ba8f1513"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.732"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}, {3.992486665882482*^9, + 3.9924866733238297`*^9}}, + CellLabel->"In[68]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["1.732`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9, + 3.9924866745141687`*^9}, + CellLabel->"Out[68]=",ExpressionUUID->"ddfaae36-7013-439a-93b0-e49612cf1e96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11.5"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}, { + 3.992486685414385*^9, 3.992486686319108*^9}}, + CellLabel->"In[71]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlnk8VVsUx4lKeIXuvefci8w3DQohQ9pL5VU8UiQNMkSEUBpkeFGmCLkN +pFRkTggZMySRIiFDGTO8kiGzezz09vvjfO5nfe4+e/3OWt81yNi6HbJfxsPD +s4Cf/39tOfqCPDwiYLg8pS6sbxKVl6UFlN8TgdfoDmT4TyGdCwYsJW1R0N2V ++zZWYxqNxzlvqW4SBZdSz6b8gWnkN2o4Y+0oBhYb96cqRs2grdWObWmCa+E1 +71eVjQaziFy7QnNdwlqIiFvHzB2fRdJDPbnwJw12TATIn7k/h/gGPfvsvtPg +jzPvbN8rcZHUYU5kni8d1vQ7hfAnctEx4x9HcqQZAIce3dVZRaGPJWWPOgoZ +8CiqIVLNgEKSB8xiVhgTEJtTo9/nRKEwZ/bznl8ErC/btZDlSCHVBU8YCCIh +mSpbuqhHIS5d4Ne9jUzI2ls97D3KRfcPm5sYfmBCjP3tQvtzXHRhlYLyJhsW +TPVuuNPyZQ65/qm8qYhPHO6ciC0ZFZlD8XMliecfiMPGhbgmO41ZNKUSoPUV +SUBV0M8XRptnkDRHyH/3NwmQvaQR92D1NAo6vXZv+2VJGLPf91F9ahIJVR1R +FBdfB/oPkltYuROo9q5EyI3cdSAv9Z1X238c2YY/iaX2ScGkkuuae8ljiLXa +5h0xLAWCb4c2yEiMoCDeg8XKetLgd3qFjFbtEIqsWPNo821puOQfT5BHv6NA +sS3H0/qlIfWYtfbpNYMo5tHNtpItMjBAm8kPWdWPtN1u2Cj4yQDf2ec9RvO9 +iLpSnS5fJwNXp81EO6y7URJxqj6RIQt511wmrGU60DcqbtHbQRZCOZJNVYNt +SIvBHP2RIwtHd+XIZ7FbkMxl1Z8Z/HLAKjqY7H+xCbHFbiavOCgHX6cW/vHd +9gmRoL/j2wM5SHp5OjvybB2KzXnYIzYqB8LzXdZS0e+QppXarq+a8hC8peaC +jfNbdNrEKYcbKg/Q6sgJsKtE/p9//xvdIQ9/iwYYdUeXoyJOC389WwHKLeef +JhwrQX5394sf9VSAwV7pv9stCpBd0+K4V5UC7DQRig1k5iH1BNEnkmvY4Leu +TTbG9AW6l//mBGHNhsklsZdB558j2vL89uRnbMjoXQq/uysNNWh0zf/+zYb3 +FZbMa5CEbqVerrEyFAGNCoFfAipTSDRuedFNVTqEsrLTHjlz0auDpR7bGuiw +ufHiU7evXEQLNP232oUB4qwXywKVKHQp8Ib4OT4CrFtoupEnKWRmWSo79YgA +OXOnqRZXCnXnNsza6JCwOuRCe8JRCtFvVESXtpOQW5dd3CNBoXfqWVITXkxw +UxDODM7joqAsXdBhsIBlvTercQMXTaSkK53PYYFppLzJ6JU5NBlXe6a5hQ3h +tPSdnM0p6Epc948sBRGw1zAr9V81hQT1yuu5wnR46ynSd9SIi1ybU3gvJNOB +vVgtLV/BRQVDcWmv/mRAsHJ96l/Yf4K0vCW7mwHmry2LLA9TSLM1pMvnEgGO +6tc7WVh/3pp/G5/QSTg37/bC0JZCiZUSI5+ySPgo0LkUoEyh3qTjK6sOMYEK +Urps0MRFt5YZ7HszzgS99x5zGcZclNP+PfPjDRbscXg/IPRsDl1vRDKlFWwY +Kv+oK6eaikjKMFHagg75RjbVwSFcJPSpaXByjg5VFrZqzZNcdE56lVEjhwGL +hSPFrTsoZPBz7EuJIgHfbfakltlTyH1gwuFMDQFrZZ4eFjxLIQGLRHE5GxI2 +qSp8fmFMoaADdrvTeZlQvj3wVdAKCmW/Xaa57ikT0oRSFLXucJG1k2nO0E82 +mMlX7fVVSUZjBIdqExMB0QflitMzk2jFWon2LfM0OJLf7lCsy0V/0uL20Th0 +6Bf4fNsoh4sEJN74FWzD8bSNP7gkhuPnOrHo94EB10/OOa00oVA6Z6xYz5aA +M8G7E+pdKPSk9BaqWEaCW+x2hWqs37nH4N6xByRcCDZfZqZFoZEuFe/nO5nw +U0clTb0X87bZ5K+V3Uy4lSKkYGzNRWvPBf3yuciC2J4WnVeVc+iv4fkFlXw2 +cDk331GFqYj2ITXTXJ8OqibMYuTFRQMi7zbf7qeDXMVQfM8/XFR5aIt83VUG +/HrFDnNWx/nb/sqLwSDgXmVMiwPOb9+TI/pbcglQLyy4pofzP7Vc+8YuYxIW +436EeZhRyNiFM7ptlAReq6iHq/D3vlpsf7Yykgm6zqK+L3A/3xCwOuJkLxt8 +u3U9y54no9MFnk2vjzKA8NdokFegkHCz+asP4wywjvEU1zhGoWqmHE9hKAEd +Ulo577C/Wht7O39FzNclIwbgeupMGtPbW0XC0PDXAYH1mMeHMlo2OgQkN7sF +cHD/X1p/MzSxg4Ajf3+6sNUZz4v01Zl8F0hwqt9mZ7mPQjEmMa0XZtjwzfOS +b2VBElJsGeZ1WSUCPS0cfZ2RScTvY9BVO06D/ipDszp1zGse4TIQTIdvb1ao +b3/GRSovD4+obWTARx7JU5tWU4iPbmG8pRLzePG2p5IRhQbc4zfIWxDQIOPx +dBj7v3fn+OwBioAZ4bXiRg54no3aOEtFkXCt6MFjL10KTVIS6glqTMhwnHMf +xfloBVPjtM9MuHywSXnYkYv2lLasMXNmQZsU6j/+cQ4pe7Y7jWSzQS2pWdV1 +MRWJqbXlTujQ4U7tovL8eS4yebHL5NQXOhRPxK4qwLwMD1dE7r/EgE+Fp6OD +VSj0rFv2wxthAr48D88Ms6aQ+FXBPJE0Ag6ed1j2BMf7Ryc/NO0hYcZko5fk +EQrleKVVcvtIWL7+2t5QgkKVzCr7hQAm/ACv79kZXLRadORfsoMNG8+1724Z +SUYRJkI7kQkDql08H9VIU6jtSqnwle8MaEjwKf2C7/s91+Ia60eAd59lTSD2 +V6apLC4qRUJjfoeIBdYDecsJ4WISHnvU3uncRKGru0NurFYlgMVXvFILx2/7 +CkQFNRKQaXjaSQXXj5j/F7vbTiQUR9rP3TekkE/XxT1bx9kgOTrdemA6CZ3L +0/nLyoWAT+93kCG4H6T/8zZEWZiE9Z7jK8XtcP+NOrzxjBQBx20XQ+WwnVaZ +2GpYSoDLTIJpMT4fruMe1XKHgImy1Mv9/8dnpvhH7h4Crl3fOf/+DIWq9n8R +rxwkoCJk0YIf7yN5b4odi+fZ0BhT86rZOwm9zSVX5POLwO5m5jHb75MoIPub +FTFCg5Dt8031Klz0g7/Ft+4aHXrDjU/Fp3BRNa9UgocCA07QomgFQhRydAyb +DShlQG4HuzcPfx9P77w13RTra6vvcsZ8ifC8boyeJuDsL8E/+DD/PBdHW3hv +ktBlnZjviyg0EyzGebgVz5P5xXatn1yk+cHswHwDE0iD39Wbz3LRiVOLj9Fp +FjzT6fOV/DyHEnbWxO/PZMNg/aLDsFQa4ji6aqDtdMj9Pqx4wA3PI14eW8PP +dFif7LApuouL/DRD9UPOMUCvr14ydCvWo2ruwRIgAEaf+kRZ4f43dmqYN5EA +BVqKYAWO36l9TuIsICHJ8naxnQWuF151pY4uEowZHo7aLAq9TSmqnL3KBK3C +Tuv4bHx/21fVS+2YL887fY+EU5Bs3OcpX0MG1L4vbg9fR6Ed9eN5DX0M6HkW +/PyxOYUkHLYmh3kTsCQfceAw9qeVeHfWgkXCa3cXZ3MbCp3XifIfyyNBdUeM +qsYW7P9eiYq9EgE1P4Unr57G8/pijLJnHdZvFfg7AfMVPrITOuxJOMRL+GzE +9T321M775igbshJdLjSJYd7l7l43cSDAh/Pr01bMi8KhTXaeK0mIFUyUmME8 +eQ2ENJWzCMjoG67Yfwr3N5WlP3QLCTgUxuTjw/rS02vfVUcSsDpsSLwD28b7 +x24JAgGJ2a59qpivb4Wqprm9BIS9sP7jMeaLHZr2mOCyQd+3wabgfhKq4d03 +qWpJgI6qZZQN1ru05oWPVCbW//Vy60V8X1+Iz/a0QAIohQ0oA9us6MHXd1sJ +mGdlcF5ifsz0+2iu5wh4/Jr0aMX6b5oaPj5WSUDOexd3B2y71zGODdwnYLpi +ruIbfn/X4gcVy0U2lCoutyJOJiGa3FaB48vwvlToWDM7MImqDJRkyoZoEHt0 +W2HdVi7if54bBH50oKlZtjYncZFIKt+imBwDoqMytb0Ecf8RSzJQLmEAn1Rc +5gze7yOiUxbCTfC8CakwVMT6Pr70KNeZxPGwaEs8hvm+r7lNyOMGCY+iA9S8 +gUKzxuEVTCXMc7uiUucwFzneamlIqGeCkfxdMwPMq6OGqOPLUywo/nOhaL51 +DnXE79TlZrDBsu/eF22VNNS0rHhuUI0OqW0Z0ZdxPcSndTuVN9JhKULwBH8n +F73vdn2y3o0Bbo18ASGYlzcdbjVvl+N9iE/vpCjmuzpJJNgrHufPIG9XHY6P +9JLEqjJdEnbnvxrlx/udz1sv2786SBA+5OEcIY7Pu6pNePgywe+2Uv1dvC8U +aR/6KN+G97fs9sO3JVKQy+4iY8n9DDAtjVFylaTQr0uCq7x7GXDe82nWb7yP +pa/r1OO/QsDratnDWtjf7NF9AwsECS7jPcpNmG+h3635VjkkGN0anjyJ6zEa +WgJFNhFgvs7WVBrz3bdZv268lgBVIe3JNsyLQcKE0tVTJGwXSzD6hflev7KT +oTPChhLG0c+ysslIokNPqtaOANmwbbO/8fm+ld0HJZaTMEYaV57E+4pSRALb +mcT8XJVs+IL3BbOh9LSXLwn47Z0YIof1adpeskPhBBQ0Bik2Y5t3auXgS10C +1hiNlfTjfLq794xt6ibgfJB/6A/Mt9WotE71LBsUk9oWC1KTkHnRdPizYwTU +BeS1rMf+b9ZYkjHPCIiQVlS5ie9zhw3NMtcJuP4rcncstlONOZarPxPwrzu9 +Zhrz07cQkf2PKwG1VjeuZ2OeWUJc7eZyAngDSxU52F66/mbmRDQBkV6D3f/3 +d2/r3fVCC2xY8JhIGXdJQukaBQduJBPwt1exwQv8f0TWNcG1fxNAnN34wRXb +PC4/vredIeDNw2YVS3yfptfB81XFeH/aFjPRg22JKQklYw4BXc8awnr/12vB +/y05mwC2QvPECWybNTY8UA4h4B90u6jk/3qlOZU5PySg/8khyS5sC8Sa3ctc +YoNc/7rOvQeS0H+9eGjS + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 198, 152, 114, 84, 63, 51, 2, 3, 4, 5, 6, 7, 8, 9, 199, + 153, 115, 85, 64, 52, 210, 164, 126, 96, 75, 10, 200, 154, 116, 86, + 65, 53, 211, 165, 127, 97, 76, 11, 201, 155, 117, 87, 66, 219, + 173, 135, 105, 54, 212, 166, 128, 98, 77, 12, 202, 156, 118, 88, + 67, 220, 174, 136, 106, 55, 213, 167, 129, 99, 230, 184, 146, 78, + 224, 178, 140, 110, 233, 187, 149, 13, 203, 157, 119, 236, 190, 89, + 228, 182, 246, 144, 240, 194, 68, 221, 175, 245, 137, 238, 192, + 250, 107, 232, 186, 248, 148, 242, 196, 251, 56, 214, 168, 244, + 130, 237, 191, 249, 100, 231, 185, 247, 147, 241, 195, 79, 225, + 179, 141, 239, 193, 111, 234, 188, 150, 14, 204, 158, 120, 90, 229, + 183, 145, 69, 222, 176, 138, 108, 57, 215, 169, 131, 101, 80, 226, + 180, 142, 112, 15, 205, 159, 121, 91, 70, 223, 177, 139, 109, 58, + 216, 170, 132, 102, 81, 16, 206, 160, 122, 92, 71, 59, 217, 171, + 133, 103, 82, 17, 207, 161, 123, 93, 72, 60, 18, 208, 162, 124, 94, + 73, 61, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, + 209, 163, 125, 95, 74, 62, 218, 172, 134, 104, 83, 227, 181, 143, + 113, 235, 189, 151, 243, 197, 252, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzjW2gKC0cQXvPhuDesOW5XCKF0 +T5ZUzq35rLau/kmcxynv+Uj1T+ENjuM4juM4juM4juM4juM4juM4juM4juM4 +juM4juM4juM4/mN+A0weW1M= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlnk8VVsUx4lKeIXuvefci8w3DQohQ9pL5VU8UiQNMkSEUBpkeFGmCLkN +pFRkTggZMySRIiFDGTO8kiGzezz09vvjfO5nfe4+e/3OWt81yNi6HbJfxsPD +s4Cf/39tOfqCPDwiYLg8pS6sbxKVl6UFlN8TgdfoDmT4TyGdCwYsJW1R0N2V ++zZWYxqNxzlvqW4SBZdSz6b8gWnkN2o4Y+0oBhYb96cqRs2grdWObWmCa+E1 +71eVjQaziFy7QnNdwlqIiFvHzB2fRdJDPbnwJw12TATIn7k/h/gGPfvsvtPg +jzPvbN8rcZHUYU5kni8d1vQ7hfAnctEx4x9HcqQZAIce3dVZRaGPJWWPOgoZ +8CiqIVLNgEKSB8xiVhgTEJtTo9/nRKEwZ/bznl8ErC/btZDlSCHVBU8YCCIh +mSpbuqhHIS5d4Ne9jUzI2ls97D3KRfcPm5sYfmBCjP3tQvtzXHRhlYLyJhsW +TPVuuNPyZQ65/qm8qYhPHO6ciC0ZFZlD8XMliecfiMPGhbgmO41ZNKUSoPUV +SUBV0M8XRptnkDRHyH/3NwmQvaQR92D1NAo6vXZv+2VJGLPf91F9ahIJVR1R +FBdfB/oPkltYuROo9q5EyI3cdSAv9Z1X238c2YY/iaX2ScGkkuuae8ljiLXa +5h0xLAWCb4c2yEiMoCDeg8XKetLgd3qFjFbtEIqsWPNo821puOQfT5BHv6NA +sS3H0/qlIfWYtfbpNYMo5tHNtpItMjBAm8kPWdWPtN1u2Cj4yQDf2ec9RvO9 +iLpSnS5fJwNXp81EO6y7URJxqj6RIQt511wmrGU60DcqbtHbQRZCOZJNVYNt +SIvBHP2RIwtHd+XIZ7FbkMxl1Z8Z/HLAKjqY7H+xCbHFbiavOCgHX6cW/vHd +9gmRoL/j2wM5SHp5OjvybB2KzXnYIzYqB8LzXdZS0e+QppXarq+a8hC8peaC +jfNbdNrEKYcbKg/Q6sgJsKtE/p9//xvdIQ9/iwYYdUeXoyJOC389WwHKLeef +JhwrQX5394sf9VSAwV7pv9stCpBd0+K4V5UC7DQRig1k5iH1BNEnkmvY4Leu +TTbG9AW6l//mBGHNhsklsZdB558j2vL89uRnbMjoXQq/uysNNWh0zf/+zYb3 +FZbMa5CEbqVerrEyFAGNCoFfAipTSDRuedFNVTqEsrLTHjlz0auDpR7bGuiw +ufHiU7evXEQLNP232oUB4qwXywKVKHQp8Ib4OT4CrFtoupEnKWRmWSo79YgA +OXOnqRZXCnXnNsza6JCwOuRCe8JRCtFvVESXtpOQW5dd3CNBoXfqWVITXkxw +UxDODM7joqAsXdBhsIBlvTercQMXTaSkK53PYYFppLzJ6JU5NBlXe6a5hQ3h +tPSdnM0p6Epc948sBRGw1zAr9V81hQT1yuu5wnR46ynSd9SIi1ybU3gvJNOB +vVgtLV/BRQVDcWmv/mRAsHJ96l/Yf4K0vCW7mwHmry2LLA9TSLM1pMvnEgGO +6tc7WVh/3pp/G5/QSTg37/bC0JZCiZUSI5+ySPgo0LkUoEyh3qTjK6sOMYEK +Urps0MRFt5YZ7HszzgS99x5zGcZclNP+PfPjDRbscXg/IPRsDl1vRDKlFWwY +Kv+oK6eaikjKMFHagg75RjbVwSFcJPSpaXByjg5VFrZqzZNcdE56lVEjhwGL +hSPFrTsoZPBz7EuJIgHfbfakltlTyH1gwuFMDQFrZZ4eFjxLIQGLRHE5GxI2 +qSp8fmFMoaADdrvTeZlQvj3wVdAKCmW/Xaa57ikT0oRSFLXucJG1k2nO0E82 +mMlX7fVVSUZjBIdqExMB0QflitMzk2jFWon2LfM0OJLf7lCsy0V/0uL20Th0 +6Bf4fNsoh4sEJN74FWzD8bSNP7gkhuPnOrHo94EB10/OOa00oVA6Z6xYz5aA +M8G7E+pdKPSk9BaqWEaCW+x2hWqs37nH4N6xByRcCDZfZqZFoZEuFe/nO5nw +U0clTb0X87bZ5K+V3Uy4lSKkYGzNRWvPBf3yuciC2J4WnVeVc+iv4fkFlXw2 +cDk331GFqYj2ITXTXJ8OqibMYuTFRQMi7zbf7qeDXMVQfM8/XFR5aIt83VUG +/HrFDnNWx/nb/sqLwSDgXmVMiwPOb9+TI/pbcglQLyy4pofzP7Vc+8YuYxIW +436EeZhRyNiFM7ptlAReq6iHq/D3vlpsf7Yykgm6zqK+L3A/3xCwOuJkLxt8 +u3U9y54no9MFnk2vjzKA8NdokFegkHCz+asP4wywjvEU1zhGoWqmHE9hKAEd +Ulo577C/Wht7O39FzNclIwbgeupMGtPbW0XC0PDXAYH1mMeHMlo2OgQkN7sF +cHD/X1p/MzSxg4Ajf3+6sNUZz4v01Zl8F0hwqt9mZ7mPQjEmMa0XZtjwzfOS +b2VBElJsGeZ1WSUCPS0cfZ2RScTvY9BVO06D/ipDszp1zGse4TIQTIdvb1ao +b3/GRSovD4+obWTARx7JU5tWU4iPbmG8pRLzePG2p5IRhQbc4zfIWxDQIOPx +dBj7v3fn+OwBioAZ4bXiRg54no3aOEtFkXCt6MFjL10KTVIS6glqTMhwnHMf +xfloBVPjtM9MuHywSXnYkYv2lLasMXNmQZsU6j/+cQ4pe7Y7jWSzQS2pWdV1 +MRWJqbXlTujQ4U7tovL8eS4yebHL5NQXOhRPxK4qwLwMD1dE7r/EgE+Fp6OD +VSj0rFv2wxthAr48D88Ms6aQ+FXBPJE0Ag6ed1j2BMf7Ryc/NO0hYcZko5fk +EQrleKVVcvtIWL7+2t5QgkKVzCr7hQAm/ACv79kZXLRadORfsoMNG8+1724Z +SUYRJkI7kQkDql08H9VIU6jtSqnwle8MaEjwKf2C7/s91+Ia60eAd59lTSD2 +V6apLC4qRUJjfoeIBdYDecsJ4WISHnvU3uncRKGru0NurFYlgMVXvFILx2/7 +CkQFNRKQaXjaSQXXj5j/F7vbTiQUR9rP3TekkE/XxT1bx9kgOTrdemA6CZ3L +0/nLyoWAT+93kCG4H6T/8zZEWZiE9Z7jK8XtcP+NOrzxjBQBx20XQ+WwnVaZ +2GpYSoDLTIJpMT4fruMe1XKHgImy1Mv9/8dnpvhH7h4Crl3fOf/+DIWq9n8R +rxwkoCJk0YIf7yN5b4odi+fZ0BhT86rZOwm9zSVX5POLwO5m5jHb75MoIPub +FTFCg5Dt8031Klz0g7/Ft+4aHXrDjU/Fp3BRNa9UgocCA07QomgFQhRydAyb +DShlQG4HuzcPfx9P77w13RTra6vvcsZ8ifC8boyeJuDsL8E/+DD/PBdHW3hv +ktBlnZjviyg0EyzGebgVz5P5xXatn1yk+cHswHwDE0iD39Wbz3LRiVOLj9Fp +FjzT6fOV/DyHEnbWxO/PZMNg/aLDsFQa4ji6aqDtdMj9Pqx4wA3PI14eW8PP +dFif7LApuouL/DRD9UPOMUCvr14ydCvWo2ruwRIgAEaf+kRZ4f43dmqYN5EA +BVqKYAWO36l9TuIsICHJ8naxnQWuF151pY4uEowZHo7aLAq9TSmqnL3KBK3C +Tuv4bHx/21fVS+2YL887fY+EU5Bs3OcpX0MG1L4vbg9fR6Ed9eN5DX0M6HkW +/PyxOYUkHLYmh3kTsCQfceAw9qeVeHfWgkXCa3cXZ3MbCp3XifIfyyNBdUeM +qsYW7P9eiYq9EgE1P4Unr57G8/pijLJnHdZvFfg7AfMVPrITOuxJOMRL+GzE +9T321M775igbshJdLjSJYd7l7l43cSDAh/Pr01bMi8KhTXaeK0mIFUyUmME8 +eQ2ENJWzCMjoG67Yfwr3N5WlP3QLCTgUxuTjw/rS02vfVUcSsDpsSLwD28b7 +x24JAgGJ2a59qpivb4Wqprm9BIS9sP7jMeaLHZr2mOCyQd+3wabgfhKq4d03 +qWpJgI6qZZQN1ru05oWPVCbW//Vy60V8X1+Iz/a0QAIohQ0oA9us6MHXd1sJ +mGdlcF5ifsz0+2iu5wh4/Jr0aMX6b5oaPj5WSUDOexd3B2y71zGODdwnYLpi +ruIbfn/X4gcVy0U2lCoutyJOJiGa3FaB48vwvlToWDM7MImqDJRkyoZoEHt0 +W2HdVi7if54bBH50oKlZtjYncZFIKt+imBwDoqMytb0Ecf8RSzJQLmEAn1Rc +5gze7yOiUxbCTfC8CakwVMT6Pr70KNeZxPGwaEs8hvm+r7lNyOMGCY+iA9S8 +gUKzxuEVTCXMc7uiUucwFzneamlIqGeCkfxdMwPMq6OGqOPLUywo/nOhaL51 +DnXE79TlZrDBsu/eF22VNNS0rHhuUI0OqW0Z0ZdxPcSndTuVN9JhKULwBH8n +F73vdn2y3o0Bbo18ASGYlzcdbjVvl+N9iE/vpCjmuzpJJNgrHufPIG9XHY6P +9JLEqjJdEnbnvxrlx/udz1sv2786SBA+5OEcIY7Pu6pNePgywe+2Uv1dvC8U +aR/6KN+G97fs9sO3JVKQy+4iY8n9DDAtjVFylaTQr0uCq7x7GXDe82nWb7yP +pa/r1OO/QsDratnDWtjf7NF9AwsECS7jPcpNmG+h3635VjkkGN0anjyJ6zEa +WgJFNhFgvs7WVBrz3bdZv268lgBVIe3JNsyLQcKE0tVTJGwXSzD6hflev7KT +oTPChhLG0c+ysslIokNPqtaOANmwbbO/8fm+ld0HJZaTMEYaV57E+4pSRALb +mcT8XJVs+IL3BbOh9LSXLwn47Z0YIof1adpeskPhBBQ0Bik2Y5t3auXgS10C +1hiNlfTjfLq794xt6ibgfJB/6A/Mt9WotE71LBsUk9oWC1KTkHnRdPizYwTU +BeS1rMf+b9ZYkjHPCIiQVlS5ie9zhw3NMtcJuP4rcncstlONOZarPxPwrzu9 +Zhrz07cQkf2PKwG1VjeuZ2OeWUJc7eZyAngDSxU52F66/mbmRDQBkV6D3f/3 +d2/r3fVCC2xY8JhIGXdJQukaBQduJBPwt1exwQv8f0TWNcG1fxNAnN34wRXb +PC4/vredIeDNw2YVS3yfptfB81XFeH/aFjPRg22JKQklYw4BXc8awnr/12vB +/y05mwC2QvPECWybNTY8UA4h4B90u6jk/3qlOZU5PySg/8khyS5sC8Sa3ctc +YoNc/7rOvQeS0H+9eGjS + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 198, 152, 114, 84, 63, 51, 2, 3, 4, 5, 6, 7, 8, 9, 199, + 153, 115, 85, 64, 52, 210, 164, 126, 96, 75, 10, 200, 154, + 116, 86, 65, 53, 211, 165, 127, 97, 76, 11, 201, 155, 117, 87, + 66, 219, 173, 135, 105, 54, 212, 166, 128, 98, 77, 12, 202, + 156, 118, 88, 67, 220, 174, 136, 106, 55, 213, 167, 129, 99, + 230, 184, 146, 78, 224, 178, 140, 110, 233, 187, 149, 13, 203, + 157, 119, 236, 190, 89, 228, 182, 246, 144, 240, 194, 68, 221, + 175, 245, 137, 238, 192, 250, 107, 232, 186, 248, 148, 242, + 196, 251, 56, 214, 168, 244, 130, 237, 191, 249, 100, 231, 185, + 247, 147, 241, 195, 79, 225, 179, 141, 239, 193, 111, 234, + 188, 150, 14, 204, 158, 120, 90, 229, 183, 145, 69, 222, 176, + 138, 108, 57, 215, 169, 131, 101, 80, 226, 180, 142, 112, 15, + 205, 159, 121, 91, 70, 223, 177, 139, 109, 58, 216, 170, 132, + 102, 81, 16, 206, 160, 122, 92, 71, 59, 217, 171, 133, 103, 82, + 17, 207, 161, 123, 93, 72, 60, 18, 208, 162, 124, 94, 73, 61, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, + 209, 163, 125, 95, 74, 62, 218, 172, 134, 104, 83, 227, 181, + 143, 113, 235, 189, 151, 243, 197, 252, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11.5}, {0., 1.5895727831736257`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF0YB/BEG95CM3PvDLJPWhRClnQelRYiRdIiS0QIpUWWN8oWIdNC +SkXWEkLWLEmkSMhS1iyVLNnN9aL3+GM+8/n+cef87pznPOeRsnY5ZLt40aJF +s/iz8G3N0eVftEgI9JckVYd0jyGazOblxxcLgVqefeVU7xh6l0UuzeETgp0N +zGPWP8eQfOMAj9MKIehs5OhqDY6hYYJDNYsIgfCDEvmJyTF0JabjV7qcENiq +mRT5rhhHt5IvV1ro498rXf5nudI4KilO8Su5JwRv0B1I9R1HWhf0WAqawqC9 +I+tdtNoEGolx3FRRLwxORe71Ob0TyGdIf9LSXgTM1u9Llo+YRJsr7JtT+FfD +G55vSuv1phC5eqn6mrjVEBazhpk1MoUk+zuzYDcNto36yZ65P414+9y7bX7S +4J8z760/KHBRuZ6CVHE/DaKPbsmr3sxFfhnfLYhBGgRtnamvUeIiPi+99qoR +GvSU65tUq3LR0tViLZtmaHAkp8WuQJuL+HVKariCdHjnLtR91ICLhGOW5N9U +pkMwKyPlkSMX1S8umO5ToUNyc2rk5bNcxLF3VkNb6ZD1c0D+gAsXiag0Z41q +0eFO1ZzizHkuon1MTjPVpYOyEbMAeXARSenHS5rRIcfAqiIwiIskDnPCs73p +sKrHIYgvHud7kRUAPnSgqZg3NSRw0S++Ru/qa3ToCjU8FZvERZnZhFNvIB2+ +v12quvU5F+2mxeylcejQs/zLbYNMLnJuSOK5kEgH9lyFpGwpF70+WOS2pZYO +G+suPnX5xkWxKR0OJXV0mA/jP8HXxkUBPIus9b/QYW2i3YbIdi4yernD6NRX +OhSMRq/I7eKiXqH3G2/30EGmtD+28wcXCXyu7xubpkO5mbVKwxgXHTP8dSRT +kgFw6NFdrRUUEkrmnRORYUBkRJqmBz+FKngk4tzkGHCCFkHLFaCQ0qvDgyrr +GfBpkfipDSsptFzsrU/uFgYEWscenBehUG5/TMrr3diKNcn7xSjktDPfUHwf +A4yLohScxSkkHfNl3FufAVUfClpC11AozEhgOzJiQIWT+6NKSQqdznWvf3OU +AYSvWq2sHIVo/sb/VTgxQJT1crG/AoU+dDg/WevCAJc6Xr+gTRTyUQ/WDTrH +AJ3uGvHgzRQaGCgN33eJAZ/zTkcGKlGo7NAm2eqrDPjzmh3iqEqhc5IrDOo4 +DJjLGyxo2kahT4XFj1rzGPAoojZcRY9CoiIJeoqFDOCViEmbxLa3D5nyK2JA +Viu7K1ufQrx0M8NNZfj5i7fdFQwopO48OufzkQHXT047LDOiUJykrDm7gwGm +b8zzzQ9T6M8l/hWeXQw47/40/S/2tpqR7NpuBnQ+D3zx2JRCzVeKBK/8ZEBt +nFfR1yMUEmwwff1xhAGWUe6iascodMn/hug5XgIsG2na4Scp9LbVpfLdEgLs +eXVOClvg/VI2dWMtJwCGnnpFYD/vkP74VpCAry9C00IsKdS19bUHg0HAvbKo +RjtrCimExbEdSQIeXxWv/Yrt0RtUX8IiILV7oHTfKQrRIw6vPyNBwHHruWAZ +Gwrp/R7+WihPwE+rXcnFthSKhEZ/oQ0EmK6xNpY8TaHee4VKtgoEVP4WHLuK +fXVn0I2VygSweAuWadhRKPuhlIaVFgGJDS5+HHsK8Ywv63ulTcAqg+HCHmzD +fcO3+IGA+AznbuUzFPo1WfAraxcB165vn/mALX7AJGqpIQHRmZW63Q64XiKT +ZkONCFANKtWXd6TQoq4ZS7oxAU7NNe2O2L2usetkzQiolXJ7OoBtmj8R+vwY +AdV+2Y1rnShUybN3TNmcAC1l8wgr7Gec4QIdawLOBO6Mq8EWa9WRqLIhQDpk +y9Rf7DCZu9eN7Ajw4vz5vPksXs/p18/mMwS8fdigZI59Lltrv4UTAZ8/bCOD +sLtnwzJ+OBNQZXHjega2iW43zfkc/r/fkG5N2OpNQe1el/D+qV5vYznj9de0 +6fBdIeBNhfRhDWwxu82JIZ4EzMuGHTiMHZZ+jX/1vwQQZ9d/dMb+O93oHO1D +gGe3eaU/tiusa5C6TsD1P+E7o7G7g7y2pvgTQMmtQ6nYJnW1DxSDCPiBbucX +YlcwZRblBRPQKqGR+R5b3fqSDQolILcuQL5hIc+zqvcV4QSsDOkXbV3IMy6m +YMghoP15bUgXdqiWa0TjHQJGi5Mv92DPX387eSKSgHCPvo4Fu1YzjvXeJ2Ci +dLr0+0IemkOx40MCep4cEm9fyGNeJD3+iAAZU4fxxoU8CUKBHrF4Pb3sHdUL +eYZPDfDEEyBHS+IvXcijlnvgRiIB/3oU6L3EFr3Kny2UQsDB83aLn2DfrDQn +o54TECYpr3RzIc+ql14Safg8fLvcdHEhjxnf98QMAthyDaMnFvI8OaK7KQvX +T17uNZ2FPP3PUl69IuCvZ3yQzEIepfl/tPMIOBTC5OVdyONx8Hx5AT4/W6JG +O/H+pZTFN+kX4XqbjDMuwGYJcDUbSgjg8S+S52DfNNZ/fKyMgMwPTq522K69 +o3ZnKglYLfX0MP9CfWzUrR6pIkBZQHOsGdeXycUoRfdqnNfC/28c9taliAqo +IyBN/7SDEnayIcd85RcC/nOlV07gemZF9r2520TADCuV8wp7fu3N4PhWAo78 ++/nCZmxX187hDR0EnA/wDf6Fz8v3PGXjrC4CQl5a/vMYu3zfV9GyPgJKg+bM ++LBDHNkvOv8QsLZ4x2w6Po+fXrmVaI3h82jWHH8MW2jRm7rICQLO/uH/hxf7 +3p3jUwcoAiYFV4sa4PP9pOgWKl1Mgkv0VrkK3B+6l3UcFFtCwjBpWHYSW+7Q +Bhv3ZSRE88eLTeJ+8uzHuyBFQRLWuo8sE8XOXvVf3RM6CedmXF7q4340dXRv +7yxBgtNIp2K9FYU04u9OmbFIeOPq5GiKXayuKCosQUJdTquQGe5vVVa2Nr7y +JHy6ZMAA3B87smqnrLRIWBl0oSXuKIUk58VWFGuTsDPn9RAf9qm9DqIsICHB +/HaBjRnuN218UL+LhEmj9R7iuP+OL9G8scOQhLmYXyFuJvh+M4sXlbEiYYOy +3JeXhrgfxo0qXD1FwlaROIM/uP+HDm6HVlsSDvEQXuuxRXy/2tx2IKEg3Hb6 +Pr4vxJ+tTOO9QIJDzRYb870UUp51h94AEhKp4vmLOhS6r75FwO0GCY8i/VQ8 +AfeXi0ONPDdJaLeMz/FGeD+GrBwlIki4lv/gsYc2hRw79e4de0DChUDTxSYa +FIovExv8nI7ff3nbvJ8ihQT+NuVYZJJgcGtg7CS+D89rRfgOZ5OgvC1KWQ3f +l5C9hBAsIOGxW9Wdtg0UaksY1tlTTkL/wLfe5Wtx/79RGlnUQkJWdUZBJ76/ +vd55WO9vJUHwkJtjmCjurzyqCq3tJBgy3Ow1WRTK9Egp43aTsGTttT3BBO7n +TpyhLUMk8FhEPFyB54GAAzY7n/EwoWSr/+uApRTi0pf/ubeeCel7KgY8h7ho +yjC0lKnABLJFXqFtgIsmA0U4DzczwWVmrkXjNxeNUWKqcSpMSLWfdh3C88tg +u5Lni+1M+K2llKKK55uuhOPLyg8xgQpQuKxXz0XvVdMlRj3w83KCaYHZXFTh +rDLq5s0En9sKNXfxfPUuKb9s6ioTNPLaLGMzuKiMWW4768eEX+DxMyMVz1tz +Lc+XhTNB21HY+yWe5zLeLVZf85QJKQJJ8hp3uOj+YVMj/Y9MiLK9nWd7jovs +bzXWxtUwwUD2rokenh/VP5ocmKnF76P3t2Ijni+bwNgw5QsTLh+sVxywx/Pk +RqP9yzqYcCtJQM7QkotuLdbb+3aECTof3KZTDfE8l64NWgwWsCz3pNet46IL +K+QUN1ixYLxr3Z3Gr9PIXk3Y/tUpFhTsns2faZpGJ07NPUanWfBcq9tb/Ms0 +2lXUuMrEkQXNEqjn+KdptPpcwB+viyyI7mzUel02jTJbfqZ9usGCXXYfegWe +T6PRpGcK5zNZYBwuazR0ZRo571bckM8rCndORBcOCU2j2OnC+PMPRGH9bEy9 +jdoUGlfy0/iGxKA84PdLg42TSJIj4LvzuxhIX1KLebByAgWcXr2n5bI4DNvu +/aQ6PoYEyo/Ii4quAd0HiY2srFFUdVcs6EbWGpCV+Mmj6TuCrEOfRFN7JWBM +wXnVvcRhxFpp9Z4YkAD+d/3rpMQG8Xx7sEBRRxJ8Ti+V0qjqR+Glqx5tvC0J +l3xjCfLoT+Qvsul4So8kJB+z1Dy9qg9FPbrZXLhJCnppkzlBK3qQpssNKzkf +KeA9+6LTYKYLUVcqnslWS8HVCRPhVssOlECcqolnSEP2NadRS6lW9J2KmfO0 +k4Zgjnh9eV8z0mAwh35lSsPRHZmy6exGJHVZ+Xcqnwyw8g8m+l6sR2yRm4lL +D8rAt/HZH95bPiMSdLd9fyADCa9OZ4SfrUbRmQ87RYZkQHCm3VIi8j1St1DZ +8U1dFgI3VV6wcnyHThs5ZHKDZQGa7Dl+NmXI98vf/yJbZeFfYT+DjsgSlM9p +5Kthy0GJ+czTuGOFyOfuPtGj7nLQ1yX5b4tZLrKpnxvxKJeD7UYC0f7MbKQa +J/xEfBUbfNY0S0cZv0T3ct6eICzZMDYv8irg/AtEW5LTkvicDald86F3d6Sg +1tjt2txUNph33/uqqZSC4rZXxu5LY0NfzZzdgEQKUnRvcRjMYINKQoOy81wy +2j8wM6uUwwYu5+Z7Ki8ZXa9DUkWlbOgv+aQto5yMxmKqzjQ0siGU9mw7Z2MS +ytc89Em2GTuj5fBtsSTk0/xN+VILG9a73+l+JJiEVgoP/ke2Yp9r2dk4mIjW ++a0MO9nFBu8ObffiF4nI0sE4s/83G0xky/d4KyWitcvaGFqDbChkHP0iLZ2I +hp/aeN4cYkN6vNOFepFE5NV+cdfmETaID000HZhIQFFGUU0XJtnw3f2Sd1lu +ArIYktSqmGKDfELzXG5yAmIHpzwmuGzQ9a61yr2fgLLfFtgXzLChLqrydYNn +AvK03FkjMMuGWbfRpBGnBLRj7qOS+RwbiuSXWBAnE9DyaJN7afNskOlZ07bn +QAKqVWuf+fuXDR9KzZnXIAH9D0OxaNI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11.5}, {0., 1.5895727831736257`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF0YB/BEG95CM3PvDLJPWhRClnQelRYiRdIiS0QIpUWWN8oWIdNC +SkXWEkLWLEmkSMhS1iyVLNnN9aL3+GM+8/n+cef87pznPOeRsnY5ZLt40aJF +s/iz8G3N0eVftEgI9JckVYd0jyGazOblxxcLgVqefeVU7xh6l0UuzeETgp0N +zGPWP8eQfOMAj9MKIehs5OhqDY6hYYJDNYsIgfCDEvmJyTF0JabjV7qcENiq +mRT5rhhHt5IvV1ro498rXf5nudI4KilO8Su5JwRv0B1I9R1HWhf0WAqawqC9 +I+tdtNoEGolx3FRRLwxORe71Ob0TyGdIf9LSXgTM1u9Llo+YRJsr7JtT+FfD +G55vSuv1phC5eqn6mrjVEBazhpk1MoUk+zuzYDcNto36yZ65P414+9y7bX7S +4J8z760/KHBRuZ6CVHE/DaKPbsmr3sxFfhnfLYhBGgRtnamvUeIiPi+99qoR +GvSU65tUq3LR0tViLZtmaHAkp8WuQJuL+HVKariCdHjnLtR91ICLhGOW5N9U +pkMwKyPlkSMX1S8umO5ToUNyc2rk5bNcxLF3VkNb6ZD1c0D+gAsXiag0Z41q +0eFO1ZzizHkuon1MTjPVpYOyEbMAeXARSenHS5rRIcfAqiIwiIskDnPCs73p +sKrHIYgvHud7kRUAPnSgqZg3NSRw0S++Ru/qa3ToCjU8FZvERZnZhFNvIB2+ +v12quvU5F+2mxeylcejQs/zLbYNMLnJuSOK5kEgH9lyFpGwpF70+WOS2pZYO +G+suPnX5xkWxKR0OJXV0mA/jP8HXxkUBPIus9b/QYW2i3YbIdi4yernD6NRX +OhSMRq/I7eKiXqH3G2/30EGmtD+28wcXCXyu7xubpkO5mbVKwxgXHTP8dSRT +kgFw6NFdrRUUEkrmnRORYUBkRJqmBz+FKngk4tzkGHCCFkHLFaCQ0qvDgyrr +GfBpkfipDSsptFzsrU/uFgYEWscenBehUG5/TMrr3diKNcn7xSjktDPfUHwf +A4yLohScxSkkHfNl3FufAVUfClpC11AozEhgOzJiQIWT+6NKSQqdznWvf3OU +AYSvWq2sHIVo/sb/VTgxQJT1crG/AoU+dDg/WevCAJc6Xr+gTRTyUQ/WDTrH +AJ3uGvHgzRQaGCgN33eJAZ/zTkcGKlGo7NAm2eqrDPjzmh3iqEqhc5IrDOo4 +DJjLGyxo2kahT4XFj1rzGPAoojZcRY9CoiIJeoqFDOCViEmbxLa3D5nyK2JA +Viu7K1ufQrx0M8NNZfj5i7fdFQwopO48OufzkQHXT047LDOiUJykrDm7gwGm +b8zzzQ9T6M8l/hWeXQw47/40/S/2tpqR7NpuBnQ+D3zx2JRCzVeKBK/8ZEBt +nFfR1yMUEmwwff1xhAGWUe6iascodMn/hug5XgIsG2na4Scp9LbVpfLdEgLs +eXVOClvg/VI2dWMtJwCGnnpFYD/vkP74VpCAry9C00IsKdS19bUHg0HAvbKo +RjtrCimExbEdSQIeXxWv/Yrt0RtUX8IiILV7oHTfKQrRIw6vPyNBwHHruWAZ +Gwrp/R7+WihPwE+rXcnFthSKhEZ/oQ0EmK6xNpY8TaHee4VKtgoEVP4WHLuK +fXVn0I2VygSweAuWadhRKPuhlIaVFgGJDS5+HHsK8Ywv63ulTcAqg+HCHmzD +fcO3+IGA+AznbuUzFPo1WfAraxcB165vn/mALX7AJGqpIQHRmZW63Q64XiKT +ZkONCFANKtWXd6TQoq4ZS7oxAU7NNe2O2L2usetkzQiolXJ7OoBtmj8R+vwY +AdV+2Y1rnShUybN3TNmcAC1l8wgr7Gec4QIdawLOBO6Mq8EWa9WRqLIhQDpk +y9Rf7DCZu9eN7Ajw4vz5vPksXs/p18/mMwS8fdigZI59Lltrv4UTAZ8/bCOD +sLtnwzJ+OBNQZXHjega2iW43zfkc/r/fkG5N2OpNQe1el/D+qV5vYznj9de0 +6fBdIeBNhfRhDWwxu82JIZ4EzMuGHTiMHZZ+jX/1vwQQZ9d/dMb+O93oHO1D +gGe3eaU/tiusa5C6TsD1P+E7o7G7g7y2pvgTQMmtQ6nYJnW1DxSDCPiBbucX +YlcwZRblBRPQKqGR+R5b3fqSDQolILcuQL5hIc+zqvcV4QSsDOkXbV3IMy6m +YMghoP15bUgXdqiWa0TjHQJGi5Mv92DPX387eSKSgHCPvo4Fu1YzjvXeJ2Ci +dLr0+0IemkOx40MCep4cEm9fyGNeJD3+iAAZU4fxxoU8CUKBHrF4Pb3sHdUL +eYZPDfDEEyBHS+IvXcijlnvgRiIB/3oU6L3EFr3Kny2UQsDB83aLn2DfrDQn +o54TECYpr3RzIc+ql14Safg8fLvcdHEhjxnf98QMAthyDaMnFvI8OaK7KQvX +T17uNZ2FPP3PUl69IuCvZ3yQzEIepfl/tPMIOBTC5OVdyONx8Hx5AT4/W6JG +O/H+pZTFN+kX4XqbjDMuwGYJcDUbSgjg8S+S52DfNNZ/fKyMgMwPTq522K69 +o3ZnKglYLfX0MP9CfWzUrR6pIkBZQHOsGdeXycUoRfdqnNfC/28c9taliAqo +IyBN/7SDEnayIcd85RcC/nOlV07gemZF9r2520TADCuV8wp7fu3N4PhWAo78 ++/nCZmxX187hDR0EnA/wDf6Fz8v3PGXjrC4CQl5a/vMYu3zfV9GyPgJKg+bM ++LBDHNkvOv8QsLZ4x2w6Po+fXrmVaI3h82jWHH8MW2jRm7rICQLO/uH/hxf7 +3p3jUwcoAiYFV4sa4PP9pOgWKl1Mgkv0VrkK3B+6l3UcFFtCwjBpWHYSW+7Q +Bhv3ZSRE88eLTeJ+8uzHuyBFQRLWuo8sE8XOXvVf3RM6CedmXF7q4340dXRv +7yxBgtNIp2K9FYU04u9OmbFIeOPq5GiKXayuKCosQUJdTquQGe5vVVa2Nr7y +JHy6ZMAA3B87smqnrLRIWBl0oSXuKIUk58VWFGuTsDPn9RAf9qm9DqIsICHB +/HaBjRnuN218UL+LhEmj9R7iuP+OL9G8scOQhLmYXyFuJvh+M4sXlbEiYYOy +3JeXhrgfxo0qXD1FwlaROIM/uP+HDm6HVlsSDvEQXuuxRXy/2tx2IKEg3Hb6 +Pr4vxJ+tTOO9QIJDzRYb870UUp51h94AEhKp4vmLOhS6r75FwO0GCY8i/VQ8 +AfeXi0ONPDdJaLeMz/FGeD+GrBwlIki4lv/gsYc2hRw79e4de0DChUDTxSYa +FIovExv8nI7ff3nbvJ8ihQT+NuVYZJJgcGtg7CS+D89rRfgOZ5OgvC1KWQ3f +l5C9hBAsIOGxW9Wdtg0UaksY1tlTTkL/wLfe5Wtx/79RGlnUQkJWdUZBJ76/ +vd55WO9vJUHwkJtjmCjurzyqCq3tJBgy3Ow1WRTK9Egp43aTsGTttT3BBO7n +TpyhLUMk8FhEPFyB54GAAzY7n/EwoWSr/+uApRTi0pf/ubeeCel7KgY8h7ho +yjC0lKnABLJFXqFtgIsmA0U4DzczwWVmrkXjNxeNUWKqcSpMSLWfdh3C88tg +u5Lni+1M+K2llKKK55uuhOPLyg8xgQpQuKxXz0XvVdMlRj3w83KCaYHZXFTh +rDLq5s0En9sKNXfxfPUuKb9s6ioTNPLaLGMzuKiMWW4768eEX+DxMyMVz1tz +Lc+XhTNB21HY+yWe5zLeLVZf85QJKQJJ8hp3uOj+YVMj/Y9MiLK9nWd7jovs +bzXWxtUwwUD2rokenh/VP5ocmKnF76P3t2Ijni+bwNgw5QsTLh+sVxywx/Pk +RqP9yzqYcCtJQM7QkotuLdbb+3aECTof3KZTDfE8l64NWgwWsCz3pNet46IL +K+QUN1ixYLxr3Z3Gr9PIXk3Y/tUpFhTsns2faZpGJ07NPUanWfBcq9tb/Ms0 +2lXUuMrEkQXNEqjn+KdptPpcwB+viyyI7mzUel02jTJbfqZ9usGCXXYfegWe +T6PRpGcK5zNZYBwuazR0ZRo571bckM8rCndORBcOCU2j2OnC+PMPRGH9bEy9 +jdoUGlfy0/iGxKA84PdLg42TSJIj4LvzuxhIX1KLebByAgWcXr2n5bI4DNvu +/aQ6PoYEyo/Ii4quAd0HiY2srFFUdVcs6EbWGpCV+Mmj6TuCrEOfRFN7JWBM +wXnVvcRhxFpp9Z4YkAD+d/3rpMQG8Xx7sEBRRxJ8Ti+V0qjqR+Glqx5tvC0J +l3xjCfLoT+Qvsul4So8kJB+z1Dy9qg9FPbrZXLhJCnppkzlBK3qQpssNKzkf +KeA9+6LTYKYLUVcqnslWS8HVCRPhVssOlECcqolnSEP2NadRS6lW9J2KmfO0 +k4Zgjnh9eV8z0mAwh35lSsPRHZmy6exGJHVZ+Xcqnwyw8g8m+l6sR2yRm4lL +D8rAt/HZH95bPiMSdLd9fyADCa9OZ4SfrUbRmQ87RYZkQHCm3VIi8j1St1DZ +8U1dFgI3VV6wcnyHThs5ZHKDZQGa7Dl+NmXI98vf/yJbZeFfYT+DjsgSlM9p +5Kthy0GJ+czTuGOFyOfuPtGj7nLQ1yX5b4tZLrKpnxvxKJeD7UYC0f7MbKQa +J/xEfBUbfNY0S0cZv0T3ct6eICzZMDYv8irg/AtEW5LTkvicDald86F3d6Sg +1tjt2txUNph33/uqqZSC4rZXxu5LY0NfzZzdgEQKUnRvcRjMYINKQoOy81wy +2j8wM6uUwwYu5+Z7Ki8ZXa9DUkWlbOgv+aQto5yMxmKqzjQ0siGU9mw7Z2MS +ytc89Em2GTuj5fBtsSTk0/xN+VILG9a73+l+JJiEVgoP/ke2Yp9r2dk4mIjW ++a0MO9nFBu8ObffiF4nI0sE4s/83G0xky/d4KyWitcvaGFqDbChkHP0iLZ2I +hp/aeN4cYkN6vNOFepFE5NV+cdfmETaID000HZhIQFFGUU0XJtnw3f2Sd1lu +ArIYktSqmGKDfELzXG5yAmIHpzwmuGzQ9a61yr2fgLLfFtgXzLChLqrydYNn +AvK03FkjMMuGWbfRpBGnBLRj7qOS+RwbiuSXWBAnE9DyaJN7afNskOlZ07bn +QAKqVWuf+fuXDR9KzZnXIAH9D0OxaNI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlnk8VVsUx4lKeIXuvefci8w3DQohQ9pL5VU8UiQNMkSEUBpkeFGmCLkN +pFRkTggZMySRIiFDGTO8kiGzezz09vvjfO5nfe4+e/3OWt81yNi6HbJfxsPD +s4Cf/39tOfqCPDwiYLg8pS6sbxKVl6UFlN8TgdfoDmT4TyGdCwYsJW1R0N2V ++zZWYxqNxzlvqW4SBZdSz6b8gWnkN2o4Y+0oBhYb96cqRs2grdWObWmCa+E1 +71eVjQaziFy7QnNdwlqIiFvHzB2fRdJDPbnwJw12TATIn7k/h/gGPfvsvtPg +jzPvbN8rcZHUYU5kni8d1vQ7hfAnctEx4x9HcqQZAIce3dVZRaGPJWWPOgoZ +8CiqIVLNgEKSB8xiVhgTEJtTo9/nRKEwZ/bznl8ErC/btZDlSCHVBU8YCCIh +mSpbuqhHIS5d4Ne9jUzI2ls97D3KRfcPm5sYfmBCjP3tQvtzXHRhlYLyJhsW +TPVuuNPyZQ65/qm8qYhPHO6ciC0ZFZlD8XMliecfiMPGhbgmO41ZNKUSoPUV +SUBV0M8XRptnkDRHyH/3NwmQvaQR92D1NAo6vXZv+2VJGLPf91F9ahIJVR1R +FBdfB/oPkltYuROo9q5EyI3cdSAv9Z1X238c2YY/iaX2ScGkkuuae8ljiLXa +5h0xLAWCb4c2yEiMoCDeg8XKetLgd3qFjFbtEIqsWPNo821puOQfT5BHv6NA +sS3H0/qlIfWYtfbpNYMo5tHNtpItMjBAm8kPWdWPtN1u2Cj4yQDf2ec9RvO9 +iLpSnS5fJwNXp81EO6y7URJxqj6RIQt511wmrGU60DcqbtHbQRZCOZJNVYNt +SIvBHP2RIwtHd+XIZ7FbkMxl1Z8Z/HLAKjqY7H+xCbHFbiavOCgHX6cW/vHd +9gmRoL/j2wM5SHp5OjvybB2KzXnYIzYqB8LzXdZS0e+QppXarq+a8hC8peaC +jfNbdNrEKYcbKg/Q6sgJsKtE/p9//xvdIQ9/iwYYdUeXoyJOC389WwHKLeef +JhwrQX5394sf9VSAwV7pv9stCpBd0+K4V5UC7DQRig1k5iH1BNEnkmvY4Leu +TTbG9AW6l//mBGHNhsklsZdB558j2vL89uRnbMjoXQq/uysNNWh0zf/+zYb3 +FZbMa5CEbqVerrEyFAGNCoFfAipTSDRuedFNVTqEsrLTHjlz0auDpR7bGuiw +ufHiU7evXEQLNP232oUB4qwXywKVKHQp8Ib4OT4CrFtoupEnKWRmWSo79YgA +OXOnqRZXCnXnNsza6JCwOuRCe8JRCtFvVESXtpOQW5dd3CNBoXfqWVITXkxw +UxDODM7joqAsXdBhsIBlvTercQMXTaSkK53PYYFppLzJ6JU5NBlXe6a5hQ3h +tPSdnM0p6Epc948sBRGw1zAr9V81hQT1yuu5wnR46ynSd9SIi1ybU3gvJNOB +vVgtLV/BRQVDcWmv/mRAsHJ96l/Yf4K0vCW7mwHmry2LLA9TSLM1pMvnEgGO +6tc7WVh/3pp/G5/QSTg37/bC0JZCiZUSI5+ySPgo0LkUoEyh3qTjK6sOMYEK +Urps0MRFt5YZ7HszzgS99x5zGcZclNP+PfPjDRbscXg/IPRsDl1vRDKlFWwY +Kv+oK6eaikjKMFHagg75RjbVwSFcJPSpaXByjg5VFrZqzZNcdE56lVEjhwGL +hSPFrTsoZPBz7EuJIgHfbfakltlTyH1gwuFMDQFrZZ4eFjxLIQGLRHE5GxI2 +qSp8fmFMoaADdrvTeZlQvj3wVdAKCmW/Xaa57ikT0oRSFLXucJG1k2nO0E82 +mMlX7fVVSUZjBIdqExMB0QflitMzk2jFWon2LfM0OJLf7lCsy0V/0uL20Th0 +6Bf4fNsoh4sEJN74FWzD8bSNP7gkhuPnOrHo94EB10/OOa00oVA6Z6xYz5aA +M8G7E+pdKPSk9BaqWEaCW+x2hWqs37nH4N6xByRcCDZfZqZFoZEuFe/nO5nw +U0clTb0X87bZ5K+V3Uy4lSKkYGzNRWvPBf3yuciC2J4WnVeVc+iv4fkFlXw2 +cDk331GFqYj2ITXTXJ8OqibMYuTFRQMi7zbf7qeDXMVQfM8/XFR5aIt83VUG +/HrFDnNWx/nb/sqLwSDgXmVMiwPOb9+TI/pbcglQLyy4pofzP7Vc+8YuYxIW +436EeZhRyNiFM7ptlAReq6iHq/D3vlpsf7Yykgm6zqK+L3A/3xCwOuJkLxt8 +u3U9y54no9MFnk2vjzKA8NdokFegkHCz+asP4wywjvEU1zhGoWqmHE9hKAEd +Ulo577C/Wht7O39FzNclIwbgeupMGtPbW0XC0PDXAYH1mMeHMlo2OgQkN7sF +cHD/X1p/MzSxg4Ajf3+6sNUZz4v01Zl8F0hwqt9mZ7mPQjEmMa0XZtjwzfOS +b2VBElJsGeZ1WSUCPS0cfZ2RScTvY9BVO06D/ipDszp1zGse4TIQTIdvb1ao +b3/GRSovD4+obWTARx7JU5tWU4iPbmG8pRLzePG2p5IRhQbc4zfIWxDQIOPx +dBj7v3fn+OwBioAZ4bXiRg54no3aOEtFkXCt6MFjL10KTVIS6glqTMhwnHMf +xfloBVPjtM9MuHywSXnYkYv2lLasMXNmQZsU6j/+cQ4pe7Y7jWSzQS2pWdV1 +MRWJqbXlTujQ4U7tovL8eS4yebHL5NQXOhRPxK4qwLwMD1dE7r/EgE+Fp6OD +VSj0rFv2wxthAr48D88Ms6aQ+FXBPJE0Ag6ed1j2BMf7Ryc/NO0hYcZko5fk +EQrleKVVcvtIWL7+2t5QgkKVzCr7hQAm/ACv79kZXLRadORfsoMNG8+1724Z +SUYRJkI7kQkDql08H9VIU6jtSqnwle8MaEjwKf2C7/s91+Ia60eAd59lTSD2 +V6apLC4qRUJjfoeIBdYDecsJ4WISHnvU3uncRKGru0NurFYlgMVXvFILx2/7 +CkQFNRKQaXjaSQXXj5j/F7vbTiQUR9rP3TekkE/XxT1bx9kgOTrdemA6CZ3L +0/nLyoWAT+93kCG4H6T/8zZEWZiE9Z7jK8XtcP+NOrzxjBQBx20XQ+WwnVaZ +2GpYSoDLTIJpMT4fruMe1XKHgImy1Mv9/8dnpvhH7h4Crl3fOf/+DIWq9n8R +rxwkoCJk0YIf7yN5b4odi+fZ0BhT86rZOwm9zSVX5POLwO5m5jHb75MoIPub +FTFCg5Dt8031Klz0g7/Ft+4aHXrDjU/Fp3BRNa9UgocCA07QomgFQhRydAyb +DShlQG4HuzcPfx9P77w13RTra6vvcsZ8ifC8boyeJuDsL8E/+DD/PBdHW3hv +ktBlnZjviyg0EyzGebgVz5P5xXatn1yk+cHswHwDE0iD39Wbz3LRiVOLj9Fp +FjzT6fOV/DyHEnbWxO/PZMNg/aLDsFQa4ji6aqDtdMj9Pqx4wA3PI14eW8PP +dFif7LApuouL/DRD9UPOMUCvr14ydCvWo2ruwRIgAEaf+kRZ4f43dmqYN5EA +BVqKYAWO36l9TuIsICHJ8naxnQWuF151pY4uEowZHo7aLAq9TSmqnL3KBK3C +Tuv4bHx/21fVS+2YL887fY+EU5Bs3OcpX0MG1L4vbg9fR6Ed9eN5DX0M6HkW +/PyxOYUkHLYmh3kTsCQfceAw9qeVeHfWgkXCa3cXZ3MbCp3XifIfyyNBdUeM +qsYW7P9eiYq9EgE1P4Unr57G8/pijLJnHdZvFfg7AfMVPrITOuxJOMRL+GzE +9T321M775igbshJdLjSJYd7l7l43cSDAh/Pr01bMi8KhTXaeK0mIFUyUmME8 +eQ2ENJWzCMjoG67Yfwr3N5WlP3QLCTgUxuTjw/rS02vfVUcSsDpsSLwD28b7 +x24JAgGJ2a59qpivb4Wqprm9BIS9sP7jMeaLHZr2mOCyQd+3wabgfhKq4d03 +qWpJgI6qZZQN1ru05oWPVCbW//Vy60V8X1+Iz/a0QAIohQ0oA9us6MHXd1sJ +mGdlcF5ifsz0+2iu5wh4/Jr0aMX6b5oaPj5WSUDOexd3B2y71zGODdwnYLpi +ruIbfn/X4gcVy0U2lCoutyJOJiGa3FaB48vwvlToWDM7MImqDJRkyoZoEHt0 +W2HdVi7if54bBH50oKlZtjYncZFIKt+imBwDoqMytb0Ecf8RSzJQLmEAn1Rc +5gze7yOiUxbCTfC8CakwVMT6Pr70KNeZxPGwaEs8hvm+r7lNyOMGCY+iA9S8 +gUKzxuEVTCXMc7uiUucwFzneamlIqGeCkfxdMwPMq6OGqOPLUywo/nOhaL51 +DnXE79TlZrDBsu/eF22VNNS0rHhuUI0OqW0Z0ZdxPcSndTuVN9JhKULwBH8n +F73vdn2y3o0Bbo18ASGYlzcdbjVvl+N9iE/vpCjmuzpJJNgrHufPIG9XHY6P +9JLEqjJdEnbnvxrlx/udz1sv2786SBA+5OEcIY7Pu6pNePgywe+2Uv1dvC8U +aR/6KN+G97fs9sO3JVKQy+4iY8n9DDAtjVFylaTQr0uCq7x7GXDe82nWb7yP +pa/r1OO/QsDratnDWtjf7NF9AwsECS7jPcpNmG+h3635VjkkGN0anjyJ6zEa +WgJFNhFgvs7WVBrz3bdZv268lgBVIe3JNsyLQcKE0tVTJGwXSzD6hflev7KT +oTPChhLG0c+ysslIokNPqtaOANmwbbO/8fm+ld0HJZaTMEYaV57E+4pSRALb +mcT8XJVs+IL3BbOh9LSXLwn47Z0YIof1adpeskPhBBQ0Bik2Y5t3auXgS10C +1hiNlfTjfLq794xt6ibgfJB/6A/Mt9WotE71LBsUk9oWC1KTkHnRdPizYwTU +BeS1rMf+b9ZYkjHPCIiQVlS5ie9zhw3NMtcJuP4rcncstlONOZarPxPwrzu9 +Zhrz07cQkf2PKwG1VjeuZ2OeWUJc7eZyAngDSxU52F66/mbmRDQBkV6D3f/3 +d2/r3fVCC2xY8JhIGXdJQukaBQduJBPwt1exwQv8f0TWNcG1fxNAnN34wRXb +PC4/vredIeDNw2YVS3yfptfB81XFeH/aFjPRg22JKQklYw4BXc8awnr/12vB +/y05mwC2QvPECWybNTY8UA4h4B90u6jk/3qlOZU5PySg/8khyS5sC8Sa3ctc +YoNc/7rOvQeS0H+9eGjS + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 198, 152, 114, 84, 63, 51, 2, 3, 4, 5, 6, 7, 8, 9, 199, + 153, 115, 85, 64, 52, 210, 164, 126, 96, 75, 10, 200, 154, 116, 86, + 65, 53, 211, 165, 127, 97, 76, 11, 201, 155, 117, 87, 66, 219, + 173, 135, 105, 54, 212, 166, 128, 98, 77, 12, 202, 156, 118, 88, + 67, 220, 174, 136, 106, 55, 213, 167, 129, 99, 230, 184, 146, 78, + 224, 178, 140, 110, 233, 187, 149, 13, 203, 157, 119, 236, 190, 89, + 228, 182, 246, 144, 240, 194, 68, 221, 175, 245, 137, 238, 192, + 250, 107, 232, 186, 248, 148, 242, 196, 251, 56, 214, 168, 244, + 130, 237, 191, 249, 100, 231, 185, 247, 147, 241, 195, 79, 225, + 179, 141, 239, 193, 111, 234, 188, 150, 14, 204, 158, 120, 90, 229, + 183, 145, 69, 222, 176, 138, 108, 57, 215, 169, 131, 101, 80, 226, + 180, 142, 112, 15, 205, 159, 121, 91, 70, 223, 177, 139, 109, 58, + 216, 170, 132, 102, 81, 16, 206, 160, 122, 92, 71, 59, 217, 171, + 133, 103, 82, 17, 207, 161, 123, 93, 72, 60, 18, 208, 162, 124, 94, + 73, 61, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, + 209, 163, 125, 95, 74, 62, 218, 172, 134, 104, 83, 227, 181, 143, + 113, 235, 189, 151, 243, 197, 252, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11.5}, {0., 1.5895727831736257`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF0YB/BEG95CM3PvDLJPWhRClnQelRYiRdIiS0QIpUWWN8oWIdNC +SkXWEkLWLEmkSMhS1iyVLNnN9aL3+GM+8/n+cef87pznPOeRsnY5ZLt40aJF +s/iz8G3N0eVftEgI9JckVYd0jyGazOblxxcLgVqefeVU7xh6l0UuzeETgp0N +zGPWP8eQfOMAj9MKIehs5OhqDY6hYYJDNYsIgfCDEvmJyTF0JabjV7qcENiq +mRT5rhhHt5IvV1ro498rXf5nudI4KilO8Su5JwRv0B1I9R1HWhf0WAqawqC9 +I+tdtNoEGolx3FRRLwxORe71Ob0TyGdIf9LSXgTM1u9Llo+YRJsr7JtT+FfD +G55vSuv1phC5eqn6mrjVEBazhpk1MoUk+zuzYDcNto36yZ65P414+9y7bX7S +4J8z760/KHBRuZ6CVHE/DaKPbsmr3sxFfhnfLYhBGgRtnamvUeIiPi+99qoR +GvSU65tUq3LR0tViLZtmaHAkp8WuQJuL+HVKariCdHjnLtR91ICLhGOW5N9U +pkMwKyPlkSMX1S8umO5ToUNyc2rk5bNcxLF3VkNb6ZD1c0D+gAsXiag0Z41q +0eFO1ZzizHkuon1MTjPVpYOyEbMAeXARSenHS5rRIcfAqiIwiIskDnPCs73p +sKrHIYgvHud7kRUAPnSgqZg3NSRw0S++Ru/qa3ToCjU8FZvERZnZhFNvIB2+ +v12quvU5F+2mxeylcejQs/zLbYNMLnJuSOK5kEgH9lyFpGwpF70+WOS2pZYO +G+suPnX5xkWxKR0OJXV0mA/jP8HXxkUBPIus9b/QYW2i3YbIdi4yernD6NRX +OhSMRq/I7eKiXqH3G2/30EGmtD+28wcXCXyu7xubpkO5mbVKwxgXHTP8dSRT +kgFw6NFdrRUUEkrmnRORYUBkRJqmBz+FKngk4tzkGHCCFkHLFaCQ0qvDgyrr +GfBpkfipDSsptFzsrU/uFgYEWscenBehUG5/TMrr3diKNcn7xSjktDPfUHwf +A4yLohScxSkkHfNl3FufAVUfClpC11AozEhgOzJiQIWT+6NKSQqdznWvf3OU +AYSvWq2sHIVo/sb/VTgxQJT1crG/AoU+dDg/WevCAJc6Xr+gTRTyUQ/WDTrH +AJ3uGvHgzRQaGCgN33eJAZ/zTkcGKlGo7NAm2eqrDPjzmh3iqEqhc5IrDOo4 +DJjLGyxo2kahT4XFj1rzGPAoojZcRY9CoiIJeoqFDOCViEmbxLa3D5nyK2JA +Viu7K1ufQrx0M8NNZfj5i7fdFQwopO48OufzkQHXT047LDOiUJykrDm7gwGm +b8zzzQ9T6M8l/hWeXQw47/40/S/2tpqR7NpuBnQ+D3zx2JRCzVeKBK/8ZEBt +nFfR1yMUEmwwff1xhAGWUe6iascodMn/hug5XgIsG2na4Scp9LbVpfLdEgLs +eXVOClvg/VI2dWMtJwCGnnpFYD/vkP74VpCAry9C00IsKdS19bUHg0HAvbKo +RjtrCimExbEdSQIeXxWv/Yrt0RtUX8IiILV7oHTfKQrRIw6vPyNBwHHruWAZ +Gwrp/R7+WihPwE+rXcnFthSKhEZ/oQ0EmK6xNpY8TaHee4VKtgoEVP4WHLuK +fXVn0I2VygSweAuWadhRKPuhlIaVFgGJDS5+HHsK8Ywv63ulTcAqg+HCHmzD +fcO3+IGA+AznbuUzFPo1WfAraxcB165vn/mALX7AJGqpIQHRmZW63Q64XiKT +ZkONCFANKtWXd6TQoq4ZS7oxAU7NNe2O2L2usetkzQiolXJ7OoBtmj8R+vwY +AdV+2Y1rnShUybN3TNmcAC1l8wgr7Gec4QIdawLOBO6Mq8EWa9WRqLIhQDpk +y9Rf7DCZu9eN7Ajw4vz5vPksXs/p18/mMwS8fdigZI59Lltrv4UTAZ8/bCOD +sLtnwzJ+OBNQZXHjega2iW43zfkc/r/fkG5N2OpNQe1el/D+qV5vYznj9de0 +6fBdIeBNhfRhDWwxu82JIZ4EzMuGHTiMHZZ+jX/1vwQQZ9d/dMb+O93oHO1D +gGe3eaU/tiusa5C6TsD1P+E7o7G7g7y2pvgTQMmtQ6nYJnW1DxSDCPiBbucX +YlcwZRblBRPQKqGR+R5b3fqSDQolILcuQL5hIc+zqvcV4QSsDOkXbV3IMy6m +YMghoP15bUgXdqiWa0TjHQJGi5Mv92DPX387eSKSgHCPvo4Fu1YzjvXeJ2Ci +dLr0+0IemkOx40MCep4cEm9fyGNeJD3+iAAZU4fxxoU8CUKBHrF4Pb3sHdUL +eYZPDfDEEyBHS+IvXcijlnvgRiIB/3oU6L3EFr3Kny2UQsDB83aLn2DfrDQn +o54TECYpr3RzIc+ql14Safg8fLvcdHEhjxnf98QMAthyDaMnFvI8OaK7KQvX +T17uNZ2FPP3PUl69IuCvZ3yQzEIepfl/tPMIOBTC5OVdyONx8Hx5AT4/W6JG +O/H+pZTFN+kX4XqbjDMuwGYJcDUbSgjg8S+S52DfNNZ/fKyMgMwPTq522K69 +o3ZnKglYLfX0MP9CfWzUrR6pIkBZQHOsGdeXycUoRfdqnNfC/28c9taliAqo +IyBN/7SDEnayIcd85RcC/nOlV07gemZF9r2520TADCuV8wp7fu3N4PhWAo78 ++/nCZmxX187hDR0EnA/wDf6Fz8v3PGXjrC4CQl5a/vMYu3zfV9GyPgJKg+bM ++LBDHNkvOv8QsLZ4x2w6Po+fXrmVaI3h82jWHH8MW2jRm7rICQLO/uH/hxf7 +3p3jUwcoAiYFV4sa4PP9pOgWKl1Mgkv0VrkK3B+6l3UcFFtCwjBpWHYSW+7Q +Bhv3ZSRE88eLTeJ+8uzHuyBFQRLWuo8sE8XOXvVf3RM6CedmXF7q4340dXRv +7yxBgtNIp2K9FYU04u9OmbFIeOPq5GiKXayuKCosQUJdTquQGe5vVVa2Nr7y +JHy6ZMAA3B87smqnrLRIWBl0oSXuKIUk58VWFGuTsDPn9RAf9qm9DqIsICHB +/HaBjRnuN218UL+LhEmj9R7iuP+OL9G8scOQhLmYXyFuJvh+M4sXlbEiYYOy +3JeXhrgfxo0qXD1FwlaROIM/uP+HDm6HVlsSDvEQXuuxRXy/2tx2IKEg3Hb6 +Pr4vxJ+tTOO9QIJDzRYb870UUp51h94AEhKp4vmLOhS6r75FwO0GCY8i/VQ8 +AfeXi0ONPDdJaLeMz/FGeD+GrBwlIki4lv/gsYc2hRw79e4de0DChUDTxSYa +FIovExv8nI7ff3nbvJ8ihQT+NuVYZJJgcGtg7CS+D89rRfgOZ5OgvC1KWQ3f +l5C9hBAsIOGxW9Wdtg0UaksY1tlTTkL/wLfe5Wtx/79RGlnUQkJWdUZBJ76/ +vd55WO9vJUHwkJtjmCjurzyqCq3tJBgy3Ow1WRTK9Egp43aTsGTttT3BBO7n +TpyhLUMk8FhEPFyB54GAAzY7n/EwoWSr/+uApRTi0pf/ubeeCel7KgY8h7ho +yjC0lKnABLJFXqFtgIsmA0U4DzczwWVmrkXjNxeNUWKqcSpMSLWfdh3C88tg +u5Lni+1M+K2llKKK55uuhOPLyg8xgQpQuKxXz0XvVdMlRj3w83KCaYHZXFTh +rDLq5s0En9sKNXfxfPUuKb9s6ioTNPLaLGMzuKiMWW4768eEX+DxMyMVz1tz +Lc+XhTNB21HY+yWe5zLeLVZf85QJKQJJ8hp3uOj+YVMj/Y9MiLK9nWd7jovs +bzXWxtUwwUD2rokenh/VP5ocmKnF76P3t2Ijni+bwNgw5QsTLh+sVxywx/Pk +RqP9yzqYcCtJQM7QkotuLdbb+3aECTof3KZTDfE8l64NWgwWsCz3pNet46IL +K+QUN1ixYLxr3Z3Gr9PIXk3Y/tUpFhTsns2faZpGJ07NPUanWfBcq9tb/Ms0 +2lXUuMrEkQXNEqjn+KdptPpcwB+viyyI7mzUel02jTJbfqZ9usGCXXYfegWe +T6PRpGcK5zNZYBwuazR0ZRo571bckM8rCndORBcOCU2j2OnC+PMPRGH9bEy9 +jdoUGlfy0/iGxKA84PdLg42TSJIj4LvzuxhIX1KLebByAgWcXr2n5bI4DNvu +/aQ6PoYEyo/Ii4quAd0HiY2srFFUdVcs6EbWGpCV+Mmj6TuCrEOfRFN7JWBM +wXnVvcRhxFpp9Z4YkAD+d/3rpMQG8Xx7sEBRRxJ8Ti+V0qjqR+Glqx5tvC0J +l3xjCfLoT+Qvsul4So8kJB+z1Dy9qg9FPbrZXLhJCnppkzlBK3qQpssNKzkf +KeA9+6LTYKYLUVcqnslWS8HVCRPhVssOlECcqolnSEP2NadRS6lW9J2KmfO0 +k4Zgjnh9eV8z0mAwh35lSsPRHZmy6exGJHVZ+Xcqnwyw8g8m+l6sR2yRm4lL +D8rAt/HZH95bPiMSdLd9fyADCa9OZ4SfrUbRmQ87RYZkQHCm3VIi8j1St1DZ +8U1dFgI3VV6wcnyHThs5ZHKDZQGa7Dl+NmXI98vf/yJbZeFfYT+DjsgSlM9p +5Kthy0GJ+czTuGOFyOfuPtGj7nLQ1yX5b4tZLrKpnxvxKJeD7UYC0f7MbKQa +J/xEfBUbfNY0S0cZv0T3ct6eICzZMDYv8irg/AtEW5LTkvicDald86F3d6Sg +1tjt2txUNph33/uqqZSC4rZXxu5LY0NfzZzdgEQKUnRvcRjMYINKQoOy81wy +2j8wM6uUwwYu5+Z7Ki8ZXa9DUkWlbOgv+aQto5yMxmKqzjQ0siGU9mw7Z2MS +ytc89Em2GTuj5fBtsSTk0/xN+VILG9a73+l+JJiEVgoP/ke2Yp9r2dk4mIjW ++a0MO9nFBu8ObffiF4nI0sE4s/83G0xky/d4KyWitcvaGFqDbChkHP0iLZ2I +hp/aeN4cYkN6vNOFepFE5NV+cdfmETaID000HZhIQFFGUU0XJtnw3f2Sd1lu +ArIYktSqmGKDfELzXG5yAmIHpzwmuGzQ9a61yr2fgLLfFtgXzLChLqrydYNn +AvK03FkjMMuGWbfRpBGnBLRj7qOS+RwbiuSXWBAnE9DyaJN7afNskOlZ07bn +QAKqVWuf+fuXDR9KzZnXIAH9D0OxaNI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11.5}, {0., 1.5895727831736257`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9, {3.992486680313554*^9, 3.992486686904216*^9}}, + CellLabel->"Out[71]=",ExpressionUUID->"87d3b4b0-98e4-4ef0-9a01-f6ccf106ba87"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0ld0XB3BDhrglXjTI2PM8V1GZS4O9jSFkzhBKEZI5GctwXSFDShki +XmUoZXhDrgYVJUmSSpmHCJGxNP/u74+zzvqsddY563zP3kfW1dfSjYuDg2OR +Pf4/vzydy8PBIYWf+rjaDEOm4dYh8xIjTikcHz596djJaUjR5d57nksKzfra +PiUHT4MJn2caxSOFN0TnZV8FTUNLipqEqYAUSvM+GrPwn4bG3OdK2aJSmLsn +8+wur2moq//uqLZRCp8q70q97TgNhd9sqjwspTClV+K57O5p0HN+/enBDSnk +3ry103V+Cp58PRCh8FcKM9V+FJpfnYK263HUgrk0OnwSKeM1mYJ/TQMdbpRK +Y2P7WF5j32ewkzs+GfxLGquGbM3rvT7D1JxY7BoFGdQvGvXh6pkE/6FGCWK/ +DB45ox2yavckjE58H9KMksH8FoVV5y5OwEMv4S9PymTwHE/n8brWcUjmLt/o +/FYGuXPxlPrPT7B+0+UvG/7KIP2UQ7712k8g3Hzsx0EFWey2mbRcpI3Bt1MP +VUusZdG71J8x9Osj6N78XukeLYt3uRUqLB+MgKVndL3VTVn08uW3YQQMg6VW +6rzxW1mUsVcweKcwBHcST/vVccnhxgU/Zc/6ARCaWZRQUZTDJ2c5zk/c7oPW +VjOanL0corWE/tbybjDZ9i0e4+Rw3vqY011WF9xjkSqet+RwSozJvZbvLVyo +1pBd3s32J7EX/mqv4cCzF1r/LduA6hlt7lbV7TDmdXssafMGzFhzrVK5qxW6 +YiPfdNtvwMODhGeBSTOwqltn1WM3oNuZbZsnwhqBy+WPJV/FBtz0/Kv8iVcN +sOLiaeDr2YCkcm+zu0c9LB9lOgjzEKi/v9wy0bsGqGTeg4/ZHj6Z65RjVwN6 +aky3E7wEzp7c7c3Sq4GomDi/93wEOkZ9jpKTrIGvUgxmgQCBwZI+v7PaqmFo +f3SV8ioCJyr+9MmqVQPrWbiApQSBiin6u/yX34ZjN/1Y6coECszsFB7sroTP +3tc/bVch8ErH5dbDrZXgozgi3s92k8g/52bvVoLfjf2BCmoEejsZym3Jq4Tg +Ui3FRg0CLwsVD2w6VAlR12h5izsJTHcoyd0yXgEXckui7QwIDDdk6OzmrID7 +yQOGUo4EVtBMCp7ml0Fw0h7lh2y3zbUUMOPLYGvCrbVHDhCYl9YcZudTBvmM +iIlSJwK3921MU9tVBtHha86qHySQrlGx+0XXDdDzNH9p4kagMLe0cYjYDXim +12AT7ktgv2GhesDlUuj8ecW1K5bACL9v9T19ReAVu04+gUEg65apnXZzEXAI +ZkxpxhFo1aZpVVdZBIrrEkNymASOhK5XG2YUAWN7UIpzAju/9xamkopFoHrC +kDWSQiBNyHmXzKlrkD49IzybRWByhL0jTekqmA9qP1xeQSBn544ffc0FYBwd +XH6LbfPPAzNztQWgJ3sj16qSwLqN3xXEigtg2yHRsNwqAgtNeo0YcQUgNTiq +olxN4KWJNEmabgFMDiRdtWMRWDm45WtdQz4wB97EFzcSGLA0syrn7BW41+9p +pv+ewJUfH/vfnMmBC8ur1i6xffMwS0LydQ54q/4Yuf6BwNMdoT9KqnNgXXxi ++KoeAq//0fojGp4DIVtulHT3ERhz3ffOTr4cUIn8zBUwQmDrZMdwBZENxet8 +a/O+ELg6dlNsYWAmnNKrjbGYIdC/fedbX/tMsPX5a7pslsByUfsKG8iEZY9S +RzznCDzz/nrRccFMcPWsEFZfJDCWzLVrvXoJ1t+ZPfb8Bzu/7p5ulZ6LcM4m +SGaJh8QfViX94k4Z0HopWPQKL4mH1XhLg/ZkAP+HEH4DPhIlAjgZo8oZcMo5 +cuY8P4mhyklbefkywOsos2GrIInhXj2FqlUXQCc08+DRVSTmjh621qRdgIXL +d/PfriOxluIhGW3pYDuyTLZ6K4n8tQOsN2fSoPmI2ks7Jfb+JpLq4iFpsOPj +4chfbPeL0Lzdj6aB1Oij97oqJPpp7u9RN0iDsbGo9A41Eps8651Tl6VByOQv +7hlNEnNctBN1+VMhe25hdJMeiTqR+gLv1ycDLZDIaGO71vG6wZq/Z+HUvJVu +gD6Jgb4F/YGDZ8F1oepKnQGJMe/qn54uOgsKX/3sDI1InBva9m5M+Szc/f75 +mZsZibyZPg4jpknQy/GxLN+OxLH6EdOprARQFJTfbmlP4sQ6mRXmkQkQIXbs +MbcDiRsimp62H0xg/7ez790d2feJkX2gIJ8ADla/eTc7k9hy/nip3p0z0HVN +7FDdYRK7peKNJ3rjodPYQKzDh8SB46HDe7SYQNgk5Mf6khjCSNdSJ5kQ5NKq +oO5H4qUe1o7dNCb8E2Spk+lPYnWdRsXlD3Fgmevs6xxE4mCvdMvFkDho/xL8 +bCKUxOb8gtZDdQx4fqE4kjuOxGiRvGvFprFwqvaqcinbXF8Eh7ZoxoLKh4KP +ZkwSdxyKutFCxEKm9GXT7HgSxU65Z8OvGHC/niapnEjiLr2S3vVlMcDVEHrP +OZVEy7GznReEYmDH5N7fdVkkRt0z3/5rJAqmVxhVumSTaCEy3TDbEQUFSgZu +PDns+orOzvzeEAX8wfjC/DKJD6R/zkBuFLzlUM8dyyOx4H7jsWu2URAgLrVb +7CqJ/7rLPkvIOg2l2jMRfrdIdDrM7H+SFAk7pjlWEuUkZtzR/O3sGQmt2cJX +3rF92K7dUnJPJEzPqzzUqiQxba6Pn8YdCSpFJ3hW3CaxTiPL+WZEBLAEfiaX +1pFoP84p0hccDq2vea4MNbLXFz/OmI0LBacocaWLTSQe4OzS4fMIhWlF+kOj +JyS+jpOI0TIOhVVMw+GKpyR+3SShICwUCtbbk+inW0h8esHDXjc7BHovr6qQ +aCfxhXuW3L2akzDtJvHQupvEN0zB4vV8wVBjbk/j6SHx8UDt35ypE3Bq56X9 +1WyT6R+qt3WegJXC/0yL9ZG4e3dY4+OCE7D1roDEuwESE36+11DQOgF+Ij+C +7EdJvDrlRElFBMHc/S5551kSNxeVWb4UDARWqXjQyjkS3YGPXrgYADEXrB/c +Z/tBOL07tT8ARLzabaQX2PntfxD6338BoCrWHDPwlURTrvEaGacACDpW2+P6 +i+2fjTURt/3h6+qLaUf5KDS07J9KCvIDOYmUZTR+ChOClP/JcPUDMylmSAXb +0WH7FCvN/aCICD74fTmFq9Nsp2U3+4GNsq1SEo3CMl4dw6cvfOG2sXj7LWEK +pRpc9MvrfSAg8qLQVwkKuxtonnxV3pAXlRKbvZ5CRUHNkdR0b2iJZX7TkqSw +M6SnVTPQG+QSg/vjpShcUrntMqvmDa8u2pavlaVwDgqHJuuOgVKF+L7dFIU7 +lezCZp95wfTQxRSGEoXGfBuWO3N6wpLvv/0ayhTeO/9WmzHsAZy/byqNsz31 +Ul30RZMHiK5u6jBVZZ8/unaqKdEDduydF1+tQaF84aSRubgHMP/bd6V0J4Vv +RSI5i1WPghSDv6LNgMKuOtFyZ6YbyAuLckbvodDjWfRAmrcbKOdJW6oaUpgV +y1ActHQDvTsaC5eMKEy0HU/ulnYDr89Hth8yoVBTQfaVav0RqLF+2DBvQWHP +zrICm2+HwZQMe7XGicLnoa0XTjNcgdUCex+wHUDrTKzwdQV5P54mN2cKc4Uu +mi05uAJXfdqdKhcKjwVb9T9XdoVa8+IrJq4UPjWXS4oaOASyEZ3Ho45SKJTK +zxDUOQSLHVsEPvlT6HTW2pNf7CC4hizEpgRQqK+nvW+U6yC0S7J+qwVSGPP2 +nFPFoAtc99CfjQ6i0KDvleCXLBdw+ePYJXGSwgOM9FQ9mgs825hQtC+CQiJ6 +fE5hyYnd4sM6tUwKm+3UozomHUHnyNtgh3gKk9dNaPW0OsLonmfXf7MtKCp6 +ie+WI2wRKhfRS6BQkjXPfOTnCA25YUPtSey8XW+nN31zgCGWcMxEGoWeKW2a +Q4IOQC3CQ8kcCjd//34jaa8dtHSpLDawffT11Eemkh343CU3HrlMoekw1/kr +YnZQGyt47nouhX9Jgxb5gf1gKPLu4LZ89vuWLpheCt4PXlt9OCyusetx20fR +lhJbKPe8DIxyCqXv1MrdkbUBpXf/mqtXUMhITEyW57eBKr3SQ6Nsv54Xs6id +toYa6ZpYwyoKxzzibLfetYb7b14+pVVTaGTmnxZnZw1t2tzmGSwKV9b/GS+7 +aAWf13odLGpi13NwsQiHvCX4xPv5739C4bjY1twfwpYwsxAcw/+Uwk0PXDyE +flnAwsvYq17NFEZ9/GsQ324BP+NyP215zs6v80RXWZgFCMy1+9W2s+vdU9+q ++rU5yLdsi27upjDvfqXIx637YKX5Eut4D7uf7oZwRdP2wfybOwsivRRWNf0K +0Rs3g/uDmh5OfRQqWVFm2oVmYPN95765AQofReycXrHWDGLkUXL9KIURTePY +JmgKvUzDOt8ZCq+6w5cXtL3wiLZ8XnSWQsdszBSYNoaS9GeKLLZb2pexPF8a +Q1Cecf6yeXb/X/nVnpJuDAI1JvFZixReiHdT91tnDNs/mts8/kHhufBreb5K +RpCuaz8rzkNHMZ8hjqNBe8DCz8b1JdtD0zJ16bZ7YFWuxet4XjrOuSb3DG/f +AylfjaqX+OiYs2R7c/G3ASSU7gj9IEDHX0+dIzsSDCBKaD1n3io6JuWdv2tU +og8+3X2ryPV0zI6YTOf4qwub+buje9kubk4pYXzUhc9q7+YyJOl46vXqdvlW +XfBKednJK03HAD9WTXuWLrhpN2R+kqWjqs3NrGwNXThQXCBTRqfjCPcWgcUT +OiDRmXvuiDwdBwMnxD2cdeADRzaX5EY6Gp8U7Fgy0AE7h/SR5E3s9YbPGwLW +6ID1itgS3810PDNCi2+8qw3/7Di9Vn4LHbVsommyRdrQ4R6eOMC2+29P6exU +bTBvCPS2UKLj0UKrg4Ou2iA05du7XJmOGf+uNyw30Ya2td5mj9juCBtXytLQ +hrMGHg/CVOh4M5xvKU9GG/YGHlFSVaWj0b2psAYBbfgf4jDIqQ== + "]]}, + 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:eJwV1Hk0ld0XB3BDhrglXjTI2PM8V1GZS4O9jSFkzhBKEZI5GctwXSFDShki +XmUoZXhDrgYVJUmSSpmHCJGxNP/u74+zzvqsddY563zP3kfW1dfSjYuDg2OR +Pf4/vzydy8PBIYWf+rjaDEOm4dYh8xIjTikcHz596djJaUjR5d57nksKzfra +PiUHT4MJn2caxSOFN0TnZV8FTUNLipqEqYAUSvM+GrPwn4bG3OdK2aJSmLsn +8+wur2moq//uqLZRCp8q70q97TgNhd9sqjwspTClV+K57O5p0HN+/enBDSnk +3ry103V+Cp58PRCh8FcKM9V+FJpfnYK263HUgrk0OnwSKeM1mYJ/TQMdbpRK +Y2P7WF5j32ewkzs+GfxLGquGbM3rvT7D1JxY7BoFGdQvGvXh6pkE/6FGCWK/ +DB45ox2yavckjE58H9KMksH8FoVV5y5OwEMv4S9PymTwHE/n8brWcUjmLt/o +/FYGuXPxlPrPT7B+0+UvG/7KIP2UQ7712k8g3Hzsx0EFWey2mbRcpI3Bt1MP +VUusZdG71J8x9Osj6N78XukeLYt3uRUqLB+MgKVndL3VTVn08uW3YQQMg6VW +6rzxW1mUsVcweKcwBHcST/vVccnhxgU/Zc/6ARCaWZRQUZTDJ2c5zk/c7oPW +VjOanL0corWE/tbybjDZ9i0e4+Rw3vqY011WF9xjkSqet+RwSozJvZbvLVyo +1pBd3s32J7EX/mqv4cCzF1r/LduA6hlt7lbV7TDmdXssafMGzFhzrVK5qxW6 +YiPfdNtvwMODhGeBSTOwqltn1WM3oNuZbZsnwhqBy+WPJV/FBtz0/Kv8iVcN +sOLiaeDr2YCkcm+zu0c9LB9lOgjzEKi/v9wy0bsGqGTeg4/ZHj6Z65RjVwN6 +aky3E7wEzp7c7c3Sq4GomDi/93wEOkZ9jpKTrIGvUgxmgQCBwZI+v7PaqmFo +f3SV8ioCJyr+9MmqVQPrWbiApQSBiin6u/yX34ZjN/1Y6coECszsFB7sroTP +3tc/bVch8ErH5dbDrZXgozgi3s92k8g/52bvVoLfjf2BCmoEejsZym3Jq4Tg +Ui3FRg0CLwsVD2w6VAlR12h5izsJTHcoyd0yXgEXckui7QwIDDdk6OzmrID7 +yQOGUo4EVtBMCp7ml0Fw0h7lh2y3zbUUMOPLYGvCrbVHDhCYl9YcZudTBvmM +iIlSJwK3921MU9tVBtHha86qHySQrlGx+0XXDdDzNH9p4kagMLe0cYjYDXim +12AT7ktgv2GhesDlUuj8ecW1K5bACL9v9T19ReAVu04+gUEg65apnXZzEXAI +ZkxpxhFo1aZpVVdZBIrrEkNymASOhK5XG2YUAWN7UIpzAju/9xamkopFoHrC +kDWSQiBNyHmXzKlrkD49IzybRWByhL0jTekqmA9qP1xeQSBn544ffc0FYBwd +XH6LbfPPAzNztQWgJ3sj16qSwLqN3xXEigtg2yHRsNwqAgtNeo0YcQUgNTiq +olxN4KWJNEmabgFMDiRdtWMRWDm45WtdQz4wB97EFzcSGLA0syrn7BW41+9p +pv+ewJUfH/vfnMmBC8ur1i6xffMwS0LydQ54q/4Yuf6BwNMdoT9KqnNgXXxi ++KoeAq//0fojGp4DIVtulHT3ERhz3ffOTr4cUIn8zBUwQmDrZMdwBZENxet8 +a/O+ELg6dlNsYWAmnNKrjbGYIdC/fedbX/tMsPX5a7pslsByUfsKG8iEZY9S +RzznCDzz/nrRccFMcPWsEFZfJDCWzLVrvXoJ1t+ZPfb8Bzu/7p5ulZ6LcM4m +SGaJh8QfViX94k4Z0HopWPQKL4mH1XhLg/ZkAP+HEH4DPhIlAjgZo8oZcMo5 +cuY8P4mhyklbefkywOsos2GrIInhXj2FqlUXQCc08+DRVSTmjh621qRdgIXL +d/PfriOxluIhGW3pYDuyTLZ6K4n8tQOsN2fSoPmI2ks7Jfb+JpLq4iFpsOPj +4chfbPeL0Lzdj6aB1Oij97oqJPpp7u9RN0iDsbGo9A41Eps8651Tl6VByOQv +7hlNEnNctBN1+VMhe25hdJMeiTqR+gLv1ycDLZDIaGO71vG6wZq/Z+HUvJVu +gD6Jgb4F/YGDZ8F1oepKnQGJMe/qn54uOgsKX/3sDI1InBva9m5M+Szc/f75 +mZsZibyZPg4jpknQy/GxLN+OxLH6EdOprARQFJTfbmlP4sQ6mRXmkQkQIXbs +MbcDiRsimp62H0xg/7ez790d2feJkX2gIJ8ADla/eTc7k9hy/nip3p0z0HVN +7FDdYRK7peKNJ3rjodPYQKzDh8SB46HDe7SYQNgk5Mf6khjCSNdSJ5kQ5NKq +oO5H4qUe1o7dNCb8E2Spk+lPYnWdRsXlD3Fgmevs6xxE4mCvdMvFkDho/xL8 +bCKUxOb8gtZDdQx4fqE4kjuOxGiRvGvFprFwqvaqcinbXF8Eh7ZoxoLKh4KP +ZkwSdxyKutFCxEKm9GXT7HgSxU65Z8OvGHC/niapnEjiLr2S3vVlMcDVEHrP +OZVEy7GznReEYmDH5N7fdVkkRt0z3/5rJAqmVxhVumSTaCEy3TDbEQUFSgZu +PDns+orOzvzeEAX8wfjC/DKJD6R/zkBuFLzlUM8dyyOx4H7jsWu2URAgLrVb +7CqJ/7rLPkvIOg2l2jMRfrdIdDrM7H+SFAk7pjlWEuUkZtzR/O3sGQmt2cJX +3rF92K7dUnJPJEzPqzzUqiQxba6Pn8YdCSpFJ3hW3CaxTiPL+WZEBLAEfiaX +1pFoP84p0hccDq2vea4MNbLXFz/OmI0LBacocaWLTSQe4OzS4fMIhWlF+kOj +JyS+jpOI0TIOhVVMw+GKpyR+3SShICwUCtbbk+inW0h8esHDXjc7BHovr6qQ +aCfxhXuW3L2akzDtJvHQupvEN0zB4vV8wVBjbk/j6SHx8UDt35ypE3Bq56X9 +1WyT6R+qt3WegJXC/0yL9ZG4e3dY4+OCE7D1roDEuwESE36+11DQOgF+Ij+C +7EdJvDrlRElFBMHc/S5551kSNxeVWb4UDARWqXjQyjkS3YGPXrgYADEXrB/c +Z/tBOL07tT8ARLzabaQX2PntfxD6338BoCrWHDPwlURTrvEaGacACDpW2+P6 +i+2fjTURt/3h6+qLaUf5KDS07J9KCvIDOYmUZTR+ChOClP/JcPUDMylmSAXb +0WH7FCvN/aCICD74fTmFq9Nsp2U3+4GNsq1SEo3CMl4dw6cvfOG2sXj7LWEK +pRpc9MvrfSAg8qLQVwkKuxtonnxV3pAXlRKbvZ5CRUHNkdR0b2iJZX7TkqSw +M6SnVTPQG+QSg/vjpShcUrntMqvmDa8u2pavlaVwDgqHJuuOgVKF+L7dFIU7 +lezCZp95wfTQxRSGEoXGfBuWO3N6wpLvv/0ayhTeO/9WmzHsAZy/byqNsz31 +Ul30RZMHiK5u6jBVZZ8/unaqKdEDduydF1+tQaF84aSRubgHMP/bd6V0J4Vv +RSI5i1WPghSDv6LNgMKuOtFyZ6YbyAuLckbvodDjWfRAmrcbKOdJW6oaUpgV +y1ActHQDvTsaC5eMKEy0HU/ulnYDr89Hth8yoVBTQfaVav0RqLF+2DBvQWHP +zrICm2+HwZQMe7XGicLnoa0XTjNcgdUCex+wHUDrTKzwdQV5P54mN2cKc4Uu +mi05uAJXfdqdKhcKjwVb9T9XdoVa8+IrJq4UPjWXS4oaOASyEZ3Ho45SKJTK +zxDUOQSLHVsEPvlT6HTW2pNf7CC4hizEpgRQqK+nvW+U6yC0S7J+qwVSGPP2 +nFPFoAtc99CfjQ6i0KDvleCXLBdw+ePYJXGSwgOM9FQ9mgs825hQtC+CQiJ6 +fE5hyYnd4sM6tUwKm+3UozomHUHnyNtgh3gKk9dNaPW0OsLonmfXf7MtKCp6 +ie+WI2wRKhfRS6BQkjXPfOTnCA25YUPtSey8XW+nN31zgCGWcMxEGoWeKW2a +Q4IOQC3CQ8kcCjd//34jaa8dtHSpLDawffT11Eemkh343CU3HrlMoekw1/kr +YnZQGyt47nouhX9Jgxb5gf1gKPLu4LZ89vuWLpheCt4PXlt9OCyusetx20fR +lhJbKPe8DIxyCqXv1MrdkbUBpXf/mqtXUMhITEyW57eBKr3SQ6Nsv54Xs6id +toYa6ZpYwyoKxzzibLfetYb7b14+pVVTaGTmnxZnZw1t2tzmGSwKV9b/GS+7 +aAWf13odLGpi13NwsQiHvCX4xPv5739C4bjY1twfwpYwsxAcw/+Uwk0PXDyE +flnAwsvYq17NFEZ9/GsQ324BP+NyP215zs6v80RXWZgFCMy1+9W2s+vdU9+q ++rU5yLdsi27upjDvfqXIx637YKX5Eut4D7uf7oZwRdP2wfybOwsivRRWNf0K +0Rs3g/uDmh5OfRQqWVFm2oVmYPN95765AQofReycXrHWDGLkUXL9KIURTePY +JmgKvUzDOt8ZCq+6w5cXtL3wiLZ8XnSWQsdszBSYNoaS9GeKLLZb2pexPF8a +Q1Cecf6yeXb/X/nVnpJuDAI1JvFZixReiHdT91tnDNs/mts8/kHhufBreb5K +RpCuaz8rzkNHMZ8hjqNBe8DCz8b1JdtD0zJ16bZ7YFWuxet4XjrOuSb3DG/f +AylfjaqX+OiYs2R7c/G3ASSU7gj9IEDHX0+dIzsSDCBKaD1n3io6JuWdv2tU +og8+3X2ryPV0zI6YTOf4qwub+buje9kubk4pYXzUhc9q7+YyJOl46vXqdvlW +XfBKednJK03HAD9WTXuWLrhpN2R+kqWjqs3NrGwNXThQXCBTRqfjCPcWgcUT +OiDRmXvuiDwdBwMnxD2cdeADRzaX5EY6Gp8U7Fgy0AE7h/SR5E3s9YbPGwLW +6ID1itgS3810PDNCi2+8qw3/7Di9Vn4LHbVsommyRdrQ4R6eOMC2+29P6exU +bTBvCPS2UKLj0UKrg4Ou2iA05du7XJmOGf+uNyw30Ya2td5mj9juCBtXytLQ +hrMGHg/CVOh4M5xvKU9GG/YGHlFSVaWj0b2psAYBbfgf4jDIqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.6}, {0., 0.9521831535011787}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.6}, {0., 0.9521831535011787}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0ld0XB3BDhrglXjTI2PM8V1GZS4O9jSFkzhBKEZI5GctwXSFDShki +XmUoZXhDrgYVJUmSSpmHCJGxNP/u74+zzvqsddY563zP3kfW1dfSjYuDg2OR +Pf4/vzydy8PBIYWf+rjaDEOm4dYh8xIjTikcHz596djJaUjR5d57nksKzfra +PiUHT4MJn2caxSOFN0TnZV8FTUNLipqEqYAUSvM+GrPwn4bG3OdK2aJSmLsn +8+wur2moq//uqLZRCp8q70q97TgNhd9sqjwspTClV+K57O5p0HN+/enBDSnk +3ry103V+Cp58PRCh8FcKM9V+FJpfnYK263HUgrk0OnwSKeM1mYJ/TQMdbpRK +Y2P7WF5j32ewkzs+GfxLGquGbM3rvT7D1JxY7BoFGdQvGvXh6pkE/6FGCWK/ +DB45ox2yavckjE58H9KMksH8FoVV5y5OwEMv4S9PymTwHE/n8brWcUjmLt/o +/FYGuXPxlPrPT7B+0+UvG/7KIP2UQ7712k8g3Hzsx0EFWey2mbRcpI3Bt1MP +VUusZdG71J8x9Osj6N78XukeLYt3uRUqLB+MgKVndL3VTVn08uW3YQQMg6VW +6rzxW1mUsVcweKcwBHcST/vVccnhxgU/Zc/6ARCaWZRQUZTDJ2c5zk/c7oPW +VjOanL0corWE/tbybjDZ9i0e4+Rw3vqY011WF9xjkSqet+RwSozJvZbvLVyo +1pBd3s32J7EX/mqv4cCzF1r/LduA6hlt7lbV7TDmdXssafMGzFhzrVK5qxW6 +YiPfdNtvwMODhGeBSTOwqltn1WM3oNuZbZsnwhqBy+WPJV/FBtz0/Kv8iVcN +sOLiaeDr2YCkcm+zu0c9LB9lOgjzEKi/v9wy0bsGqGTeg4/ZHj6Z65RjVwN6 +aky3E7wEzp7c7c3Sq4GomDi/93wEOkZ9jpKTrIGvUgxmgQCBwZI+v7PaqmFo +f3SV8ioCJyr+9MmqVQPrWbiApQSBiin6u/yX34ZjN/1Y6coECszsFB7sroTP +3tc/bVch8ErH5dbDrZXgozgi3s92k8g/52bvVoLfjf2BCmoEejsZym3Jq4Tg +Ui3FRg0CLwsVD2w6VAlR12h5izsJTHcoyd0yXgEXckui7QwIDDdk6OzmrID7 +yQOGUo4EVtBMCp7ml0Fw0h7lh2y3zbUUMOPLYGvCrbVHDhCYl9YcZudTBvmM +iIlSJwK3921MU9tVBtHha86qHySQrlGx+0XXDdDzNH9p4kagMLe0cYjYDXim +12AT7ktgv2GhesDlUuj8ecW1K5bACL9v9T19ReAVu04+gUEg65apnXZzEXAI +ZkxpxhFo1aZpVVdZBIrrEkNymASOhK5XG2YUAWN7UIpzAju/9xamkopFoHrC +kDWSQiBNyHmXzKlrkD49IzybRWByhL0jTekqmA9qP1xeQSBn544ffc0FYBwd +XH6LbfPPAzNztQWgJ3sj16qSwLqN3xXEigtg2yHRsNwqAgtNeo0YcQUgNTiq +olxN4KWJNEmabgFMDiRdtWMRWDm45WtdQz4wB97EFzcSGLA0syrn7BW41+9p +pv+ewJUfH/vfnMmBC8ur1i6xffMwS0LydQ54q/4Yuf6BwNMdoT9KqnNgXXxi ++KoeAq//0fojGp4DIVtulHT3ERhz3ffOTr4cUIn8zBUwQmDrZMdwBZENxet8 +a/O+ELg6dlNsYWAmnNKrjbGYIdC/fedbX/tMsPX5a7pslsByUfsKG8iEZY9S +RzznCDzz/nrRccFMcPWsEFZfJDCWzLVrvXoJ1t+ZPfb8Bzu/7p5ulZ6LcM4m +SGaJh8QfViX94k4Z0HopWPQKL4mH1XhLg/ZkAP+HEH4DPhIlAjgZo8oZcMo5 +cuY8P4mhyklbefkywOsos2GrIInhXj2FqlUXQCc08+DRVSTmjh621qRdgIXL +d/PfriOxluIhGW3pYDuyTLZ6K4n8tQOsN2fSoPmI2ks7Jfb+JpLq4iFpsOPj +4chfbPeL0Lzdj6aB1Oij97oqJPpp7u9RN0iDsbGo9A41Eps8651Tl6VByOQv +7hlNEnNctBN1+VMhe25hdJMeiTqR+gLv1ycDLZDIaGO71vG6wZq/Z+HUvJVu +gD6Jgb4F/YGDZ8F1oepKnQGJMe/qn54uOgsKX/3sDI1InBva9m5M+Szc/f75 +mZsZibyZPg4jpknQy/GxLN+OxLH6EdOprARQFJTfbmlP4sQ6mRXmkQkQIXbs +MbcDiRsimp62H0xg/7ez790d2feJkX2gIJ8ADla/eTc7k9hy/nip3p0z0HVN +7FDdYRK7peKNJ3rjodPYQKzDh8SB46HDe7SYQNgk5Mf6khjCSNdSJ5kQ5NKq +oO5H4qUe1o7dNCb8E2Spk+lPYnWdRsXlD3Fgmevs6xxE4mCvdMvFkDho/xL8 +bCKUxOb8gtZDdQx4fqE4kjuOxGiRvGvFprFwqvaqcinbXF8Eh7ZoxoLKh4KP +ZkwSdxyKutFCxEKm9GXT7HgSxU65Z8OvGHC/niapnEjiLr2S3vVlMcDVEHrP +OZVEy7GznReEYmDH5N7fdVkkRt0z3/5rJAqmVxhVumSTaCEy3TDbEQUFSgZu +PDns+orOzvzeEAX8wfjC/DKJD6R/zkBuFLzlUM8dyyOx4H7jsWu2URAgLrVb +7CqJ/7rLPkvIOg2l2jMRfrdIdDrM7H+SFAk7pjlWEuUkZtzR/O3sGQmt2cJX +3rF92K7dUnJPJEzPqzzUqiQxba6Pn8YdCSpFJ3hW3CaxTiPL+WZEBLAEfiaX +1pFoP84p0hccDq2vea4MNbLXFz/OmI0LBacocaWLTSQe4OzS4fMIhWlF+kOj +JyS+jpOI0TIOhVVMw+GKpyR+3SShICwUCtbbk+inW0h8esHDXjc7BHovr6qQ +aCfxhXuW3L2akzDtJvHQupvEN0zB4vV8wVBjbk/j6SHx8UDt35ypE3Bq56X9 +1WyT6R+qt3WegJXC/0yL9ZG4e3dY4+OCE7D1roDEuwESE36+11DQOgF+Ij+C +7EdJvDrlRElFBMHc/S5551kSNxeVWb4UDARWqXjQyjkS3YGPXrgYADEXrB/c +Z/tBOL07tT8ARLzabaQX2PntfxD6338BoCrWHDPwlURTrvEaGacACDpW2+P6 +i+2fjTURt/3h6+qLaUf5KDS07J9KCvIDOYmUZTR+ChOClP/JcPUDMylmSAXb +0WH7FCvN/aCICD74fTmFq9Nsp2U3+4GNsq1SEo3CMl4dw6cvfOG2sXj7LWEK +pRpc9MvrfSAg8qLQVwkKuxtonnxV3pAXlRKbvZ5CRUHNkdR0b2iJZX7TkqSw +M6SnVTPQG+QSg/vjpShcUrntMqvmDa8u2pavlaVwDgqHJuuOgVKF+L7dFIU7 +lezCZp95wfTQxRSGEoXGfBuWO3N6wpLvv/0ayhTeO/9WmzHsAZy/byqNsz31 +Ul30RZMHiK5u6jBVZZ8/unaqKdEDduydF1+tQaF84aSRubgHMP/bd6V0J4Vv +RSI5i1WPghSDv6LNgMKuOtFyZ6YbyAuLckbvodDjWfRAmrcbKOdJW6oaUpgV +y1ActHQDvTsaC5eMKEy0HU/ulnYDr89Hth8yoVBTQfaVav0RqLF+2DBvQWHP +zrICm2+HwZQMe7XGicLnoa0XTjNcgdUCex+wHUDrTKzwdQV5P54mN2cKc4Uu +mi05uAJXfdqdKhcKjwVb9T9XdoVa8+IrJq4UPjWXS4oaOASyEZ3Ho45SKJTK +zxDUOQSLHVsEPvlT6HTW2pNf7CC4hizEpgRQqK+nvW+U6yC0S7J+qwVSGPP2 +nFPFoAtc99CfjQ6i0KDvleCXLBdw+ePYJXGSwgOM9FQ9mgs825hQtC+CQiJ6 +fE5hyYnd4sM6tUwKm+3UozomHUHnyNtgh3gKk9dNaPW0OsLonmfXf7MtKCp6 +ie+WI2wRKhfRS6BQkjXPfOTnCA25YUPtSey8XW+nN31zgCGWcMxEGoWeKW2a +Q4IOQC3CQ8kcCjd//34jaa8dtHSpLDawffT11Eemkh343CU3HrlMoekw1/kr +YnZQGyt47nouhX9Jgxb5gf1gKPLu4LZ89vuWLpheCt4PXlt9OCyusetx20fR +lhJbKPe8DIxyCqXv1MrdkbUBpXf/mqtXUMhITEyW57eBKr3SQ6Nsv54Xs6id +toYa6ZpYwyoKxzzibLfetYb7b14+pVVTaGTmnxZnZw1t2tzmGSwKV9b/GS+7 +aAWf13odLGpi13NwsQiHvCX4xPv5739C4bjY1twfwpYwsxAcw/+Uwk0PXDyE +flnAwsvYq17NFEZ9/GsQ324BP+NyP215zs6v80RXWZgFCMy1+9W2s+vdU9+q ++rU5yLdsi27upjDvfqXIx637YKX5Eut4D7uf7oZwRdP2wfybOwsivRRWNf0K +0Rs3g/uDmh5OfRQqWVFm2oVmYPN95765AQofReycXrHWDGLkUXL9KIURTePY +JmgKvUzDOt8ZCq+6w5cXtL3wiLZ8XnSWQsdszBSYNoaS9GeKLLZb2pexPF8a +Q1Cecf6yeXb/X/nVnpJuDAI1JvFZixReiHdT91tnDNs/mts8/kHhufBreb5K +RpCuaz8rzkNHMZ8hjqNBe8DCz8b1JdtD0zJ16bZ7YFWuxet4XjrOuSb3DG/f +AylfjaqX+OiYs2R7c/G3ASSU7gj9IEDHX0+dIzsSDCBKaD1n3io6JuWdv2tU +og8+3X2ryPV0zI6YTOf4qwub+buje9kubk4pYXzUhc9q7+YyJOl46vXqdvlW +XfBKednJK03HAD9WTXuWLrhpN2R+kqWjqs3NrGwNXThQXCBTRqfjCPcWgcUT +OiDRmXvuiDwdBwMnxD2cdeADRzaX5EY6Gp8U7Fgy0AE7h/SR5E3s9YbPGwLW +6ID1itgS3810PDNCi2+8qw3/7Di9Vn4LHbVsommyRdrQ4R6eOMC2+29P6exU +bTBvCPS2UKLj0UKrg4Ou2iA05du7XJmOGf+uNyw30Ya2td5mj9juCBtXytLQ +hrMGHg/CVOh4M5xvKU9GG/YGHlFSVaWj0b2psAYBbfgf4jDIqQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 11.6}, {0., 0.9521831535011787}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlnk8VVsUx4lKeIXuvefci8w3DQohQ9pL5VU8UiQNMkSEUBpkeFGmCLkN +pFRkTggZMySRIiFDGTO8kiGzezz09vvjfO5nfe4+e/3OWt81yNi6HbJfxsPD +s4Cf/39tOfqCPDwiYLg8pS6sbxKVl6UFlN8TgdfoDmT4TyGdCwYsJW1R0N2V ++zZWYxqNxzlvqW4SBZdSz6b8gWnkN2o4Y+0oBhYb96cqRs2grdWObWmCa+E1 +71eVjQaziFy7QnNdwlqIiFvHzB2fRdJDPbnwJw12TATIn7k/h/gGPfvsvtPg +jzPvbN8rcZHUYU5kni8d1vQ7hfAnctEx4x9HcqQZAIce3dVZRaGPJWWPOgoZ +8CiqIVLNgEKSB8xiVhgTEJtTo9/nRKEwZ/bznl8ErC/btZDlSCHVBU8YCCIh +mSpbuqhHIS5d4Ne9jUzI2ls97D3KRfcPm5sYfmBCjP3tQvtzXHRhlYLyJhsW +TPVuuNPyZQ65/qm8qYhPHO6ciC0ZFZlD8XMliecfiMPGhbgmO41ZNKUSoPUV +SUBV0M8XRptnkDRHyH/3NwmQvaQR92D1NAo6vXZv+2VJGLPf91F9ahIJVR1R +FBdfB/oPkltYuROo9q5EyI3cdSAv9Z1X238c2YY/iaX2ScGkkuuae8ljiLXa +5h0xLAWCb4c2yEiMoCDeg8XKetLgd3qFjFbtEIqsWPNo821puOQfT5BHv6NA +sS3H0/qlIfWYtfbpNYMo5tHNtpItMjBAm8kPWdWPtN1u2Cj4yQDf2ec9RvO9 +iLpSnS5fJwNXp81EO6y7URJxqj6RIQt511wmrGU60DcqbtHbQRZCOZJNVYNt +SIvBHP2RIwtHd+XIZ7FbkMxl1Z8Z/HLAKjqY7H+xCbHFbiavOCgHX6cW/vHd +9gmRoL/j2wM5SHp5OjvybB2KzXnYIzYqB8LzXdZS0e+QppXarq+a8hC8peaC +jfNbdNrEKYcbKg/Q6sgJsKtE/p9//xvdIQ9/iwYYdUeXoyJOC389WwHKLeef +JhwrQX5394sf9VSAwV7pv9stCpBd0+K4V5UC7DQRig1k5iH1BNEnkmvY4Leu +TTbG9AW6l//mBGHNhsklsZdB558j2vL89uRnbMjoXQq/uysNNWh0zf/+zYb3 +FZbMa5CEbqVerrEyFAGNCoFfAipTSDRuedFNVTqEsrLTHjlz0auDpR7bGuiw +ufHiU7evXEQLNP232oUB4qwXywKVKHQp8Ib4OT4CrFtoupEnKWRmWSo79YgA +OXOnqRZXCnXnNsza6JCwOuRCe8JRCtFvVESXtpOQW5dd3CNBoXfqWVITXkxw +UxDODM7joqAsXdBhsIBlvTercQMXTaSkK53PYYFppLzJ6JU5NBlXe6a5hQ3h +tPSdnM0p6Epc948sBRGw1zAr9V81hQT1yuu5wnR46ynSd9SIi1ybU3gvJNOB +vVgtLV/BRQVDcWmv/mRAsHJ96l/Yf4K0vCW7mwHmry2LLA9TSLM1pMvnEgGO +6tc7WVh/3pp/G5/QSTg37/bC0JZCiZUSI5+ySPgo0LkUoEyh3qTjK6sOMYEK +Urps0MRFt5YZ7HszzgS99x5zGcZclNP+PfPjDRbscXg/IPRsDl1vRDKlFWwY +Kv+oK6eaikjKMFHagg75RjbVwSFcJPSpaXByjg5VFrZqzZNcdE56lVEjhwGL +hSPFrTsoZPBz7EuJIgHfbfakltlTyH1gwuFMDQFrZZ4eFjxLIQGLRHE5GxI2 +qSp8fmFMoaADdrvTeZlQvj3wVdAKCmW/Xaa57ikT0oRSFLXucJG1k2nO0E82 +mMlX7fVVSUZjBIdqExMB0QflitMzk2jFWon2LfM0OJLf7lCsy0V/0uL20Th0 +6Bf4fNsoh4sEJN74FWzD8bSNP7gkhuPnOrHo94EB10/OOa00oVA6Z6xYz5aA +M8G7E+pdKPSk9BaqWEaCW+x2hWqs37nH4N6xByRcCDZfZqZFoZEuFe/nO5nw +U0clTb0X87bZ5K+V3Uy4lSKkYGzNRWvPBf3yuciC2J4WnVeVc+iv4fkFlXw2 +cDk331GFqYj2ITXTXJ8OqibMYuTFRQMi7zbf7qeDXMVQfM8/XFR5aIt83VUG +/HrFDnNWx/nb/sqLwSDgXmVMiwPOb9+TI/pbcglQLyy4pofzP7Vc+8YuYxIW +436EeZhRyNiFM7ptlAReq6iHq/D3vlpsf7Yykgm6zqK+L3A/3xCwOuJkLxt8 +u3U9y54no9MFnk2vjzKA8NdokFegkHCz+asP4wywjvEU1zhGoWqmHE9hKAEd +Ulo577C/Wht7O39FzNclIwbgeupMGtPbW0XC0PDXAYH1mMeHMlo2OgQkN7sF +cHD/X1p/MzSxg4Ajf3+6sNUZz4v01Zl8F0hwqt9mZ7mPQjEmMa0XZtjwzfOS +b2VBElJsGeZ1WSUCPS0cfZ2RScTvY9BVO06D/ipDszp1zGse4TIQTIdvb1ao +b3/GRSovD4+obWTARx7JU5tWU4iPbmG8pRLzePG2p5IRhQbc4zfIWxDQIOPx +dBj7v3fn+OwBioAZ4bXiRg54no3aOEtFkXCt6MFjL10KTVIS6glqTMhwnHMf +xfloBVPjtM9MuHywSXnYkYv2lLasMXNmQZsU6j/+cQ4pe7Y7jWSzQS2pWdV1 +MRWJqbXlTujQ4U7tovL8eS4yebHL5NQXOhRPxK4qwLwMD1dE7r/EgE+Fp6OD +VSj0rFv2wxthAr48D88Ms6aQ+FXBPJE0Ag6ed1j2BMf7Ryc/NO0hYcZko5fk +EQrleKVVcvtIWL7+2t5QgkKVzCr7hQAm/ACv79kZXLRadORfsoMNG8+1724Z +SUYRJkI7kQkDql08H9VIU6jtSqnwle8MaEjwKf2C7/s91+Ia60eAd59lTSD2 +V6apLC4qRUJjfoeIBdYDecsJ4WISHnvU3uncRKGru0NurFYlgMVXvFILx2/7 +CkQFNRKQaXjaSQXXj5j/F7vbTiQUR9rP3TekkE/XxT1bx9kgOTrdemA6CZ3L +0/nLyoWAT+93kCG4H6T/8zZEWZiE9Z7jK8XtcP+NOrzxjBQBx20XQ+WwnVaZ +2GpYSoDLTIJpMT4fruMe1XKHgImy1Mv9/8dnpvhH7h4Crl3fOf/+DIWq9n8R +rxwkoCJk0YIf7yN5b4odi+fZ0BhT86rZOwm9zSVX5POLwO5m5jHb75MoIPub +FTFCg5Dt8031Klz0g7/Ft+4aHXrDjU/Fp3BRNa9UgocCA07QomgFQhRydAyb +DShlQG4HuzcPfx9P77w13RTra6vvcsZ8ifC8boyeJuDsL8E/+DD/PBdHW3hv +ktBlnZjviyg0EyzGebgVz5P5xXatn1yk+cHswHwDE0iD39Wbz3LRiVOLj9Fp +FjzT6fOV/DyHEnbWxO/PZMNg/aLDsFQa4ji6aqDtdMj9Pqx4wA3PI14eW8PP +dFif7LApuouL/DRD9UPOMUCvr14ydCvWo2ruwRIgAEaf+kRZ4f43dmqYN5EA +BVqKYAWO36l9TuIsICHJ8naxnQWuF151pY4uEowZHo7aLAq9TSmqnL3KBK3C +Tuv4bHx/21fVS+2YL887fY+EU5Bs3OcpX0MG1L4vbg9fR6Ed9eN5DX0M6HkW +/PyxOYUkHLYmh3kTsCQfceAw9qeVeHfWgkXCa3cXZ3MbCp3XifIfyyNBdUeM +qsYW7P9eiYq9EgE1P4Unr57G8/pijLJnHdZvFfg7AfMVPrITOuxJOMRL+GzE +9T321M775igbshJdLjSJYd7l7l43cSDAh/Pr01bMi8KhTXaeK0mIFUyUmME8 +eQ2ENJWzCMjoG67Yfwr3N5WlP3QLCTgUxuTjw/rS02vfVUcSsDpsSLwD28b7 +x24JAgGJ2a59qpivb4Wqprm9BIS9sP7jMeaLHZr2mOCyQd+3wabgfhKq4d03 +qWpJgI6qZZQN1ru05oWPVCbW//Vy60V8X1+Iz/a0QAIohQ0oA9us6MHXd1sJ +mGdlcF5ifsz0+2iu5wh4/Jr0aMX6b5oaPj5WSUDOexd3B2y71zGODdwnYLpi +ruIbfn/X4gcVy0U2lCoutyJOJiGa3FaB48vwvlToWDM7MImqDJRkyoZoEHt0 +W2HdVi7if54bBH50oKlZtjYncZFIKt+imBwDoqMytb0Ecf8RSzJQLmEAn1Rc +5gze7yOiUxbCTfC8CakwVMT6Pr70KNeZxPGwaEs8hvm+r7lNyOMGCY+iA9S8 +gUKzxuEVTCXMc7uiUucwFzneamlIqGeCkfxdMwPMq6OGqOPLUywo/nOhaL51 +DnXE79TlZrDBsu/eF22VNNS0rHhuUI0OqW0Z0ZdxPcSndTuVN9JhKULwBH8n +F73vdn2y3o0Bbo18ASGYlzcdbjVvl+N9iE/vpCjmuzpJJNgrHufPIG9XHY6P +9JLEqjJdEnbnvxrlx/udz1sv2786SBA+5OEcIY7Pu6pNePgywe+2Uv1dvC8U +aR/6KN+G97fs9sO3JVKQy+4iY8n9DDAtjVFylaTQr0uCq7x7GXDe82nWb7yP +pa/r1OO/QsDratnDWtjf7NF9AwsECS7jPcpNmG+h3635VjkkGN0anjyJ6zEa +WgJFNhFgvs7WVBrz3bdZv268lgBVIe3JNsyLQcKE0tVTJGwXSzD6hflev7KT +oTPChhLG0c+ysslIokNPqtaOANmwbbO/8fm+ld0HJZaTMEYaV57E+4pSRALb +mcT8XJVs+IL3BbOh9LSXLwn47Z0YIof1adpeskPhBBQ0Bik2Y5t3auXgS10C +1hiNlfTjfLq794xt6ibgfJB/6A/Mt9WotE71LBsUk9oWC1KTkHnRdPizYwTU +BeS1rMf+b9ZYkjHPCIiQVlS5ie9zhw3NMtcJuP4rcncstlONOZarPxPwrzu9 +Zhrz07cQkf2PKwG1VjeuZ2OeWUJc7eZyAngDSxU52F66/mbmRDQBkV6D3f/3 +d2/r3fVCC2xY8JhIGXdJQukaBQduJBPwt1exwQv8f0TWNcG1fxNAnN34wRXb +PC4/vredIeDNw2YVS3yfptfB81XFeH/aFjPRg22JKQklYw4BXc8awnr/12vB +/y05mwC2QvPECWybNTY8UA4h4B90u6jk/3qlOZU5PySg/8khyS5sC8Sa3ctc +YoNc/7rOvQeS0H+9eGjS + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 198, 152, 114, 84, 63, 51, 2, 3, 4, 5, 6, 7, 8, 9, 199, + 153, 115, 85, 64, 52, 210, 164, 126, 96, 75, 10, 200, 154, 116, + 86, 65, 53, 211, 165, 127, 97, 76, 11, 201, 155, 117, 87, 66, 219, + 173, 135, 105, 54, 212, 166, 128, 98, 77, 12, 202, 156, 118, 88, + 67, 220, 174, 136, 106, 55, 213, 167, 129, 99, 230, 184, 146, 78, + 224, 178, 140, 110, 233, 187, 149, 13, 203, 157, 119, 236, 190, + 89, 228, 182, 246, 144, 240, 194, 68, 221, 175, 245, 137, 238, + 192, 250, 107, 232, 186, 248, 148, 242, 196, 251, 56, 214, 168, + 244, 130, 237, 191, 249, 100, 231, 185, 247, 147, 241, 195, 79, + 225, 179, 141, 239, 193, 111, 234, 188, 150, 14, 204, 158, 120, + 90, 229, 183, 145, 69, 222, 176, 138, 108, 57, 215, 169, 131, 101, + 80, 226, 180, 142, 112, 15, 205, 159, 121, 91, 70, 223, 177, 139, + 109, 58, 216, 170, 132, 102, 81, 16, 206, 160, 122, 92, 71, 59, + 217, 171, 133, 103, 82, 17, 207, 161, 123, 93, 72, 60, 18, 208, + 162, 124, 94, 73, 61, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, + 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, + 46, 47, 48, 49, 209, 163, 125, 95, 74, 62, 218, 172, 134, 104, 83, + 227, 181, 143, 113, 235, 189, 151, 243, 197, 252, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzjW2gKC0cQXvPhuDesOW5XCKF0 +T5ZUzq35rLau/kmcxynv+Uj1T+ENjuM4juM4juM4juM4juM4juM4juM4juM4 +juM4juM4juM4/mN+A0weW1M= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlnk8VVsUx4lKeIXuvefci8w3DQohQ9pL5VU8UiQNMkSEUBpkeFGmCLkN +pFRkTggZMySRIiFDGTO8kiGzezz09vvjfO5nfe4+e/3OWt81yNi6HbJfxsPD +s4Cf/39tOfqCPDwiYLg8pS6sbxKVl6UFlN8TgdfoDmT4TyGdCwYsJW1R0N2V ++zZWYxqNxzlvqW4SBZdSz6b8gWnkN2o4Y+0oBhYb96cqRs2grdWObWmCa+E1 +71eVjQaziFy7QnNdwlqIiFvHzB2fRdJDPbnwJw12TATIn7k/h/gGPfvsvtPg +jzPvbN8rcZHUYU5kni8d1vQ7hfAnctEx4x9HcqQZAIce3dVZRaGPJWWPOgoZ +8CiqIVLNgEKSB8xiVhgTEJtTo9/nRKEwZ/bznl8ErC/btZDlSCHVBU8YCCIh +mSpbuqhHIS5d4Ne9jUzI2ls97D3KRfcPm5sYfmBCjP3tQvtzXHRhlYLyJhsW +TPVuuNPyZQ65/qm8qYhPHO6ciC0ZFZlD8XMliecfiMPGhbgmO41ZNKUSoPUV +SUBV0M8XRptnkDRHyH/3NwmQvaQR92D1NAo6vXZv+2VJGLPf91F9ahIJVR1R +FBdfB/oPkltYuROo9q5EyI3cdSAv9Z1X238c2YY/iaX2ScGkkuuae8ljiLXa +5h0xLAWCb4c2yEiMoCDeg8XKetLgd3qFjFbtEIqsWPNo821puOQfT5BHv6NA +sS3H0/qlIfWYtfbpNYMo5tHNtpItMjBAm8kPWdWPtN1u2Cj4yQDf2ec9RvO9 +iLpSnS5fJwNXp81EO6y7URJxqj6RIQt511wmrGU60DcqbtHbQRZCOZJNVYNt +SIvBHP2RIwtHd+XIZ7FbkMxl1Z8Z/HLAKjqY7H+xCbHFbiavOCgHX6cW/vHd +9gmRoL/j2wM5SHp5OjvybB2KzXnYIzYqB8LzXdZS0e+QppXarq+a8hC8peaC +jfNbdNrEKYcbKg/Q6sgJsKtE/p9//xvdIQ9/iwYYdUeXoyJOC389WwHKLeef +JhwrQX5394sf9VSAwV7pv9stCpBd0+K4V5UC7DQRig1k5iH1BNEnkmvY4Leu +TTbG9AW6l//mBGHNhsklsZdB558j2vL89uRnbMjoXQq/uysNNWh0zf/+zYb3 +FZbMa5CEbqVerrEyFAGNCoFfAipTSDRuedFNVTqEsrLTHjlz0auDpR7bGuiw +ufHiU7evXEQLNP232oUB4qwXywKVKHQp8Ib4OT4CrFtoupEnKWRmWSo79YgA +OXOnqRZXCnXnNsza6JCwOuRCe8JRCtFvVESXtpOQW5dd3CNBoXfqWVITXkxw +UxDODM7joqAsXdBhsIBlvTercQMXTaSkK53PYYFppLzJ6JU5NBlXe6a5hQ3h +tPSdnM0p6Epc948sBRGw1zAr9V81hQT1yuu5wnR46ynSd9SIi1ybU3gvJNOB +vVgtLV/BRQVDcWmv/mRAsHJ96l/Yf4K0vCW7mwHmry2LLA9TSLM1pMvnEgGO +6tc7WVh/3pp/G5/QSTg37/bC0JZCiZUSI5+ySPgo0LkUoEyh3qTjK6sOMYEK +Urps0MRFt5YZ7HszzgS99x5zGcZclNP+PfPjDRbscXg/IPRsDl1vRDKlFWwY +Kv+oK6eaikjKMFHagg75RjbVwSFcJPSpaXByjg5VFrZqzZNcdE56lVEjhwGL +hSPFrTsoZPBz7EuJIgHfbfakltlTyH1gwuFMDQFrZZ4eFjxLIQGLRHE5GxI2 +qSp8fmFMoaADdrvTeZlQvj3wVdAKCmW/Xaa57ikT0oRSFLXucJG1k2nO0E82 +mMlX7fVVSUZjBIdqExMB0QflitMzk2jFWon2LfM0OJLf7lCsy0V/0uL20Th0 +6Bf4fNsoh4sEJN74FWzD8bSNP7gkhuPnOrHo94EB10/OOa00oVA6Z6xYz5aA +M8G7E+pdKPSk9BaqWEaCW+x2hWqs37nH4N6xByRcCDZfZqZFoZEuFe/nO5nw +U0clTb0X87bZ5K+V3Uy4lSKkYGzNRWvPBf3yuciC2J4WnVeVc+iv4fkFlXw2 +cDk331GFqYj2ITXTXJ8OqibMYuTFRQMi7zbf7qeDXMVQfM8/XFR5aIt83VUG +/HrFDnNWx/nb/sqLwSDgXmVMiwPOb9+TI/pbcglQLyy4pofzP7Vc+8YuYxIW +436EeZhRyNiFM7ptlAReq6iHq/D3vlpsf7Yykgm6zqK+L3A/3xCwOuJkLxt8 +u3U9y54no9MFnk2vjzKA8NdokFegkHCz+asP4wywjvEU1zhGoWqmHE9hKAEd +Ulo577C/Wht7O39FzNclIwbgeupMGtPbW0XC0PDXAYH1mMeHMlo2OgQkN7sF +cHD/X1p/MzSxg4Ajf3+6sNUZz4v01Zl8F0hwqt9mZ7mPQjEmMa0XZtjwzfOS +b2VBElJsGeZ1WSUCPS0cfZ2RScTvY9BVO06D/ipDszp1zGse4TIQTIdvb1ao +b3/GRSovD4+obWTARx7JU5tWU4iPbmG8pRLzePG2p5IRhQbc4zfIWxDQIOPx +dBj7v3fn+OwBioAZ4bXiRg54no3aOEtFkXCt6MFjL10KTVIS6glqTMhwnHMf +xfloBVPjtM9MuHywSXnYkYv2lLasMXNmQZsU6j/+cQ4pe7Y7jWSzQS2pWdV1 +MRWJqbXlTujQ4U7tovL8eS4yebHL5NQXOhRPxK4qwLwMD1dE7r/EgE+Fp6OD +VSj0rFv2wxthAr48D88Ms6aQ+FXBPJE0Ag6ed1j2BMf7Ryc/NO0hYcZko5fk +EQrleKVVcvtIWL7+2t5QgkKVzCr7hQAm/ACv79kZXLRadORfsoMNG8+1724Z +SUYRJkI7kQkDql08H9VIU6jtSqnwle8MaEjwKf2C7/s91+Ia60eAd59lTSD2 +V6apLC4qRUJjfoeIBdYDecsJ4WISHnvU3uncRKGru0NurFYlgMVXvFILx2/7 +CkQFNRKQaXjaSQXXj5j/F7vbTiQUR9rP3TekkE/XxT1bx9kgOTrdemA6CZ3L +0/nLyoWAT+93kCG4H6T/8zZEWZiE9Z7jK8XtcP+NOrzxjBQBx20XQ+WwnVaZ +2GpYSoDLTIJpMT4fruMe1XKHgImy1Mv9/8dnpvhH7h4Crl3fOf/+DIWq9n8R +rxwkoCJk0YIf7yN5b4odi+fZ0BhT86rZOwm9zSVX5POLwO5m5jHb75MoIPub +FTFCg5Dt8031Klz0g7/Ft+4aHXrDjU/Fp3BRNa9UgocCA07QomgFQhRydAyb +DShlQG4HuzcPfx9P77w13RTra6vvcsZ8ifC8boyeJuDsL8E/+DD/PBdHW3hv +ktBlnZjviyg0EyzGebgVz5P5xXatn1yk+cHswHwDE0iD39Wbz3LRiVOLj9Fp +FjzT6fOV/DyHEnbWxO/PZMNg/aLDsFQa4ji6aqDtdMj9Pqx4wA3PI14eW8PP +dFif7LApuouL/DRD9UPOMUCvr14ydCvWo2ruwRIgAEaf+kRZ4f43dmqYN5EA +BVqKYAWO36l9TuIsICHJ8naxnQWuF151pY4uEowZHo7aLAq9TSmqnL3KBK3C +Tuv4bHx/21fVS+2YL887fY+EU5Bs3OcpX0MG1L4vbg9fR6Ed9eN5DX0M6HkW +/PyxOYUkHLYmh3kTsCQfceAw9qeVeHfWgkXCa3cXZ3MbCp3XifIfyyNBdUeM +qsYW7P9eiYq9EgE1P4Unr57G8/pijLJnHdZvFfg7AfMVPrITOuxJOMRL+GzE +9T321M775igbshJdLjSJYd7l7l43cSDAh/Pr01bMi8KhTXaeK0mIFUyUmME8 +eQ2ENJWzCMjoG67Yfwr3N5WlP3QLCTgUxuTjw/rS02vfVUcSsDpsSLwD28b7 +x24JAgGJ2a59qpivb4Wqprm9BIS9sP7jMeaLHZr2mOCyQd+3wabgfhKq4d03 +qWpJgI6qZZQN1ru05oWPVCbW//Vy60V8X1+Iz/a0QAIohQ0oA9us6MHXd1sJ +mGdlcF5ifsz0+2iu5wh4/Jr0aMX6b5oaPj5WSUDOexd3B2y71zGODdwnYLpi +ruIbfn/X4gcVy0U2lCoutyJOJiGa3FaB48vwvlToWDM7MImqDJRkyoZoEHt0 +W2HdVi7if54bBH50oKlZtjYncZFIKt+imBwDoqMytb0Ecf8RSzJQLmEAn1Rc +5gze7yOiUxbCTfC8CakwVMT6Pr70KNeZxPGwaEs8hvm+r7lNyOMGCY+iA9S8 +gUKzxuEVTCXMc7uiUucwFzneamlIqGeCkfxdMwPMq6OGqOPLUywo/nOhaL51 +DnXE79TlZrDBsu/eF22VNNS0rHhuUI0OqW0Z0ZdxPcSndTuVN9JhKULwBH8n +F73vdn2y3o0Bbo18ASGYlzcdbjVvl+N9iE/vpCjmuzpJJNgrHufPIG9XHY6P +9JLEqjJdEnbnvxrlx/udz1sv2786SBA+5OEcIY7Pu6pNePgywe+2Uv1dvC8U +aR/6KN+G97fs9sO3JVKQy+4iY8n9DDAtjVFylaTQr0uCq7x7GXDe82nWb7yP +pa/r1OO/QsDratnDWtjf7NF9AwsECS7jPcpNmG+h3635VjkkGN0anjyJ6zEa +WgJFNhFgvs7WVBrz3bdZv268lgBVIe3JNsyLQcKE0tVTJGwXSzD6hflev7KT +oTPChhLG0c+ysslIokNPqtaOANmwbbO/8fm+ld0HJZaTMEYaV57E+4pSRALb +mcT8XJVs+IL3BbOh9LSXLwn47Z0YIof1adpeskPhBBQ0Bik2Y5t3auXgS10C +1hiNlfTjfLq794xt6ibgfJB/6A/Mt9WotE71LBsUk9oWC1KTkHnRdPizYwTU +BeS1rMf+b9ZYkjHPCIiQVlS5ie9zhw3NMtcJuP4rcncstlONOZarPxPwrzu9 +Zhrz07cQkf2PKwG1VjeuZ2OeWUJc7eZyAngDSxU52F66/mbmRDQBkV6D3f/3 +d2/r3fVCC2xY8JhIGXdJQukaBQduJBPwt1exwQv8f0TWNcG1fxNAnN34wRXb +PC4/vredIeDNw2YVS3yfptfB81XFeH/aFjPRg22JKQklYw4BXc8awnr/12vB +/y05mwC2QvPECWybNTY8UA4h4B90u6jk/3qlOZU5PySg/8khyS5sC8Sa3ctc +YoNc/7rOvQeS0H+9eGjS + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 198, 152, 114, 84, 63, 51, 2, 3, 4, 5, 6, 7, 8, 9, + 199, 153, 115, 85, 64, 52, 210, 164, 126, 96, 75, 10, 200, + 154, 116, 86, 65, 53, 211, 165, 127, 97, 76, 11, 201, 155, + 117, 87, 66, 219, 173, 135, 105, 54, 212, 166, 128, 98, 77, + 12, 202, 156, 118, 88, 67, 220, 174, 136, 106, 55, 213, 167, + 129, 99, 230, 184, 146, 78, 224, 178, 140, 110, 233, 187, 149, + 13, 203, 157, 119, 236, 190, 89, 228, 182, 246, 144, 240, + 194, 68, 221, 175, 245, 137, 238, 192, 250, 107, 232, 186, + 248, 148, 242, 196, 251, 56, 214, 168, 244, 130, 237, 191, + 249, 100, 231, 185, 247, 147, 241, 195, 79, 225, 179, 141, + 239, 193, 111, 234, 188, 150, 14, 204, 158, 120, 90, 229, 183, + 145, 69, 222, 176, 138, 108, 57, 215, 169, 131, 101, 80, 226, + 180, 142, 112, 15, 205, 159, 121, 91, 70, 223, 177, 139, 109, + 58, 216, 170, 132, 102, 81, 16, 206, 160, 122, 92, 71, 59, + 217, 171, 133, 103, 82, 17, 207, 161, 123, 93, 72, 60, 18, + 208, 162, 124, 94, 73, 61, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 209, 163, 125, 95, 74, 62, 218, + 172, 134, 104, 83, 227, 181, 143, 113, 235, 189, 151, 243, + 197, 252, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11.5}, {0., 1.5895727831736257`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF0YB/BEG95CM3PvDLJPWhRClnQelRYiRdIiS0QIpUWWN8oWIdNC +SkXWEkLWLEmkSMhS1iyVLNnN9aL3+GM+8/n+cef87pznPOeRsnY5ZLt40aJF +s/iz8G3N0eVftEgI9JckVYd0jyGazOblxxcLgVqefeVU7xh6l0UuzeETgp0N +zGPWP8eQfOMAj9MKIehs5OhqDY6hYYJDNYsIgfCDEvmJyTF0JabjV7qcENiq +mRT5rhhHt5IvV1ro498rXf5nudI4KilO8Su5JwRv0B1I9R1HWhf0WAqawqC9 +I+tdtNoEGolx3FRRLwxORe71Ob0TyGdIf9LSXgTM1u9Llo+YRJsr7JtT+FfD +G55vSuv1phC5eqn6mrjVEBazhpk1MoUk+zuzYDcNto36yZ65P414+9y7bX7S +4J8z760/KHBRuZ6CVHE/DaKPbsmr3sxFfhnfLYhBGgRtnamvUeIiPi+99qoR +GvSU65tUq3LR0tViLZtmaHAkp8WuQJuL+HVKariCdHjnLtR91ICLhGOW5N9U +pkMwKyPlkSMX1S8umO5ToUNyc2rk5bNcxLF3VkNb6ZD1c0D+gAsXiag0Z41q +0eFO1ZzizHkuon1MTjPVpYOyEbMAeXARSenHS5rRIcfAqiIwiIskDnPCs73p +sKrHIYgvHud7kRUAPnSgqZg3NSRw0S++Ru/qa3ToCjU8FZvERZnZhFNvIB2+ +v12quvU5F+2mxeylcejQs/zLbYNMLnJuSOK5kEgH9lyFpGwpF70+WOS2pZYO +G+suPnX5xkWxKR0OJXV0mA/jP8HXxkUBPIus9b/QYW2i3YbIdi4yernD6NRX +OhSMRq/I7eKiXqH3G2/30EGmtD+28wcXCXyu7xubpkO5mbVKwxgXHTP8dSRT +kgFw6NFdrRUUEkrmnRORYUBkRJqmBz+FKngk4tzkGHCCFkHLFaCQ0qvDgyrr +GfBpkfipDSsptFzsrU/uFgYEWscenBehUG5/TMrr3diKNcn7xSjktDPfUHwf +A4yLohScxSkkHfNl3FufAVUfClpC11AozEhgOzJiQIWT+6NKSQqdznWvf3OU +AYSvWq2sHIVo/sb/VTgxQJT1crG/AoU+dDg/WevCAJc6Xr+gTRTyUQ/WDTrH +AJ3uGvHgzRQaGCgN33eJAZ/zTkcGKlGo7NAm2eqrDPjzmh3iqEqhc5IrDOo4 +DJjLGyxo2kahT4XFj1rzGPAoojZcRY9CoiIJeoqFDOCViEmbxLa3D5nyK2JA +Viu7K1ufQrx0M8NNZfj5i7fdFQwopO48OufzkQHXT047LDOiUJykrDm7gwGm +b8zzzQ9T6M8l/hWeXQw47/40/S/2tpqR7NpuBnQ+D3zx2JRCzVeKBK/8ZEBt +nFfR1yMUEmwwff1xhAGWUe6iascodMn/hug5XgIsG2na4Scp9LbVpfLdEgLs +eXVOClvg/VI2dWMtJwCGnnpFYD/vkP74VpCAry9C00IsKdS19bUHg0HAvbKo +RjtrCimExbEdSQIeXxWv/Yrt0RtUX8IiILV7oHTfKQrRIw6vPyNBwHHruWAZ +Gwrp/R7+WihPwE+rXcnFthSKhEZ/oQ0EmK6xNpY8TaHee4VKtgoEVP4WHLuK +fXVn0I2VygSweAuWadhRKPuhlIaVFgGJDS5+HHsK8Ywv63ulTcAqg+HCHmzD +fcO3+IGA+AznbuUzFPo1WfAraxcB165vn/mALX7AJGqpIQHRmZW63Q64XiKT +ZkONCFANKtWXd6TQoq4ZS7oxAU7NNe2O2L2usetkzQiolXJ7OoBtmj8R+vwY +AdV+2Y1rnShUybN3TNmcAC1l8wgr7Gec4QIdawLOBO6Mq8EWa9WRqLIhQDpk +y9Rf7DCZu9eN7Ajw4vz5vPksXs/p18/mMwS8fdigZI59Lltrv4UTAZ8/bCOD +sLtnwzJ+OBNQZXHjega2iW43zfkc/r/fkG5N2OpNQe1el/D+qV5vYznj9de0 +6fBdIeBNhfRhDWwxu82JIZ4EzMuGHTiMHZZ+jX/1vwQQZ9d/dMb+O93oHO1D +gGe3eaU/tiusa5C6TsD1P+E7o7G7g7y2pvgTQMmtQ6nYJnW1DxSDCPiBbucX +YlcwZRblBRPQKqGR+R5b3fqSDQolILcuQL5hIc+zqvcV4QSsDOkXbV3IMy6m +YMghoP15bUgXdqiWa0TjHQJGi5Mv92DPX387eSKSgHCPvo4Fu1YzjvXeJ2Ci +dLr0+0IemkOx40MCep4cEm9fyGNeJD3+iAAZU4fxxoU8CUKBHrF4Pb3sHdUL +eYZPDfDEEyBHS+IvXcijlnvgRiIB/3oU6L3EFr3Kny2UQsDB83aLn2DfrDQn +o54TECYpr3RzIc+ql14Safg8fLvcdHEhjxnf98QMAthyDaMnFvI8OaK7KQvX +T17uNZ2FPP3PUl69IuCvZ3yQzEIepfl/tPMIOBTC5OVdyONx8Hx5AT4/W6JG +O/H+pZTFN+kX4XqbjDMuwGYJcDUbSgjg8S+S52DfNNZ/fKyMgMwPTq522K69 +o3ZnKglYLfX0MP9CfWzUrR6pIkBZQHOsGdeXycUoRfdqnNfC/28c9taliAqo +IyBN/7SDEnayIcd85RcC/nOlV07gemZF9r2520TADCuV8wp7fu3N4PhWAo78 ++/nCZmxX187hDR0EnA/wDf6Fz8v3PGXjrC4CQl5a/vMYu3zfV9GyPgJKg+bM ++LBDHNkvOv8QsLZ4x2w6Po+fXrmVaI3h82jWHH8MW2jRm7rICQLO/uH/hxf7 +3p3jUwcoAiYFV4sa4PP9pOgWKl1Mgkv0VrkK3B+6l3UcFFtCwjBpWHYSW+7Q +Bhv3ZSRE88eLTeJ+8uzHuyBFQRLWuo8sE8XOXvVf3RM6CedmXF7q4340dXRv +7yxBgtNIp2K9FYU04u9OmbFIeOPq5GiKXayuKCosQUJdTquQGe5vVVa2Nr7y +JHy6ZMAA3B87smqnrLRIWBl0oSXuKIUk58VWFGuTsDPn9RAf9qm9DqIsICHB +/HaBjRnuN218UL+LhEmj9R7iuP+OL9G8scOQhLmYXyFuJvh+M4sXlbEiYYOy +3JeXhrgfxo0qXD1FwlaROIM/uP+HDm6HVlsSDvEQXuuxRXy/2tx2IKEg3Hb6 +Pr4vxJ+tTOO9QIJDzRYb870UUp51h94AEhKp4vmLOhS6r75FwO0GCY8i/VQ8 +AfeXi0ONPDdJaLeMz/FGeD+GrBwlIki4lv/gsYc2hRw79e4de0DChUDTxSYa +FIovExv8nI7ff3nbvJ8ihQT+NuVYZJJgcGtg7CS+D89rRfgOZ5OgvC1KWQ3f +l5C9hBAsIOGxW9Wdtg0UaksY1tlTTkL/wLfe5Wtx/79RGlnUQkJWdUZBJ76/ +vd55WO9vJUHwkJtjmCjurzyqCq3tJBgy3Ow1WRTK9Egp43aTsGTttT3BBO7n +TpyhLUMk8FhEPFyB54GAAzY7n/EwoWSr/+uApRTi0pf/ubeeCel7KgY8h7ho +yjC0lKnABLJFXqFtgIsmA0U4DzczwWVmrkXjNxeNUWKqcSpMSLWfdh3C88tg +u5Lni+1M+K2llKKK55uuhOPLyg8xgQpQuKxXz0XvVdMlRj3w83KCaYHZXFTh +rDLq5s0En9sKNXfxfPUuKb9s6ioTNPLaLGMzuKiMWW4768eEX+DxMyMVz1tz +Lc+XhTNB21HY+yWe5zLeLVZf85QJKQJJ8hp3uOj+YVMj/Y9MiLK9nWd7jovs +bzXWxtUwwUD2rokenh/VP5ocmKnF76P3t2Ijni+bwNgw5QsTLh+sVxywx/Pk +RqP9yzqYcCtJQM7QkotuLdbb+3aECTof3KZTDfE8l64NWgwWsCz3pNet46IL +K+QUN1ixYLxr3Z3Gr9PIXk3Y/tUpFhTsns2faZpGJ07NPUanWfBcq9tb/Ms0 +2lXUuMrEkQXNEqjn+KdptPpcwB+viyyI7mzUel02jTJbfqZ9usGCXXYfegWe +T6PRpGcK5zNZYBwuazR0ZRo571bckM8rCndORBcOCU2j2OnC+PMPRGH9bEy9 +jdoUGlfy0/iGxKA84PdLg42TSJIj4LvzuxhIX1KLebByAgWcXr2n5bI4DNvu +/aQ6PoYEyo/Ii4quAd0HiY2srFFUdVcs6EbWGpCV+Mmj6TuCrEOfRFN7JWBM +wXnVvcRhxFpp9Z4YkAD+d/3rpMQG8Xx7sEBRRxJ8Ti+V0qjqR+Glqx5tvC0J +l3xjCfLoT+Qvsul4So8kJB+z1Dy9qg9FPbrZXLhJCnppkzlBK3qQpssNKzkf +KeA9+6LTYKYLUVcqnslWS8HVCRPhVssOlECcqolnSEP2NadRS6lW9J2KmfO0 +k4Zgjnh9eV8z0mAwh35lSsPRHZmy6exGJHVZ+Xcqnwyw8g8m+l6sR2yRm4lL +D8rAt/HZH95bPiMSdLd9fyADCa9OZ4SfrUbRmQ87RYZkQHCm3VIi8j1St1DZ +8U1dFgI3VV6wcnyHThs5ZHKDZQGa7Dl+NmXI98vf/yJbZeFfYT+DjsgSlM9p +5Kthy0GJ+czTuGOFyOfuPtGj7nLQ1yX5b4tZLrKpnxvxKJeD7UYC0f7MbKQa +J/xEfBUbfNY0S0cZv0T3ct6eICzZMDYv8irg/AtEW5LTkvicDald86F3d6Sg +1tjt2txUNph33/uqqZSC4rZXxu5LY0NfzZzdgEQKUnRvcRjMYINKQoOy81wy +2j8wM6uUwwYu5+Z7Ki8ZXa9DUkWlbOgv+aQto5yMxmKqzjQ0siGU9mw7Z2MS +ytc89Em2GTuj5fBtsSTk0/xN+VILG9a73+l+JJiEVgoP/ke2Yp9r2dk4mIjW ++a0MO9nFBu8ObffiF4nI0sE4s/83G0xky/d4KyWitcvaGFqDbChkHP0iLZ2I +hp/aeN4cYkN6vNOFepFE5NV+cdfmETaID000HZhIQFFGUU0XJtnw3f2Sd1lu +ArIYktSqmGKDfELzXG5yAmIHpzwmuGzQ9a61yr2fgLLfFtgXzLChLqrydYNn +AvK03FkjMMuGWbfRpBGnBLRj7qOS+RwbiuSXWBAnE9DyaJN7afNskOlZ07bn +QAKqVWuf+fuXDR9KzZnXIAH9D0OxaNI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11.5}, {0., 1.5895727831736257`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF0YB/BEG95CM3PvDLJPWhRClnQelRYiRdIiS0QIpUWWN8oWIdNC +SkXWEkLWLEmkSMhS1iyVLNnN9aL3+GM+8/n+cef87pznPOeRsnY5ZLt40aJF +s/iz8G3N0eVftEgI9JckVYd0jyGazOblxxcLgVqefeVU7xh6l0UuzeETgp0N +zGPWP8eQfOMAj9MKIehs5OhqDY6hYYJDNYsIgfCDEvmJyTF0JabjV7qcENiq +mRT5rhhHt5IvV1ro498rXf5nudI4KilO8Su5JwRv0B1I9R1HWhf0WAqawqC9 +I+tdtNoEGolx3FRRLwxORe71Ob0TyGdIf9LSXgTM1u9Llo+YRJsr7JtT+FfD +G55vSuv1phC5eqn6mrjVEBazhpk1MoUk+zuzYDcNto36yZ65P414+9y7bX7S +4J8z760/KHBRuZ6CVHE/DaKPbsmr3sxFfhnfLYhBGgRtnamvUeIiPi+99qoR +GvSU65tUq3LR0tViLZtmaHAkp8WuQJuL+HVKariCdHjnLtR91ICLhGOW5N9U +pkMwKyPlkSMX1S8umO5ToUNyc2rk5bNcxLF3VkNb6ZD1c0D+gAsXiag0Z41q +0eFO1ZzizHkuon1MTjPVpYOyEbMAeXARSenHS5rRIcfAqiIwiIskDnPCs73p +sKrHIYgvHud7kRUAPnSgqZg3NSRw0S++Ru/qa3ToCjU8FZvERZnZhFNvIB2+ +v12quvU5F+2mxeylcejQs/zLbYNMLnJuSOK5kEgH9lyFpGwpF70+WOS2pZYO +G+suPnX5xkWxKR0OJXV0mA/jP8HXxkUBPIus9b/QYW2i3YbIdi4yernD6NRX +OhSMRq/I7eKiXqH3G2/30EGmtD+28wcXCXyu7xubpkO5mbVKwxgXHTP8dSRT +kgFw6NFdrRUUEkrmnRORYUBkRJqmBz+FKngk4tzkGHCCFkHLFaCQ0qvDgyrr +GfBpkfipDSsptFzsrU/uFgYEWscenBehUG5/TMrr3diKNcn7xSjktDPfUHwf +A4yLohScxSkkHfNl3FufAVUfClpC11AozEhgOzJiQIWT+6NKSQqdznWvf3OU +AYSvWq2sHIVo/sb/VTgxQJT1crG/AoU+dDg/WevCAJc6Xr+gTRTyUQ/WDTrH +AJ3uGvHgzRQaGCgN33eJAZ/zTkcGKlGo7NAm2eqrDPjzmh3iqEqhc5IrDOo4 +DJjLGyxo2kahT4XFj1rzGPAoojZcRY9CoiIJeoqFDOCViEmbxLa3D5nyK2JA +Viu7K1ufQrx0M8NNZfj5i7fdFQwopO48OufzkQHXT047LDOiUJykrDm7gwGm +b8zzzQ9T6M8l/hWeXQw47/40/S/2tpqR7NpuBnQ+D3zx2JRCzVeKBK/8ZEBt +nFfR1yMUEmwwff1xhAGWUe6iascodMn/hug5XgIsG2na4Scp9LbVpfLdEgLs +eXVOClvg/VI2dWMtJwCGnnpFYD/vkP74VpCAry9C00IsKdS19bUHg0HAvbKo +RjtrCimExbEdSQIeXxWv/Yrt0RtUX8IiILV7oHTfKQrRIw6vPyNBwHHruWAZ +Gwrp/R7+WihPwE+rXcnFthSKhEZ/oQ0EmK6xNpY8TaHee4VKtgoEVP4WHLuK +fXVn0I2VygSweAuWadhRKPuhlIaVFgGJDS5+HHsK8Ywv63ulTcAqg+HCHmzD +fcO3+IGA+AznbuUzFPo1WfAraxcB165vn/mALX7AJGqpIQHRmZW63Q64XiKT +ZkONCFANKtWXd6TQoq4ZS7oxAU7NNe2O2L2usetkzQiolXJ7OoBtmj8R+vwY +AdV+2Y1rnShUybN3TNmcAC1l8wgr7Gec4QIdawLOBO6Mq8EWa9WRqLIhQDpk +y9Rf7DCZu9eN7Ajw4vz5vPksXs/p18/mMwS8fdigZI59Lltrv4UTAZ8/bCOD +sLtnwzJ+OBNQZXHjega2iW43zfkc/r/fkG5N2OpNQe1el/D+qV5vYznj9de0 +6fBdIeBNhfRhDWwxu82JIZ4EzMuGHTiMHZZ+jX/1vwQQZ9d/dMb+O93oHO1D +gGe3eaU/tiusa5C6TsD1P+E7o7G7g7y2pvgTQMmtQ6nYJnW1DxSDCPiBbucX +YlcwZRblBRPQKqGR+R5b3fqSDQolILcuQL5hIc+zqvcV4QSsDOkXbV3IMy6m +YMghoP15bUgXdqiWa0TjHQJGi5Mv92DPX387eSKSgHCPvo4Fu1YzjvXeJ2Ci +dLr0+0IemkOx40MCep4cEm9fyGNeJD3+iAAZU4fxxoU8CUKBHrF4Pb3sHdUL +eYZPDfDEEyBHS+IvXcijlnvgRiIB/3oU6L3EFr3Kny2UQsDB83aLn2DfrDQn +o54TECYpr3RzIc+ql14Safg8fLvcdHEhjxnf98QMAthyDaMnFvI8OaK7KQvX +T17uNZ2FPP3PUl69IuCvZ3yQzEIepfl/tPMIOBTC5OVdyONx8Hx5AT4/W6JG +O/H+pZTFN+kX4XqbjDMuwGYJcDUbSgjg8S+S52DfNNZ/fKyMgMwPTq522K69 +o3ZnKglYLfX0MP9CfWzUrR6pIkBZQHOsGdeXycUoRfdqnNfC/28c9taliAqo +IyBN/7SDEnayIcd85RcC/nOlV07gemZF9r2520TADCuV8wp7fu3N4PhWAo78 ++/nCZmxX187hDR0EnA/wDf6Fz8v3PGXjrC4CQl5a/vMYu3zfV9GyPgJKg+bM ++LBDHNkvOv8QsLZ4x2w6Po+fXrmVaI3h82jWHH8MW2jRm7rICQLO/uH/hxf7 +3p3jUwcoAiYFV4sa4PP9pOgWKl1Mgkv0VrkK3B+6l3UcFFtCwjBpWHYSW+7Q +Bhv3ZSRE88eLTeJ+8uzHuyBFQRLWuo8sE8XOXvVf3RM6CedmXF7q4340dXRv +7yxBgtNIp2K9FYU04u9OmbFIeOPq5GiKXayuKCosQUJdTquQGe5vVVa2Nr7y +JHy6ZMAA3B87smqnrLRIWBl0oSXuKIUk58VWFGuTsDPn9RAf9qm9DqIsICHB +/HaBjRnuN218UL+LhEmj9R7iuP+OL9G8scOQhLmYXyFuJvh+M4sXlbEiYYOy +3JeXhrgfxo0qXD1FwlaROIM/uP+HDm6HVlsSDvEQXuuxRXy/2tx2IKEg3Hb6 +Pr4vxJ+tTOO9QIJDzRYb870UUp51h94AEhKp4vmLOhS6r75FwO0GCY8i/VQ8 +AfeXi0ONPDdJaLeMz/FGeD+GrBwlIki4lv/gsYc2hRw79e4de0DChUDTxSYa +FIovExv8nI7ff3nbvJ8ihQT+NuVYZJJgcGtg7CS+D89rRfgOZ5OgvC1KWQ3f +l5C9hBAsIOGxW9Wdtg0UaksY1tlTTkL/wLfe5Wtx/79RGlnUQkJWdUZBJ76/ +vd55WO9vJUHwkJtjmCjurzyqCq3tJBgy3Ow1WRTK9Egp43aTsGTttT3BBO7n +TpyhLUMk8FhEPFyB54GAAzY7n/EwoWSr/+uApRTi0pf/ubeeCel7KgY8h7ho +yjC0lKnABLJFXqFtgIsmA0U4DzczwWVmrkXjNxeNUWKqcSpMSLWfdh3C88tg +u5Lni+1M+K2llKKK55uuhOPLyg8xgQpQuKxXz0XvVdMlRj3w83KCaYHZXFTh +rDLq5s0En9sKNXfxfPUuKb9s6ioTNPLaLGMzuKiMWW4768eEX+DxMyMVz1tz +Lc+XhTNB21HY+yWe5zLeLVZf85QJKQJJ8hp3uOj+YVMj/Y9MiLK9nWd7jovs +bzXWxtUwwUD2rokenh/VP5ocmKnF76P3t2Ijni+bwNgw5QsTLh+sVxywx/Pk +RqP9yzqYcCtJQM7QkotuLdbb+3aECTof3KZTDfE8l64NWgwWsCz3pNet46IL +K+QUN1ixYLxr3Z3Gr9PIXk3Y/tUpFhTsns2faZpGJ07NPUanWfBcq9tb/Ms0 +2lXUuMrEkQXNEqjn+KdptPpcwB+viyyI7mzUel02jTJbfqZ9usGCXXYfegWe +T6PRpGcK5zNZYBwuazR0ZRo571bckM8rCndORBcOCU2j2OnC+PMPRGH9bEy9 +jdoUGlfy0/iGxKA84PdLg42TSJIj4LvzuxhIX1KLebByAgWcXr2n5bI4DNvu +/aQ6PoYEyo/Ii4quAd0HiY2srFFUdVcs6EbWGpCV+Mmj6TuCrEOfRFN7JWBM +wXnVvcRhxFpp9Z4YkAD+d/3rpMQG8Xx7sEBRRxJ8Ti+V0qjqR+Glqx5tvC0J +l3xjCfLoT+Qvsul4So8kJB+z1Dy9qg9FPbrZXLhJCnppkzlBK3qQpssNKzkf +KeA9+6LTYKYLUVcqnslWS8HVCRPhVssOlECcqolnSEP2NadRS6lW9J2KmfO0 +k4Zgjnh9eV8z0mAwh35lSsPRHZmy6exGJHVZ+Xcqnwyw8g8m+l6sR2yRm4lL +D8rAt/HZH95bPiMSdLd9fyADCa9OZ4SfrUbRmQ87RYZkQHCm3VIi8j1St1DZ +8U1dFgI3VV6wcnyHThs5ZHKDZQGa7Dl+NmXI98vf/yJbZeFfYT+DjsgSlM9p +5Kthy0GJ+czTuGOFyOfuPtGj7nLQ1yX5b4tZLrKpnxvxKJeD7UYC0f7MbKQa +J/xEfBUbfNY0S0cZv0T3ct6eICzZMDYv8irg/AtEW5LTkvicDald86F3d6Sg +1tjt2txUNph33/uqqZSC4rZXxu5LY0NfzZzdgEQKUnRvcRjMYINKQoOy81wy +2j8wM6uUwwYu5+Z7Ki8ZXa9DUkWlbOgv+aQto5yMxmKqzjQ0siGU9mw7Z2MS +ytc89Em2GTuj5fBtsSTk0/xN+VILG9a73+l+JJiEVgoP/ke2Yp9r2dk4mIjW ++a0MO9nFBu8ObffiF4nI0sE4s/83G0xky/d4KyWitcvaGFqDbChkHP0iLZ2I +hp/aeN4cYkN6vNOFepFE5NV+cdfmETaID000HZhIQFFGUU0XJtnw3f2Sd1lu +ArIYktSqmGKDfELzXG5yAmIHpzwmuGzQ9a61yr2fgLLfFtgXzLChLqrydYNn +AvK03FkjMMuGWbfRpBGnBLRj7qOS+RwbiuSXWBAnE9DyaJN7afNskOlZ07bn +QAKqVWuf+fuXDR9KzZnXIAH9D0OxaNI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlnk8VVsUx4lKeIXuvefci8w3DQohQ9pL5VU8UiQNMkSEUBpkeFGmCLkN +pFRkTggZMySRIiFDGTO8kiGzezz09vvjfO5nfe4+e/3OWt81yNi6HbJfxsPD +s4Cf/39tOfqCPDwiYLg8pS6sbxKVl6UFlN8TgdfoDmT4TyGdCwYsJW1R0N2V ++zZWYxqNxzlvqW4SBZdSz6b8gWnkN2o4Y+0oBhYb96cqRs2grdWObWmCa+E1 +71eVjQaziFy7QnNdwlqIiFvHzB2fRdJDPbnwJw12TATIn7k/h/gGPfvsvtPg +jzPvbN8rcZHUYU5kni8d1vQ7hfAnctEx4x9HcqQZAIce3dVZRaGPJWWPOgoZ +8CiqIVLNgEKSB8xiVhgTEJtTo9/nRKEwZ/bznl8ErC/btZDlSCHVBU8YCCIh +mSpbuqhHIS5d4Ne9jUzI2ls97D3KRfcPm5sYfmBCjP3tQvtzXHRhlYLyJhsW +TPVuuNPyZQ65/qm8qYhPHO6ciC0ZFZlD8XMliecfiMPGhbgmO41ZNKUSoPUV +SUBV0M8XRptnkDRHyH/3NwmQvaQR92D1NAo6vXZv+2VJGLPf91F9ahIJVR1R +FBdfB/oPkltYuROo9q5EyI3cdSAv9Z1X238c2YY/iaX2ScGkkuuae8ljiLXa +5h0xLAWCb4c2yEiMoCDeg8XKetLgd3qFjFbtEIqsWPNo821puOQfT5BHv6NA +sS3H0/qlIfWYtfbpNYMo5tHNtpItMjBAm8kPWdWPtN1u2Cj4yQDf2ec9RvO9 +iLpSnS5fJwNXp81EO6y7URJxqj6RIQt511wmrGU60DcqbtHbQRZCOZJNVYNt +SIvBHP2RIwtHd+XIZ7FbkMxl1Z8Z/HLAKjqY7H+xCbHFbiavOCgHX6cW/vHd +9gmRoL/j2wM5SHp5OjvybB2KzXnYIzYqB8LzXdZS0e+QppXarq+a8hC8peaC +jfNbdNrEKYcbKg/Q6sgJsKtE/p9//xvdIQ9/iwYYdUeXoyJOC389WwHKLeef +JhwrQX5394sf9VSAwV7pv9stCpBd0+K4V5UC7DQRig1k5iH1BNEnkmvY4Leu +TTbG9AW6l//mBGHNhsklsZdB558j2vL89uRnbMjoXQq/uysNNWh0zf/+zYb3 +FZbMa5CEbqVerrEyFAGNCoFfAipTSDRuedFNVTqEsrLTHjlz0auDpR7bGuiw +ufHiU7evXEQLNP232oUB4qwXywKVKHQp8Ib4OT4CrFtoupEnKWRmWSo79YgA +OXOnqRZXCnXnNsza6JCwOuRCe8JRCtFvVESXtpOQW5dd3CNBoXfqWVITXkxw +UxDODM7joqAsXdBhsIBlvTercQMXTaSkK53PYYFppLzJ6JU5NBlXe6a5hQ3h +tPSdnM0p6Epc948sBRGw1zAr9V81hQT1yuu5wnR46ynSd9SIi1ybU3gvJNOB +vVgtLV/BRQVDcWmv/mRAsHJ96l/Yf4K0vCW7mwHmry2LLA9TSLM1pMvnEgGO +6tc7WVh/3pp/G5/QSTg37/bC0JZCiZUSI5+ySPgo0LkUoEyh3qTjK6sOMYEK +Urps0MRFt5YZ7HszzgS99x5zGcZclNP+PfPjDRbscXg/IPRsDl1vRDKlFWwY +Kv+oK6eaikjKMFHagg75RjbVwSFcJPSpaXByjg5VFrZqzZNcdE56lVEjhwGL +hSPFrTsoZPBz7EuJIgHfbfakltlTyH1gwuFMDQFrZZ4eFjxLIQGLRHE5GxI2 +qSp8fmFMoaADdrvTeZlQvj3wVdAKCmW/Xaa57ikT0oRSFLXucJG1k2nO0E82 +mMlX7fVVSUZjBIdqExMB0QflitMzk2jFWon2LfM0OJLf7lCsy0V/0uL20Th0 +6Bf4fNsoh4sEJN74FWzD8bSNP7gkhuPnOrHo94EB10/OOa00oVA6Z6xYz5aA +M8G7E+pdKPSk9BaqWEaCW+x2hWqs37nH4N6xByRcCDZfZqZFoZEuFe/nO5nw +U0clTb0X87bZ5K+V3Uy4lSKkYGzNRWvPBf3yuciC2J4WnVeVc+iv4fkFlXw2 +cDk331GFqYj2ITXTXJ8OqibMYuTFRQMi7zbf7qeDXMVQfM8/XFR5aIt83VUG +/HrFDnNWx/nb/sqLwSDgXmVMiwPOb9+TI/pbcglQLyy4pofzP7Vc+8YuYxIW +436EeZhRyNiFM7ptlAReq6iHq/D3vlpsf7Yykgm6zqK+L3A/3xCwOuJkLxt8 +u3U9y54no9MFnk2vjzKA8NdokFegkHCz+asP4wywjvEU1zhGoWqmHE9hKAEd +Ulo577C/Wht7O39FzNclIwbgeupMGtPbW0XC0PDXAYH1mMeHMlo2OgQkN7sF +cHD/X1p/MzSxg4Ajf3+6sNUZz4v01Zl8F0hwqt9mZ7mPQjEmMa0XZtjwzfOS +b2VBElJsGeZ1WSUCPS0cfZ2RScTvY9BVO06D/ipDszp1zGse4TIQTIdvb1ao +b3/GRSovD4+obWTARx7JU5tWU4iPbmG8pRLzePG2p5IRhQbc4zfIWxDQIOPx +dBj7v3fn+OwBioAZ4bXiRg54no3aOEtFkXCt6MFjL10KTVIS6glqTMhwnHMf +xfloBVPjtM9MuHywSXnYkYv2lLasMXNmQZsU6j/+cQ4pe7Y7jWSzQS2pWdV1 +MRWJqbXlTujQ4U7tovL8eS4yebHL5NQXOhRPxK4qwLwMD1dE7r/EgE+Fp6OD +VSj0rFv2wxthAr48D88Ms6aQ+FXBPJE0Ag6ed1j2BMf7Ryc/NO0hYcZko5fk +EQrleKVVcvtIWL7+2t5QgkKVzCr7hQAm/ACv79kZXLRadORfsoMNG8+1724Z +SUYRJkI7kQkDql08H9VIU6jtSqnwle8MaEjwKf2C7/s91+Ia60eAd59lTSD2 +V6apLC4qRUJjfoeIBdYDecsJ4WISHnvU3uncRKGru0NurFYlgMVXvFILx2/7 +CkQFNRKQaXjaSQXXj5j/F7vbTiQUR9rP3TekkE/XxT1bx9kgOTrdemA6CZ3L +0/nLyoWAT+93kCG4H6T/8zZEWZiE9Z7jK8XtcP+NOrzxjBQBx20XQ+WwnVaZ +2GpYSoDLTIJpMT4fruMe1XKHgImy1Mv9/8dnpvhH7h4Crl3fOf/+DIWq9n8R +rxwkoCJk0YIf7yN5b4odi+fZ0BhT86rZOwm9zSVX5POLwO5m5jHb75MoIPub +FTFCg5Dt8031Klz0g7/Ft+4aHXrDjU/Fp3BRNa9UgocCA07QomgFQhRydAyb +DShlQG4HuzcPfx9P77w13RTra6vvcsZ8ifC8boyeJuDsL8E/+DD/PBdHW3hv +ktBlnZjviyg0EyzGebgVz5P5xXatn1yk+cHswHwDE0iD39Wbz3LRiVOLj9Fp +FjzT6fOV/DyHEnbWxO/PZMNg/aLDsFQa4ji6aqDtdMj9Pqx4wA3PI14eW8PP +dFif7LApuouL/DRD9UPOMUCvr14ydCvWo2ruwRIgAEaf+kRZ4f43dmqYN5EA +BVqKYAWO36l9TuIsICHJ8naxnQWuF151pY4uEowZHo7aLAq9TSmqnL3KBK3C +Tuv4bHx/21fVS+2YL887fY+EU5Bs3OcpX0MG1L4vbg9fR6Ed9eN5DX0M6HkW +/PyxOYUkHLYmh3kTsCQfceAw9qeVeHfWgkXCa3cXZ3MbCp3XifIfyyNBdUeM +qsYW7P9eiYq9EgE1P4Unr57G8/pijLJnHdZvFfg7AfMVPrITOuxJOMRL+GzE +9T321M775igbshJdLjSJYd7l7l43cSDAh/Pr01bMi8KhTXaeK0mIFUyUmME8 +eQ2ENJWzCMjoG67Yfwr3N5WlP3QLCTgUxuTjw/rS02vfVUcSsDpsSLwD28b7 +x24JAgGJ2a59qpivb4Wqprm9BIS9sP7jMeaLHZr2mOCyQd+3wabgfhKq4d03 +qWpJgI6qZZQN1ru05oWPVCbW//Vy60V8X1+Iz/a0QAIohQ0oA9us6MHXd1sJ +mGdlcF5ifsz0+2iu5wh4/Jr0aMX6b5oaPj5WSUDOexd3B2y71zGODdwnYLpi +ruIbfn/X4gcVy0U2lCoutyJOJiGa3FaB48vwvlToWDM7MImqDJRkyoZoEHt0 +W2HdVi7if54bBH50oKlZtjYncZFIKt+imBwDoqMytb0Ecf8RSzJQLmEAn1Rc +5gze7yOiUxbCTfC8CakwVMT6Pr70KNeZxPGwaEs8hvm+r7lNyOMGCY+iA9S8 +gUKzxuEVTCXMc7uiUucwFzneamlIqGeCkfxdMwPMq6OGqOPLUywo/nOhaL51 +DnXE79TlZrDBsu/eF22VNNS0rHhuUI0OqW0Z0ZdxPcSndTuVN9JhKULwBH8n +F73vdn2y3o0Bbo18ASGYlzcdbjVvl+N9iE/vpCjmuzpJJNgrHufPIG9XHY6P +9JLEqjJdEnbnvxrlx/udz1sv2786SBA+5OEcIY7Pu6pNePgywe+2Uv1dvC8U +aR/6KN+G97fs9sO3JVKQy+4iY8n9DDAtjVFylaTQr0uCq7x7GXDe82nWb7yP +pa/r1OO/QsDratnDWtjf7NF9AwsECS7jPcpNmG+h3635VjkkGN0anjyJ6zEa +WgJFNhFgvs7WVBrz3bdZv268lgBVIe3JNsyLQcKE0tVTJGwXSzD6hflev7KT +oTPChhLG0c+ysslIokNPqtaOANmwbbO/8fm+ld0HJZaTMEYaV57E+4pSRALb +mcT8XJVs+IL3BbOh9LSXLwn47Z0YIof1adpeskPhBBQ0Bik2Y5t3auXgS10C +1hiNlfTjfLq794xt6ibgfJB/6A/Mt9WotE71LBsUk9oWC1KTkHnRdPizYwTU +BeS1rMf+b9ZYkjHPCIiQVlS5ie9zhw3NMtcJuP4rcncstlONOZarPxPwrzu9 +Zhrz07cQkf2PKwG1VjeuZ2OeWUJc7eZyAngDSxU52F66/mbmRDQBkV6D3f/3 +d2/r3fVCC2xY8JhIGXdJQukaBQduJBPwt1exwQv8f0TWNcG1fxNAnN34wRXb +PC4/vredIeDNw2YVS3yfptfB81XFeH/aFjPRg22JKQklYw4BXc8awnr/12vB +/y05mwC2QvPECWybNTY8UA4h4B90u6jk/3qlOZU5PySg/8khyS5sC8Sa3ctc +YoNc/7rOvQeS0H+9eGjS + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 198, 152, 114, 84, 63, 51, 2, 3, 4, 5, 6, 7, 8, 9, 199, + 153, 115, 85, 64, 52, 210, 164, 126, 96, 75, 10, 200, 154, 116, + 86, 65, 53, 211, 165, 127, 97, 76, 11, 201, 155, 117, 87, 66, 219, + 173, 135, 105, 54, 212, 166, 128, 98, 77, 12, 202, 156, 118, 88, + 67, 220, 174, 136, 106, 55, 213, 167, 129, 99, 230, 184, 146, 78, + 224, 178, 140, 110, 233, 187, 149, 13, 203, 157, 119, 236, 190, + 89, 228, 182, 246, 144, 240, 194, 68, 221, 175, 245, 137, 238, + 192, 250, 107, 232, 186, 248, 148, 242, 196, 251, 56, 214, 168, + 244, 130, 237, 191, 249, 100, 231, 185, 247, 147, 241, 195, 79, + 225, 179, 141, 239, 193, 111, 234, 188, 150, 14, 204, 158, 120, + 90, 229, 183, 145, 69, 222, 176, 138, 108, 57, 215, 169, 131, 101, + 80, 226, 180, 142, 112, 15, 205, 159, 121, 91, 70, 223, 177, 139, + 109, 58, 216, 170, 132, 102, 81, 16, 206, 160, 122, 92, 71, 59, + 217, 171, 133, 103, 82, 17, 207, 161, 123, 93, 72, 60, 18, 208, + 162, 124, 94, 73, 61, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, + 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, + 46, 47, 48, 49, 209, 163, 125, 95, 74, 62, 218, 172, 134, 104, 83, + 227, 181, 143, 113, 235, 189, 151, 243, 197, 252, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11.5}, {0., 1.5895727831736257`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk8VF0YB/BEG95CM3PvDLJPWhRClnQelRYiRdIiS0QIpUWWN8oWIdNC +SkXWEkLWLEmkSMhS1iyVLNnN9aL3+GM+8/n+cef87pznPOeRsnY5ZLt40aJF +s/iz8G3N0eVftEgI9JckVYd0jyGazOblxxcLgVqefeVU7xh6l0UuzeETgp0N +zGPWP8eQfOMAj9MKIehs5OhqDY6hYYJDNYsIgfCDEvmJyTF0JabjV7qcENiq +mRT5rhhHt5IvV1ro498rXf5nudI4KilO8Su5JwRv0B1I9R1HWhf0WAqawqC9 +I+tdtNoEGolx3FRRLwxORe71Ob0TyGdIf9LSXgTM1u9Llo+YRJsr7JtT+FfD +G55vSuv1phC5eqn6mrjVEBazhpk1MoUk+zuzYDcNto36yZ65P414+9y7bX7S +4J8z760/KHBRuZ6CVHE/DaKPbsmr3sxFfhnfLYhBGgRtnamvUeIiPi+99qoR +GvSU65tUq3LR0tViLZtmaHAkp8WuQJuL+HVKariCdHjnLtR91ICLhGOW5N9U +pkMwKyPlkSMX1S8umO5ToUNyc2rk5bNcxLF3VkNb6ZD1c0D+gAsXiag0Z41q +0eFO1ZzizHkuon1MTjPVpYOyEbMAeXARSenHS5rRIcfAqiIwiIskDnPCs73p +sKrHIYgvHud7kRUAPnSgqZg3NSRw0S++Ru/qa3ToCjU8FZvERZnZhFNvIB2+ +v12quvU5F+2mxeylcejQs/zLbYNMLnJuSOK5kEgH9lyFpGwpF70+WOS2pZYO +G+suPnX5xkWxKR0OJXV0mA/jP8HXxkUBPIus9b/QYW2i3YbIdi4yernD6NRX +OhSMRq/I7eKiXqH3G2/30EGmtD+28wcXCXyu7xubpkO5mbVKwxgXHTP8dSRT +kgFw6NFdrRUUEkrmnRORYUBkRJqmBz+FKngk4tzkGHCCFkHLFaCQ0qvDgyrr +GfBpkfipDSsptFzsrU/uFgYEWscenBehUG5/TMrr3diKNcn7xSjktDPfUHwf +A4yLohScxSkkHfNl3FufAVUfClpC11AozEhgOzJiQIWT+6NKSQqdznWvf3OU +AYSvWq2sHIVo/sb/VTgxQJT1crG/AoU+dDg/WevCAJc6Xr+gTRTyUQ/WDTrH +AJ3uGvHgzRQaGCgN33eJAZ/zTkcGKlGo7NAm2eqrDPjzmh3iqEqhc5IrDOo4 +DJjLGyxo2kahT4XFj1rzGPAoojZcRY9CoiIJeoqFDOCViEmbxLa3D5nyK2JA +Viu7K1ufQrx0M8NNZfj5i7fdFQwopO48OufzkQHXT047LDOiUJykrDm7gwGm +b8zzzQ9T6M8l/hWeXQw47/40/S/2tpqR7NpuBnQ+D3zx2JRCzVeKBK/8ZEBt +nFfR1yMUEmwwff1xhAGWUe6iascodMn/hug5XgIsG2na4Scp9LbVpfLdEgLs +eXVOClvg/VI2dWMtJwCGnnpFYD/vkP74VpCAry9C00IsKdS19bUHg0HAvbKo +RjtrCimExbEdSQIeXxWv/Yrt0RtUX8IiILV7oHTfKQrRIw6vPyNBwHHruWAZ +Gwrp/R7+WihPwE+rXcnFthSKhEZ/oQ0EmK6xNpY8TaHee4VKtgoEVP4WHLuK +fXVn0I2VygSweAuWadhRKPuhlIaVFgGJDS5+HHsK8Ywv63ulTcAqg+HCHmzD +fcO3+IGA+AznbuUzFPo1WfAraxcB165vn/mALX7AJGqpIQHRmZW63Q64XiKT +ZkONCFANKtWXd6TQoq4ZS7oxAU7NNe2O2L2usetkzQiolXJ7OoBtmj8R+vwY +AdV+2Y1rnShUybN3TNmcAC1l8wgr7Gec4QIdawLOBO6Mq8EWa9WRqLIhQDpk +y9Rf7DCZu9eN7Ajw4vz5vPksXs/p18/mMwS8fdigZI59Lltrv4UTAZ8/bCOD +sLtnwzJ+OBNQZXHjega2iW43zfkc/r/fkG5N2OpNQe1el/D+qV5vYznj9de0 +6fBdIeBNhfRhDWwxu82JIZ4EzMuGHTiMHZZ+jX/1vwQQZ9d/dMb+O93oHO1D +gGe3eaU/tiusa5C6TsD1P+E7o7G7g7y2pvgTQMmtQ6nYJnW1DxSDCPiBbucX +YlcwZRblBRPQKqGR+R5b3fqSDQolILcuQL5hIc+zqvcV4QSsDOkXbV3IMy6m +YMghoP15bUgXdqiWa0TjHQJGi5Mv92DPX387eSKSgHCPvo4Fu1YzjvXeJ2Ci +dLr0+0IemkOx40MCep4cEm9fyGNeJD3+iAAZU4fxxoU8CUKBHrF4Pb3sHdUL +eYZPDfDEEyBHS+IvXcijlnvgRiIB/3oU6L3EFr3Kny2UQsDB83aLn2DfrDQn +o54TECYpr3RzIc+ql14Safg8fLvcdHEhjxnf98QMAthyDaMnFvI8OaK7KQvX +T17uNZ2FPP3PUl69IuCvZ3yQzEIepfl/tPMIOBTC5OVdyONx8Hx5AT4/W6JG +O/H+pZTFN+kX4XqbjDMuwGYJcDUbSgjg8S+S52DfNNZ/fKyMgMwPTq522K69 +o3ZnKglYLfX0MP9CfWzUrR6pIkBZQHOsGdeXycUoRfdqnNfC/28c9taliAqo +IyBN/7SDEnayIcd85RcC/nOlV07gemZF9r2520TADCuV8wp7fu3N4PhWAo78 ++/nCZmxX187hDR0EnA/wDf6Fz8v3PGXjrC4CQl5a/vMYu3zfV9GyPgJKg+bM ++LBDHNkvOv8QsLZ4x2w6Po+fXrmVaI3h82jWHH8MW2jRm7rICQLO/uH/hxf7 +3p3jUwcoAiYFV4sa4PP9pOgWKl1Mgkv0VrkK3B+6l3UcFFtCwjBpWHYSW+7Q +Bhv3ZSRE88eLTeJ+8uzHuyBFQRLWuo8sE8XOXvVf3RM6CedmXF7q4340dXRv +7yxBgtNIp2K9FYU04u9OmbFIeOPq5GiKXayuKCosQUJdTquQGe5vVVa2Nr7y +JHy6ZMAA3B87smqnrLRIWBl0oSXuKIUk58VWFGuTsDPn9RAf9qm9DqIsICHB +/HaBjRnuN218UL+LhEmj9R7iuP+OL9G8scOQhLmYXyFuJvh+M4sXlbEiYYOy +3JeXhrgfxo0qXD1FwlaROIM/uP+HDm6HVlsSDvEQXuuxRXy/2tx2IKEg3Hb6 +Pr4vxJ+tTOO9QIJDzRYb870UUp51h94AEhKp4vmLOhS6r75FwO0GCY8i/VQ8 +AfeXi0ONPDdJaLeMz/FGeD+GrBwlIki4lv/gsYc2hRw79e4de0DChUDTxSYa +FIovExv8nI7ff3nbvJ8ihQT+NuVYZJJgcGtg7CS+D89rRfgOZ5OgvC1KWQ3f +l5C9hBAsIOGxW9Wdtg0UaksY1tlTTkL/wLfe5Wtx/79RGlnUQkJWdUZBJ76/ +vd55WO9vJUHwkJtjmCjurzyqCq3tJBgy3Ow1WRTK9Egp43aTsGTttT3BBO7n +TpyhLUMk8FhEPFyB54GAAzY7n/EwoWSr/+uApRTi0pf/ubeeCel7KgY8h7ho +yjC0lKnABLJFXqFtgIsmA0U4DzczwWVmrkXjNxeNUWKqcSpMSLWfdh3C88tg +u5Lni+1M+K2llKKK55uuhOPLyg8xgQpQuKxXz0XvVdMlRj3w83KCaYHZXFTh +rDLq5s0En9sKNXfxfPUuKb9s6ioTNPLaLGMzuKiMWW4768eEX+DxMyMVz1tz +Lc+XhTNB21HY+yWe5zLeLVZf85QJKQJJ8hp3uOj+YVMj/Y9MiLK9nWd7jovs +bzXWxtUwwUD2rokenh/VP5ocmKnF76P3t2Ijni+bwNgw5QsTLh+sVxywx/Pk +RqP9yzqYcCtJQM7QkotuLdbb+3aECTof3KZTDfE8l64NWgwWsCz3pNet46IL +K+QUN1ixYLxr3Z3Gr9PIXk3Y/tUpFhTsns2faZpGJ07NPUanWfBcq9tb/Ms0 +2lXUuMrEkQXNEqjn+KdptPpcwB+viyyI7mzUel02jTJbfqZ9usGCXXYfegWe +T6PRpGcK5zNZYBwuazR0ZRo571bckM8rCndORBcOCU2j2OnC+PMPRGH9bEy9 +jdoUGlfy0/iGxKA84PdLg42TSJIj4LvzuxhIX1KLebByAgWcXr2n5bI4DNvu +/aQ6PoYEyo/Ii4quAd0HiY2srFFUdVcs6EbWGpCV+Mmj6TuCrEOfRFN7JWBM +wXnVvcRhxFpp9Z4YkAD+d/3rpMQG8Xx7sEBRRxJ8Ti+V0qjqR+Glqx5tvC0J +l3xjCfLoT+Qvsul4So8kJB+z1Dy9qg9FPbrZXLhJCnppkzlBK3qQpssNKzkf +KeA9+6LTYKYLUVcqnslWS8HVCRPhVssOlECcqolnSEP2NadRS6lW9J2KmfO0 +k4Zgjnh9eV8z0mAwh35lSsPRHZmy6exGJHVZ+Xcqnwyw8g8m+l6sR2yRm4lL +D8rAt/HZH95bPiMSdLd9fyADCa9OZ4SfrUbRmQ87RYZkQHCm3VIi8j1St1DZ +8U1dFgI3VV6wcnyHThs5ZHKDZQGa7Dl+NmXI98vf/yJbZeFfYT+DjsgSlM9p +5Kthy0GJ+czTuGOFyOfuPtGj7nLQ1yX5b4tZLrKpnxvxKJeD7UYC0f7MbKQa +J/xEfBUbfNY0S0cZv0T3ct6eICzZMDYv8irg/AtEW5LTkvicDald86F3d6Sg +1tjt2txUNph33/uqqZSC4rZXxu5LY0NfzZzdgEQKUnRvcRjMYINKQoOy81wy +2j8wM6uUwwYu5+Z7Ki8ZXa9DUkWlbOgv+aQto5yMxmKqzjQ0siGU9mw7Z2MS +ytc89Em2GTuj5fBtsSTk0/xN+VILG9a73+l+JJiEVgoP/ke2Yp9r2dk4mIjW ++a0MO9nFBu8ObffiF4nI0sE4s/83G0xky/d4KyWitcvaGFqDbChkHP0iLZ2I +hp/aeN4cYkN6vNOFepFE5NV+cdfmETaID000HZhIQFFGUU0XJtnw3f2Sd1lu +ArIYktSqmGKDfELzXG5yAmIHpzwmuGzQ9a61yr2fgLLfFtgXzLChLqrydYNn +AvK03FkjMMuGWbfRpBGnBLRj7qOS+RwbiuSXWBAnE9DyaJN7afNskOlZ07bn +QAKqVWuf+fuXDR9KzZnXIAH9D0OxaNI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.5, 11.6}, {0., 0.9521831535011787}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9, + 3.992486691219887*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"29ee3dbb-924b-4cd4-bd6c-cb64a0cfd807"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n"}], "\[IndentingNewLine]", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11.5"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"7.5", ",", "11.6"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.03", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.8", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.68", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488340990429*^9, 3.992488340990801*^9}, { + 3.99248851214779*^9, 3.992488575453525*^9}, {3.992488605877206*^9, + 3.992488606529983*^9}, {3.992488674575527*^9, 3.992488675867921*^9}}, + CellLabel->"In[87]:=",ExpressionUUID->"b21c67d1-a286-413a-8edf-1c3ffe1691c9"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = + 1.2300000000000002`, $CellContext`yyv$$ = 2.6149999999999998`, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.03, "yy"}, 0.01, 2.8, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.68, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {106.96119404960565`, 112.58619404960565`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.68, $CellContext`yyv$$ = 1.03}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, 4, 11.5}, PlotStyle -> Red], + PlotRange -> {{7.5, 11.6}, {0, 1}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.03, "yy"}, 0.01, 2.8, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.68, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {161.07681904960566`, 166.70181904960566`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.992488345042573*^9, {3.99248856090168*^9, 3.99248857651707*^9}, + 3.9924886075959682`*^9, 3.99248867677633*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"d60e6e2c-2c27-4ea8-a4ff-9efc5550de6c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992489047700815*^9, 3.9924890487725554`*^9}}, + CellLabel->"In[92]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzns0lAkYBvAxh9yitXaSiv2+mW8+WoMxRWHrfTt20xAms0qZpHZKySVS +dqJYVJrknpFOJEy1O20Uok7lklLYWnuQkabLaVs1hVKZCjv7x3Oe8/vnOQ+5 +OS54C5PBYATo83/b5P9PAq1YZyyOrWqGxq/m12fr3WxQ1BLzYzOE5vVE2hoQ ++DBSQgmXNUNpLnQLmASauluPG/ObwT7HtmSLIYFGiazfq62bgXuk27nThMCX +7e5DLQ03YOEB93XFVgQWyDaMVw1chyCZUQ2PQ6DfmG7ki8s1aKrbejdQSOD6 +gCKPlL4mmLzVphuOJjAwPklzfMZlWJIZHtaTS+A+X8MJR3kdVBddWVBTT6Ak +uEO16NuLoE3+2sJ4gED5/nV/j8+tgS0NThvE0wS20eZ+xSIV9J1I12gpEpe1 +VmZ1aM8CGdq7Z9qXxEbHgTva+UooixzeaxxLYpxj1Eretkp4H6ArzMonUWZ2 +L2afUwX4aFZo1tSR+ItRTubOnWXQ1haimKsmscflw2hcbSnYpUZI106SKFEM +xdwvVcC5o7yywxw2Jgc9ZSqVRcDz9TAzFbLR5t8JXuvcApD3ex8xiGbj8VfV +Vn7MPLC9ypSN5LPRpYMo6WdmQ8bu9uQ19WxMu7RQwmvMAvsM4auLg2wc/s2F +XnXsANR6mx+VGHBQcNI5z+9ZOth3dvikUhzceMrfZlCVBtfO+0Yq/DjYPtvc +8x65DzwiW8sdYzkoLVzQuUMlA2XnXjPjfA76j3w2mji/B1ZmjD9RN3Cw0rOL +vtKzC25aRf3poObg6JECE//keEh4d8ohikHh/n5lEjM9FuaksS7puBT++un0 +cv8LUVDy7ICYKaTwD5fLhbrsSPArvRzBiKPQXMsqb8+TQp/D8/SkAgqVWUHE +Y/vNsC5C1O9dT+HGLnVagkEEWGpTSt6rKeze9OYz+SkMTgZWxzpOUchKvU+x +VKEQbphbK6K4mDbFbfc9FAK6vETTt75cjP5ooTo4HgzZHYrCx1FclI2GNMy7 +KoLV4hT5zTwuOh+yMQ33DIDROkkxWcfFouoxZLUIoWX7lGWimovbu1qdrHav +gMN3hpqsGTT+ZG9vnl/hA06MJhmPQ+Pirm7RqGg5TB8OUXoJaXzywJ1l4rUM +zr98/aIlmkY7pxflL8q8QPyhLaw4l8aWrXE3NGmLwSkk7PuIehrfiU40rM9a +BEPyN26VD2hcO9kL5bYCiPWyq8YBGuurmqzjZwlgath/ziO9TcUzK1YaCcBe +eG5qzqB+L5w9aDLmBuHG0s6cIRq9xXG7ujvc4HHGgHTvUxrX/yWJkcrc4FnK +TcVqLY3XzOrPXXrEh0TeO7MRvcODhQUevXwwfEjuz35N48H42/evd/KB8k6V +3n5DY6Fzpo+mkQ9Snafb0jH9v10Jqo2FfPhn94W7jh9onLdc8D5MyIc93EdL +b+ktrBI8ECAfZvTOrP35I40ek8NPLBfzwWFRlKJsgkZD2csNfRQftr2lpN98 +pnHVvUNnTjP4MFEh7q/Ve4bIWvPDiCtkrU73C/pCI1mXnRM45ApnazR8+SSN +mmLSPa3JFZZEWFY5TNH4XcFz4uwZV+iYtdSmXW8H950s9TFXCL2xQ755msbp +GjuL2ZmuMBxbOjmtd9KmAKYkwRX+A2GFGXA= + "]]}, + 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:eJwVzns0lAkYBvAxh9yitXaSiv2+mW8+WoMxRWHrfTt20xAms0qZpHZKySVS +dqJYVJrknpFOJEy1O20Uok7lklLYWnuQkabLaVs1hVKZCjv7x3Oe8/vnOQ+5 +OS54C5PBYATo83/b5P9PAq1YZyyOrWqGxq/m12fr3WxQ1BLzYzOE5vVE2hoQ ++DBSQgmXNUNpLnQLmASauluPG/ObwT7HtmSLIYFGiazfq62bgXuk27nThMCX +7e5DLQ03YOEB93XFVgQWyDaMVw1chyCZUQ2PQ6DfmG7ki8s1aKrbejdQSOD6 +gCKPlL4mmLzVphuOJjAwPklzfMZlWJIZHtaTS+A+X8MJR3kdVBddWVBTT6Ak +uEO16NuLoE3+2sJ4gED5/nV/j8+tgS0NThvE0wS20eZ+xSIV9J1I12gpEpe1 +VmZ1aM8CGdq7Z9qXxEbHgTva+UooixzeaxxLYpxj1Eretkp4H6ArzMonUWZ2 +L2afUwX4aFZo1tSR+ItRTubOnWXQ1haimKsmscflw2hcbSnYpUZI106SKFEM +xdwvVcC5o7yywxw2Jgc9ZSqVRcDz9TAzFbLR5t8JXuvcApD3ex8xiGbj8VfV +Vn7MPLC9ypSN5LPRpYMo6WdmQ8bu9uQ19WxMu7RQwmvMAvsM4auLg2wc/s2F +XnXsANR6mx+VGHBQcNI5z+9ZOth3dvikUhzceMrfZlCVBtfO+0Yq/DjYPtvc +8x65DzwiW8sdYzkoLVzQuUMlA2XnXjPjfA76j3w2mji/B1ZmjD9RN3Cw0rOL +vtKzC25aRf3poObg6JECE//keEh4d8ohikHh/n5lEjM9FuaksS7puBT++un0 +cv8LUVDy7ICYKaTwD5fLhbrsSPArvRzBiKPQXMsqb8+TQp/D8/SkAgqVWUHE +Y/vNsC5C1O9dT+HGLnVagkEEWGpTSt6rKeze9OYz+SkMTgZWxzpOUchKvU+x +VKEQbphbK6K4mDbFbfc9FAK6vETTt75cjP5ooTo4HgzZHYrCx1FclI2GNMy7 +KoLV4hT5zTwuOh+yMQ33DIDROkkxWcfFouoxZLUIoWX7lGWimovbu1qdrHav +gMN3hpqsGTT+ZG9vnl/hA06MJhmPQ+Pirm7RqGg5TB8OUXoJaXzywJ1l4rUM +zr98/aIlmkY7pxflL8q8QPyhLaw4l8aWrXE3NGmLwSkk7PuIehrfiU40rM9a +BEPyN26VD2hcO9kL5bYCiPWyq8YBGuurmqzjZwlgath/ziO9TcUzK1YaCcBe +eG5qzqB+L5w9aDLmBuHG0s6cIRq9xXG7ujvc4HHGgHTvUxrX/yWJkcrc4FnK +TcVqLY3XzOrPXXrEh0TeO7MRvcODhQUevXwwfEjuz35N48H42/evd/KB8k6V +3n5DY6Fzpo+mkQ9Snafb0jH9v10Jqo2FfPhn94W7jh9onLdc8D5MyIc93EdL +b+ktrBI8ECAfZvTOrP35I40ek8NPLBfzwWFRlKJsgkZD2csNfRQftr2lpN98 +pnHVvUNnTjP4MFEh7q/Ve4bIWvPDiCtkrU73C/pCI1mXnRM45ApnazR8+SSN +mmLSPa3JFZZEWFY5TNH4XcFz4uwZV+iYtdSmXW8H950s9TFXCL2xQ755msbp +GjuL2ZmuMBxbOjmtd9KmAKYkwRX+A2GFGXA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.12733710447916072`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.12733710447916072`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lAkYBvAxh9yitXaSiv2+mW8+WoMxRWHrfTt20xAms0qZpHZKySVS +dqJYVJrknpFOJEy1O20Uok7lklLYWnuQkabLaVs1hVKZCjv7x3Oe8/vnOQ+5 +OS54C5PBYATo83/b5P9PAq1YZyyOrWqGxq/m12fr3WxQ1BLzYzOE5vVE2hoQ ++DBSQgmXNUNpLnQLmASauluPG/ObwT7HtmSLIYFGiazfq62bgXuk27nThMCX +7e5DLQ03YOEB93XFVgQWyDaMVw1chyCZUQ2PQ6DfmG7ki8s1aKrbejdQSOD6 +gCKPlL4mmLzVphuOJjAwPklzfMZlWJIZHtaTS+A+X8MJR3kdVBddWVBTT6Ak +uEO16NuLoE3+2sJ4gED5/nV/j8+tgS0NThvE0wS20eZ+xSIV9J1I12gpEpe1 +VmZ1aM8CGdq7Z9qXxEbHgTva+UooixzeaxxLYpxj1Eretkp4H6ArzMonUWZ2 +L2afUwX4aFZo1tSR+ItRTubOnWXQ1haimKsmscflw2hcbSnYpUZI106SKFEM +xdwvVcC5o7yywxw2Jgc9ZSqVRcDz9TAzFbLR5t8JXuvcApD3ex8xiGbj8VfV +Vn7MPLC9ypSN5LPRpYMo6WdmQ8bu9uQ19WxMu7RQwmvMAvsM4auLg2wc/s2F +XnXsANR6mx+VGHBQcNI5z+9ZOth3dvikUhzceMrfZlCVBtfO+0Yq/DjYPtvc +8x65DzwiW8sdYzkoLVzQuUMlA2XnXjPjfA76j3w2mji/B1ZmjD9RN3Cw0rOL +vtKzC25aRf3poObg6JECE//keEh4d8ohikHh/n5lEjM9FuaksS7puBT++un0 +cv8LUVDy7ICYKaTwD5fLhbrsSPArvRzBiKPQXMsqb8+TQp/D8/SkAgqVWUHE +Y/vNsC5C1O9dT+HGLnVagkEEWGpTSt6rKeze9OYz+SkMTgZWxzpOUchKvU+x +VKEQbphbK6K4mDbFbfc9FAK6vETTt75cjP5ooTo4HgzZHYrCx1FclI2GNMy7 +KoLV4hT5zTwuOh+yMQ33DIDROkkxWcfFouoxZLUIoWX7lGWimovbu1qdrHav +gMN3hpqsGTT+ZG9vnl/hA06MJhmPQ+Pirm7RqGg5TB8OUXoJaXzywJ1l4rUM +zr98/aIlmkY7pxflL8q8QPyhLaw4l8aWrXE3NGmLwSkk7PuIehrfiU40rM9a +BEPyN26VD2hcO9kL5bYCiPWyq8YBGuurmqzjZwlgath/ziO9TcUzK1YaCcBe +eG5qzqB+L5w9aDLmBuHG0s6cIRq9xXG7ujvc4HHGgHTvUxrX/yWJkcrc4FnK +TcVqLY3XzOrPXXrEh0TeO7MRvcODhQUevXwwfEjuz35N48H42/evd/KB8k6V +3n5DY6Fzpo+mkQ9Snafb0jH9v10Jqo2FfPhn94W7jh9onLdc8D5MyIc93EdL +b+ktrBI8ECAfZvTOrP35I40ek8NPLBfzwWFRlKJsgkZD2csNfRQftr2lpN98 +pnHVvUNnTjP4MFEh7q/Ve4bIWvPDiCtkrU73C/pCI1mXnRM45ApnazR8+SSN +mmLSPa3JFZZEWFY5TNH4XcFz4uwZV+iYtdSmXW8H950s9TFXCL2xQ755msbp +GjuL2ZmuMBxbOjmtd9KmAKYkwRX+A2GFGXA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.12733710447916072`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.5}, {0., 0.12733710447916072`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.992489036115532*^9, + 3.992489049559854*^9}}, + CellLabel->"Out[92]=",ExpressionUUID->"282d3ea2-56b9-4157-a946-149417dd991d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "11.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "11.5", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.992489055569459*^9, 3.992489060275159*^9}}, + CellLabel->"In[93]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.07967421721409162`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.07028906174315021`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.07967421721409162`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07028906174315021`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.466706718085963`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"2.8837970018616817`*^6\\\", \\\ +\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.07967421721409162`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.07028906174315021`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\" \\\", SuperscriptBox[\\\ +\"R2\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\ +\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.07967421721409162`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07028906174315021`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.466706718085963`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"7.017753396007638`*^8\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 93, 14, 25981759383722902615, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992489061410812*^9}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"3401901a-ea0f-4f6a-a2fd-5d731f149cd2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "2.222444707542195`"}], ",", + RowBox[{"b0", "\[Rule]", "0.5588790271084413`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992489061476914*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"49fad7f5-df43-4fb9-813d-c2f6264c5917"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "2.22"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.992489066050497*^9, + 3.9924890675325108`*^9}}, + CellLabel->"In[94]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["2.22`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.992489070081539*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"e9c2f78e-412c-4c4b-9c61-41f20c515349"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.559"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.9924890714140787`*^9, + 3.9924890751027718`*^9}}, + CellLabel->"In[95]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.559`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9, + 3.992489076061091*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"111164fa-dfcc-41f5-9201-4fb20bf800c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.5"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{ + 3.9917169014568214`*^9, {3.992489084290492*^9, 3.992489085531281*^9}}, + CellLabel->"In[97]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFlFlQUwcYhYPaUtHCQGFUVExyby4gqfYmDkKA+f9K25AgxBRBcKEpRIGY +CdUhIJsiuEBE9sXilF0GBUegIFJtKYuA6OhUKhE04lIELEsRETJKaHzy4cyZ +83JmvvNwWCGR3+9fwmAwhEZ98FXZHyITxS6dEtHGayCJ/aSOS3zMC10d+jEl +EznrttsqcprB5UTwnvuZTAx0TZC1DjfChbzfHOuamGh42b2qxr8BxuOtPjcd +YKLky5+m41zrYP9Vp31+i0xMFf/p9EpRC/3nk4fGSRYe7drdUTpdDazAB9GL +Qhbe3HrHrt2mCorDxuJMVSzc1rvAX7u7AmZ99Lmp2SysnntjM2FbBp5D3w0F +NLJwdErT7Sspho4O/0LbQRb62PQUt+YWwfpjMvmuBRZK1S/vbkkuhItnucVp +BBv7bF/MHM/LA67Q2Wy5iI33fMOv8C1yQKN1O2OiZGNBTyVDos+ENdeXxE5l +s7HslNoleGk6pKhvxgc0sfF6h/aAqj0V7FJE/zY8YmNehJdlVvVJqHdbcXav +CYGi9XPYt5AMdrd7PI+RBIaVv7G5fycJfr8sDCsUEzhzMmm+V5EIzmHtJQ4q +Ao/PWYydfRcLVbfjzEyzCey+fi1PYBIDXilvng1eJbDyktWZEoco6LRU3LUf +JDDhvHXFpvuH4PBMqb2CQWL5Cdla8eZIWJ1k86ueQ6Ly7yPlI0EH4dyLk35L +RCT2ZS6tSeeHg7ioWcaIJHFNVHzbRXo/9NsPJ8fkkLiJ+8c/aS0hECTboXVr +IrHUnC8OyZeB+XjCudlBEruqRp7FWu2DX3wvqBwMJD50fHTjYFMQBC/LrN9B +ctDwA1u1ISkA9FlRy18LORgdof1xUecH6T2FuU8VHIxPmx1oyZeC1C9B05nF +weHZI0Gb7/nCf417C1iNHNTInz/JEnhDW4TBPGqQg2YxJs3r/hJC2i1dyxcM +Ck2Ha6KZz78BJ0ZLLJeg0Et5/Ao/dhsspvlXCUQUhipDyUNchMuvJkbalBTu +PH24yyPHHfzeduwpyKRQNyOYdN7uCk7+e9xlTRSuI+TzAidn0Gkm6YqHFPa/ +VkdG/MyHMVXRwuIihZMmpOCGNQ0vEjoLpeMUDmSWzRq8efA0ZUAe95zCROmh +qv4pHrxUX+l1eEvhjIZ3q+4yDcGm8tsZOgpL1KcThz35INe70h7TFPbpNjU7 +vqch/DUpt35HYYizjXuGjAY70UXD6kcUdu2UKI+o+EC6HZN3T1JIjQQpRwke +2G9RFBbPU1izJdF69hQN1XVDX2kWKGw+bHUqXkCDYcx79ZMBCt2jQ+2GU/iw +7DHraPoEhfGWoZdGt/Lg0wcr60PnKNzXUCL0KqIhVZoslrynMOGGf3icDw09 +Fh6rbhoo7J30OZptT4NKsP4CGvs2TimllRl8iOLOmE0Z+Yt9tSunv+ZBNOeJ +R5eR9+4godNX0DBf5qetN/LUbshvMNlFg4vMvNLe2PcZTzK6lKYhsPWgJsS4 +5+Nx3rekHQ3NraLaFQc+/sn/s8T7hg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{71, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 65, 60, + 56, 53, 51, 50, 66, 61, 57, 54, 52, 67, 62, 58, 55, 68, 63, 59, 69, + 64, 70, 49}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSnNnYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5UPfeUAHicVTw== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFlFlQUwcYhYPaUtHCQGFUVExyby4gqfYmDkKA+f9K25AgxBRBcKEpRIGY +CdUhIJsiuEBE9sXilF0GBUegIFJtKYuA6OhUKhE04lIELEsRETJKaHzy4cyZ +83JmvvNwWCGR3+9fwmAwhEZ98FXZHyITxS6dEtHGayCJ/aSOS3zMC10d+jEl +EznrttsqcprB5UTwnvuZTAx0TZC1DjfChbzfHOuamGh42b2qxr8BxuOtPjcd +YKLky5+m41zrYP9Vp31+i0xMFf/p9EpRC/3nk4fGSRYe7drdUTpdDazAB9GL +Qhbe3HrHrt2mCorDxuJMVSzc1rvAX7u7AmZ99Lmp2SysnntjM2FbBp5D3w0F +NLJwdErT7Sspho4O/0LbQRb62PQUt+YWwfpjMvmuBRZK1S/vbkkuhItnucVp +BBv7bF/MHM/LA67Q2Wy5iI33fMOv8C1yQKN1O2OiZGNBTyVDos+ENdeXxE5l +s7HslNoleGk6pKhvxgc0sfF6h/aAqj0V7FJE/zY8YmNehJdlVvVJqHdbcXav +CYGi9XPYt5AMdrd7PI+RBIaVv7G5fycJfr8sDCsUEzhzMmm+V5EIzmHtJQ4q +Ao/PWYydfRcLVbfjzEyzCey+fi1PYBIDXilvng1eJbDyktWZEoco6LRU3LUf +JDDhvHXFpvuH4PBMqb2CQWL5Cdla8eZIWJ1k86ueQ6Ly7yPlI0EH4dyLk35L +RCT2ZS6tSeeHg7ioWcaIJHFNVHzbRXo/9NsPJ8fkkLiJ+8c/aS0hECTboXVr +IrHUnC8OyZeB+XjCudlBEruqRp7FWu2DX3wvqBwMJD50fHTjYFMQBC/LrN9B +ctDwA1u1ISkA9FlRy18LORgdof1xUecH6T2FuU8VHIxPmx1oyZeC1C9B05nF +weHZI0Gb7/nCf417C1iNHNTInz/JEnhDW4TBPGqQg2YxJs3r/hJC2i1dyxcM +Ck2Ha6KZz78BJ0ZLLJeg0Et5/Ao/dhsspvlXCUQUhipDyUNchMuvJkbalBTu +PH24yyPHHfzeduwpyKRQNyOYdN7uCk7+e9xlTRSuI+TzAidn0Gkm6YqHFPa/ +VkdG/MyHMVXRwuIihZMmpOCGNQ0vEjoLpeMUDmSWzRq8efA0ZUAe95zCROmh +qv4pHrxUX+l1eEvhjIZ3q+4yDcGm8tsZOgpL1KcThz35INe70h7TFPbpNjU7 +vqch/DUpt35HYYizjXuGjAY70UXD6kcUdu2UKI+o+EC6HZN3T1JIjQQpRwke +2G9RFBbPU1izJdF69hQN1XVDX2kWKGw+bHUqXkCDYcx79ZMBCt2jQ+2GU/iw +7DHraPoEhfGWoZdGt/Lg0wcr60PnKNzXUCL0KqIhVZoslrynMOGGf3icDw09 +Fh6rbhoo7J30OZptT4NKsP4CGvs2TimllRl8iOLOmE0Z+Yt9tSunv+ZBNOeJ +R5eR9+4godNX0DBf5qetN/LUbshvMNlFg4vMvNLe2PcZTzK6lKYhsPWgJsS4 +5+Nx3rekHQ3NraLaFQc+/sn/s8T7hg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{71, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, + 65, 60, 56, 53, 51, 50, 66, 61, 57, 54, 52, 67, 62, 58, 55, 68, + 63, 59, 69, 64, 70, 49}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.09439523885177539}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx30wlAkcwPGl5lzqNBxTKdqXZx/E6Z7dRizm97vUsSu2PVEqbo8tbDvr +GC95FxEbeYl0miOvQxgvR3LcuSKkpuZyEVp6OW+dlxNip6zb++M73/kw/IK/ +O6tNo9GOaPr/rZ382q3n6Ciw7Rby992F9Z4u1YyMjuw9R42lua1ge8n39LMs +Op60ixV3TjRDRd6vFg0tdFRP9u6o8WyC2RiDL3SG6Sj86sfFaLsGOHvH0sdj +g45pgj8s30lrYfBm0vgswcD4nlNdtxargHHyecSGMwMfHHxset+oEooCZqJ1 +5Aw81L/O3X2qDFbcVNfSchhYtbpsNGdcAk7j3457NTNwekHR6y4sgq4uzwLj +EQa6GfUVdV4rBJMEseTEOgNF4ZNPDiQVQHWmVVE6i4kDxm+XLublgZWzje4W +PhOfugfWc7fngmLI/oqWjInX+8ppQlUW7GrXjlrIYWJJarit76YMSA5/EOPV +wsT2rqFz8vtpYJrM/6dplIl5QS762VUp0Gi/NfOMFgv5Jqs4sJ4Epo/6nBII +FgaULhs9e5wIv9U5BxQIWLiUkrjWL40Dm4D7xeZyFl5c3T6T+TEKKh9F6+rk +sLC3/W4eTysSXJKXX4/cYWH5bYMrxeZh0K0vfWI2wsLYm4Zl1s9CIHTplpmU +RmDpJfFuwf5g2Jlo9IuKTaDsrwulU97n4cbbFA9tPoEDWZtqMriBIChsFdOC +CdwVFnOvmjoLg2YTSZG5BFpb/f53epsfeIuPDdm3EHhLjyvwyxeD3mzsjZUR +Ansqp15HGfjAz+4VcnM1gS8sRjvOt3iD7+asxmMEG9XfM+V7E71AlR225b0z +GyOChn7YUHpARl/BtVdSNsakrwy35YtA5BGr6M5m48TKBe/9T93h3+Yz1xnN +bFRI3oxl81zhXpBaL2yEjbqRWq17/nSG9IfKti9pJOpM1ETQ3xwGS1pblBWL +RBfZxXpu1CHYSPes5PFJ9Jf5EyFWCHXv5qbuyUg8fjm0xzHXATw+dJ2+nkWi +cok3b3PUDiw9TzuIW0jcw5Ks8SxtQKmYp8pekDj4Pjw46CcuyHkmFThM4r4F +maj8KhfUM647xzR2iPA3nUjmgim/Wr1zlMSe40LZBTkXfHUkj64qSSwOvxw3 +4cSFV8nDkug3JMaJQioHFzjwNra7QDRL4nBWyYralQNhVku6CxoXuQ9tW/yG +A5tfMuIz5kiM0fe/PX2QA4R9gqR3nkRyyls2zeKARGVHOS6SOKC0brX4RMFk +eH2/+QcSlxSchw11FESwxxx7NH4ywlKqyij47Pm2Rv9VEn2aip1dCikwOyAt +KFojseZAnOFKKgWB7wmJ4UcS/WyMHK6KKVgr8Rhq1Lh2b36T1gkK0kRJAuEn +EmM7PAOj3Sioahj/WrFOYmuoQWoMjwJbsV65mZrEzznC6U0UBX3bHXc80Lh/ +3i0+x4yCk53nFX4bJL6c5RwhTCmYkReub2g8r0XwOgwp+A+JD/Hr + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.09439523885177539}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx30wlAkcwPGl5lzqNBxTKdqXZx/E6Z7dRizm97vUsSu2PVEqbo8tbDvr +GC95FxEbeYl0miOvQxgvR3LcuSKkpuZyEVp6OW+dlxNip6zb++M73/kw/IK/ +O6tNo9GOaPr/rZ382q3n6Ciw7Rby992F9Z4u1YyMjuw9R42lua1ge8n39LMs +Op60ixV3TjRDRd6vFg0tdFRP9u6o8WyC2RiDL3SG6Sj86sfFaLsGOHvH0sdj +g45pgj8s30lrYfBm0vgswcD4nlNdtxargHHyecSGMwMfHHxset+oEooCZqJ1 +5Aw81L/O3X2qDFbcVNfSchhYtbpsNGdcAk7j3457NTNwekHR6y4sgq4uzwLj +EQa6GfUVdV4rBJMEseTEOgNF4ZNPDiQVQHWmVVE6i4kDxm+XLublgZWzje4W +PhOfugfWc7fngmLI/oqWjInX+8ppQlUW7GrXjlrIYWJJarit76YMSA5/EOPV +wsT2rqFz8vtpYJrM/6dplIl5QS762VUp0Gi/NfOMFgv5Jqs4sJ4Epo/6nBII +FgaULhs9e5wIv9U5BxQIWLiUkrjWL40Dm4D7xeZyFl5c3T6T+TEKKh9F6+rk +sLC3/W4eTysSXJKXX4/cYWH5bYMrxeZh0K0vfWI2wsLYm4Zl1s9CIHTplpmU +RmDpJfFuwf5g2Jlo9IuKTaDsrwulU97n4cbbFA9tPoEDWZtqMriBIChsFdOC +CdwVFnOvmjoLg2YTSZG5BFpb/f53epsfeIuPDdm3EHhLjyvwyxeD3mzsjZUR +Ansqp15HGfjAz+4VcnM1gS8sRjvOt3iD7+asxmMEG9XfM+V7E71AlR225b0z +GyOChn7YUHpARl/BtVdSNsakrwy35YtA5BGr6M5m48TKBe/9T93h3+Yz1xnN +bFRI3oxl81zhXpBaL2yEjbqRWq17/nSG9IfKti9pJOpM1ETQ3xwGS1pblBWL +RBfZxXpu1CHYSPes5PFJ9Jf5EyFWCHXv5qbuyUg8fjm0xzHXATw+dJ2+nkWi +cok3b3PUDiw9TzuIW0jcw5Ks8SxtQKmYp8pekDj4Pjw46CcuyHkmFThM4r4F +maj8KhfUM647xzR2iPA3nUjmgim/Wr1zlMSe40LZBTkXfHUkj64qSSwOvxw3 +4cSFV8nDkug3JMaJQioHFzjwNra7QDRL4nBWyYralQNhVku6CxoXuQ9tW/yG +A5tfMuIz5kiM0fe/PX2QA4R9gqR3nkRyyls2zeKARGVHOS6SOKC0brX4RMFk +eH2/+QcSlxSchw11FESwxxx7NH4ywlKqyij47Pm2Rv9VEn2aip1dCikwOyAt +KFojseZAnOFKKgWB7wmJ4UcS/WyMHK6KKVgr8Rhq1Lh2b36T1gkK0kRJAuEn +EmM7PAOj3Sioahj/WrFOYmuoQWoMjwJbsV65mZrEzznC6U0UBX3bHXc80Lh/ +3i0+x4yCk53nFX4bJL6c5RwhTCmYkReub2g8r0XwOgwp+A+JD/Hr + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFlFlQUwcYhYPaUtHCQGFUVExyby4gqfYmDkKA+f9K25AgxBRBcKEpRIGY +CdUhIJsiuEBE9sXilF0GBUegIFJtKYuA6OhUKhE04lIELEsRETJKaHzy4cyZ +83JmvvNwWCGR3+9fwmAwhEZ98FXZHyITxS6dEtHGayCJ/aSOS3zMC10d+jEl +EznrttsqcprB5UTwnvuZTAx0TZC1DjfChbzfHOuamGh42b2qxr8BxuOtPjcd +YKLky5+m41zrYP9Vp31+i0xMFf/p9EpRC/3nk4fGSRYe7drdUTpdDazAB9GL +Qhbe3HrHrt2mCorDxuJMVSzc1rvAX7u7AmZ99Lmp2SysnntjM2FbBp5D3w0F +NLJwdErT7Sspho4O/0LbQRb62PQUt+YWwfpjMvmuBRZK1S/vbkkuhItnucVp +BBv7bF/MHM/LA67Q2Wy5iI33fMOv8C1yQKN1O2OiZGNBTyVDos+ENdeXxE5l +s7HslNoleGk6pKhvxgc0sfF6h/aAqj0V7FJE/zY8YmNehJdlVvVJqHdbcXav +CYGi9XPYt5AMdrd7PI+RBIaVv7G5fycJfr8sDCsUEzhzMmm+V5EIzmHtJQ4q +Ao/PWYydfRcLVbfjzEyzCey+fi1PYBIDXilvng1eJbDyktWZEoco6LRU3LUf +JDDhvHXFpvuH4PBMqb2CQWL5Cdla8eZIWJ1k86ueQ6Ly7yPlI0EH4dyLk35L +RCT2ZS6tSeeHg7ioWcaIJHFNVHzbRXo/9NsPJ8fkkLiJ+8c/aS0hECTboXVr +IrHUnC8OyZeB+XjCudlBEruqRp7FWu2DX3wvqBwMJD50fHTjYFMQBC/LrN9B +ctDwA1u1ISkA9FlRy18LORgdof1xUecH6T2FuU8VHIxPmx1oyZeC1C9B05nF +weHZI0Gb7/nCf417C1iNHNTInz/JEnhDW4TBPGqQg2YxJs3r/hJC2i1dyxcM +Ck2Ha6KZz78BJ0ZLLJeg0Et5/Ao/dhsspvlXCUQUhipDyUNchMuvJkbalBTu +PH24yyPHHfzeduwpyKRQNyOYdN7uCk7+e9xlTRSuI+TzAidn0Gkm6YqHFPa/ +VkdG/MyHMVXRwuIihZMmpOCGNQ0vEjoLpeMUDmSWzRq8efA0ZUAe95zCROmh +qv4pHrxUX+l1eEvhjIZ3q+4yDcGm8tsZOgpL1KcThz35INe70h7TFPbpNjU7 +vqch/DUpt35HYYizjXuGjAY70UXD6kcUdu2UKI+o+EC6HZN3T1JIjQQpRwke +2G9RFBbPU1izJdF69hQN1XVDX2kWKGw+bHUqXkCDYcx79ZMBCt2jQ+2GU/iw +7DHraPoEhfGWoZdGt/Lg0wcr60PnKNzXUCL0KqIhVZoslrynMOGGf3icDw09 +Fh6rbhoo7J30OZptT4NKsP4CGvs2TimllRl8iOLOmE0Z+Yt9tSunv+ZBNOeJ +R5eR9+4godNX0DBf5qetN/LUbshvMNlFg4vMvNLe2PcZTzK6lKYhsPWgJsS4 +5+Nx3rekHQ3NraLaFQc+/sn/s8T7hg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{71, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 65, 60, 56, + 53, 51, 50, 66, 61, 57, 54, 52, 67, 62, 58, 55, 68, 63, 59, 69, 64, + 70, 49}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.09439523885177539}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx30wlAkcwPGl5lzqNBxTKdqXZx/E6Z7dRizm97vUsSu2PVEqbo8tbDvr +GC95FxEbeYl0miOvQxgvR3LcuSKkpuZyEVp6OW+dlxNip6zb++M73/kw/IK/ +O6tNo9GOaPr/rZ382q3n6Ciw7Rby992F9Z4u1YyMjuw9R42lua1ge8n39LMs +Op60ixV3TjRDRd6vFg0tdFRP9u6o8WyC2RiDL3SG6Sj86sfFaLsGOHvH0sdj +g45pgj8s30lrYfBm0vgswcD4nlNdtxargHHyecSGMwMfHHxset+oEooCZqJ1 +5Aw81L/O3X2qDFbcVNfSchhYtbpsNGdcAk7j3457NTNwekHR6y4sgq4uzwLj +EQa6GfUVdV4rBJMEseTEOgNF4ZNPDiQVQHWmVVE6i4kDxm+XLublgZWzje4W +PhOfugfWc7fngmLI/oqWjInX+8ppQlUW7GrXjlrIYWJJarit76YMSA5/EOPV +wsT2rqFz8vtpYJrM/6dplIl5QS762VUp0Gi/NfOMFgv5Jqs4sJ4Epo/6nBII +FgaULhs9e5wIv9U5BxQIWLiUkrjWL40Dm4D7xeZyFl5c3T6T+TEKKh9F6+rk +sLC3/W4eTysSXJKXX4/cYWH5bYMrxeZh0K0vfWI2wsLYm4Zl1s9CIHTplpmU +RmDpJfFuwf5g2Jlo9IuKTaDsrwulU97n4cbbFA9tPoEDWZtqMriBIChsFdOC +CdwVFnOvmjoLg2YTSZG5BFpb/f53epsfeIuPDdm3EHhLjyvwyxeD3mzsjZUR +Ansqp15HGfjAz+4VcnM1gS8sRjvOt3iD7+asxmMEG9XfM+V7E71AlR225b0z +GyOChn7YUHpARl/BtVdSNsakrwy35YtA5BGr6M5m48TKBe/9T93h3+Yz1xnN +bFRI3oxl81zhXpBaL2yEjbqRWq17/nSG9IfKti9pJOpM1ETQ3xwGS1pblBWL +RBfZxXpu1CHYSPes5PFJ9Jf5EyFWCHXv5qbuyUg8fjm0xzHXATw+dJ2+nkWi +cok3b3PUDiw9TzuIW0jcw5Ks8SxtQKmYp8pekDj4Pjw46CcuyHkmFThM4r4F +maj8KhfUM647xzR2iPA3nUjmgim/Wr1zlMSe40LZBTkXfHUkj64qSSwOvxw3 +4cSFV8nDkug3JMaJQioHFzjwNra7QDRL4nBWyYralQNhVku6CxoXuQ9tW/yG +A5tfMuIz5kiM0fe/PX2QA4R9gqR3nkRyyls2zeKARGVHOS6SOKC0brX4RMFk +eH2/+QcSlxSchw11FESwxxx7NH4ywlKqyij47Pm2Rv9VEn2aip1dCikwOyAt +KFojseZAnOFKKgWB7wmJ4UcS/WyMHK6KKVgr8Rhq1Lh2b36T1gkK0kRJAuEn +EmM7PAOj3Sioahj/WrFOYmuoQWoMjwJbsV65mZrEzznC6U0UBX3bHXc80Lh/ +3i0+x4yCk53nFX4bJL6c5RwhTCmYkReub2g8r0XwOgwp+A+JD/Hr + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.5}, {0., 0.09439523885177539}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964359553013*^9, 3.9919653448206234`*^9, {3.992489078571629*^9, + 3.9924890863349533`*^9}}, + CellLabel->"Out[97]=",ExpressionUUID->"15c2c921-ff95-446d-9011-088d244996fe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzns0lAkYBvAxh9yitXaSiv2+mW8+WoMxRWHrfTt20xAms0qZpHZKySVS +dqJYVJrknpFOJEy1O20Uok7lklLYWnuQkabLaVs1hVKZCjv7x3Oe8/vnOQ+5 +OS54C5PBYATo83/b5P9PAq1YZyyOrWqGxq/m12fr3WxQ1BLzYzOE5vVE2hoQ ++DBSQgmXNUNpLnQLmASauluPG/ObwT7HtmSLIYFGiazfq62bgXuk27nThMCX +7e5DLQ03YOEB93XFVgQWyDaMVw1chyCZUQ2PQ6DfmG7ki8s1aKrbejdQSOD6 +gCKPlL4mmLzVphuOJjAwPklzfMZlWJIZHtaTS+A+X8MJR3kdVBddWVBTT6Ak +uEO16NuLoE3+2sJ4gED5/nV/j8+tgS0NThvE0wS20eZ+xSIV9J1I12gpEpe1 +VmZ1aM8CGdq7Z9qXxEbHgTva+UooixzeaxxLYpxj1Eretkp4H6ArzMonUWZ2 +L2afUwX4aFZo1tSR+ItRTubOnWXQ1haimKsmscflw2hcbSnYpUZI106SKFEM +xdwvVcC5o7yywxw2Jgc9ZSqVRcDz9TAzFbLR5t8JXuvcApD3ex8xiGbj8VfV +Vn7MPLC9ypSN5LPRpYMo6WdmQ8bu9uQ19WxMu7RQwmvMAvsM4auLg2wc/s2F +XnXsANR6mx+VGHBQcNI5z+9ZOth3dvikUhzceMrfZlCVBtfO+0Yq/DjYPtvc +8x65DzwiW8sdYzkoLVzQuUMlA2XnXjPjfA76j3w2mji/B1ZmjD9RN3Cw0rOL +vtKzC25aRf3poObg6JECE//keEh4d8ohikHh/n5lEjM9FuaksS7puBT++un0 +cv8LUVDy7ICYKaTwD5fLhbrsSPArvRzBiKPQXMsqb8+TQp/D8/SkAgqVWUHE +Y/vNsC5C1O9dT+HGLnVagkEEWGpTSt6rKeze9OYz+SkMTgZWxzpOUchKvU+x +VKEQbphbK6K4mDbFbfc9FAK6vETTt75cjP5ooTo4HgzZHYrCx1FclI2GNMy7 +KoLV4hT5zTwuOh+yMQ33DIDROkkxWcfFouoxZLUIoWX7lGWimovbu1qdrHav +gMN3hpqsGTT+ZG9vnl/hA06MJhmPQ+Pirm7RqGg5TB8OUXoJaXzywJ1l4rUM +zr98/aIlmkY7pxflL8q8QPyhLaw4l8aWrXE3NGmLwSkk7PuIehrfiU40rM9a +BEPyN26VD2hcO9kL5bYCiPWyq8YBGuurmqzjZwlgath/ziO9TcUzK1YaCcBe +eG5qzqB+L5w9aDLmBuHG0s6cIRq9xXG7ujvc4HHGgHTvUxrX/yWJkcrc4FnK +TcVqLY3XzOrPXXrEh0TeO7MRvcODhQUevXwwfEjuz35N48H42/evd/KB8k6V +3n5DY6Fzpo+mkQ9Snafb0jH9v10Jqo2FfPhn94W7jh9onLdc8D5MyIc93EdL +b+ktrBI8ECAfZvTOrP35I40ek8NPLBfzwWFRlKJsgkZD2csNfRQftr2lpN98 +pnHVvUNnTjP4MFEh7q/Ve4bIWvPDiCtkrU73C/pCI1mXnRM45ApnazR8+SSN +mmLSPa3JFZZEWFY5TNH4XcFz4uwZV+iYtdSmXW8H950s9TFXCL2xQ755msbp +GjuL2ZmuMBxbOjmtd9KmAKYkwRX+A2GFGXA= + "]]}, + 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:eJwVzns0lAkYBvAxh9yitXaSiv2+mW8+WoMxRWHrfTt20xAms0qZpHZKySVS +dqJYVJrknpFOJEy1O20Uok7lklLYWnuQkabLaVs1hVKZCjv7x3Oe8/vnOQ+5 +OS54C5PBYATo83/b5P9PAq1YZyyOrWqGxq/m12fr3WxQ1BLzYzOE5vVE2hoQ ++DBSQgmXNUNpLnQLmASauluPG/ObwT7HtmSLIYFGiazfq62bgXuk27nThMCX +7e5DLQ03YOEB93XFVgQWyDaMVw1chyCZUQ2PQ6DfmG7ki8s1aKrbejdQSOD6 +gCKPlL4mmLzVphuOJjAwPklzfMZlWJIZHtaTS+A+X8MJR3kdVBddWVBTT6Ak +uEO16NuLoE3+2sJ4gED5/nV/j8+tgS0NThvE0wS20eZ+xSIV9J1I12gpEpe1 +VmZ1aM8CGdq7Z9qXxEbHgTva+UooixzeaxxLYpxj1Eretkp4H6ArzMonUWZ2 +L2afUwX4aFZo1tSR+ItRTubOnWXQ1haimKsmscflw2hcbSnYpUZI106SKFEM +xdwvVcC5o7yywxw2Jgc9ZSqVRcDz9TAzFbLR5t8JXuvcApD3ex8xiGbj8VfV +Vn7MPLC9ypSN5LPRpYMo6WdmQ8bu9uQ19WxMu7RQwmvMAvsM4auLg2wc/s2F +XnXsANR6mx+VGHBQcNI5z+9ZOth3dvikUhzceMrfZlCVBtfO+0Yq/DjYPtvc +8x65DzwiW8sdYzkoLVzQuUMlA2XnXjPjfA76j3w2mji/B1ZmjD9RN3Cw0rOL +vtKzC25aRf3poObg6JECE//keEh4d8ohikHh/n5lEjM9FuaksS7puBT++un0 +cv8LUVDy7ICYKaTwD5fLhbrsSPArvRzBiKPQXMsqb8+TQp/D8/SkAgqVWUHE +Y/vNsC5C1O9dT+HGLnVagkEEWGpTSt6rKeze9OYz+SkMTgZWxzpOUchKvU+x +VKEQbphbK6K4mDbFbfc9FAK6vETTt75cjP5ooTo4HgzZHYrCx1FclI2GNMy7 +KoLV4hT5zTwuOh+yMQ33DIDROkkxWcfFouoxZLUIoWX7lGWimovbu1qdrHav +gMN3hpqsGTT+ZG9vnl/hA06MJhmPQ+Pirm7RqGg5TB8OUXoJaXzywJ1l4rUM +zr98/aIlmkY7pxflL8q8QPyhLaw4l8aWrXE3NGmLwSkk7PuIehrfiU40rM9a +BEPyN26VD2hcO9kL5bYCiPWyq8YBGuurmqzjZwlgath/ziO9TcUzK1YaCcBe +eG5qzqB+L5w9aDLmBuHG0s6cIRq9xXG7ujvc4HHGgHTvUxrX/yWJkcrc4FnK +TcVqLY3XzOrPXXrEh0TeO7MRvcODhQUevXwwfEjuz35N48H42/evd/KB8k6V +3n5DY6Fzpo+mkQ9Snafb0jH9v10Jqo2FfPhn94W7jh9onLdc8D5MyIc93EdL +b+ktrBI8ECAfZvTOrP35I40ek8NPLBfzwWFRlKJsgkZD2csNfRQftr2lpN98 +pnHVvUNnTjP4MFEh7q/Ve4bIWvPDiCtkrU73C/pCI1mXnRM45ApnazR8+SSN +mmLSPa3JFZZEWFY5TNH4XcFz4uwZV+iYtdSmXW8H950s9TFXCL2xQ755msbp +GjuL2ZmuMBxbOjmtd9KmAKYkwRX+A2GFGXA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.12733710447916072`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.12733710447916072`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lAkYBvAxh9yitXaSiv2+mW8+WoMxRWHrfTt20xAms0qZpHZKySVS +dqJYVJrknpFOJEy1O20Uok7lklLYWnuQkabLaVs1hVKZCjv7x3Oe8/vnOQ+5 +OS54C5PBYATo83/b5P9PAq1YZyyOrWqGxq/m12fr3WxQ1BLzYzOE5vVE2hoQ ++DBSQgmXNUNpLnQLmASauluPG/ObwT7HtmSLIYFGiazfq62bgXuk27nThMCX +7e5DLQ03YOEB93XFVgQWyDaMVw1chyCZUQ2PQ6DfmG7ki8s1aKrbejdQSOD6 +gCKPlL4mmLzVphuOJjAwPklzfMZlWJIZHtaTS+A+X8MJR3kdVBddWVBTT6Ak +uEO16NuLoE3+2sJ4gED5/nV/j8+tgS0NThvE0wS20eZ+xSIV9J1I12gpEpe1 +VmZ1aM8CGdq7Z9qXxEbHgTva+UooixzeaxxLYpxj1Eretkp4H6ArzMonUWZ2 +L2afUwX4aFZo1tSR+ItRTubOnWXQ1haimKsmscflw2hcbSnYpUZI106SKFEM +xdwvVcC5o7yywxw2Jgc9ZSqVRcDz9TAzFbLR5t8JXuvcApD3ex8xiGbj8VfV +Vn7MPLC9ypSN5LPRpYMo6WdmQ8bu9uQ19WxMu7RQwmvMAvsM4auLg2wc/s2F +XnXsANR6mx+VGHBQcNI5z+9ZOth3dvikUhzceMrfZlCVBtfO+0Yq/DjYPtvc +8x65DzwiW8sdYzkoLVzQuUMlA2XnXjPjfA76j3w2mji/B1ZmjD9RN3Cw0rOL +vtKzC25aRf3poObg6JECE//keEh4d8ohikHh/n5lEjM9FuaksS7puBT++un0 +cv8LUVDy7ICYKaTwD5fLhbrsSPArvRzBiKPQXMsqb8+TQp/D8/SkAgqVWUHE +Y/vNsC5C1O9dT+HGLnVagkEEWGpTSt6rKeze9OYz+SkMTgZWxzpOUchKvU+x +VKEQbphbK6K4mDbFbfc9FAK6vETTt75cjP5ooTo4HgzZHYrCx1FclI2GNMy7 +KoLV4hT5zTwuOh+yMQ33DIDROkkxWcfFouoxZLUIoWX7lGWimovbu1qdrHav +gMN3hpqsGTT+ZG9vnl/hA06MJhmPQ+Pirm7RqGg5TB8OUXoJaXzywJ1l4rUM +zr98/aIlmkY7pxflL8q8QPyhLaw4l8aWrXE3NGmLwSkk7PuIehrfiU40rM9a +BEPyN26VD2hcO9kL5bYCiPWyq8YBGuurmqzjZwlgath/ziO9TcUzK1YaCcBe +eG5qzqB+L5w9aDLmBuHG0s6cIRq9xXG7ujvc4HHGgHTvUxrX/yWJkcrc4FnK +TcVqLY3XzOrPXXrEh0TeO7MRvcODhQUevXwwfEjuz35N48H42/evd/KB8k6V +3n5DY6Fzpo+mkQ9Snafb0jH9v10Jqo2FfPhn94W7jh9onLdc8D5MyIc93EdL +b+ktrBI8ECAfZvTOrP35I40ek8NPLBfzwWFRlKJsgkZD2csNfRQftr2lpN98 +pnHVvUNnTjP4MFEh7q/Ve4bIWvPDiCtkrU73C/pCI1mXnRM45ApnazR8+SSN +mmLSPa3JFZZEWFY5TNH4XcFz4uwZV+iYtdSmXW8H950s9TFXCL2xQ755msbp +GjuL2ZmuMBxbOjmtd9KmAKYkwRX+A2GFGXA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.12733710447916072`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFlFlQUwcYhYPaUtHCQGFUVExyby4gqfYmDkKA+f9K25AgxBRBcKEpRIGY +CdUhIJsiuEBE9sXilF0GBUegIFJtKYuA6OhUKhE04lIELEsRETJKaHzy4cyZ +83JmvvNwWCGR3+9fwmAwhEZ98FXZHyITxS6dEtHGayCJ/aSOS3zMC10d+jEl +EznrttsqcprB5UTwnvuZTAx0TZC1DjfChbzfHOuamGh42b2qxr8BxuOtPjcd +YKLky5+m41zrYP9Vp31+i0xMFf/p9EpRC/3nk4fGSRYe7drdUTpdDazAB9GL +Qhbe3HrHrt2mCorDxuJMVSzc1rvAX7u7AmZ99Lmp2SysnntjM2FbBp5D3w0F +NLJwdErT7Sspho4O/0LbQRb62PQUt+YWwfpjMvmuBRZK1S/vbkkuhItnucVp +BBv7bF/MHM/LA67Q2Wy5iI33fMOv8C1yQKN1O2OiZGNBTyVDos+ENdeXxE5l +s7HslNoleGk6pKhvxgc0sfF6h/aAqj0V7FJE/zY8YmNehJdlVvVJqHdbcXav +CYGi9XPYt5AMdrd7PI+RBIaVv7G5fycJfr8sDCsUEzhzMmm+V5EIzmHtJQ4q +Ao/PWYydfRcLVbfjzEyzCey+fi1PYBIDXilvng1eJbDyktWZEoco6LRU3LUf +JDDhvHXFpvuH4PBMqb2CQWL5Cdla8eZIWJ1k86ueQ6Ly7yPlI0EH4dyLk35L +RCT2ZS6tSeeHg7ioWcaIJHFNVHzbRXo/9NsPJ8fkkLiJ+8c/aS0hECTboXVr +IrHUnC8OyZeB+XjCudlBEruqRp7FWu2DX3wvqBwMJD50fHTjYFMQBC/LrN9B +ctDwA1u1ISkA9FlRy18LORgdof1xUecH6T2FuU8VHIxPmx1oyZeC1C9B05nF +weHZI0Gb7/nCf417C1iNHNTInz/JEnhDW4TBPGqQg2YxJs3r/hJC2i1dyxcM +Ck2Ha6KZz78BJ0ZLLJeg0Et5/Ao/dhsspvlXCUQUhipDyUNchMuvJkbalBTu +PH24yyPHHfzeduwpyKRQNyOYdN7uCk7+e9xlTRSuI+TzAidn0Gkm6YqHFPa/ +VkdG/MyHMVXRwuIihZMmpOCGNQ0vEjoLpeMUDmSWzRq8efA0ZUAe95zCROmh +qv4pHrxUX+l1eEvhjIZ3q+4yDcGm8tsZOgpL1KcThz35INe70h7TFPbpNjU7 +vqch/DUpt35HYYizjXuGjAY70UXD6kcUdu2UKI+o+EC6HZN3T1JIjQQpRwke +2G9RFBbPU1izJdF69hQN1XVDX2kWKGw+bHUqXkCDYcx79ZMBCt2jQ+2GU/iw +7DHraPoEhfGWoZdGt/Lg0wcr60PnKNzXUCL0KqIhVZoslrynMOGGf3icDw09 +Fh6rbhoo7J30OZptT4NKsP4CGvs2TimllRl8iOLOmE0Z+Yt9tSunv+ZBNOeJ +R5eR9+4godNX0DBf5qetN/LUbshvMNlFg4vMvNLe2PcZTzK6lKYhsPWgJsS4 +5+Nx3rekHQ3NraLaFQc+/sn/s8T7hg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{71, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 65, + 60, 56, 53, 51, 50, 66, 61, 57, 54, 52, 67, 62, 58, 55, 68, 63, + 59, 69, 64, 70, 49}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSnNnYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5UPfeUAHicVTw== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFlFlQUwcYhYPaUtHCQGFUVExyby4gqfYmDkKA+f9K25AgxBRBcKEpRIGY +CdUhIJsiuEBE9sXilF0GBUegIFJtKYuA6OhUKhE04lIELEsRETJKaHzy4cyZ +83JmvvNwWCGR3+9fwmAwhEZ98FXZHyITxS6dEtHGayCJ/aSOS3zMC10d+jEl +EznrttsqcprB5UTwnvuZTAx0TZC1DjfChbzfHOuamGh42b2qxr8BxuOtPjcd +YKLky5+m41zrYP9Vp31+i0xMFf/p9EpRC/3nk4fGSRYe7drdUTpdDazAB9GL +Qhbe3HrHrt2mCorDxuJMVSzc1rvAX7u7AmZ99Lmp2SysnntjM2FbBp5D3w0F +NLJwdErT7Sspho4O/0LbQRb62PQUt+YWwfpjMvmuBRZK1S/vbkkuhItnucVp +BBv7bF/MHM/LA67Q2Wy5iI33fMOv8C1yQKN1O2OiZGNBTyVDos+ENdeXxE5l +s7HslNoleGk6pKhvxgc0sfF6h/aAqj0V7FJE/zY8YmNehJdlVvVJqHdbcXav +CYGi9XPYt5AMdrd7PI+RBIaVv7G5fycJfr8sDCsUEzhzMmm+V5EIzmHtJQ4q +Ao/PWYydfRcLVbfjzEyzCey+fi1PYBIDXilvng1eJbDyktWZEoco6LRU3LUf +JDDhvHXFpvuH4PBMqb2CQWL5Cdla8eZIWJ1k86ueQ6Ly7yPlI0EH4dyLk35L +RCT2ZS6tSeeHg7ioWcaIJHFNVHzbRXo/9NsPJ8fkkLiJ+8c/aS0hECTboXVr +IrHUnC8OyZeB+XjCudlBEruqRp7FWu2DX3wvqBwMJD50fHTjYFMQBC/LrN9B +ctDwA1u1ISkA9FlRy18LORgdof1xUecH6T2FuU8VHIxPmx1oyZeC1C9B05nF +weHZI0Gb7/nCf417C1iNHNTInz/JEnhDW4TBPGqQg2YxJs3r/hJC2i1dyxcM +Ck2Ha6KZz78BJ0ZLLJeg0Et5/Ao/dhsspvlXCUQUhipDyUNchMuvJkbalBTu +PH24yyPHHfzeduwpyKRQNyOYdN7uCk7+e9xlTRSuI+TzAidn0Gkm6YqHFPa/ +VkdG/MyHMVXRwuIihZMmpOCGNQ0vEjoLpeMUDmSWzRq8efA0ZUAe95zCROmh +qv4pHrxUX+l1eEvhjIZ3q+4yDcGm8tsZOgpL1KcThz35INe70h7TFPbpNjU7 +vqch/DUpt35HYYizjXuGjAY70UXD6kcUdu2UKI+o+EC6HZN3T1JIjQQpRwke +2G9RFBbPU1izJdF69hQN1XVDX2kWKGw+bHUqXkCDYcx79ZMBCt2jQ+2GU/iw +7DHraPoEhfGWoZdGt/Lg0wcr60PnKNzXUCL0KqIhVZoslrynMOGGf3icDw09 +Fh6rbhoo7J30OZptT4NKsP4CGvs2TimllRl8iOLOmE0Z+Yt9tSunv+ZBNOeJ +R5eR9+4godNX0DBf5qetN/LUbshvMNlFg4vMvNLe2PcZTzK6lKYhsPWgJsS4 +5+Nx3rekHQ3NraLaFQc+/sn/s8T7hg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{71, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, + 48, 65, 60, 56, 53, 51, 50, 66, 61, 57, 54, 52, 67, 62, 58, + 55, 68, 63, 59, 69, 64, 70, 49}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.09439523885177539}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx30wlAkcwPGl5lzqNBxTKdqXZx/E6Z7dRizm97vUsSu2PVEqbo8tbDvr +GC95FxEbeYl0miOvQxgvR3LcuSKkpuZyEVp6OW+dlxNip6zb++M73/kw/IK/ +O6tNo9GOaPr/rZ382q3n6Ciw7Rby992F9Z4u1YyMjuw9R42lua1ge8n39LMs +Op60ixV3TjRDRd6vFg0tdFRP9u6o8WyC2RiDL3SG6Sj86sfFaLsGOHvH0sdj +g45pgj8s30lrYfBm0vgswcD4nlNdtxargHHyecSGMwMfHHxset+oEooCZqJ1 +5Aw81L/O3X2qDFbcVNfSchhYtbpsNGdcAk7j3457NTNwekHR6y4sgq4uzwLj +EQa6GfUVdV4rBJMEseTEOgNF4ZNPDiQVQHWmVVE6i4kDxm+XLublgZWzje4W +PhOfugfWc7fngmLI/oqWjInX+8ppQlUW7GrXjlrIYWJJarit76YMSA5/EOPV +wsT2rqFz8vtpYJrM/6dplIl5QS762VUp0Gi/NfOMFgv5Jqs4sJ4Epo/6nBII +FgaULhs9e5wIv9U5BxQIWLiUkrjWL40Dm4D7xeZyFl5c3T6T+TEKKh9F6+rk +sLC3/W4eTysSXJKXX4/cYWH5bYMrxeZh0K0vfWI2wsLYm4Zl1s9CIHTplpmU +RmDpJfFuwf5g2Jlo9IuKTaDsrwulU97n4cbbFA9tPoEDWZtqMriBIChsFdOC +CdwVFnOvmjoLg2YTSZG5BFpb/f53epsfeIuPDdm3EHhLjyvwyxeD3mzsjZUR +Ansqp15HGfjAz+4VcnM1gS8sRjvOt3iD7+asxmMEG9XfM+V7E71AlR225b0z +GyOChn7YUHpARl/BtVdSNsakrwy35YtA5BGr6M5m48TKBe/9T93h3+Yz1xnN +bFRI3oxl81zhXpBaL2yEjbqRWq17/nSG9IfKti9pJOpM1ETQ3xwGS1pblBWL +RBfZxXpu1CHYSPes5PFJ9Jf5EyFWCHXv5qbuyUg8fjm0xzHXATw+dJ2+nkWi +cok3b3PUDiw9TzuIW0jcw5Ks8SxtQKmYp8pekDj4Pjw46CcuyHkmFThM4r4F +maj8KhfUM647xzR2iPA3nUjmgim/Wr1zlMSe40LZBTkXfHUkj64qSSwOvxw3 +4cSFV8nDkug3JMaJQioHFzjwNra7QDRL4nBWyYralQNhVku6CxoXuQ9tW/yG +A5tfMuIz5kiM0fe/PX2QA4R9gqR3nkRyyls2zeKARGVHOS6SOKC0brX4RMFk +eH2/+QcSlxSchw11FESwxxx7NH4ywlKqyij47Pm2Rv9VEn2aip1dCikwOyAt +KFojseZAnOFKKgWB7wmJ4UcS/WyMHK6KKVgr8Rhq1Lh2b36T1gkK0kRJAuEn +EmM7PAOj3Sioahj/WrFOYmuoQWoMjwJbsV65mZrEzznC6U0UBX3bHXc80Lh/ +3i0+x4yCk53nFX4bJL6c5RwhTCmYkReub2g8r0XwOgwp+A+JD/Hr + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.09439523885177539}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx30wlAkcwPGl5lzqNBxTKdqXZx/E6Z7dRizm97vUsSu2PVEqbo8tbDvr +GC95FxEbeYl0miOvQxgvR3LcuSKkpuZyEVp6OW+dlxNip6zb++M73/kw/IK/ +O6tNo9GOaPr/rZ382q3n6Ciw7Rby992F9Z4u1YyMjuw9R42lua1ge8n39LMs +Op60ixV3TjRDRd6vFg0tdFRP9u6o8WyC2RiDL3SG6Sj86sfFaLsGOHvH0sdj +g45pgj8s30lrYfBm0vgswcD4nlNdtxargHHyecSGMwMfHHxset+oEooCZqJ1 +5Aw81L/O3X2qDFbcVNfSchhYtbpsNGdcAk7j3457NTNwekHR6y4sgq4uzwLj +EQa6GfUVdV4rBJMEseTEOgNF4ZNPDiQVQHWmVVE6i4kDxm+XLublgZWzje4W +PhOfugfWc7fngmLI/oqWjInX+8ppQlUW7GrXjlrIYWJJarit76YMSA5/EOPV +wsT2rqFz8vtpYJrM/6dplIl5QS762VUp0Gi/NfOMFgv5Jqs4sJ4Epo/6nBII +FgaULhs9e5wIv9U5BxQIWLiUkrjWL40Dm4D7xeZyFl5c3T6T+TEKKh9F6+rk +sLC3/W4eTysSXJKXX4/cYWH5bYMrxeZh0K0vfWI2wsLYm4Zl1s9CIHTplpmU +RmDpJfFuwf5g2Jlo9IuKTaDsrwulU97n4cbbFA9tPoEDWZtqMriBIChsFdOC +CdwVFnOvmjoLg2YTSZG5BFpb/f53epsfeIuPDdm3EHhLjyvwyxeD3mzsjZUR +Ansqp15HGfjAz+4VcnM1gS8sRjvOt3iD7+asxmMEG9XfM+V7E71AlR225b0z +GyOChn7YUHpARl/BtVdSNsakrwy35YtA5BGr6M5m48TKBe/9T93h3+Yz1xnN +bFRI3oxl81zhXpBaL2yEjbqRWq17/nSG9IfKti9pJOpM1ETQ3xwGS1pblBWL +RBfZxXpu1CHYSPes5PFJ9Jf5EyFWCHXv5qbuyUg8fjm0xzHXATw+dJ2+nkWi +cok3b3PUDiw9TzuIW0jcw5Ks8SxtQKmYp8pekDj4Pjw46CcuyHkmFThM4r4F +maj8KhfUM647xzR2iPA3nUjmgim/Wr1zlMSe40LZBTkXfHUkj64qSSwOvxw3 +4cSFV8nDkug3JMaJQioHFzjwNra7QDRL4nBWyYralQNhVku6CxoXuQ9tW/yG +A5tfMuIz5kiM0fe/PX2QA4R9gqR3nkRyyls2zeKARGVHOS6SOKC0brX4RMFk +eH2/+QcSlxSchw11FESwxxx7NH4ywlKqyij47Pm2Rv9VEn2aip1dCikwOyAt +KFojseZAnOFKKgWB7wmJ4UcS/WyMHK6KKVgr8Rhq1Lh2b36T1gkK0kRJAuEn +EmM7PAOj3Sioahj/WrFOYmuoQWoMjwJbsV65mZrEzznC6U0UBX3bHXc80Lh/ +3i0+x4yCk53nFX4bJL6c5RwhTCmYkReub2g8r0XwOgwp+A+JD/Hr + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFlFlQUwcYhYPaUtHCQGFUVExyby4gqfYmDkKA+f9K25AgxBRBcKEpRIGY +CdUhIJsiuEBE9sXilF0GBUegIFJtKYuA6OhUKhE04lIELEsRETJKaHzy4cyZ +83JmvvNwWCGR3+9fwmAwhEZ98FXZHyITxS6dEtHGayCJ/aSOS3zMC10d+jEl +EznrttsqcprB5UTwnvuZTAx0TZC1DjfChbzfHOuamGh42b2qxr8BxuOtPjcd +YKLky5+m41zrYP9Vp31+i0xMFf/p9EpRC/3nk4fGSRYe7drdUTpdDazAB9GL +Qhbe3HrHrt2mCorDxuJMVSzc1rvAX7u7AmZ99Lmp2SysnntjM2FbBp5D3w0F +NLJwdErT7Sspho4O/0LbQRb62PQUt+YWwfpjMvmuBRZK1S/vbkkuhItnucVp +BBv7bF/MHM/LA67Q2Wy5iI33fMOv8C1yQKN1O2OiZGNBTyVDos+ENdeXxE5l +s7HslNoleGk6pKhvxgc0sfF6h/aAqj0V7FJE/zY8YmNehJdlVvVJqHdbcXav +CYGi9XPYt5AMdrd7PI+RBIaVv7G5fycJfr8sDCsUEzhzMmm+V5EIzmHtJQ4q +Ao/PWYydfRcLVbfjzEyzCey+fi1PYBIDXilvng1eJbDyktWZEoco6LRU3LUf +JDDhvHXFpvuH4PBMqb2CQWL5Cdla8eZIWJ1k86ueQ6Ly7yPlI0EH4dyLk35L +RCT2ZS6tSeeHg7ioWcaIJHFNVHzbRXo/9NsPJ8fkkLiJ+8c/aS0hECTboXVr +IrHUnC8OyZeB+XjCudlBEruqRp7FWu2DX3wvqBwMJD50fHTjYFMQBC/LrN9B +ctDwA1u1ISkA9FlRy18LORgdof1xUecH6T2FuU8VHIxPmx1oyZeC1C9B05nF +weHZI0Gb7/nCf417C1iNHNTInz/JEnhDW4TBPGqQg2YxJs3r/hJC2i1dyxcM +Ck2Ha6KZz78BJ0ZLLJeg0Et5/Ao/dhsspvlXCUQUhipDyUNchMuvJkbalBTu +PH24yyPHHfzeduwpyKRQNyOYdN7uCk7+e9xlTRSuI+TzAidn0Gkm6YqHFPa/ +VkdG/MyHMVXRwuIihZMmpOCGNQ0vEjoLpeMUDmSWzRq8efA0ZUAe95zCROmh +qv4pHrxUX+l1eEvhjIZ3q+4yDcGm8tsZOgpL1KcThz35INe70h7TFPbpNjU7 +vqch/DUpt35HYYizjXuGjAY70UXD6kcUdu2UKI+o+EC6HZN3T1JIjQQpRwke +2G9RFBbPU1izJdF69hQN1XVDX2kWKGw+bHUqXkCDYcx79ZMBCt2jQ+2GU/iw +7DHraPoEhfGWoZdGt/Lg0wcr60PnKNzXUCL0KqIhVZoslrynMOGGf3icDw09 +Fh6rbhoo7J30OZptT4NKsP4CGvs2TimllRl8iOLOmE0Z+Yt9tSunv+ZBNOeJ +R5eR9+4godNX0DBf5qetN/LUbshvMNlFg4vMvNLe2PcZTzK6lKYhsPWgJsS4 +5+Nx3rekHQ3NraLaFQc+/sn/s8T7hg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{71, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 65, 60, + 56, 53, 51, 50, 66, 61, 57, 54, 52, 67, 62, 58, 55, 68, 63, 59, + 69, 64, 70, 49}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.09439523885177539}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx30wlAkcwPGl5lzqNBxTKdqXZx/E6Z7dRizm97vUsSu2PVEqbo8tbDvr +GC95FxEbeYl0miOvQxgvR3LcuSKkpuZyEVp6OW+dlxNip6zb++M73/kw/IK/ +O6tNo9GOaPr/rZ382q3n6Ciw7Rby992F9Z4u1YyMjuw9R42lua1ge8n39LMs +Op60ixV3TjRDRd6vFg0tdFRP9u6o8WyC2RiDL3SG6Sj86sfFaLsGOHvH0sdj +g45pgj8s30lrYfBm0vgswcD4nlNdtxargHHyecSGMwMfHHxset+oEooCZqJ1 +5Aw81L/O3X2qDFbcVNfSchhYtbpsNGdcAk7j3457NTNwekHR6y4sgq4uzwLj +EQa6GfUVdV4rBJMEseTEOgNF4ZNPDiQVQHWmVVE6i4kDxm+XLublgZWzje4W +PhOfugfWc7fngmLI/oqWjInX+8ppQlUW7GrXjlrIYWJJarit76YMSA5/EOPV +wsT2rqFz8vtpYJrM/6dplIl5QS762VUp0Gi/NfOMFgv5Jqs4sJ4Epo/6nBII +FgaULhs9e5wIv9U5BxQIWLiUkrjWL40Dm4D7xeZyFl5c3T6T+TEKKh9F6+rk +sLC3/W4eTysSXJKXX4/cYWH5bYMrxeZh0K0vfWI2wsLYm4Zl1s9CIHTplpmU +RmDpJfFuwf5g2Jlo9IuKTaDsrwulU97n4cbbFA9tPoEDWZtqMriBIChsFdOC +CdwVFnOvmjoLg2YTSZG5BFpb/f53epsfeIuPDdm3EHhLjyvwyxeD3mzsjZUR +Ansqp15HGfjAz+4VcnM1gS8sRjvOt3iD7+asxmMEG9XfM+V7E71AlR225b0z +GyOChn7YUHpARl/BtVdSNsakrwy35YtA5BGr6M5m48TKBe/9T93h3+Yz1xnN +bFRI3oxl81zhXpBaL2yEjbqRWq17/nSG9IfKti9pJOpM1ETQ3xwGS1pblBWL +RBfZxXpu1CHYSPes5PFJ9Jf5EyFWCHXv5qbuyUg8fjm0xzHXATw+dJ2+nkWi +cok3b3PUDiw9TzuIW0jcw5Ks8SxtQKmYp8pekDj4Pjw46CcuyHkmFThM4r4F +maj8KhfUM647xzR2iPA3nUjmgim/Wr1zlMSe40LZBTkXfHUkj64qSSwOvxw3 +4cSFV8nDkug3JMaJQioHFzjwNra7QDRL4nBWyYralQNhVku6CxoXuQ9tW/yG +A5tfMuIz5kiM0fe/PX2QA4R9gqR3nkRyyls2zeKARGVHOS6SOKC0brX4RMFk +eH2/+QcSlxSchw11FESwxxx7NH4ywlKqyij47Pm2Rv9VEn2aip1dCikwOyAt +KFojseZAnOFKKgWB7wmJ4UcS/WyMHK6KKVgr8Rhq1Lh2b36T1gkK0kRJAuEn +EmM7PAOj3Sioahj/WrFOYmuoQWoMjwJbsV65mZrEzznC6U0UBX3bHXc80Lh/ +3i0+x4yCk53nFX4bJL6c5RwhTCmYkReub2g8r0XwOgwp+A+JD/Hr + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.5}, {0., 0.12733710447916072`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9, + 3.992489091524963*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"11827447-ee4e-42d6-a2cf-7eb0c93fcf94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"7", ",", "13"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "0.2"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992489028050653*^9, 3.9924890280510397`*^9}, { + 3.992489148927055*^9, 3.99248915553817*^9}}, + CellLabel-> + "In[101]:=",ExpressionUUID->"03fa2117-88d2-48db-bd86-a8f5bc26f1cf"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.64, $CellContext`yv$$ = 1.213, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.2060547869196, 115.8310547869196}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`yv$$ = 1.213}, + "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, + 7, 13}, PlotStyle -> Red], PlotRange -> {{7, 13}, {0, 0.2}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {164.3216797869196, 169.9466797869196}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992489029519435*^9, 3.992489124469268*^9, + 3.9924891610443*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"3448a85d-92b4-46ae-8d3b-c29e0a7884c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992489241064679*^9, 3.9924892415151777`*^9}}, + CellLabel-> + "In[104]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV02k4lWsXB3BCqDSclL2xeR4kpZJ0ZDhaaxvCluEtGUrInCJDbRkz78ic +KBpkiKJQpBQ7Q4ZkqIQGU2Q3aFKGQ/I+58N9ret3XfeH/73utUinY3tcF/Hx +8d2kzn91fbeUIB8fDSfvPg3VX8cDLWag+g/Ki2jh5YZyPDC71ePxjp+GTWlu +KixZHrBPp7Y3CtDQSWFW1JTOg6Z/hDPjhGm4gxupzRLjgUvBxIbVK2iYw8/L +kpscgxx2q7miDA3fJnTdMGkcAzo9IHv3PzRUmJ8sjHQcA1oLI784lIbR21X2 +lIe9h7mlyiWV1TSsPrEkPStnFDqVP29JnKLh94GaR0tqRqC0ckouYAcduy6V +D+k8fAf+3R5rlx2n43ebfghsHAa9g4rBdyrpGD9Z0tRWNgSC9Rn7laboOGmz +91W55iBcf+ClabRNErcxlkyYqfbDAdmUuCB/SXR5qHchcu41fJegv7Iuk8Rl +1ekMs699wB63zFs0LoknvS4r+070gKjy2wHuJilc+dpHebi3G8L/tNKVDkth +rP2pCJUfz0HgH4Gm3BtS2PHi4w/56S4I2Pdt/NMnKZRklNVxoQM6BXRXDyhK +4yaNqi0DAm2gJj10Y8RdGhvFAm7tr22G4NZRZnq+NM7zzj7QHW+EzqHtLOsx +abw/1f2JQ9TDmu4d7TxFBh6eOueraMKFnXZXzeWdGchNPX8iknwAx82s9Hzz +Gdg3WZyZLFUFiS991T2HGTiftjdwqvUOZGpg/laGDM5ap7BCP5fBLaH9UaL2 +MjhXGheqf7gErru/PpSYJYOX3X/16wkXQZnatXL5tzL44vR28u1EHhS9UQjh +SMtitpblAdWEHIimLdmVYSOLC7Pz+s13suEoVyui6oIsDvWvh7r6DNCYe/Yg +qkcWX16PGDYcSYNM+UI5v15ZjEzJlzr0Mg2mTELiHPtk8Y+BdGNUcxpUXFS0 +1nkti2Mx88bvi9Ng687gial+WVTUupVMO5EGShEKGzzfy6Jjj6+2tmgaSAgH +ZFj8kkWR+0v/Z6KRCsGiSfeWixKYl2CWPeiYDGHb36xMobw8gzkSYJgMkQ5K +h1ctIXAs7TZLfksyxFfW08WXElh3PdbgzlwSnD80HUQXI9As9kr83cwkqLjv +qKOwisCfqtYu8CIRvh5Wq9ekE9h/fauyoE0COD7pa3PZQKD1mL9Azbk4SKpX +COqnvE1Bd/26yDh4UO2jZLWRwA6V4gPZ3nGwtlgkxlCZwIBH+LzcMA7azmjs +3LiZwIlwmbmY2dOgbnq+7NtWAsv0Ko81OJ2GZV3W54I0CBT+Zuy3T4cDVS97 +7FMMCRS6qT07Q4uBey5C21YbEXghr2mOKRwD1T/VhDIozxopC1+YjIaHq1KL +s42pPLt0Vvs+j4Z6U5OZayZU3sffec0J0dDxmJtaY07gJR2L58KC0TBWWdT4 +yZpAUdcrexN+R4J4RtBGAw8Cj7eUKZ9fHQEwUbiXS3mXd12o2OII8DR7GaJ5 +mMDCQE+BxJlwqFu8tXOzJ4GW4vsTb/SHg3fAe/+1Rwms/Orca18UDi02FjW8 +YwSmuf6tcg3CIURK0SI+gECLhgp1vs9hMJLz7ERnLIGhgZINA/8GQ5PTL01D +DoHHTOuSP44Eww0FiT+1lI/nnnku2BEMPkV2sbdOEzj1uDfhaG4w/C7lZSTG +Exjr8vHcgkkwiHPnq0ySCGRs1mJszA2CXf0bZpvPETg5Ohqqtz8QbtAjwx7l +E5jQMKqsOs2GQ34cd90CAlOHYnWCRthAa0uwaKRcCKqJLzrZwAnJlGu5RuDO +rNyKu0VscBksaeosIvAe62uzzgE2MAp6lw+WEMjPn6yt33ACUrZuvjJfQWB6 +1zVe/+XjEGDYx9V6TGAphx3+IMIPbLze/rlDWXG55udmPz/QODuks7mJwJg1 +DnODzn4wO/DhgWwzgTUniz9u2+UHYex/qwRbCfxaarvSeakfxBZIlnU8JdDT +QmTD+0xfyBA4mOPUTf3vCKdO/b4P3OUOh8ePEDj35cSya+recCSkZVRslJrv +RR4HBaW9gdAsNUr9z/URboH83hB/O2Tl+fcEqrmWWRc+9QL7AomcAh6B77cn +3l3p4gXCZ0y5jz4TmPXzR4Zo5lGwsbo/P/WTQLuCGzI0sSMwN54S5CxI4oqE +D+a//vYAjxVegaOUnb74Gr8lPKBb1fikqxCJFaeYjJ6lHnCLzc92X0xi+Itl +kgvD7uDE5+d7RIRE70dEr0KyOzxZvdfDfxmJPvHpM7fH3SBLa41VlDiJdfix +9WSFK2ievqCap0DiMcU1cQ3+ztAVcDxWah2JIwvCj984O4Obu/mbs5THvvje +5LN0hvRdQjHRiiTqCn2x89nuDN8EfftclUgsSexSGpt0goIIo1NKm0g0/2HI +kA92glXB009vqpE4mNwndzXpEHz02udxT5fEF/DkiU+pA1j++uudlh6J2q+e +2amfdYDaoK4DNZRP5HMixAMcIJ1jYl6vT2I7J2WrJDgAXmWqP91FouOmIp5R +lz1kdG8WHGKR+NDbSEBu+iDoay/OEd5LvRenAzWs7OCKSFWvlTOJK9XWD3Tv +s4Xtdv6FXZTjfITOFqIttJSqBLBcSDx1TvzKGWVbmLAqWrvTlURx9vMYDr8t +6Bdc2LfOnUQhIY8Vprds4CMz5MVPTxLXxjswBZbagFowszPFj8SCc1553C4r +aP7S1vQkgsTfC84OFfGWIF4YqqobSeLVbHZie6AlODqqXLxPWe9ZutMvD0uY +fZ7mWxRFopsa0etpaAmb7tlKx8aQyFH24P4raAkpkTxfZhyJq075WGVE7gUb +CQHGvRQS1UdzYyI5e+ADavkXXCGR2V03+qfSAkRSOxatzyHxWf3sk8WFFrBh +2CmtiHJUTdKw1HkL8Iw4U158lUTpY9F+XkEW8KXu7bfyPBKXtvd+KAELmNA9 +dbS2kMRc+4Z+xQvm8Fu/0bW3lMTJUu6E66AprDA2sxF9RPXjtnXbRDkL9rsN +60RSbtMdGUrMZkF+1HH5Oco+f9wCtWNYoFGb9XW8jsTx7qTpdhsWOKnxorsa +SAyo8z3dwceCu4zw8sxmEm25r+RULY3BbqJ8iWIniSqBRbUSIkZQlL2mRneA +mqdXRzieVw0gVYx+u5VyDzn3TDLRAIJOSRdaDJJI12J86z9pALud5VPth0gM +etpmd9HCAL5vVHUNekfil/apjTN8BqBZvVvs9hi1HwVG49Ku+vCkL+og+Y3K +cymprUhLD+6wOHuKKOu017ifVdKDiw/jDVW+kzir19SZtFYPvHNSVXV+kHgt +TKOpakIX/vK4ImT7k0TjkiN5XcW6cGC6+mbKNImmSXL8q0hd0D9cmysxQ90X +umTCv1IXtrypy7xMOS3C3J9/gQl83JaIkn9JbN0WRqj2MyE/tmdfyxyJrIRq +h91ZTEicecUy/01iadse/uo4JrA9+6GH8pbacrEdgUwwMhvdMDpPYthfwVsc +bJig+ognc+QP1T/LIcUlRkyQ3PZ59QTliz/59zTuYIJA/leRwAXKbr+vJq5n +wviaifkFyronZ0TcJJjwf+R61X4= + "]]}, + 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:eJwV02k4lWsXB3BCqDSclL2xeR4kpZJ0ZDhaaxvCluEtGUrInCJDbRkz78ic +KBpkiKJQpBQ7Q4ZkqIQGU2Q3aFKGQ/I+58N9ret3XfeH/73utUinY3tcF/Hx +8d2kzn91fbeUIB8fDSfvPg3VX8cDLWag+g/Ki2jh5YZyPDC71ePxjp+GTWlu +KixZHrBPp7Y3CtDQSWFW1JTOg6Z/hDPjhGm4gxupzRLjgUvBxIbVK2iYw8/L +kpscgxx2q7miDA3fJnTdMGkcAzo9IHv3PzRUmJ8sjHQcA1oLI784lIbR21X2 +lIe9h7mlyiWV1TSsPrEkPStnFDqVP29JnKLh94GaR0tqRqC0ckouYAcduy6V +D+k8fAf+3R5rlx2n43ebfghsHAa9g4rBdyrpGD9Z0tRWNgSC9Rn7laboOGmz +91W55iBcf+ClabRNErcxlkyYqfbDAdmUuCB/SXR5qHchcu41fJegv7Iuk8Rl +1ekMs699wB63zFs0LoknvS4r+070gKjy2wHuJilc+dpHebi3G8L/tNKVDkth +rP2pCJUfz0HgH4Gm3BtS2PHi4w/56S4I2Pdt/NMnKZRklNVxoQM6BXRXDyhK +4yaNqi0DAm2gJj10Y8RdGhvFAm7tr22G4NZRZnq+NM7zzj7QHW+EzqHtLOsx +abw/1f2JQ9TDmu4d7TxFBh6eOueraMKFnXZXzeWdGchNPX8iknwAx82s9Hzz +Gdg3WZyZLFUFiS991T2HGTiftjdwqvUOZGpg/laGDM5ap7BCP5fBLaH9UaL2 +MjhXGheqf7gErru/PpSYJYOX3X/16wkXQZnatXL5tzL44vR28u1EHhS9UQjh +SMtitpblAdWEHIimLdmVYSOLC7Pz+s13suEoVyui6oIsDvWvh7r6DNCYe/Yg +qkcWX16PGDYcSYNM+UI5v15ZjEzJlzr0Mg2mTELiHPtk8Y+BdGNUcxpUXFS0 +1nkti2Mx88bvi9Ng687gial+WVTUupVMO5EGShEKGzzfy6Jjj6+2tmgaSAgH +ZFj8kkWR+0v/Z6KRCsGiSfeWixKYl2CWPeiYDGHb36xMobw8gzkSYJgMkQ5K +h1ctIXAs7TZLfksyxFfW08WXElh3PdbgzlwSnD80HUQXI9As9kr83cwkqLjv +qKOwisCfqtYu8CIRvh5Wq9ekE9h/fauyoE0COD7pa3PZQKD1mL9Azbk4SKpX +COqnvE1Bd/26yDh4UO2jZLWRwA6V4gPZ3nGwtlgkxlCZwIBH+LzcMA7azmjs +3LiZwIlwmbmY2dOgbnq+7NtWAsv0Ko81OJ2GZV3W54I0CBT+Zuy3T4cDVS97 +7FMMCRS6qT07Q4uBey5C21YbEXghr2mOKRwD1T/VhDIozxopC1+YjIaHq1KL +s42pPLt0Vvs+j4Z6U5OZayZU3sffec0J0dDxmJtaY07gJR2L58KC0TBWWdT4 +yZpAUdcrexN+R4J4RtBGAw8Cj7eUKZ9fHQEwUbiXS3mXd12o2OII8DR7GaJ5 +mMDCQE+BxJlwqFu8tXOzJ4GW4vsTb/SHg3fAe/+1Rwms/Orca18UDi02FjW8 +YwSmuf6tcg3CIURK0SI+gECLhgp1vs9hMJLz7ERnLIGhgZINA/8GQ5PTL01D +DoHHTOuSP44Eww0FiT+1lI/nnnku2BEMPkV2sbdOEzj1uDfhaG4w/C7lZSTG +Exjr8vHcgkkwiHPnq0ySCGRs1mJszA2CXf0bZpvPETg5Ohqqtz8QbtAjwx7l +E5jQMKqsOs2GQ34cd90CAlOHYnWCRthAa0uwaKRcCKqJLzrZwAnJlGu5RuDO +rNyKu0VscBksaeosIvAe62uzzgE2MAp6lw+WEMjPn6yt33ACUrZuvjJfQWB6 +1zVe/+XjEGDYx9V6TGAphx3+IMIPbLze/rlDWXG55udmPz/QODuks7mJwJg1 +DnODzn4wO/DhgWwzgTUniz9u2+UHYex/qwRbCfxaarvSeakfxBZIlnU8JdDT +QmTD+0xfyBA4mOPUTf3vCKdO/b4P3OUOh8ePEDj35cSya+recCSkZVRslJrv +RR4HBaW9gdAsNUr9z/URboH83hB/O2Tl+fcEqrmWWRc+9QL7AomcAh6B77cn +3l3p4gXCZ0y5jz4TmPXzR4Zo5lGwsbo/P/WTQLuCGzI0sSMwN54S5CxI4oqE +D+a//vYAjxVegaOUnb74Gr8lPKBb1fikqxCJFaeYjJ6lHnCLzc92X0xi+Itl +kgvD7uDE5+d7RIRE70dEr0KyOzxZvdfDfxmJPvHpM7fH3SBLa41VlDiJdfix +9WSFK2ievqCap0DiMcU1cQ3+ztAVcDxWah2JIwvCj984O4Obu/mbs5THvvje +5LN0hvRdQjHRiiTqCn2x89nuDN8EfftclUgsSexSGpt0goIIo1NKm0g0/2HI +kA92glXB009vqpE4mNwndzXpEHz02udxT5fEF/DkiU+pA1j++uudlh6J2q+e +2amfdYDaoK4DNZRP5HMixAMcIJ1jYl6vT2I7J2WrJDgAXmWqP91FouOmIp5R +lz1kdG8WHGKR+NDbSEBu+iDoay/OEd5LvRenAzWs7OCKSFWvlTOJK9XWD3Tv +s4Xtdv6FXZTjfITOFqIttJSqBLBcSDx1TvzKGWVbmLAqWrvTlURx9vMYDr8t +6Bdc2LfOnUQhIY8Vprds4CMz5MVPTxLXxjswBZbagFowszPFj8SCc1553C4r +aP7S1vQkgsTfC84OFfGWIF4YqqobSeLVbHZie6AlODqqXLxPWe9ZutMvD0uY +fZ7mWxRFopsa0etpaAmb7tlKx8aQyFH24P4raAkpkTxfZhyJq075WGVE7gUb +CQHGvRQS1UdzYyI5e+ADavkXXCGR2V03+qfSAkRSOxatzyHxWf3sk8WFFrBh +2CmtiHJUTdKw1HkL8Iw4U158lUTpY9F+XkEW8KXu7bfyPBKXtvd+KAELmNA9 +dbS2kMRc+4Z+xQvm8Fu/0bW3lMTJUu6E66AprDA2sxF9RPXjtnXbRDkL9rsN +60RSbtMdGUrMZkF+1HH5Oco+f9wCtWNYoFGb9XW8jsTx7qTpdhsWOKnxorsa +SAyo8z3dwceCu4zw8sxmEm25r+RULY3BbqJ8iWIniSqBRbUSIkZQlL2mRneA +mqdXRzieVw0gVYx+u5VyDzn3TDLRAIJOSRdaDJJI12J86z9pALud5VPth0gM +etpmd9HCAL5vVHUNekfil/apjTN8BqBZvVvs9hi1HwVG49Ku+vCkL+og+Y3K +cymprUhLD+6wOHuKKOu017ifVdKDiw/jDVW+kzir19SZtFYPvHNSVXV+kHgt +TKOpakIX/vK4ImT7k0TjkiN5XcW6cGC6+mbKNImmSXL8q0hd0D9cmysxQ90X +umTCv1IXtrypy7xMOS3C3J9/gQl83JaIkn9JbN0WRqj2MyE/tmdfyxyJrIRq +h91ZTEicecUy/01iadse/uo4JrA9+6GH8pbacrEdgUwwMhvdMDpPYthfwVsc +bJig+ognc+QP1T/LIcUlRkyQ3PZ59QTliz/59zTuYIJA/leRwAXKbr+vJq5n +wviaifkFyronZ0TcJJjwf+R61X4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.7232992608093968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.7232992608093968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV02k4lWsXB3BCqDSclL2xeR4kpZJ0ZDhaaxvCluEtGUrInCJDbRkz78ic +KBpkiKJQpBQ7Q4ZkqIQGU2Q3aFKGQ/I+58N9ret3XfeH/73utUinY3tcF/Hx +8d2kzn91fbeUIB8fDSfvPg3VX8cDLWag+g/Ki2jh5YZyPDC71ePxjp+GTWlu +KixZHrBPp7Y3CtDQSWFW1JTOg6Z/hDPjhGm4gxupzRLjgUvBxIbVK2iYw8/L +kpscgxx2q7miDA3fJnTdMGkcAzo9IHv3PzRUmJ8sjHQcA1oLI784lIbR21X2 +lIe9h7mlyiWV1TSsPrEkPStnFDqVP29JnKLh94GaR0tqRqC0ckouYAcduy6V +D+k8fAf+3R5rlx2n43ebfghsHAa9g4rBdyrpGD9Z0tRWNgSC9Rn7laboOGmz +91W55iBcf+ClabRNErcxlkyYqfbDAdmUuCB/SXR5qHchcu41fJegv7Iuk8Rl +1ekMs699wB63zFs0LoknvS4r+070gKjy2wHuJilc+dpHebi3G8L/tNKVDkth +rP2pCJUfz0HgH4Gm3BtS2PHi4w/56S4I2Pdt/NMnKZRklNVxoQM6BXRXDyhK +4yaNqi0DAm2gJj10Y8RdGhvFAm7tr22G4NZRZnq+NM7zzj7QHW+EzqHtLOsx +abw/1f2JQ9TDmu4d7TxFBh6eOueraMKFnXZXzeWdGchNPX8iknwAx82s9Hzz +Gdg3WZyZLFUFiS991T2HGTiftjdwqvUOZGpg/laGDM5ap7BCP5fBLaH9UaL2 +MjhXGheqf7gErru/PpSYJYOX3X/16wkXQZnatXL5tzL44vR28u1EHhS9UQjh +SMtitpblAdWEHIimLdmVYSOLC7Pz+s13suEoVyui6oIsDvWvh7r6DNCYe/Yg +qkcWX16PGDYcSYNM+UI5v15ZjEzJlzr0Mg2mTELiHPtk8Y+BdGNUcxpUXFS0 +1nkti2Mx88bvi9Ng687gial+WVTUupVMO5EGShEKGzzfy6Jjj6+2tmgaSAgH +ZFj8kkWR+0v/Z6KRCsGiSfeWixKYl2CWPeiYDGHb36xMobw8gzkSYJgMkQ5K +h1ctIXAs7TZLfksyxFfW08WXElh3PdbgzlwSnD80HUQXI9As9kr83cwkqLjv +qKOwisCfqtYu8CIRvh5Wq9ekE9h/fauyoE0COD7pa3PZQKD1mL9Azbk4SKpX +COqnvE1Bd/26yDh4UO2jZLWRwA6V4gPZ3nGwtlgkxlCZwIBH+LzcMA7azmjs +3LiZwIlwmbmY2dOgbnq+7NtWAsv0Ko81OJ2GZV3W54I0CBT+Zuy3T4cDVS97 +7FMMCRS6qT07Q4uBey5C21YbEXghr2mOKRwD1T/VhDIozxopC1+YjIaHq1KL +s42pPLt0Vvs+j4Z6U5OZayZU3sffec0J0dDxmJtaY07gJR2L58KC0TBWWdT4 +yZpAUdcrexN+R4J4RtBGAw8Cj7eUKZ9fHQEwUbiXS3mXd12o2OII8DR7GaJ5 +mMDCQE+BxJlwqFu8tXOzJ4GW4vsTb/SHg3fAe/+1Rwms/Orca18UDi02FjW8 +YwSmuf6tcg3CIURK0SI+gECLhgp1vs9hMJLz7ERnLIGhgZINA/8GQ5PTL01D +DoHHTOuSP44Eww0FiT+1lI/nnnku2BEMPkV2sbdOEzj1uDfhaG4w/C7lZSTG +Exjr8vHcgkkwiHPnq0ySCGRs1mJszA2CXf0bZpvPETg5Ohqqtz8QbtAjwx7l +E5jQMKqsOs2GQ34cd90CAlOHYnWCRthAa0uwaKRcCKqJLzrZwAnJlGu5RuDO +rNyKu0VscBksaeosIvAe62uzzgE2MAp6lw+WEMjPn6yt33ACUrZuvjJfQWB6 +1zVe/+XjEGDYx9V6TGAphx3+IMIPbLze/rlDWXG55udmPz/QODuks7mJwJg1 +DnODzn4wO/DhgWwzgTUniz9u2+UHYex/qwRbCfxaarvSeakfxBZIlnU8JdDT +QmTD+0xfyBA4mOPUTf3vCKdO/b4P3OUOh8ePEDj35cSya+recCSkZVRslJrv +RR4HBaW9gdAsNUr9z/URboH83hB/O2Tl+fcEqrmWWRc+9QL7AomcAh6B77cn +3l3p4gXCZ0y5jz4TmPXzR4Zo5lGwsbo/P/WTQLuCGzI0sSMwN54S5CxI4oqE +D+a//vYAjxVegaOUnb74Gr8lPKBb1fikqxCJFaeYjJ6lHnCLzc92X0xi+Itl +kgvD7uDE5+d7RIRE70dEr0KyOzxZvdfDfxmJPvHpM7fH3SBLa41VlDiJdfix +9WSFK2ievqCap0DiMcU1cQ3+ztAVcDxWah2JIwvCj984O4Obu/mbs5THvvje +5LN0hvRdQjHRiiTqCn2x89nuDN8EfftclUgsSexSGpt0goIIo1NKm0g0/2HI +kA92glXB009vqpE4mNwndzXpEHz02udxT5fEF/DkiU+pA1j++uudlh6J2q+e +2amfdYDaoK4DNZRP5HMixAMcIJ1jYl6vT2I7J2WrJDgAXmWqP91FouOmIp5R +lz1kdG8WHGKR+NDbSEBu+iDoay/OEd5LvRenAzWs7OCKSFWvlTOJK9XWD3Tv +s4Xtdv6FXZTjfITOFqIttJSqBLBcSDx1TvzKGWVbmLAqWrvTlURx9vMYDr8t +6Bdc2LfOnUQhIY8Vprds4CMz5MVPTxLXxjswBZbagFowszPFj8SCc1553C4r +aP7S1vQkgsTfC84OFfGWIF4YqqobSeLVbHZie6AlODqqXLxPWe9ZutMvD0uY +fZ7mWxRFopsa0etpaAmb7tlKx8aQyFH24P4raAkpkTxfZhyJq075WGVE7gUb +CQHGvRQS1UdzYyI5e+ADavkXXCGR2V03+qfSAkRSOxatzyHxWf3sk8WFFrBh +2CmtiHJUTdKw1HkL8Iw4U158lUTpY9F+XkEW8KXu7bfyPBKXtvd+KAELmNA9 +dbS2kMRc+4Z+xQvm8Fu/0bW3lMTJUu6E66AprDA2sxF9RPXjtnXbRDkL9rsN +60RSbtMdGUrMZkF+1HH5Oco+f9wCtWNYoFGb9XW8jsTx7qTpdhsWOKnxorsa +SAyo8z3dwceCu4zw8sxmEm25r+RULY3BbqJ8iWIniSqBRbUSIkZQlL2mRneA +mqdXRzieVw0gVYx+u5VyDzn3TDLRAIJOSRdaDJJI12J86z9pALud5VPth0gM +etpmd9HCAL5vVHUNekfil/apjTN8BqBZvVvs9hi1HwVG49Ku+vCkL+og+Y3K +cymprUhLD+6wOHuKKOu017ifVdKDiw/jDVW+kzir19SZtFYPvHNSVXV+kHgt +TKOpakIX/vK4ImT7k0TjkiN5XcW6cGC6+mbKNImmSXL8q0hd0D9cmysxQ90X +umTCv1IXtrypy7xMOS3C3J9/gQl83JaIkn9JbN0WRqj2MyE/tmdfyxyJrIRq +h91ZTEicecUy/01iadse/uo4JrA9+6GH8pbacrEdgUwwMhvdMDpPYthfwVsc +bJig+ognc+QP1T/LIcUlRkyQ3PZ59QTliz/59zTuYIJA/leRwAXKbr+vJq5n +wviaifkFyronZ0TcJJjwf+R61X4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.7232992608093968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.7232992608093968}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.992489236719944*^9, + 3.992489242438548*^9}}, + CellLabel-> + "Out[104]=",ExpressionUUID->"7fb1589d-45a3-49b6-82ba-bf506479aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "9", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "9", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.992489247228116*^9, 3.9924892507583847`*^9}}, + CellLabel-> + "In[105]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.021671387082232926`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.07028906174315021`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.021671387082232926`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07028906174315021`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"184862.14053247584`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"19\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]]}], \\\"-\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.021671387082232926`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.07028906174315021`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"7.205601754598913`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ +numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) \ +at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 105, 15, 25981759383722902615, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992489251884439*^9}, + CellLabel-> + "During evaluation of \ +In[105]:=",ExpressionUUID->"85c9d17c-d63a-43ad-851f-9344bb72c1a2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "2.427738040044762`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.7375082621572759`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9924892519569073`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"9efc2baa-2cfc-4941-b971-8aeddb7f1c13"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "2.428"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, {3.992489258140033*^9, + 3.992489270695017*^9}}, + CellLabel-> + "In[106]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["2.428`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9, + 3.992489271683609*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"1bb55584-134e-4075-a597-5b718fa4c131"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.738"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.9924892736123867`*^9, + 3.992489277844515*^9}}, + CellLabel-> + "In[107]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["0.738`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9, + 3.9924892787563467`*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"fd3ff19a-e2f0-4857-a442-ea8995a4d62b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "9"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.9924895490467997`*^9, 3.9924895498974123`*^9}}, + CellLabel-> + "In[109]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlHs01HkYxmlNybHUrmL1m5nftywdbSR2c6v3Va5b6WinmXFJRRlRuaYo +t3YaNVHTxZqY7XSZrEIkppBC2CzTzS23beegXKayVEphZ/94z/Pf53nO54+X +BEVs3jVLS0tro+b+T1P7Kk1QGCOSygTPlTAvZNM3tkspFFTo7yKuTbDz6L3a +P3+hkCHtM2PfegiTc6KZ8YcpzKqm/6FSGyAt2oMdKKcwW612mBLVQdSjTzXy +xxR61+v4Z0pq4ULGqIHuRwqDWK7OLv3VsHRN3ZfmJUyUX9ReXRJ/D/Lay0/X +ezOxYj7vs5+oEsKfjT/pimPi7TE7gbNOOZy4r3fT5zITOfFCnkisgDeGIU4D +fzFRnBxjPRhZCh6efXsKxph4zuZ43AZJCUxHrYY2JgvXcVIjUxXFMDHdXWnq +zsL9u7+0NP58A7wTeZ01USyM0y6uKP8pH3L63v0uk7HwTvc647WH88CysF3/ +XB0LGS8FWVPLc8E4NJN6/ZaFhoMGGfHDV8BdJG0PMmGjfKTo+QHty9CSedDG +0ZWNo+s7LEYWXwRuRoKtWwQbey/1O/t9lMGiweoXe7LYKF4lsHhunQ1r7Pp/ ++FDLxvCZKuG1uCy40rfeTDbCxgXnbs6olmVCSlWYqmIujUPJSW+WLDkLvdqs +VD6bRoXT3hjR96eh+8D4fqEtjfkye8cv/56EYyGrnHZ40VjvpgzMKzwBK7z0 +WzsCaezpCvGglccgfutXtT3RNEo9F/Y4B4kgajg05cwxGg1/8zX/drYQ9K6N +nm2X0bht5ZR6WO8IXPCfe6i0mEbroBv2HV4poBJJVq5roNFEt+rMdvNEqO9z +gO1dNJa5l3V4uCcAv9yHshqlsSYn1ckm/gCkV5/wFusQLMhVFRvQ+6GykstJ +MSFo8rS3UawfA+etJZYWVgQ978gGfWdHgUnbyJaAtQTbiiIsLfL2gft4mc9a +PsEQIScowz8cIhjzSe1egjOnomtIXCg4eJ10e5JKMHgzPTOoGwIljATHU1kE +X9nG6roVBEPzeJqwJ58gx3Nr2JySHaBqM7/84D7BTyXsdMXANri6wk7i30Yw +eXcVMzApAPSqgltShwhmWwzdUcl9YTz40vTMDMF5bIdbb5q4sGCTSPydEYX2 +Ee9d09KaIUkya6j6HcGkcPOA+8v5IH1wqUFfj8JT5m6f0EoJdea2geQtwVCZ +TuiZl3ywn3was32S4MqAllhM4EFnYtHO2QwKJUxBw8ARJbyKapL6qAneu+o6 +OcfNF/zdwm5IJggabRF38Vp4sLDIwWHFFEG2oRkndjEPJv0Utr/OonDAO3Jc +XKiEg1nGiqFhgozbPtoPY31BHaZoWvqB4GOzu147tPjwR+tR7sPPBO+2Znna +ePNAePz1Iuk0wYxx/xndCS6IGx1yXLQp9Nms4ozVKsHlelXdjxre9CG5rDHd +F8oSA7pi3xP8+7yilGHMh8hXy3YZaXhjE9YnrXbyYKPsrGW/Zl/BPpfkUn0e +3I3z+HqDxt/cQzk1USouPEv5/Oii5r84WaQ45SuVkHtrXnO3xrcg06/zmdQX +TNOKVKYavoFA/mLbYj60jibtqdD4ari9XG0XwYOSqy9txBr+mpH+3tPGPKBT +so3GNPvT1cGdjmou8Pe+Y+Rq+obXXy8rbOfCfzgMMLY= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, + 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlHs01HkYxmlNybHUrmL1m5nftywdbSR2c6v3Va5b6WinmXFJRRlRuaYo +t3YaNVHTxZqY7XSZrEIkppBC2CzTzS23beegXKayVEphZ/94z/Pf53nO54+X +BEVs3jVLS0tro+b+T1P7Kk1QGCOSygTPlTAvZNM3tkspFFTo7yKuTbDz6L3a +P3+hkCHtM2PfegiTc6KZ8YcpzKqm/6FSGyAt2oMdKKcwW612mBLVQdSjTzXy +xxR61+v4Z0pq4ULGqIHuRwqDWK7OLv3VsHRN3ZfmJUyUX9ReXRJ/D/Lay0/X +ezOxYj7vs5+oEsKfjT/pimPi7TE7gbNOOZy4r3fT5zITOfFCnkisgDeGIU4D +fzFRnBxjPRhZCh6efXsKxph4zuZ43AZJCUxHrYY2JgvXcVIjUxXFMDHdXWnq +zsL9u7+0NP58A7wTeZ01USyM0y6uKP8pH3L63v0uk7HwTvc647WH88CysF3/ +XB0LGS8FWVPLc8E4NJN6/ZaFhoMGGfHDV8BdJG0PMmGjfKTo+QHty9CSedDG +0ZWNo+s7LEYWXwRuRoKtWwQbey/1O/t9lMGiweoXe7LYKF4lsHhunQ1r7Pp/ ++FDLxvCZKuG1uCy40rfeTDbCxgXnbs6olmVCSlWYqmIujUPJSW+WLDkLvdqs +VD6bRoXT3hjR96eh+8D4fqEtjfkye8cv/56EYyGrnHZ40VjvpgzMKzwBK7z0 +WzsCaezpCvGglccgfutXtT3RNEo9F/Y4B4kgajg05cwxGg1/8zX/drYQ9K6N +nm2X0bht5ZR6WO8IXPCfe6i0mEbroBv2HV4poBJJVq5roNFEt+rMdvNEqO9z +gO1dNJa5l3V4uCcAv9yHshqlsSYn1ckm/gCkV5/wFusQLMhVFRvQ+6GykstJ +MSFo8rS3UawfA+etJZYWVgQ978gGfWdHgUnbyJaAtQTbiiIsLfL2gft4mc9a +PsEQIScowz8cIhjzSe1egjOnomtIXCg4eJ10e5JKMHgzPTOoGwIljATHU1kE +X9nG6roVBEPzeJqwJ58gx3Nr2JySHaBqM7/84D7BTyXsdMXANri6wk7i30Yw +eXcVMzApAPSqgltShwhmWwzdUcl9YTz40vTMDMF5bIdbb5q4sGCTSPydEYX2 +Ee9d09KaIUkya6j6HcGkcPOA+8v5IH1wqUFfj8JT5m6f0EoJdea2geQtwVCZ +TuiZl3ywn3was32S4MqAllhM4EFnYtHO2QwKJUxBw8ARJbyKapL6qAneu+o6 +OcfNF/zdwm5IJggabRF38Vp4sLDIwWHFFEG2oRkndjEPJv0Utr/OonDAO3Jc +XKiEg1nGiqFhgozbPtoPY31BHaZoWvqB4GOzu147tPjwR+tR7sPPBO+2Znna +ePNAePz1Iuk0wYxx/xndCS6IGx1yXLQp9Nms4ozVKsHlelXdjxre9CG5rDHd +F8oSA7pi3xP8+7yilGHMh8hXy3YZaXhjE9YnrXbyYKPsrGW/Zl/BPpfkUn0e +3I3z+HqDxt/cQzk1USouPEv5/Oii5r84WaQ45SuVkHtrXnO3xrcg06/zmdQX +TNOKVKYavoFA/mLbYj60jibtqdD4ari9XG0XwYOSqy9txBr+mpH+3tPGPKBT +so3GNPvT1cGdjmou8Pe+Y+Rq+obXXy8rbOfCfzgMMLY= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, + 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, + 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 9}, {0., 0.23316664835242626`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k41HkcwHFaU/JYalex+s3M71uWHm0kdnPV56OcW+nRTjPjSEUZUTlT +lKudRk3UdFgTsz0dk1WIxBRSCJtluly5tp0H5ZjKUimFnf3j/byfFwmK2Lxr +lpaW1kZN/9/UvkozCmNEUpnguRKepXx+dFFjJ4sUp3ylEsSNDjku2hT6bFZx +xmqVMOmnsP11FoUD3pHj4kIldCYW7ZzNoFDCFDQMHFGC9MGlBn09Ck+Zu31C +KyUs2CQSf2dEoX3Ee9e0tGaYF7LpG9ulFAoq9HcR1ybYefRe7Z+/UMiQ9pmx +bz2EyTnRzPjDFGZV0/9QqQ2QFu3BDpRTmK1WO0yJ6iDq0aca+WMKvet1/DMl +tXAhY9RA9yOFQSxXZ5f+ali6pu5L8xImyi9qry6Jvwd57eWn672ZWDGf99lP +VAnhz8afdMUx8faYncBZpxxO3Ne76XOZiZx4IU8kVsAbwxCngb+YKE6OsR6M +LAUPz749BWNMPGdzPG6DpASmo1ZDG5OF6zipkamKYpiY7q40dWfh/t1fWhp/ +vgHeibzOmigWxmkXV5T/lA85fe9+l8lYeKd7nfHaw3lgWdiuf66OhYyXgqyp +5blgHJpJvX7LQsNBg4z44SvgLpK2B5mwUT5S9PyA9mVoyTxo4+jKxtH1HRYj +iy8CNyPB1i2Cjb2X+p39Pspg0WD1iz1ZbBSvElg8t86GNXb9P3yoZWP4TJXw +WlwWXOlbbyYbYeOCczdnVMsyIaUqTFUxl8ah5KQ3S5achV5tViqfTaPCaW+M +6PvT0H1gfL/QlsZ8mb3jl39PwrGQVU47vGisd1MG5hWegBVe+q0dgTT2dIV4 +0MpjEL/1q9qeaBqlngt7nINEEDUcmnLmGI2Gv/mafztbCHrXRs+2y2jctnJK +Pax3BC74zz1UWkyjddAN+w6vFFCJJCvXNdBoolt1Zrt5ItT3OcD2LhrL3Ms6 +PNwTgF/uQ1mN0liTk+pkE38A0qtPeIt1CBbkqooN6P1QWcnlpJgQNHna2yjW +j4Hz1hJLCyuCnndkg76zo8CkbWRLwFqCbUURlhZ5+8B9vMxnLZ9giJATlOEf +DhGM+aR2L8GZU9E1JC4UHLxOuj1JJRi8mZ4Z1A2BEkaC46ksgq9sY3XdCoKh +eTxN2JNPkOO5NWxOyQ5QtZlffnCf4KcSdrpiYBtcXWEn8W8jmLy7ihmYFAB6 +VcEtqUMEsy2G7qjkvpB7a15zt8aCTL/OZ1JfcLleVffjMMHpQ3JZY7ovHMwy +VgxpzLjto/0w1hdeRTVJfdQE7111nZzj5gt15raB5C3BUJlO6JmXfEiSzBqq +fkcwKdw84P5yPpimFalM3xM0EMhfbFvMh7LEgK5Yjf8+ryhlGPNBHaZoWvqB +4GOzu147tPjg7xZ2QzJB0GiLuIvXwgP7yacx2ycJrgxoicUEHrSOJu2p0Ljh +9nK1XQQPIl8t22X0meDYhPVJq508+KP1KPehxndbszxtvHmwsMjBYcUUQbah +GSd2MQ9Krr60EWu8ZqS/97QxDzbKzlr2a1ywzyW5VJ8HwuOvF0mnCWaM+8/o +TnCBTsk2GtM4XR3c6ajmwt04j683zBCceyinJkrFBf7ed4xcjYfXXy8rbOfC +ePCl6RmN57Edbr1p4sJ/jJowtg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 9}, {0., 0.23316664835242626`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k41HkcwHFaU/JYalex+s3M71uWHm0kdnPV56OcW+nRTjPjSEUZUTlT +lKudRk3UdFgTsz0dk1WIxBRSCJtluly5tp0H5ZjKUimFnf3j/byfFwmK2Lxr +lpaW1kZN/9/UvkozCmNEUpnguRKepXx+dFFjJ4sUp3ylEsSNDjku2hT6bFZx +xmqVMOmnsP11FoUD3pHj4kIldCYW7ZzNoFDCFDQMHFGC9MGlBn09Ck+Zu31C +KyUs2CQSf2dEoX3Ee9e0tGaYF7LpG9ulFAoq9HcR1ybYefRe7Z+/UMiQ9pmx +bz2EyTnRzPjDFGZV0/9QqQ2QFu3BDpRTmK1WO0yJ6iDq0aca+WMKvet1/DMl +tXAhY9RA9yOFQSxXZ5f+ali6pu5L8xImyi9qry6Jvwd57eWn672ZWDGf99lP +VAnhz8afdMUx8faYncBZpxxO3Ne76XOZiZx4IU8kVsAbwxCngb+YKE6OsR6M +LAUPz749BWNMPGdzPG6DpASmo1ZDG5OF6zipkamKYpiY7q40dWfh/t1fWhp/ +vgHeibzOmigWxmkXV5T/lA85fe9+l8lYeKd7nfHaw3lgWdiuf66OhYyXgqyp +5blgHJpJvX7LQsNBg4z44SvgLpK2B5mwUT5S9PyA9mVoyTxo4+jKxtH1HRYj +iy8CNyPB1i2Cjb2X+p39Pspg0WD1iz1ZbBSvElg8t86GNXb9P3yoZWP4TJXw +WlwWXOlbbyYbYeOCczdnVMsyIaUqTFUxl8ah5KQ3S5achV5tViqfTaPCaW+M +6PvT0H1gfL/QlsZ8mb3jl39PwrGQVU47vGisd1MG5hWegBVe+q0dgTT2dIV4 +0MpjEL/1q9qeaBqlngt7nINEEDUcmnLmGI2Gv/mafztbCHrXRs+2y2jctnJK +Pax3BC74zz1UWkyjddAN+w6vFFCJJCvXNdBoolt1Zrt5ItT3OcD2LhrL3Ms6 +PNwTgF/uQ1mN0liTk+pkE38A0qtPeIt1CBbkqooN6P1QWcnlpJgQNHna2yjW +j4Hz1hJLCyuCnndkg76zo8CkbWRLwFqCbUURlhZ5+8B9vMxnLZ9giJATlOEf +DhGM+aR2L8GZU9E1JC4UHLxOuj1JJRi8mZ4Z1A2BEkaC46ksgq9sY3XdCoKh +eTxN2JNPkOO5NWxOyQ5QtZlffnCf4KcSdrpiYBtcXWEn8W8jmLy7ihmYFAB6 +VcEtqUMEsy2G7qjkvpB7a15zt8aCTL/OZ1JfcLleVffjMMHpQ3JZY7ovHMwy +VgxpzLjto/0w1hdeRTVJfdQE7111nZzj5gt15raB5C3BUJlO6JmXfEiSzBqq +fkcwKdw84P5yPpimFalM3xM0EMhfbFvMh7LEgK5Yjf8+ryhlGPNBHaZoWvqB +4GOzu147tPjg7xZ2QzJB0GiLuIvXwgP7yacx2ycJrgxoicUEHrSOJu2p0Ljh +9nK1XQQPIl8t22X0meDYhPVJq508+KP1KPehxndbszxtvHmwsMjBYcUUQbah +GSd2MQ9Krr60EWu8ZqS/97QxDzbKzlr2a1ywzyW5VJ8HwuOvF0mnCWaM+8/o +TnCBTsk2GtM4XR3c6ajmwt04j683zBCceyinJkrFBf7ed4xcjYfXXy8rbOfC +ePCl6RmN57Edbr1p4sJ/jJowtg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlHs01HkYxmlNybHUrmL1m5nftywdbSR2c6v3Va5b6WinmXFJRRlRuaYo +t3YaNVHTxZqY7XSZrEIkppBC2CzTzS23beegXKayVEphZ/94z/Pf53nO54+X +BEVs3jVLS0tro+b+T1P7Kk1QGCOSygTPlTAvZNM3tkspFFTo7yKuTbDz6L3a +P3+hkCHtM2PfegiTc6KZ8YcpzKqm/6FSGyAt2oMdKKcwW612mBLVQdSjTzXy +xxR61+v4Z0pq4ULGqIHuRwqDWK7OLv3VsHRN3ZfmJUyUX9ReXRJ/D/Lay0/X +ezOxYj7vs5+oEsKfjT/pimPi7TE7gbNOOZy4r3fT5zITOfFCnkisgDeGIU4D +fzFRnBxjPRhZCh6efXsKxph4zuZ43AZJCUxHrYY2JgvXcVIjUxXFMDHdXWnq +zsL9u7+0NP58A7wTeZ01USyM0y6uKP8pH3L63v0uk7HwTvc647WH88CysF3/ +XB0LGS8FWVPLc8E4NJN6/ZaFhoMGGfHDV8BdJG0PMmGjfKTo+QHty9CSedDG +0ZWNo+s7LEYWXwRuRoKtWwQbey/1O/t9lMGiweoXe7LYKF4lsHhunQ1r7Pp/ ++FDLxvCZKuG1uCy40rfeTDbCxgXnbs6olmVCSlWYqmIujUPJSW+WLDkLvdqs +VD6bRoXT3hjR96eh+8D4fqEtjfkye8cv/56EYyGrnHZ40VjvpgzMKzwBK7z0 +WzsCaezpCvGglccgfutXtT3RNEo9F/Y4B4kgajg05cwxGg1/8zX/drYQ9K6N +nm2X0bht5ZR6WO8IXPCfe6i0mEbroBv2HV4poBJJVq5roNFEt+rMdvNEqO9z +gO1dNJa5l3V4uCcAv9yHshqlsSYn1ckm/gCkV5/wFusQLMhVFRvQ+6GykstJ +MSFo8rS3UawfA+etJZYWVgQ978gGfWdHgUnbyJaAtQTbiiIsLfL2gft4mc9a +PsEQIScowz8cIhjzSe1egjOnomtIXCg4eJ10e5JKMHgzPTOoGwIljATHU1kE +X9nG6roVBEPzeJqwJ58gx3Nr2JySHaBqM7/84D7BTyXsdMXANri6wk7i30Yw +eXcVMzApAPSqgltShwhmWwzdUcl9YTz40vTMDMF5bIdbb5q4sGCTSPydEYX2 +Ee9d09KaIUkya6j6HcGkcPOA+8v5IH1wqUFfj8JT5m6f0EoJdea2geQtwVCZ +TuiZl3ywn3was32S4MqAllhM4EFnYtHO2QwKJUxBw8ARJbyKapL6qAneu+o6 +OcfNF/zdwm5IJggabRF38Vp4sLDIwWHFFEG2oRkndjEPJv0Utr/OonDAO3Jc +XKiEg1nGiqFhgozbPtoPY31BHaZoWvqB4GOzu147tPjwR+tR7sPPBO+2Znna +ePNAePz1Iuk0wYxx/xndCS6IGx1yXLQp9Nms4ozVKsHlelXdjxre9CG5rDHd +F8oSA7pi3xP8+7yilGHMh8hXy3YZaXhjE9YnrXbyYKPsrGW/Zl/BPpfkUn0e +3I3z+HqDxt/cQzk1USouPEv5/Oii5r84WaQ45SuVkHtrXnO3xrcg06/zmdQX +TNOKVKYavoFA/mLbYj60jibtqdD4ari9XG0XwYOSqy9txBr+mpH+3tPGPKBT +so3GNPvT1cGdjmou8Pe+Y+Rq+obXXy8rbOfCfzgMMLY= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, + 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, + 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, + 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 9}, {0., 0.23316664835242626`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k41HkcwHFaU/JYalex+s3M71uWHm0kdnPV56OcW+nRTjPjSEUZUTlT +lKudRk3UdFgTsz0dk1WIxBRSCJtluly5tp0H5ZjKUimFnf3j/byfFwmK2Lxr +lpaW1kZN/9/UvkozCmNEUpnguRKepXx+dFFjJ4sUp3ylEsSNDjku2hT6bFZx +xmqVMOmnsP11FoUD3pHj4kIldCYW7ZzNoFDCFDQMHFGC9MGlBn09Ck+Zu31C +KyUs2CQSf2dEoX3Ee9e0tGaYF7LpG9ulFAoq9HcR1ybYefRe7Z+/UMiQ9pmx +bz2EyTnRzPjDFGZV0/9QqQ2QFu3BDpRTmK1WO0yJ6iDq0aca+WMKvet1/DMl +tXAhY9RA9yOFQSxXZ5f+ali6pu5L8xImyi9qry6Jvwd57eWn672ZWDGf99lP +VAnhz8afdMUx8faYncBZpxxO3Ne76XOZiZx4IU8kVsAbwxCngb+YKE6OsR6M +LAUPz749BWNMPGdzPG6DpASmo1ZDG5OF6zipkamKYpiY7q40dWfh/t1fWhp/ +vgHeibzOmigWxmkXV5T/lA85fe9+l8lYeKd7nfHaw3lgWdiuf66OhYyXgqyp +5blgHJpJvX7LQsNBg4z44SvgLpK2B5mwUT5S9PyA9mVoyTxo4+jKxtH1HRYj +iy8CNyPB1i2Cjb2X+p39Pspg0WD1iz1ZbBSvElg8t86GNXb9P3yoZWP4TJXw +WlwWXOlbbyYbYeOCczdnVMsyIaUqTFUxl8ah5KQ3S5achV5tViqfTaPCaW+M +6PvT0H1gfL/QlsZ8mb3jl39PwrGQVU47vGisd1MG5hWegBVe+q0dgTT2dIV4 +0MpjEL/1q9qeaBqlngt7nINEEDUcmnLmGI2Gv/mafztbCHrXRs+2y2jctnJK +Pax3BC74zz1UWkyjddAN+w6vFFCJJCvXNdBoolt1Zrt5ItT3OcD2LhrL3Ms6 +PNwTgF/uQ1mN0liTk+pkE38A0qtPeIt1CBbkqooN6P1QWcnlpJgQNHna2yjW +j4Hz1hJLCyuCnndkg76zo8CkbWRLwFqCbUURlhZ5+8B9vMxnLZ9giJATlOEf +DhGM+aR2L8GZU9E1JC4UHLxOuj1JJRi8mZ4Z1A2BEkaC46ksgq9sY3XdCoKh +eTxN2JNPkOO5NWxOyQ5QtZlffnCf4KcSdrpiYBtcXWEn8W8jmLy7ihmYFAB6 +VcEtqUMEsy2G7qjkvpB7a15zt8aCTL/OZ1JfcLleVffjMMHpQ3JZY7ovHMwy +VgxpzLjto/0w1hdeRTVJfdQE7111nZzj5gt15raB5C3BUJlO6JmXfEiSzBqq +fkcwKdw84P5yPpimFalM3xM0EMhfbFvMh7LEgK5Yjf8+ryhlGPNBHaZoWvqB +4GOzu147tPjg7xZ2QzJB0GiLuIvXwgP7yacx2ycJrgxoicUEHrSOJu2p0Ljh +9nK1XQQPIl8t22X0meDYhPVJq508+KP1KPehxndbszxtvHmwsMjBYcUUQbah +GSd2MQ9Krr60EWu8ZqS/97QxDzbKzlr2a1ywzyW5VJ8HwuOvF0mnCWaM+8/o +TnCBTsk2GtM4XR3c6ajmwt04j683zBCceyinJkrFBf7ed4xcjYfXXy8rbOfC +ePCl6RmN57Edbr1p4sJ/jJowtg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 9}, {0., 0.23316664835242626`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}, { + 3.992489539129653*^9, 3.992489550755069*^9}}, + CellLabel-> + "Out[109]=",ExpressionUUID->"b5844657-8eef-47cc-964e-63ba436c10c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel-> + "In[110]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV02k4lWsXB3BCqDSclL2xeR4kpZJ0ZDhaaxvCluEtGUrInCJDbRkz78ic +KBpkiKJQpBQ7Q4ZkqIQGU2Q3aFKGQ/I+58N9ret3XfeH/73utUinY3tcF/Hx +8d2kzn91fbeUIB8fDSfvPg3VX8cDLWag+g/Ki2jh5YZyPDC71ePxjp+GTWlu +KixZHrBPp7Y3CtDQSWFW1JTOg6Z/hDPjhGm4gxupzRLjgUvBxIbVK2iYw8/L +kpscgxx2q7miDA3fJnTdMGkcAzo9IHv3PzRUmJ8sjHQcA1oLI784lIbR21X2 +lIe9h7mlyiWV1TSsPrEkPStnFDqVP29JnKLh94GaR0tqRqC0ckouYAcduy6V +D+k8fAf+3R5rlx2n43ebfghsHAa9g4rBdyrpGD9Z0tRWNgSC9Rn7laboOGmz +91W55iBcf+ClabRNErcxlkyYqfbDAdmUuCB/SXR5qHchcu41fJegv7Iuk8Rl +1ekMs699wB63zFs0LoknvS4r+070gKjy2wHuJilc+dpHebi3G8L/tNKVDkth +rP2pCJUfz0HgH4Gm3BtS2PHi4w/56S4I2Pdt/NMnKZRklNVxoQM6BXRXDyhK +4yaNqi0DAm2gJj10Y8RdGhvFAm7tr22G4NZRZnq+NM7zzj7QHW+EzqHtLOsx +abw/1f2JQ9TDmu4d7TxFBh6eOueraMKFnXZXzeWdGchNPX8iknwAx82s9Hzz +Gdg3WZyZLFUFiS991T2HGTiftjdwqvUOZGpg/laGDM5ap7BCP5fBLaH9UaL2 +MjhXGheqf7gErru/PpSYJYOX3X/16wkXQZnatXL5tzL44vR28u1EHhS9UQjh +SMtitpblAdWEHIimLdmVYSOLC7Pz+s13suEoVyui6oIsDvWvh7r6DNCYe/Yg +qkcWX16PGDYcSYNM+UI5v15ZjEzJlzr0Mg2mTELiHPtk8Y+BdGNUcxpUXFS0 +1nkti2Mx88bvi9Ng687gial+WVTUupVMO5EGShEKGzzfy6Jjj6+2tmgaSAgH +ZFj8kkWR+0v/Z6KRCsGiSfeWixKYl2CWPeiYDGHb36xMobw8gzkSYJgMkQ5K +h1ctIXAs7TZLfksyxFfW08WXElh3PdbgzlwSnD80HUQXI9As9kr83cwkqLjv +qKOwisCfqtYu8CIRvh5Wq9ekE9h/fauyoE0COD7pa3PZQKD1mL9Azbk4SKpX +COqnvE1Bd/26yDh4UO2jZLWRwA6V4gPZ3nGwtlgkxlCZwIBH+LzcMA7azmjs +3LiZwIlwmbmY2dOgbnq+7NtWAsv0Ko81OJ2GZV3W54I0CBT+Zuy3T4cDVS97 +7FMMCRS6qT07Q4uBey5C21YbEXghr2mOKRwD1T/VhDIozxopC1+YjIaHq1KL +s42pPLt0Vvs+j4Z6U5OZayZU3sffec0J0dDxmJtaY07gJR2L58KC0TBWWdT4 +yZpAUdcrexN+R4J4RtBGAw8Cj7eUKZ9fHQEwUbiXS3mXd12o2OII8DR7GaJ5 +mMDCQE+BxJlwqFu8tXOzJ4GW4vsTb/SHg3fAe/+1Rwms/Orca18UDi02FjW8 +YwSmuf6tcg3CIURK0SI+gECLhgp1vs9hMJLz7ERnLIGhgZINA/8GQ5PTL01D +DoHHTOuSP44Eww0FiT+1lI/nnnku2BEMPkV2sbdOEzj1uDfhaG4w/C7lZSTG +Exjr8vHcgkkwiHPnq0ySCGRs1mJszA2CXf0bZpvPETg5Ohqqtz8QbtAjwx7l +E5jQMKqsOs2GQ34cd90CAlOHYnWCRthAa0uwaKRcCKqJLzrZwAnJlGu5RuDO +rNyKu0VscBksaeosIvAe62uzzgE2MAp6lw+WEMjPn6yt33ACUrZuvjJfQWB6 +1zVe/+XjEGDYx9V6TGAphx3+IMIPbLze/rlDWXG55udmPz/QODuks7mJwJg1 +DnODzn4wO/DhgWwzgTUniz9u2+UHYex/qwRbCfxaarvSeakfxBZIlnU8JdDT +QmTD+0xfyBA4mOPUTf3vCKdO/b4P3OUOh8ePEDj35cSya+recCSkZVRslJrv +RR4HBaW9gdAsNUr9z/URboH83hB/O2Tl+fcEqrmWWRc+9QL7AomcAh6B77cn +3l3p4gXCZ0y5jz4TmPXzR4Zo5lGwsbo/P/WTQLuCGzI0sSMwN54S5CxI4oqE +D+a//vYAjxVegaOUnb74Gr8lPKBb1fikqxCJFaeYjJ6lHnCLzc92X0xi+Itl +kgvD7uDE5+d7RIRE70dEr0KyOzxZvdfDfxmJPvHpM7fH3SBLa41VlDiJdfix +9WSFK2ievqCap0DiMcU1cQ3+ztAVcDxWah2JIwvCj984O4Obu/mbs5THvvje +5LN0hvRdQjHRiiTqCn2x89nuDN8EfftclUgsSexSGpt0goIIo1NKm0g0/2HI +kA92glXB009vqpE4mNwndzXpEHz02udxT5fEF/DkiU+pA1j++uudlh6J2q+e +2amfdYDaoK4DNZRP5HMixAMcIJ1jYl6vT2I7J2WrJDgAXmWqP91FouOmIp5R +lz1kdG8WHGKR+NDbSEBu+iDoay/OEd5LvRenAzWs7OCKSFWvlTOJK9XWD3Tv +s4Xtdv6FXZTjfITOFqIttJSqBLBcSDx1TvzKGWVbmLAqWrvTlURx9vMYDr8t +6Bdc2LfOnUQhIY8Vprds4CMz5MVPTxLXxjswBZbagFowszPFj8SCc1553C4r +aP7S1vQkgsTfC84OFfGWIF4YqqobSeLVbHZie6AlODqqXLxPWe9ZutMvD0uY +fZ7mWxRFopsa0etpaAmb7tlKx8aQyFH24P4raAkpkTxfZhyJq075WGVE7gUb +CQHGvRQS1UdzYyI5e+ADavkXXCGR2V03+qfSAkRSOxatzyHxWf3sk8WFFrBh +2CmtiHJUTdKw1HkL8Iw4U158lUTpY9F+XkEW8KXu7bfyPBKXtvd+KAELmNA9 +dbS2kMRc+4Z+xQvm8Fu/0bW3lMTJUu6E66AprDA2sxF9RPXjtnXbRDkL9rsN +60RSbtMdGUrMZkF+1HH5Oco+f9wCtWNYoFGb9XW8jsTx7qTpdhsWOKnxorsa +SAyo8z3dwceCu4zw8sxmEm25r+RULY3BbqJ8iWIniSqBRbUSIkZQlL2mRneA +mqdXRzieVw0gVYx+u5VyDzn3TDLRAIJOSRdaDJJI12J86z9pALud5VPth0gM +etpmd9HCAL5vVHUNekfil/apjTN8BqBZvVvs9hi1HwVG49Ku+vCkL+og+Y3K +cymprUhLD+6wOHuKKOu017ifVdKDiw/jDVW+kzir19SZtFYPvHNSVXV+kHgt +TKOpakIX/vK4ImT7k0TjkiN5XcW6cGC6+mbKNImmSXL8q0hd0D9cmysxQ90X +umTCv1IXtrypy7xMOS3C3J9/gQl83JaIkn9JbN0WRqj2MyE/tmdfyxyJrIRq +h91ZTEicecUy/01iadse/uo4JrA9+6GH8pbacrEdgUwwMhvdMDpPYthfwVsc +bJig+ognc+QP1T/LIcUlRkyQ3PZ59QTliz/59zTuYIJA/leRwAXKbr+vJq5n +wviaifkFyronZ0TcJJjwf+R61X4= + "]]}, + 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:eJwV02k4lWsXB3BCqDSclL2xeR4kpZJ0ZDhaaxvCluEtGUrInCJDbRkz78ic +KBpkiKJQpBQ7Q4ZkqIQGU2Q3aFKGQ/I+58N9ret3XfeH/73utUinY3tcF/Hx +8d2kzn91fbeUIB8fDSfvPg3VX8cDLWag+g/Ki2jh5YZyPDC71ePxjp+GTWlu +KixZHrBPp7Y3CtDQSWFW1JTOg6Z/hDPjhGm4gxupzRLjgUvBxIbVK2iYw8/L +kpscgxx2q7miDA3fJnTdMGkcAzo9IHv3PzRUmJ8sjHQcA1oLI784lIbR21X2 +lIe9h7mlyiWV1TSsPrEkPStnFDqVP29JnKLh94GaR0tqRqC0ckouYAcduy6V +D+k8fAf+3R5rlx2n43ebfghsHAa9g4rBdyrpGD9Z0tRWNgSC9Rn7laboOGmz +91W55iBcf+ClabRNErcxlkyYqfbDAdmUuCB/SXR5qHchcu41fJegv7Iuk8Rl +1ekMs699wB63zFs0LoknvS4r+070gKjy2wHuJilc+dpHebi3G8L/tNKVDkth +rP2pCJUfz0HgH4Gm3BtS2PHi4w/56S4I2Pdt/NMnKZRklNVxoQM6BXRXDyhK +4yaNqi0DAm2gJj10Y8RdGhvFAm7tr22G4NZRZnq+NM7zzj7QHW+EzqHtLOsx +abw/1f2JQ9TDmu4d7TxFBh6eOueraMKFnXZXzeWdGchNPX8iknwAx82s9Hzz +Gdg3WZyZLFUFiS991T2HGTiftjdwqvUOZGpg/laGDM5ap7BCP5fBLaH9UaL2 +MjhXGheqf7gErru/PpSYJYOX3X/16wkXQZnatXL5tzL44vR28u1EHhS9UQjh +SMtitpblAdWEHIimLdmVYSOLC7Pz+s13suEoVyui6oIsDvWvh7r6DNCYe/Yg +qkcWX16PGDYcSYNM+UI5v15ZjEzJlzr0Mg2mTELiHPtk8Y+BdGNUcxpUXFS0 +1nkti2Mx88bvi9Ng687gial+WVTUupVMO5EGShEKGzzfy6Jjj6+2tmgaSAgH +ZFj8kkWR+0v/Z6KRCsGiSfeWixKYl2CWPeiYDGHb36xMobw8gzkSYJgMkQ5K +h1ctIXAs7TZLfksyxFfW08WXElh3PdbgzlwSnD80HUQXI9As9kr83cwkqLjv +qKOwisCfqtYu8CIRvh5Wq9ekE9h/fauyoE0COD7pa3PZQKD1mL9Azbk4SKpX +COqnvE1Bd/26yDh4UO2jZLWRwA6V4gPZ3nGwtlgkxlCZwIBH+LzcMA7azmjs +3LiZwIlwmbmY2dOgbnq+7NtWAsv0Ko81OJ2GZV3W54I0CBT+Zuy3T4cDVS97 +7FMMCRS6qT07Q4uBey5C21YbEXghr2mOKRwD1T/VhDIozxopC1+YjIaHq1KL +s42pPLt0Vvs+j4Z6U5OZayZU3sffec0J0dDxmJtaY07gJR2L58KC0TBWWdT4 +yZpAUdcrexN+R4J4RtBGAw8Cj7eUKZ9fHQEwUbiXS3mXd12o2OII8DR7GaJ5 +mMDCQE+BxJlwqFu8tXOzJ4GW4vsTb/SHg3fAe/+1Rwms/Orca18UDi02FjW8 +YwSmuf6tcg3CIURK0SI+gECLhgp1vs9hMJLz7ERnLIGhgZINA/8GQ5PTL01D +DoHHTOuSP44Eww0FiT+1lI/nnnku2BEMPkV2sbdOEzj1uDfhaG4w/C7lZSTG +Exjr8vHcgkkwiHPnq0ySCGRs1mJszA2CXf0bZpvPETg5Ohqqtz8QbtAjwx7l +E5jQMKqsOs2GQ34cd90CAlOHYnWCRthAa0uwaKRcCKqJLzrZwAnJlGu5RuDO +rNyKu0VscBksaeosIvAe62uzzgE2MAp6lw+WEMjPn6yt33ACUrZuvjJfQWB6 +1zVe/+XjEGDYx9V6TGAphx3+IMIPbLze/rlDWXG55udmPz/QODuks7mJwJg1 +DnODzn4wO/DhgWwzgTUniz9u2+UHYex/qwRbCfxaarvSeakfxBZIlnU8JdDT +QmTD+0xfyBA4mOPUTf3vCKdO/b4P3OUOh8ePEDj35cSya+recCSkZVRslJrv +RR4HBaW9gdAsNUr9z/URboH83hB/O2Tl+fcEqrmWWRc+9QL7AomcAh6B77cn +3l3p4gXCZ0y5jz4TmPXzR4Zo5lGwsbo/P/WTQLuCGzI0sSMwN54S5CxI4oqE +D+a//vYAjxVegaOUnb74Gr8lPKBb1fikqxCJFaeYjJ6lHnCLzc92X0xi+Itl +kgvD7uDE5+d7RIRE70dEr0KyOzxZvdfDfxmJPvHpM7fH3SBLa41VlDiJdfix +9WSFK2ievqCap0DiMcU1cQ3+ztAVcDxWah2JIwvCj984O4Obu/mbs5THvvje +5LN0hvRdQjHRiiTqCn2x89nuDN8EfftclUgsSexSGpt0goIIo1NKm0g0/2HI +kA92glXB009vqpE4mNwndzXpEHz02udxT5fEF/DkiU+pA1j++uudlh6J2q+e +2amfdYDaoK4DNZRP5HMixAMcIJ1jYl6vT2I7J2WrJDgAXmWqP91FouOmIp5R +lz1kdG8WHGKR+NDbSEBu+iDoay/OEd5LvRenAzWs7OCKSFWvlTOJK9XWD3Tv +s4Xtdv6FXZTjfITOFqIttJSqBLBcSDx1TvzKGWVbmLAqWrvTlURx9vMYDr8t +6Bdc2LfOnUQhIY8Vprds4CMz5MVPTxLXxjswBZbagFowszPFj8SCc1553C4r +aP7S1vQkgsTfC84OFfGWIF4YqqobSeLVbHZie6AlODqqXLxPWe9ZutMvD0uY +fZ7mWxRFopsa0etpaAmb7tlKx8aQyFH24P4raAkpkTxfZhyJq075WGVE7gUb +CQHGvRQS1UdzYyI5e+ADavkXXCGR2V03+qfSAkRSOxatzyHxWf3sk8WFFrBh +2CmtiHJUTdKw1HkL8Iw4U158lUTpY9F+XkEW8KXu7bfyPBKXtvd+KAELmNA9 +dbS2kMRc+4Z+xQvm8Fu/0bW3lMTJUu6E66AprDA2sxF9RPXjtnXbRDkL9rsN +60RSbtMdGUrMZkF+1HH5Oco+f9wCtWNYoFGb9XW8jsTx7qTpdhsWOKnxorsa +SAyo8z3dwceCu4zw8sxmEm25r+RULY3BbqJ8iWIniSqBRbUSIkZQlL2mRneA +mqdXRzieVw0gVYx+u5VyDzn3TDLRAIJOSRdaDJJI12J86z9pALud5VPth0gM +etpmd9HCAL5vVHUNekfil/apjTN8BqBZvVvs9hi1HwVG49Ku+vCkL+og+Y3K +cymprUhLD+6wOHuKKOu017ifVdKDiw/jDVW+kzir19SZtFYPvHNSVXV+kHgt +TKOpakIX/vK4ImT7k0TjkiN5XcW6cGC6+mbKNImmSXL8q0hd0D9cmysxQ90X +umTCv1IXtrypy7xMOS3C3J9/gQl83JaIkn9JbN0WRqj2MyE/tmdfyxyJrIRq +h91ZTEicecUy/01iadse/uo4JrA9+6GH8pbacrEdgUwwMhvdMDpPYthfwVsc +bJig+ognc+QP1T/LIcUlRkyQ3PZ59QTliz/59zTuYIJA/leRwAXKbr+vJq5n +wviaifkFyronZ0TcJJjwf+R61X4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.7232992608093968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.7232992608093968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV02k4lWsXB3BCqDSclL2xeR4kpZJ0ZDhaaxvCluEtGUrInCJDbRkz78ic +KBpkiKJQpBQ7Q4ZkqIQGU2Q3aFKGQ/I+58N9ret3XfeH/73utUinY3tcF/Hx +8d2kzn91fbeUIB8fDSfvPg3VX8cDLWag+g/Ki2jh5YZyPDC71ePxjp+GTWlu +KixZHrBPp7Y3CtDQSWFW1JTOg6Z/hDPjhGm4gxupzRLjgUvBxIbVK2iYw8/L +kpscgxx2q7miDA3fJnTdMGkcAzo9IHv3PzRUmJ8sjHQcA1oLI784lIbR21X2 +lIe9h7mlyiWV1TSsPrEkPStnFDqVP29JnKLh94GaR0tqRqC0ckouYAcduy6V +D+k8fAf+3R5rlx2n43ebfghsHAa9g4rBdyrpGD9Z0tRWNgSC9Rn7laboOGmz +91W55iBcf+ClabRNErcxlkyYqfbDAdmUuCB/SXR5qHchcu41fJegv7Iuk8Rl +1ekMs699wB63zFs0LoknvS4r+070gKjy2wHuJilc+dpHebi3G8L/tNKVDkth +rP2pCJUfz0HgH4Gm3BtS2PHi4w/56S4I2Pdt/NMnKZRklNVxoQM6BXRXDyhK +4yaNqi0DAm2gJj10Y8RdGhvFAm7tr22G4NZRZnq+NM7zzj7QHW+EzqHtLOsx +abw/1f2JQ9TDmu4d7TxFBh6eOueraMKFnXZXzeWdGchNPX8iknwAx82s9Hzz +Gdg3WZyZLFUFiS991T2HGTiftjdwqvUOZGpg/laGDM5ap7BCP5fBLaH9UaL2 +MjhXGheqf7gErru/PpSYJYOX3X/16wkXQZnatXL5tzL44vR28u1EHhS9UQjh +SMtitpblAdWEHIimLdmVYSOLC7Pz+s13suEoVyui6oIsDvWvh7r6DNCYe/Yg +qkcWX16PGDYcSYNM+UI5v15ZjEzJlzr0Mg2mTELiHPtk8Y+BdGNUcxpUXFS0 +1nkti2Mx88bvi9Ng687gial+WVTUupVMO5EGShEKGzzfy6Jjj6+2tmgaSAgH +ZFj8kkWR+0v/Z6KRCsGiSfeWixKYl2CWPeiYDGHb36xMobw8gzkSYJgMkQ5K +h1ctIXAs7TZLfksyxFfW08WXElh3PdbgzlwSnD80HUQXI9As9kr83cwkqLjv +qKOwisCfqtYu8CIRvh5Wq9ekE9h/fauyoE0COD7pa3PZQKD1mL9Azbk4SKpX +COqnvE1Bd/26yDh4UO2jZLWRwA6V4gPZ3nGwtlgkxlCZwIBH+LzcMA7azmjs +3LiZwIlwmbmY2dOgbnq+7NtWAsv0Ko81OJ2GZV3W54I0CBT+Zuy3T4cDVS97 +7FMMCRS6qT07Q4uBey5C21YbEXghr2mOKRwD1T/VhDIozxopC1+YjIaHq1KL +s42pPLt0Vvs+j4Z6U5OZayZU3sffec0J0dDxmJtaY07gJR2L58KC0TBWWdT4 +yZpAUdcrexN+R4J4RtBGAw8Cj7eUKZ9fHQEwUbiXS3mXd12o2OII8DR7GaJ5 +mMDCQE+BxJlwqFu8tXOzJ4GW4vsTb/SHg3fAe/+1Rwms/Orca18UDi02FjW8 +YwSmuf6tcg3CIURK0SI+gECLhgp1vs9hMJLz7ERnLIGhgZINA/8GQ5PTL01D +DoHHTOuSP44Eww0FiT+1lI/nnnku2BEMPkV2sbdOEzj1uDfhaG4w/C7lZSTG +Exjr8vHcgkkwiHPnq0ySCGRs1mJszA2CXf0bZpvPETg5Ohqqtz8QbtAjwx7l +E5jQMKqsOs2GQ34cd90CAlOHYnWCRthAa0uwaKRcCKqJLzrZwAnJlGu5RuDO +rNyKu0VscBksaeosIvAe62uzzgE2MAp6lw+WEMjPn6yt33ACUrZuvjJfQWB6 +1zVe/+XjEGDYx9V6TGAphx3+IMIPbLze/rlDWXG55udmPz/QODuks7mJwJg1 +DnODzn4wO/DhgWwzgTUniz9u2+UHYex/qwRbCfxaarvSeakfxBZIlnU8JdDT +QmTD+0xfyBA4mOPUTf3vCKdO/b4P3OUOh8ePEDj35cSya+recCSkZVRslJrv +RR4HBaW9gdAsNUr9z/URboH83hB/O2Tl+fcEqrmWWRc+9QL7AomcAh6B77cn +3l3p4gXCZ0y5jz4TmPXzR4Zo5lGwsbo/P/WTQLuCGzI0sSMwN54S5CxI4oqE +D+a//vYAjxVegaOUnb74Gr8lPKBb1fikqxCJFaeYjJ6lHnCLzc92X0xi+Itl +kgvD7uDE5+d7RIRE70dEr0KyOzxZvdfDfxmJPvHpM7fH3SBLa41VlDiJdfix +9WSFK2ievqCap0DiMcU1cQ3+ztAVcDxWah2JIwvCj984O4Obu/mbs5THvvje +5LN0hvRdQjHRiiTqCn2x89nuDN8EfftclUgsSexSGpt0goIIo1NKm0g0/2HI +kA92glXB009vqpE4mNwndzXpEHz02udxT5fEF/DkiU+pA1j++uudlh6J2q+e +2amfdYDaoK4DNZRP5HMixAMcIJ1jYl6vT2I7J2WrJDgAXmWqP91FouOmIp5R +lz1kdG8WHGKR+NDbSEBu+iDoay/OEd5LvRenAzWs7OCKSFWvlTOJK9XWD3Tv +s4Xtdv6FXZTjfITOFqIttJSqBLBcSDx1TvzKGWVbmLAqWrvTlURx9vMYDr8t +6Bdc2LfOnUQhIY8Vprds4CMz5MVPTxLXxjswBZbagFowszPFj8SCc1553C4r +aP7S1vQkgsTfC84OFfGWIF4YqqobSeLVbHZie6AlODqqXLxPWe9ZutMvD0uY +fZ7mWxRFopsa0etpaAmb7tlKx8aQyFH24P4raAkpkTxfZhyJq075WGVE7gUb +CQHGvRQS1UdzYyI5e+ADavkXXCGR2V03+qfSAkRSOxatzyHxWf3sk8WFFrBh +2CmtiHJUTdKw1HkL8Iw4U158lUTpY9F+XkEW8KXu7bfyPBKXtvd+KAELmNA9 +dbS2kMRc+4Z+xQvm8Fu/0bW3lMTJUu6E66AprDA2sxF9RPXjtnXbRDkL9rsN +60RSbtMdGUrMZkF+1HH5Oco+f9wCtWNYoFGb9XW8jsTx7qTpdhsWOKnxorsa +SAyo8z3dwceCu4zw8sxmEm25r+RULY3BbqJ8iWIniSqBRbUSIkZQlL2mRneA +mqdXRzieVw0gVYx+u5VyDzn3TDLRAIJOSRdaDJJI12J86z9pALud5VPth0gM +etpmd9HCAL5vVHUNekfil/apjTN8BqBZvVvs9hi1HwVG49Ku+vCkL+og+Y3K +cymprUhLD+6wOHuKKOu017ifVdKDiw/jDVW+kzir19SZtFYPvHNSVXV+kHgt +TKOpakIX/vK4ImT7k0TjkiN5XcW6cGC6+mbKNImmSXL8q0hd0D9cmysxQ90X +umTCv1IXtrypy7xMOS3C3J9/gQl83JaIkn9JbN0WRqj2MyE/tmdfyxyJrIRq +h91ZTEicecUy/01iadse/uo4JrA9+6GH8pbacrEdgUwwMhvdMDpPYthfwVsc +bJig+ognc+QP1T/LIcUlRkyQ3PZ59QTliz/59zTuYIJA/leRwAXKbr+vJq5n +wviaifkFyronZ0TcJJjwf+R61X4= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.7232992608093968}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlHs01HkYxmlNybHUrmL1m5nftywdbSR2c6v3Va5b6WinmXFJRRlRuaYo +t3YaNVHTxZqY7XSZrEIkppBC2CzTzS23beegXKayVEphZ/94z/Pf53nO54+X +BEVs3jVLS0tro+b+T1P7Kk1QGCOSygTPlTAvZNM3tkspFFTo7yKuTbDz6L3a +P3+hkCHtM2PfegiTc6KZ8YcpzKqm/6FSGyAt2oMdKKcwW612mBLVQdSjTzXy +xxR61+v4Z0pq4ULGqIHuRwqDWK7OLv3VsHRN3ZfmJUyUX9ReXRJ/D/Lay0/X +ezOxYj7vs5+oEsKfjT/pimPi7TE7gbNOOZy4r3fT5zITOfFCnkisgDeGIU4D +fzFRnBxjPRhZCh6efXsKxph4zuZ43AZJCUxHrYY2JgvXcVIjUxXFMDHdXWnq +zsL9u7+0NP58A7wTeZ01USyM0y6uKP8pH3L63v0uk7HwTvc647WH88CysF3/ +XB0LGS8FWVPLc8E4NJN6/ZaFhoMGGfHDV8BdJG0PMmGjfKTo+QHty9CSedDG +0ZWNo+s7LEYWXwRuRoKtWwQbey/1O/t9lMGiweoXe7LYKF4lsHhunQ1r7Pp/ ++FDLxvCZKuG1uCy40rfeTDbCxgXnbs6olmVCSlWYqmIujUPJSW+WLDkLvdqs +VD6bRoXT3hjR96eh+8D4fqEtjfkye8cv/56EYyGrnHZ40VjvpgzMKzwBK7z0 +WzsCaezpCvGglccgfutXtT3RNEo9F/Y4B4kgajg05cwxGg1/8zX/drYQ9K6N +nm2X0bht5ZR6WO8IXPCfe6i0mEbroBv2HV4poBJJVq5roNFEt+rMdvNEqO9z +gO1dNJa5l3V4uCcAv9yHshqlsSYn1ckm/gCkV5/wFusQLMhVFRvQ+6GykstJ +MSFo8rS3UawfA+etJZYWVgQ978gGfWdHgUnbyJaAtQTbiiIsLfL2gft4mc9a +PsEQIScowz8cIhjzSe1egjOnomtIXCg4eJ10e5JKMHgzPTOoGwIljATHU1kE +X9nG6roVBEPzeJqwJ58gx3Nr2JySHaBqM7/84D7BTyXsdMXANri6wk7i30Yw +eXcVMzApAPSqgltShwhmWwzdUcl9YTz40vTMDMF5bIdbb5q4sGCTSPydEYX2 +Ee9d09KaIUkya6j6HcGkcPOA+8v5IH1wqUFfj8JT5m6f0EoJdea2geQtwVCZ +TuiZl3ywn3was32S4MqAllhM4EFnYtHO2QwKJUxBw8ARJbyKapL6qAneu+o6 +OcfNF/zdwm5IJggabRF38Vp4sLDIwWHFFEG2oRkndjEPJv0Utr/OonDAO3Jc +XKiEg1nGiqFhgozbPtoPY31BHaZoWvqB4GOzu147tPjwR+tR7sPPBO+2Znna +ePNAePz1Iuk0wYxx/xndCS6IGx1yXLQp9Nms4ozVKsHlelXdjxre9CG5rDHd +F8oSA7pi3xP8+7yilGHMh8hXy3YZaXhjE9YnrXbyYKPsrGW/Zl/BPpfkUn0e +3I3z+HqDxt/cQzk1USouPEv5/Oii5r84WaQ45SuVkHtrXnO3xrcg06/zmdQX +TNOKVKYavoFA/mLbYj60jibtqdD4ari9XG0XwYOSqy9txBr+mpH+3tPGPKBT +so3GNPvT1cGdjmou8Pe+Y+Rq+obXXy8rbOfCfzgMMLY= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, + 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlHs01HkYxmlNybHUrmL1m5nftywdbSR2c6v3Va5b6WinmXFJRRlRuaYo +t3YaNVHTxZqY7XSZrEIkppBC2CzTzS23beegXKayVEphZ/94z/Pf53nO54+X +BEVs3jVLS0tro+b+T1P7Kk1QGCOSygTPlTAvZNM3tkspFFTo7yKuTbDz6L3a +P3+hkCHtM2PfegiTc6KZ8YcpzKqm/6FSGyAt2oMdKKcwW612mBLVQdSjTzXy +xxR61+v4Z0pq4ULGqIHuRwqDWK7OLv3VsHRN3ZfmJUyUX9ReXRJ/D/Lay0/X +ezOxYj7vs5+oEsKfjT/pimPi7TE7gbNOOZy4r3fT5zITOfFCnkisgDeGIU4D +fzFRnBxjPRhZCh6efXsKxph4zuZ43AZJCUxHrYY2JgvXcVIjUxXFMDHdXWnq +zsL9u7+0NP58A7wTeZ01USyM0y6uKP8pH3L63v0uk7HwTvc647WH88CysF3/ +XB0LGS8FWVPLc8E4NJN6/ZaFhoMGGfHDV8BdJG0PMmGjfKTo+QHty9CSedDG +0ZWNo+s7LEYWXwRuRoKtWwQbey/1O/t9lMGiweoXe7LYKF4lsHhunQ1r7Pp/ ++FDLxvCZKuG1uCy40rfeTDbCxgXnbs6olmVCSlWYqmIujUPJSW+WLDkLvdqs +VD6bRoXT3hjR96eh+8D4fqEtjfkye8cv/56EYyGrnHZ40VjvpgzMKzwBK7z0 +WzsCaezpCvGglccgfutXtT3RNEo9F/Y4B4kgajg05cwxGg1/8zX/drYQ9K6N +nm2X0bht5ZR6WO8IXPCfe6i0mEbroBv2HV4poBJJVq5roNFEt+rMdvNEqO9z +gO1dNJa5l3V4uCcAv9yHshqlsSYn1ckm/gCkV5/wFusQLMhVFRvQ+6GykstJ +MSFo8rS3UawfA+etJZYWVgQ978gGfWdHgUnbyJaAtQTbiiIsLfL2gft4mc9a +PsEQIScowz8cIhjzSe1egjOnomtIXCg4eJ10e5JKMHgzPTOoGwIljATHU1kE +X9nG6roVBEPzeJqwJ58gx3Nr2JySHaBqM7/84D7BTyXsdMXANri6wk7i30Yw +eXcVMzApAPSqgltShwhmWwzdUcl9YTz40vTMDMF5bIdbb5q4sGCTSPydEYX2 +Ee9d09KaIUkya6j6HcGkcPOA+8v5IH1wqUFfj8JT5m6f0EoJdea2geQtwVCZ +TuiZl3ywn3was32S4MqAllhM4EFnYtHO2QwKJUxBw8ARJbyKapL6qAneu+o6 +OcfNF/zdwm5IJggabRF38Vp4sLDIwWHFFEG2oRkndjEPJv0Utr/OonDAO3Jc +XKiEg1nGiqFhgozbPtoPY31BHaZoWvqB4GOzu147tPjwR+tR7sPPBO+2Znna +ePNAePz1Iuk0wYxx/xndCS6IGx1yXLQp9Nms4ozVKsHlelXdjxre9CG5rDHd +F8oSA7pi3xP8+7yilGHMh8hXy3YZaXhjE9YnrXbyYKPsrGW/Zl/BPpfkUn0e +3I3z+HqDxt/cQzk1USouPEv5/Oii5r84WaQ45SuVkHtrXnO3xrcg06/zmdQX +TNOKVKYavoFA/mLbYj60jibtqdD4ari9XG0XwYOSqy9txBr+mpH+3tPGPKBT +so3GNPvT1cGdjmou8Pe+Y+Rq+obXXy8rbOfCfzgMMLY= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, + 41, 42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, + 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, + 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 9}, {0., 0.23316664835242626`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k41HkcwHFaU/JYalex+s3M71uWHm0kdnPV56OcW+nRTjPjSEUZUTlT +lKudRk3UdFgTsz0dk1WIxBRSCJtluly5tp0H5ZjKUimFnf3j/byfFwmK2Lxr +lpaW1kZN/9/UvkozCmNEUpnguRKepXx+dFFjJ4sUp3ylEsSNDjku2hT6bFZx +xmqVMOmnsP11FoUD3pHj4kIldCYW7ZzNoFDCFDQMHFGC9MGlBn09Ck+Zu31C +KyUs2CQSf2dEoX3Ee9e0tGaYF7LpG9ulFAoq9HcR1ybYefRe7Z+/UMiQ9pmx +bz2EyTnRzPjDFGZV0/9QqQ2QFu3BDpRTmK1WO0yJ6iDq0aca+WMKvet1/DMl +tXAhY9RA9yOFQSxXZ5f+ali6pu5L8xImyi9qry6Jvwd57eWn672ZWDGf99lP +VAnhz8afdMUx8faYncBZpxxO3Ne76XOZiZx4IU8kVsAbwxCngb+YKE6OsR6M +LAUPz749BWNMPGdzPG6DpASmo1ZDG5OF6zipkamKYpiY7q40dWfh/t1fWhp/ +vgHeibzOmigWxmkXV5T/lA85fe9+l8lYeKd7nfHaw3lgWdiuf66OhYyXgqyp +5blgHJpJvX7LQsNBg4z44SvgLpK2B5mwUT5S9PyA9mVoyTxo4+jKxtH1HRYj +iy8CNyPB1i2Cjb2X+p39Pspg0WD1iz1ZbBSvElg8t86GNXb9P3yoZWP4TJXw +WlwWXOlbbyYbYeOCczdnVMsyIaUqTFUxl8ah5KQ3S5achV5tViqfTaPCaW+M +6PvT0H1gfL/QlsZ8mb3jl39PwrGQVU47vGisd1MG5hWegBVe+q0dgTT2dIV4 +0MpjEL/1q9qeaBqlngt7nINEEDUcmnLmGI2Gv/mafztbCHrXRs+2y2jctnJK +Pax3BC74zz1UWkyjddAN+w6vFFCJJCvXNdBoolt1Zrt5ItT3OcD2LhrL3Ms6 +PNwTgF/uQ1mN0liTk+pkE38A0qtPeIt1CBbkqooN6P1QWcnlpJgQNHna2yjW +j4Hz1hJLCyuCnndkg76zo8CkbWRLwFqCbUURlhZ5+8B9vMxnLZ9giJATlOEf +DhGM+aR2L8GZU9E1JC4UHLxOuj1JJRi8mZ4Z1A2BEkaC46ksgq9sY3XdCoKh +eTxN2JNPkOO5NWxOyQ5QtZlffnCf4KcSdrpiYBtcXWEn8W8jmLy7ihmYFAB6 +VcEtqUMEsy2G7qjkvpB7a15zt8aCTL/OZ1JfcLleVffjMMHpQ3JZY7ovHMwy +VgxpzLjto/0w1hdeRTVJfdQE7111nZzj5gt15raB5C3BUJlO6JmXfEiSzBqq +fkcwKdw84P5yPpimFalM3xM0EMhfbFvMh7LEgK5Yjf8+ryhlGPNBHaZoWvqB +4GOzu147tPjg7xZ2QzJB0GiLuIvXwgP7yacx2ycJrgxoicUEHrSOJu2p0Ljh +9nK1XQQPIl8t22X0meDYhPVJq508+KP1KPehxndbszxtvHmwsMjBYcUUQbah +GSd2MQ9Krr60EWu8ZqS/97QxDzbKzlr2a1ywzyW5VJ8HwuOvF0mnCWaM+8/o +TnCBTsk2GtM4XR3c6ajmwt04j683zBCceyinJkrFBf7ed4xcjYfXXy8rbOfC +ePCl6RmN57Edbr1p4sJ/jJowtg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 9}, {0., 0.23316664835242626`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k41HkcwHFaU/JYalex+s3M71uWHm0kdnPV56OcW+nRTjPjSEUZUTlT +lKudRk3UdFgTsz0dk1WIxBRSCJtluly5tp0H5ZjKUimFnf3j/byfFwmK2Lxr +lpaW1kZN/9/UvkozCmNEUpnguRKepXx+dFFjJ4sUp3ylEsSNDjku2hT6bFZx +xmqVMOmnsP11FoUD3pHj4kIldCYW7ZzNoFDCFDQMHFGC9MGlBn09Ck+Zu31C +KyUs2CQSf2dEoX3Ee9e0tGaYF7LpG9ulFAoq9HcR1ybYefRe7Z+/UMiQ9pmx +bz2EyTnRzPjDFGZV0/9QqQ2QFu3BDpRTmK1WO0yJ6iDq0aca+WMKvet1/DMl +tXAhY9RA9yOFQSxXZ5f+ali6pu5L8xImyi9qry6Jvwd57eWn672ZWDGf99lP +VAnhz8afdMUx8faYncBZpxxO3Ne76XOZiZx4IU8kVsAbwxCngb+YKE6OsR6M +LAUPz749BWNMPGdzPG6DpASmo1ZDG5OF6zipkamKYpiY7q40dWfh/t1fWhp/ +vgHeibzOmigWxmkXV5T/lA85fe9+l8lYeKd7nfHaw3lgWdiuf66OhYyXgqyp +5blgHJpJvX7LQsNBg4z44SvgLpK2B5mwUT5S9PyA9mVoyTxo4+jKxtH1HRYj +iy8CNyPB1i2Cjb2X+p39Pspg0WD1iz1ZbBSvElg8t86GNXb9P3yoZWP4TJXw +WlwWXOlbbyYbYeOCczdnVMsyIaUqTFUxl8ah5KQ3S5achV5tViqfTaPCaW+M +6PvT0H1gfL/QlsZ8mb3jl39PwrGQVU47vGisd1MG5hWegBVe+q0dgTT2dIV4 +0MpjEL/1q9qeaBqlngt7nINEEDUcmnLmGI2Gv/mafztbCHrXRs+2y2jctnJK +Pax3BC74zz1UWkyjddAN+w6vFFCJJCvXNdBoolt1Zrt5ItT3OcD2LhrL3Ms6 +PNwTgF/uQ1mN0liTk+pkE38A0qtPeIt1CBbkqooN6P1QWcnlpJgQNHna2yjW +j4Hz1hJLCyuCnndkg76zo8CkbWRLwFqCbUURlhZ5+8B9vMxnLZ9giJATlOEf +DhGM+aR2L8GZU9E1JC4UHLxOuj1JJRi8mZ4Z1A2BEkaC46ksgq9sY3XdCoKh +eTxN2JNPkOO5NWxOyQ5QtZlffnCf4KcSdrpiYBtcXWEn8W8jmLy7ihmYFAB6 +VcEtqUMEsy2G7qjkvpB7a15zt8aCTL/OZ1JfcLleVffjMMHpQ3JZY7ovHMwy +VgxpzLjto/0w1hdeRTVJfdQE7111nZzj5gt15raB5C3BUJlO6JmXfEiSzBqq +fkcwKdw84P5yPpimFalM3xM0EMhfbFvMh7LEgK5Yjf8+ryhlGPNBHaZoWvqB +4GOzu147tPjg7xZ2QzJB0GiLuIvXwgP7yacx2ycJrgxoicUEHrSOJu2p0Ljh +9nK1XQQPIl8t22X0meDYhPVJq508+KP1KPehxndbszxtvHmwsMjBYcUUQbah +GSd2MQ9Krr60EWu8ZqS/97QxDzbKzlr2a1ywzyW5VJ8HwuOvF0mnCWaM+8/o +TnCBTsk2GtM4XR3c6ajmwt04j683zBCceyinJkrFBf7ed4xcjYfXXy8rbOfC +ePCl6RmN57Edbr1p4sJ/jJowtg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlHs01HkYxmlNybHUrmL1m5nftywdbSR2c6v3Va5b6WinmXFJRRlRuaYo +t3YaNVHTxZqY7XSZrEIkppBC2CzTzS23beegXKayVEphZ/94z/Pf53nO54+X +BEVs3jVLS0tro+b+T1P7Kk1QGCOSygTPlTAvZNM3tkspFFTo7yKuTbDz6L3a +P3+hkCHtM2PfegiTc6KZ8YcpzKqm/6FSGyAt2oMdKKcwW612mBLVQdSjTzXy +xxR61+v4Z0pq4ULGqIHuRwqDWK7OLv3VsHRN3ZfmJUyUX9ReXRJ/D/Lay0/X +ezOxYj7vs5+oEsKfjT/pimPi7TE7gbNOOZy4r3fT5zITOfFCnkisgDeGIU4D +fzFRnBxjPRhZCh6efXsKxph4zuZ43AZJCUxHrYY2JgvXcVIjUxXFMDHdXWnq +zsL9u7+0NP58A7wTeZ01USyM0y6uKP8pH3L63v0uk7HwTvc647WH88CysF3/ +XB0LGS8FWVPLc8E4NJN6/ZaFhoMGGfHDV8BdJG0PMmGjfKTo+QHty9CSedDG +0ZWNo+s7LEYWXwRuRoKtWwQbey/1O/t9lMGiweoXe7LYKF4lsHhunQ1r7Pp/ ++FDLxvCZKuG1uCy40rfeTDbCxgXnbs6olmVCSlWYqmIujUPJSW+WLDkLvdqs +VD6bRoXT3hjR96eh+8D4fqEtjfkye8cv/56EYyGrnHZ40VjvpgzMKzwBK7z0 +WzsCaezpCvGglccgfutXtT3RNEo9F/Y4B4kgajg05cwxGg1/8zX/drYQ9K6N +nm2X0bht5ZR6WO8IXPCfe6i0mEbroBv2HV4poBJJVq5roNFEt+rMdvNEqO9z +gO1dNJa5l3V4uCcAv9yHshqlsSYn1ckm/gCkV5/wFusQLMhVFRvQ+6GykstJ +MSFo8rS3UawfA+etJZYWVgQ978gGfWdHgUnbyJaAtQTbiiIsLfL2gft4mc9a +PsEQIScowz8cIhjzSe1egjOnomtIXCg4eJ10e5JKMHgzPTOoGwIljATHU1kE +X9nG6roVBEPzeJqwJ58gx3Nr2JySHaBqM7/84D7BTyXsdMXANri6wk7i30Yw +eXcVMzApAPSqgltShwhmWwzdUcl9YTz40vTMDMF5bIdbb5q4sGCTSPydEYX2 +Ee9d09KaIUkya6j6HcGkcPOA+8v5IH1wqUFfj8JT5m6f0EoJdea2geQtwVCZ +TuiZl3ywn3was32S4MqAllhM4EFnYtHO2QwKJUxBw8ARJbyKapL6qAneu+o6 +OcfNF/zdwm5IJggabRF38Vp4sLDIwWHFFEG2oRkndjEPJv0Utr/OonDAO3Jc +XKiEg1nGiqFhgozbPtoPY31BHaZoWvqB4GOzu147tPjwR+tR7sPPBO+2Znna +ePNAePz1Iuk0wYxx/xndCS6IGx1yXLQp9Nms4ozVKsHlelXdjxre9CG5rDHd +F8oSA7pi3xP8+7yilGHMh8hXy3YZaXhjE9YnrXbyYKPsrGW/Zl/BPpfkUn0e +3I3z+HqDxt/cQzk1USouPEv5/Oii5r84WaQ45SuVkHtrXnO3xrcg06/zmdQX +TNOKVKYavoFA/mLbYj60jibtqdD4ari9XG0XwYOSqy9txBr+mpH+3tPGPKBT +so3GNPvT1cGdjmou8Pe+Y+Rq+obXXy8rbOfCfzgMMLY= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, + 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, + 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 9}, {0., 0.23316664835242626`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k41HkcwHFaU/JYalex+s3M71uWHm0kdnPV56OcW+nRTjPjSEUZUTlT +lKudRk3UdFgTsz0dk1WIxBRSCJtluly5tp0H5ZjKUimFnf3j/byfFwmK2Lxr +lpaW1kZN/9/UvkozCmNEUpnguRKepXx+dFFjJ4sUp3ylEsSNDjku2hT6bFZx +xmqVMOmnsP11FoUD3pHj4kIldCYW7ZzNoFDCFDQMHFGC9MGlBn09Ck+Zu31C +KyUs2CQSf2dEoX3Ee9e0tGaYF7LpG9ulFAoq9HcR1ybYefRe7Z+/UMiQ9pmx +bz2EyTnRzPjDFGZV0/9QqQ2QFu3BDpRTmK1WO0yJ6iDq0aca+WMKvet1/DMl +tXAhY9RA9yOFQSxXZ5f+ali6pu5L8xImyi9qry6Jvwd57eWn672ZWDGf99lP +VAnhz8afdMUx8faYncBZpxxO3Ne76XOZiZx4IU8kVsAbwxCngb+YKE6OsR6M +LAUPz749BWNMPGdzPG6DpASmo1ZDG5OF6zipkamKYpiY7q40dWfh/t1fWhp/ +vgHeibzOmigWxmkXV5T/lA85fe9+l8lYeKd7nfHaw3lgWdiuf66OhYyXgqyp +5blgHJpJvX7LQsNBg4z44SvgLpK2B5mwUT5S9PyA9mVoyTxo4+jKxtH1HRYj +iy8CNyPB1i2Cjb2X+p39Pspg0WD1iz1ZbBSvElg8t86GNXb9P3yoZWP4TJXw +WlwWXOlbbyYbYeOCczdnVMsyIaUqTFUxl8ah5KQ3S5achV5tViqfTaPCaW+M +6PvT0H1gfL/QlsZ8mb3jl39PwrGQVU47vGisd1MG5hWegBVe+q0dgTT2dIV4 +0MpjEL/1q9qeaBqlngt7nINEEDUcmnLmGI2Gv/mafztbCHrXRs+2y2jctnJK +Pax3BC74zz1UWkyjddAN+w6vFFCJJCvXNdBoolt1Zrt5ItT3OcD2LhrL3Ms6 +PNwTgF/uQ1mN0liTk+pkE38A0qtPeIt1CBbkqooN6P1QWcnlpJgQNHna2yjW +j4Hz1hJLCyuCnndkg76zo8CkbWRLwFqCbUURlhZ5+8B9vMxnLZ9giJATlOEf +DhGM+aR2L8GZU9E1JC4UHLxOuj1JJRi8mZ4Z1A2BEkaC46ksgq9sY3XdCoKh +eTxN2JNPkOO5NWxOyQ5QtZlffnCf4KcSdrpiYBtcXWEn8W8jmLy7ihmYFAB6 +VcEtqUMEsy2G7qjkvpB7a15zt8aCTL/OZ1JfcLleVffjMMHpQ3JZY7ovHMwy +VgxpzLjto/0w1hdeRTVJfdQE7111nZzj5gt15raB5C3BUJlO6JmXfEiSzBqq +fkcwKdw84P5yPpimFalM3xM0EMhfbFvMh7LEgK5Yjf8+ryhlGPNBHaZoWvqB +4GOzu147tPjg7xZ2QzJB0GiLuIvXwgP7yacx2ycJrgxoicUEHrSOJu2p0Ljh +9nK1XQQPIl8t22X0meDYhPVJq508+KP1KPehxndbszxtvHmwsMjBYcUUQbah +GSd2MQ9Krr60EWu8ZqS/97QxDzbKzlr2a1ywzyW5VJ8HwuOvF0mnCWaM+8/o +TnCBTsk2GtM4XR3c6ajmwt04j683zBCceyinJkrFBf7ed4xcjYfXXy8rbOfC +ePCl6RmN57Edbr1p4sJ/jJowtg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.7232992608093968}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}, + 3.992489553687784*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"45320e48-e0cb-45e9-8909-ae63b7fc091f"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, 18}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1544, 47, 98, "Output",ExpressionUUID->"27221adb-7302-4a8b-b382-5eebc2c25db1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3312, 110, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[4035, 132, 937, 26, 71, "Output",ExpressionUUID->"a55785fc-e72d-4f04-ad80-bb9ec5c87a95"] +}, Open ]], +Cell[CellGroupData[{ +Cell[5009, 163, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6477, 206, 2633, 76, 149, "Output",ExpressionUUID->"d6e876b3-d61a-42fb-a1f3-d71272f98673"] +}, Open ]], +Cell[CellGroupData[{ +Cell[9147, 287, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10830, 337, 2832, 82, 149, "Output",ExpressionUUID->"bfca7a38-9de4-48ee-a75a-cc71869a3a49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13699, 424, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15545, 479, 3770, 110, 158, "Output",ExpressionUUID->"ec0b254d-bcff-471c-908f-a5484d971128"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19352, 594, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21435, 655, 4837, 139, 193, "Output",ExpressionUUID->"efc294cb-6504-4725-bd9f-af88a2600228"] +}, Open ]], +Cell[26287, 797, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26460, 803, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26811, 810, 351, 5, 33, "Output",ExpressionUUID->"bf707b11-23e1-4ec1-b8e3-9adeb085ffe0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27199, 820, 334, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27536, 828, 348, 5, 33, "Output",ExpressionUUID->"d6c3b5f3-0aad-4aef-96bd-e0bc43c65e4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27921, 838, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[28100, 843, 326, 5, 33, "Output",ExpressionUUID->"a96a9974-c025-4235-9e86-fb6e797deb25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28463, 853, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28724, 862, 324, 5, 33, "Output",ExpressionUUID->"3c823531-bfba-4180-ad1e-c65dd6407c92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29085, 872, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[29220, 876, 328, 5, 33, "Output",ExpressionUUID->"2c775033-4e11-4b6d-8b21-7bc7b575ba69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29585, 886, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29865, 894, 341, 5, 33, "Output",ExpressionUUID->"ab0099ad-488f-43ff-9d73-967c7858db68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30243, 904, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[30504, 913, 340, 5, 33, "Output",ExpressionUUID->"f749c131-45c1-4d68-8f7f-d110255cf524"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30881, 923, 425, 7, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[31309, 932, 177, 2, 33, "Output",ExpressionUUID->"4653a196-c477-407f-a540-2044d4952562"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31523, 939, 377, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31903, 947, 176, 2, 33, "Output",ExpressionUUID->"45429feb-5252-4f8f-a3f2-eca4bef3bbb0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32116, 954, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[32248, 958, 323, 5, 33, "Output",ExpressionUUID->"511d3b26-d917-4569-a0eb-e1effe06ea42"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32608, 968, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[32740, 972, 321, 5, 33, "Output",ExpressionUUID->"f905f80e-e1e9-4fac-ab0f-cdb86a3ea55b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[33098, 982, 2018, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[35119, 1035, 11761, 240, 239, "Output",ExpressionUUID->"dddda636-436d-445b-ab09-ff3c3ee4a20f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[46917, 1280, 2335, 60, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[49255, 1342, 4823, 70, 117, "Message",ExpressionUUID->"cdc8ad0d-9789-4a81-bf35-5c7c121719c1"], +Cell[54081, 1414, 361, 7, 33, "Output",ExpressionUUID->"6369bd4f-e1f8-4752-9bde-ca18d20e87eb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[54479, 1426, 2236, 58, 73, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[56718, 1486, 836, 15, 26, "Message",ExpressionUUID->"0dbb6ab0-7aa8-4ad3-933f-47780106064d"], +Cell[57557, 1503, 317, 6, 33, "Output",ExpressionUUID->"561c9c05-f406-4f16-a3cb-52dfc3a75c28"] +}, Open ]], +Cell[CellGroupData[{ +Cell[57911, 1514, 542, 8, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[58456, 1524, 177, 2, 33, "Output",ExpressionUUID->"096ccce9-4833-4a0a-a6e7-67aef180fe65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[58670, 1531, 504, 7, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[59177, 1540, 182, 2, 33, "Output",ExpressionUUID->"dc771e6c-221e-456b-b89d-5aad1bf2ad1b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[59396, 1547, 2551, 64, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[61950, 1613, 23920, 517, 236, "Output",ExpressionUUID->"74a5ae47-6c0b-4d96-b783-6f1376811b40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[85907, 2135, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[86071, 2140, 34385, 712, 239, "Output",ExpressionUUID->"2b75ee2e-250f-4b82-96fb-334cb7021926"] +}, Open ]], +Cell[CellGroupData[{ +Cell[120493, 2857, 972, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[121468, 2886, 21664, 401, 240, "Output",ExpressionUUID->"2f13ebb7-9849-4bd2-9dd4-7482a9e0342b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[143169, 3292, 2424, 62, 73, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[145596, 3356, 5964, 86, 117, "Message",ExpressionUUID->"d93dc98b-bceb-44b2-9926-2c68c56386ee"], +Cell[151563, 3444, 337, 7, 33, "Output",ExpressionUUID->"c4225639-7a04-4f96-aeea-816ceb8205f7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[151937, 3456, 271, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[152211, 3462, 202, 3, 33, "Output",ExpressionUUID->"10ce4869-65c0-4ca0-9f3b-09a1ba8f1513"] +}, Open ]], +Cell[CellGroupData[{ +Cell[152450, 3470, 304, 5, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[152757, 3477, 205, 3, 33, "Output",ExpressionUUID->"ddfaae36-7013-439a-93b0-e49612cf1e96"] +}, Open ]], +Cell[CellGroupData[{ +Cell[152999, 3485, 1033, 27, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[154035, 3514, 59470, 1250, 236, "Output",ExpressionUUID->"87d3b4b0-98e4-4ef0-9a01-f6ccf106ba87"] +}, Open ]], +Cell[CellGroupData[{ +Cell[213542, 4769, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[213708, 4774, 80250, 1610, 240, "Output",ExpressionUUID->"29ee3dbb-924b-4cd4-bd6c-cb64a0cfd807"] +}, Open ]], +Cell[CellGroupData[{ +Cell[293995, 6389, 2074, 56, 93, "Input",ExpressionUUID->"b21c67d1-a286-413a-8edf-1c3ffe1691c9"], +Cell[296072, 6447, 2828, 57, 344, "Output",ExpressionUUID->"d60e6e2c-2c27-4ea8-a4ff-9efc5550de6c"] +}, Open ]], +Cell[298915, 6507, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[299178, 6515, 843, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[300024, 6540, 11321, 233, 230, "Output",ExpressionUUID->"282d3ea2-56b9-4157-a946-149417dd991d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[311382, 6778, 2232, 58, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[313617, 6838, 6101, 87, 141, "Message",ExpressionUUID->"3401901a-ea0f-4f6a-a2fd-5d731f149cd2"], +Cell[319721, 6927, 341, 7, 33, "Output",ExpressionUUID->"49fad7f5-df43-4fb9-813d-c2f6264c5917"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320099, 6939, 301, 5, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[320403, 6946, 202, 3, 33, "Output",ExpressionUUID->"e9c2f78e-412c-4c4b-9c61-41f20c515349"] +}, Open ]], +Cell[CellGroupData[{ +Cell[320642, 6954, 303, 5, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[320948, 6961, 205, 3, 33, "Output",ExpressionUUID->"111164fa-dfcc-41f5-9201-4fb20bf800c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[321190, 6969, 2611, 65, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[323804, 7036, 22404, 488, 230, "Output",ExpressionUUID->"15c2c921-ff95-446d-9011-088d244996fe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[346245, 7529, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[346413, 7534, 32486, 677, 230, "Output",ExpressionUUID->"11827447-ee4e-42d6-a2cf-7eb0c93fcf94"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378936, 8216, 1900, 54, 73, "Input",ExpressionUUID->"03fa2117-88d2-48db-bd86-a8f5bc26f1cf"], +Cell[380839, 8272, 2720, 55, 351, "Output",ExpressionUUID->"3448a85d-92b4-46ae-8d3b-c29e0a7884c4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383596, 8332, 922, 26, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[384521, 8360, 17135, 330, 236, "Output",ExpressionUUID->"7fb1589d-45a3-49b6-82ba-bf506479aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401693, 8695, 2386, 62, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[404082, 8759, 5971, 86, 137, "Message",ExpressionUUID->"85c9d17c-d63a-43ad-851f-9344bb72c1a2"], +Cell[410056, 8847, 347, 8, 33, "Output",ExpressionUUID->"9efc2baa-2cfc-4941-b971-8aeddb7f1c13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410440, 8860, 305, 6, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[410748, 8868, 209, 4, 33, "Output",ExpressionUUID->"1bb55584-134e-4075-a597-5b718fa4c131"] +}, Open ]], +Cell[CellGroupData[{ +Cell[410994, 8877, 308, 6, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[411305, 8885, 209, 4, 33, "Output",ExpressionUUID->"fd3ff19a-e2f0-4857-a442-ea8995a4d62b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411551, 8894, 2901, 74, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[414455, 8970, 23807, 517, 232, "Output",ExpressionUUID->"b5844657-8eef-47cc-964e-63ba436c10c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[438299, 9492, 208, 5, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[438510, 9499, 39719, 803, 255, "Output",ExpressionUUID->"45320e48-e0cb-45e9-8909-ae63b7fc091f"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/rename.zsh b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/152-88_h_Pu240_6-7/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw1.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw1.nb new file mode 100644 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw1.nb @@ -0,0 +1,9365 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399390, 9355] +NotebookOptionsPosition[ 375168, 8989] +NotebookOutlinePosition[ 375597, 9006] +CellTagsIndexPosition[ 375554, 9003] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "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->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw2.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw2.nb new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw2.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw2.nb new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw1.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw1.nb new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw2.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw2.nb new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_фитирование.nb b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_фитирование.nb new file mode 100644 index 0000000..365c04d --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/h_154-86_Pu240_8-9_фитирование.nb @@ -0,0 +1,19109 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 910303, 19101] +NotebookOptionsPosition[ 898555, 18893] +NotebookOutlinePosition[ 898967, 18910] +CellTagsIndexPosition[ 898924, 18907] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992490274559222*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"cef34656-03c8-418c-9ca9-b5e7cad32f0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.9924902748173847`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"852c9274-ab42-4b80-a4a4-d07d8fd1ab61"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.9924902748401957`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"8cd88442-228a-4158-922f-29c137b2cf58"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.992490274861755*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"e7772092-f337-4bd7-ac87-a243038530a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9924902748849277`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"a9cf1197-1299-4925-a00d-99917a68a9f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.992490274910367*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"5a9f4d58-c854-4633-adad-0f8631b9c4c1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992490274938952*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2edfd926-8e18-4949-8884-e20d9eb13750"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "154"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9924902169873333`*^9, + 3.99249021931876*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["154"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.992490274962995*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"923e80c1-763a-4847-b24d-30cbabfe85a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.992490274987398*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"30f619d1-ebef-4415-b537-30008917545f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5457500000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992490275011964*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"86b14bbf-15e1-413c-8ef3-f0735c4d8cba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992490275035309*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"4da5cdb5-98e8-41d7-8b72-defabb0252df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.21772575671982`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992490275059112*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"ebcc8f6a-269b-4b87-b4f0-634cb2c83fa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["5.12024575643284`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.992490275086069*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"791c53f3-35d2-402b-9177-c628b404284c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.020"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.992490243988886*^9, 3.992490247682048*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["1.02`"], "Output", + CellChangeTimes->{3.9924902751117268`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"45e2aed7-0a88-44d9-9897-2ab05da1dc18"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.874"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.99249025879327*^9, 3.992490262466762*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.874`"], "Output", + CellChangeTimes->{3.992490275136409*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"c57fab8b-c51d-4d0c-bdcb-02c893ee66cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.992490275163754*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"821e06c0-0874-4568-9e8d-5af4bf3b2ef9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.992490275188854*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"9be89ca0-58b1-4414-b10e-ffbf06204390"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992490284757059*^9, 3.9924902961820173`*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03k41AkYB3DjWCZXxxQ5f8Mcv7WRYW1b2d5XhHbT9thO7S6SK7UTpcxB +mrR0IBWjlpoKSaiUFApltkZYUY4y5SojZp4RRTrs9Mf7fJ/P8/3++9K3cP1D +tbW0tPw09zVtXtJ0tLQI1CG/MXuVqwKl+pnihsa9E/0uhhpXa59rjqRo/KC+ +2TlHBQEsx9Nt2gSOHU88yD+tgswdKzgX9Qi0dtk1qC9WgdGn2MDVhgTS4hM9 +ZhxTwQfzjqqceQR2B5Vsu7xfBU/8T+1e7EigdGGyzZoQFcxZP68K/yTwju1F +Svx8FXz2JTwMjhLItRqdf0SmhO4g5/6hWwQaRJRyDnCV4GWwOODUEIH9RgXG +P02PwIazzTOpZnRszrim6548AmPS33O8femYtS1Mrng7DEmzRj3PxNFR3FIx +yfEbhtpVs7+7mU/HXbLbfRFn38BBswWD/7TTUaKktKsbh+Dd49Y+D107tCwS +jTqOKSDg2r4pCscOTZ984VymKsCXYA6mB9uhT4/Byu3vX0NvwoY5L9LssCB5 +ezr2vQKdHSLaVI2ml99w+nJhACwSr3Oc1XZYG+mat39zP3SLotNY1vboo3BQ +e9r0AXsuWfvGzx5L2Uu/LbrbA9biKA5XYI8LNnX25w2+gJzCi3vriu1RGNs0 +SrXthpkvh7oc5fa4erZYvye6Cxbq3RYEzGBg2JiyulO/AzoqE9+uXcpArPIu +yU55Ag5BTwtNIxlIYTxo465vhRgHZ8FAJgMPm0vlst9awDPpgF3yvwzMjBmJ ++OF8I9Q0hVDfjGn2G8skH91kUF/gLrVgMrHWXUwu6ZbC3TzL3NB1TDTPv/fX +1ZF7EHI8+cZOERMvr2K5NAlrIcN0RLLyOhOprjWKAb9q2CaUN/b1MFHk/kep +O/8W/GjylJZlzMLHm+r1s5zKIX2hlGO2jIVE4GK53awyyMDlaRujWLjnMFcY +Yn4FrHorasJzWJhSc0K2KLgI/KMrnRc1sPAXf1qCaXYBxLPu3yEmWJh9qSih +MOQCcKLqbTvZbKSf0A4PjZDAsbP+db+uY6N+ELcy1SQH4kK6FmX+zUbl3ksO +XoViWLcqrGH8Jhvdwng7qdMnQM5IzKENsDE6Pdz/7twMUB097qk9l8SWsqga +1aOjUDTAcbi6nMTu8lg/30MpsDm4Y0Ecl8RYHVfF0okkzT/E6ppISOSWG1/R +L94P/EiJ5dYmEquLm/x4RAJsPMk84tRMYuiVa4EUwwRwqymamtR4Ghnnst/F +g5pW3pXaQiJLLzJlvCEewmtl4oo2El26h+uC9sTDWrOxOYbPSNzysOc+pUUI +TtIVRmWvSUwiYg7ZpAnASN0gEA6SaHyq82QcXwBDFmuGvRUkrhwpP9wTJoC8 +nQENz4dIbB6YNHkGArC04qboKUn0sjCMinnLB4Nd2bqbxki0vcWa7RzAh9e5 +1rvtx0l0aq3w2urDh/sPz/crNZ7w9JTlf8+HBJuSe6L3JA55GV5YY8qHd7K6 +xOIPJJakz8zykvKgddxbvWeKxJEzk2v7ynhw1bYx0OMjiT5OOlapEh5sj21f +1v6JxErFjDNUIQ9+lmwulXwmUcSWez+P5AH7UY911BcSg/WEbbc38ED3fWiq +2zSJ/+3rXZK/ggd9xPCnaY3Dq4x357ry4H9y0DMR + "]]}, + 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:eJwV03k41AkYB3DjWCZXxxQ5f8Mcv7WRYW1b2d5XhHbT9thO7S6SK7UTpcxB +mrR0IBWjlpoKSaiUFApltkZYUY4y5SojZp4RRTrs9Mf7fJ/P8/3++9K3cP1D +tbW0tPw09zVtXtJ0tLQI1CG/MXuVqwKl+pnihsa9E/0uhhpXa59rjqRo/KC+ +2TlHBQEsx9Nt2gSOHU88yD+tgswdKzgX9Qi0dtk1qC9WgdGn2MDVhgTS4hM9 +ZhxTwQfzjqqceQR2B5Vsu7xfBU/8T+1e7EigdGGyzZoQFcxZP68K/yTwju1F +Svx8FXz2JTwMjhLItRqdf0SmhO4g5/6hWwQaRJRyDnCV4GWwOODUEIH9RgXG +P02PwIazzTOpZnRszrim6548AmPS33O8femYtS1Mrng7DEmzRj3PxNFR3FIx +yfEbhtpVs7+7mU/HXbLbfRFn38BBswWD/7TTUaKktKsbh+Dd49Y+D107tCwS +jTqOKSDg2r4pCscOTZ984VymKsCXYA6mB9uhT4/Byu3vX0NvwoY5L9LssCB5 +ezr2vQKdHSLaVI2ml99w+nJhACwSr3Oc1XZYG+mat39zP3SLotNY1vboo3BQ +e9r0AXsuWfvGzx5L2Uu/LbrbA9biKA5XYI8LNnX25w2+gJzCi3vriu1RGNs0 +SrXthpkvh7oc5fa4erZYvye6Cxbq3RYEzGBg2JiyulO/AzoqE9+uXcpArPIu +yU55Ag5BTwtNIxlIYTxo465vhRgHZ8FAJgMPm0vlst9awDPpgF3yvwzMjBmJ ++OF8I9Q0hVDfjGn2G8skH91kUF/gLrVgMrHWXUwu6ZbC3TzL3NB1TDTPv/fX +1ZF7EHI8+cZOERMvr2K5NAlrIcN0RLLyOhOprjWKAb9q2CaUN/b1MFHk/kep +O/8W/GjylJZlzMLHm+r1s5zKIX2hlGO2jIVE4GK53awyyMDlaRujWLjnMFcY +Yn4FrHorasJzWJhSc0K2KLgI/KMrnRc1sPAXf1qCaXYBxLPu3yEmWJh9qSih +MOQCcKLqbTvZbKSf0A4PjZDAsbP+db+uY6N+ELcy1SQH4kK6FmX+zUbl3ksO +XoViWLcqrGH8Jhvdwng7qdMnQM5IzKENsDE6Pdz/7twMUB097qk9l8SWsqga +1aOjUDTAcbi6nMTu8lg/30MpsDm4Y0Ecl8RYHVfF0okkzT/E6ppISOSWG1/R +L94P/EiJ5dYmEquLm/x4RAJsPMk84tRMYuiVa4EUwwRwqymamtR4Ghnnst/F +g5pW3pXaQiJLLzJlvCEewmtl4oo2El26h+uC9sTDWrOxOYbPSNzysOc+pUUI +TtIVRmWvSUwiYg7ZpAnASN0gEA6SaHyq82QcXwBDFmuGvRUkrhwpP9wTJoC8 +nQENz4dIbB6YNHkGArC04qboKUn0sjCMinnLB4Nd2bqbxki0vcWa7RzAh9e5 +1rvtx0l0aq3w2urDh/sPz/crNZ7w9JTlf8+HBJuSe6L3JA55GV5YY8qHd7K6 +xOIPJJakz8zykvKgddxbvWeKxJEzk2v7ynhw1bYx0OMjiT5OOlapEh5sj21f +1v6JxErFjDNUIQ9+lmwulXwmUcSWez+P5AH7UY911BcSg/WEbbc38ED3fWiq +2zSJ/+3rXZK/ggd9xPCnaY3Dq4x357ry4H9y0DMR + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9567742776573599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9567742776573599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k41AkYB3DjWCZXxxQ5f8Mcv7WRYW1b2d5XhHbT9thO7S6SK7UTpcxB +mrR0IBWjlpoKSaiUFApltkZYUY4y5SojZp4RRTrs9Mf7fJ/P8/3++9K3cP1D +tbW0tPw09zVtXtJ0tLQI1CG/MXuVqwKl+pnihsa9E/0uhhpXa59rjqRo/KC+ +2TlHBQEsx9Nt2gSOHU88yD+tgswdKzgX9Qi0dtk1qC9WgdGn2MDVhgTS4hM9 +ZhxTwQfzjqqceQR2B5Vsu7xfBU/8T+1e7EigdGGyzZoQFcxZP68K/yTwju1F +Svx8FXz2JTwMjhLItRqdf0SmhO4g5/6hWwQaRJRyDnCV4GWwOODUEIH9RgXG +P02PwIazzTOpZnRszrim6548AmPS33O8femYtS1Mrng7DEmzRj3PxNFR3FIx +yfEbhtpVs7+7mU/HXbLbfRFn38BBswWD/7TTUaKktKsbh+Dd49Y+D107tCwS +jTqOKSDg2r4pCscOTZ984VymKsCXYA6mB9uhT4/Byu3vX0NvwoY5L9LssCB5 +ezr2vQKdHSLaVI2ml99w+nJhACwSr3Oc1XZYG+mat39zP3SLotNY1vboo3BQ +e9r0AXsuWfvGzx5L2Uu/LbrbA9biKA5XYI8LNnX25w2+gJzCi3vriu1RGNs0 +SrXthpkvh7oc5fa4erZYvye6Cxbq3RYEzGBg2JiyulO/AzoqE9+uXcpArPIu +yU55Ag5BTwtNIxlIYTxo465vhRgHZ8FAJgMPm0vlst9awDPpgF3yvwzMjBmJ ++OF8I9Q0hVDfjGn2G8skH91kUF/gLrVgMrHWXUwu6ZbC3TzL3NB1TDTPv/fX +1ZF7EHI8+cZOERMvr2K5NAlrIcN0RLLyOhOprjWKAb9q2CaUN/b1MFHk/kep +O/8W/GjylJZlzMLHm+r1s5zKIX2hlGO2jIVE4GK53awyyMDlaRujWLjnMFcY +Yn4FrHorasJzWJhSc0K2KLgI/KMrnRc1sPAXf1qCaXYBxLPu3yEmWJh9qSih +MOQCcKLqbTvZbKSf0A4PjZDAsbP+db+uY6N+ELcy1SQH4kK6FmX+zUbl3ksO +XoViWLcqrGH8Jhvdwng7qdMnQM5IzKENsDE6Pdz/7twMUB097qk9l8SWsqga +1aOjUDTAcbi6nMTu8lg/30MpsDm4Y0Ecl8RYHVfF0okkzT/E6ppISOSWG1/R +L94P/EiJ5dYmEquLm/x4RAJsPMk84tRMYuiVa4EUwwRwqymamtR4Ghnnst/F +g5pW3pXaQiJLLzJlvCEewmtl4oo2El26h+uC9sTDWrOxOYbPSNzysOc+pUUI +TtIVRmWvSUwiYg7ZpAnASN0gEA6SaHyq82QcXwBDFmuGvRUkrhwpP9wTJoC8 +nQENz4dIbB6YNHkGArC04qboKUn0sjCMinnLB4Nd2bqbxki0vcWa7RzAh9e5 +1rvtx0l0aq3w2urDh/sPz/crNZ7w9JTlf8+HBJuSe6L3JA55GV5YY8qHd7K6 +xOIPJJakz8zykvKgddxbvWeKxJEzk2v7ynhw1bYx0OMjiT5OOlapEh5sj21f +1v6JxErFjDNUIQ9+lmwulXwmUcSWez+P5AH7UY911BcSg/WEbbc38ED3fWiq +2zSJ/+3rXZK/ggd9xPCnaY3Dq4x357ry4H9y0DMR + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9567742776573599}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12.5}, {0., 0.9567742776573599}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.992490275354177*^9, 3.992490297262097*^9}}, + CellLabel->"Out[22]=",ExpressionUUID->"d3a97d03-699d-495a-a29b-8e43802fd286"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\ +\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \\\", \\\"R1\\\"}], \\\"]\ +\\\"}]}], RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 20, 1, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9}, + CellLabel-> + "During evaluation of \ +In[20]:=",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.2800677099442378`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"5391.436356051909`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.2800677099442378`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.2988729554791925`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"67848.64114184062`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"35\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ +is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ +\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \ +\\\",\\\", \\\"b0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"1.`\\\", \\\",\\\", \\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 380, + 164, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9}, + CellLabel-> + "During evaluation of \ +In[380]:=",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 12}, {0., 0.8911371422921853}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 10}, {0., 0.9853735520528359}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.845, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 8.06, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.82, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {105.63052248880513`, 111.25552248880513`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {194.54614748880513`, 200.17114748880513`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9924904551216917`*^9, + 3.992490467517209*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0nk0lesXB3BJiSJEpfGc47xvKjeKBsTepcyk5JiHqxNlDqHBTJ3IXIj0 +K6FEksxSpuTmpsyzI0oZjkQqFf3e+8ez9vqs9ez9POu7Nt3e/dhJfj4+vmLq +/FfXxP1HGl6iSd9dq8eDUrENRVcpzwsanWnT4YFZbIuj9CIaKjb4FcRo8yAl +Bl7v4qdhcFHLVQFNHmyKlk4+KUDDkXDhmx+RB0Tk678al9Hwmlng9/g9PFAM +322eKE7D/ZOn9vnTeXDk3JJ8ORkaHtLZ5nttdgLKCh1eGerQkMircpyLmoD5 ++tq5URcann+wKkiSMQH7wmwsW2JoeKqUnjmXOw6Z18q35hfRkNHaMGxAG4eJ +CxIigt1U/y6JWYuYMThZvN3a+A8Nj4nQ9vgPjUJHagh3gknHHwvRYctlR4Fu +1u7zR4uOOmVDQblOn+CW4+h5QTc64kc9PeLqR5g1mEvgxNEx5aObJOSOgAZX +k8sqpOMpdzOt4eoPUFtrkrSuh47lM+K03CfvYWOgHdt0no6J6Su072UPQ3aU +3K0rMgzcl3qntu/CEMhp7REW0mGgrW/s0f3a7yCiUzVykQsDNzPyau7SB0G6 +gv/c5zgGZuxtV04r64fQsy8usIoY2Ln2h/h1017YFKozXtDLQNlH/Vly9V3w +WHV5lNUiGVw6e1lMWb8DNjU2aAQyZbBUMSJ2VKQNKh9qOSbpyqCH9eaMrtJm +2ONY8z9ZNxl0j1lstfvYG8hqPC8sGCeD/FNtZb8vN4J26Nd3PcUyeNVgfHpb +xUuoE3dq2tIjg0Is+q43AXXgOXN7ixMfE1+TszcJVjWsDZJ6MkcwcYlGdWqy +XCUkD4cb8+swkR7vo7P5finoppTY8bkzseB40GdddiF0bPkQ4hvPxDc5s+5y +3/PB3M6oU7WIiRm3DhmGbMsFjoTJsxbKU6o3+dxX5UJxnXnm6WIm2rQ9LHX+ +nQOSW094JZUwcWb2wfrrTTnw9svZlTNlTAx4crMryysHNENTtR48Y+InmZ+c +51UPQClrpGRtAxPz6G+CYx2yQXTiYvJsDxNzaCQs5WZBclT7iZBeJhocElu+ ++HUWMOR3yK/sY2Loh92MFRVZsNeT+0K2n4lZbtelNZKywO7HgRlLLhM9hNyD +NIyyoEBA0LBmmIk08+wmTl0msDbGLY6ZYOKdewdjfhZlQJphppvsAhMLaVLq +ZEU6eM/mr6ymLPbn+r9VD9JB/+bTfPM/TBReLb7kVEo6/BxtnY7gI9BCudik +71w6sML5fXn8BI42WqVbKqeD6FPbwAJBArumGo3zyu9AwNZ1sfvFCaxzam90 +r78NNgIxj42YBAoZWByJXnQLYlMm93ApB0ukH3f+lAa1CoZPXQkCE5Lvq1u+ +SQNZa5GXESSBfpuWJXilpcF0UWRfnSyB0O73O0wlDcIdOYLKfxF4r863m+Z3 +E3JfBVvT9xBYMDhWweNLhblYb6FpLQLzOqzfe2gmQ9fGtFp/bQLHY2vWr9mV +DMUPXvgL6RDIXqfS+e/GZPCsWz1N0yXQbKqrwGE2CSa+l/Yc0SfQdefXT8cy +k2DAZj7noRGB34MvPhNYlgQ1cpcMT5tT/bc7DCK6rsPVhqSEQScCSZ8lW1Zk +JECJhZeMnzOBphqutP64BBiaMHyy0oXAO/q/EisDE2Cf+NJWdVcCbytrNOVa +JsB7c2+JNHcCqwZat2pIJoDauFGcuTeBqorWrw5z4mFSRDimxZ9AGzn7CJML +cXDU+GJEXSyBtO+vfONWx0BXW87C0TgCfQ2V1FV+RYMNq9eTS1mo493fc9xo +cDJXsfwZT6Do9tqg8uxoCLP9sV3hOvWfNTesNNWjodTZ+3XqDQKlB9rv+zhH +AS3MRcwrncAcCU/Vf9sjYarQKpFeSGBYZFLe7xEO1KrCYDll3zD70E9NHEis +oW87XkSgpKL6zrFiDqi9Ham8VEzg/SvKzTsucyBi3OPDeCmBNUpqShWyHGAy +wpWKKwmsWFyj2ux+GcxiHrbovqTef/1B/7zIJag+vSDq3UPgInuRj8zQUMCP +2VHCvQRuE5vmWHqEQhXbZMUdyk+PH9W+ax0Kz2xzhZr6CLQtaBg5uS8Uyk0s +BGS5BI5tfrqmeDIEnhwonusdJjBmyXUJH5sQyJR2e6/BI/BynEaOpG4wXPmn +v2wVH4me84PBPWkBwN7Tv+E25U9Fj9iLQwJA/W5foNwiEp8ZaTsecgiArxd7 +Dx/mJ7Fbqj5AVD4AbBS6m30ESJwysR2oqvaHXUlto93LSBRz86yPGr8IPexG +6dviJBppeq7WNLoA2/nKzsnJkMjKqZTTsfCDY57OBXWU63vGzy076Afn328c +t2KSeLw3nDew1Q8aGkKsoggSX0nfm3075wsOcfowuYXE4PqX+i9TfOE2Y1Ag +X45EdoQCe3zQB6QOC8Yq7iHRYyyQe8n/LPy5YpKlokPiyFMVr7EZTwgZt6xt +oJxHpPluGvIEAQP7QZYuiZVdbYn2bz1BWMx9nZceiS9ceJPrHnqCZCInOseA +RO8l8hxdR0/Yll7hs+EYiZfFXa/dGDgDrHK61oIFNS/+cHdKlwc8HON9rHYh +0SJWvaR50hX6DlYqG7iSOLZCykC41RWEU69GdlHukfDptCxxhVN62+U/u5Go +l9firRPkCozcUz4bzpD48JB7iP4qV0h0HRbwPUuigk9ZOlfNBYKmuuhyASRG +RQ6J52Q4QZ72fa8Sys25Dmo9kU7Qf9v3xcFAEkV5y9s2ezmBytHVp82DSJRa +en+Wd8AJZh8b518Koe6HzX9JGDwNTl5N6u8ukbhpvT58o58G42+1lokxVN4t +MaXxhY7QZKwZ+lcsicryh3ZG3HQE3ccND+oo/+62NL0R5gjo8npuOo7E4fDs +YwvHHWHHUEfSkWsk3ii8lzL4zQGEmkZbl90gcft2Y9aMugM8z1ypfyGdxPDW +Ts5TLhtUFsd7SdwlsUX++XTgKzYU20mmZlNOnYo6aVbEhtz10mOdGSQm9K1Z +rR3JhpQ4BkfpHon5jjv9aPvYcNZ/dx0vh8R/PFWZGddPwHYTy/12RSRW2Dwq +P2NrD/zpO7V5lDsMOky/GNhD16Tg8fPFJOaaOe4N3m8PlziFztdKSBSwrAlt +lraHoQqR1IYyEpf691buav8bkhlVcwrPSDwx/OHguOHfIDDFLFn0kprHjj7e +amAHvft/1URTdidTBFDdDgquNDetbyCRMDVTq9hhB7YyASO7/yFR8Ndjyf6V +dlDO6pRyaqTyOG3OvZFpCx6VV7xb3pDYaa5+MKPYBvojJnfe7SLxnV7M5G6e +FbipbMzEbhLfXiEUdZqsYGFUb+0A5dnegaaLj6xgk072wtpeypHyVw55WoGN +ILsxup9Ep8bDAcfmLGEwtJt9fojE0PofPvoiljB8sS7p6ASJ5wSjFbl65uAt +NyP8mfLHJXttqxTMQaCPHnCVR+KAq7jgMylzYKoGsl9Oknh0baKp6KAZsOeU +d6p9ITGwOqnzz1kzGDn76JXsNyoPj8xIkXum4EMMqNVTjjsQw8iOMoWl7Sse +n/hOopyjiJettylsUXJKuvWD8rs3resPmsKpaSZb8heJOjfO/O/tAAt+3DHu +fExZukRLBOpZwDkaonvkN4ncr27WLx+y4H4+VyFinsQLB+dVCH8W7LMTzdiy +QCKj6lXCTzYLGlaqrXlB2Xl58clRfRaYPXeOsP9D7YNsQeIXJRaMuqXM/6GM +5xpXrNrIgv8DmXIjig== + "]]}, + 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:eJwV0nk0lesXB3BJiSJEpfGc47xvKjeKBsTepcyk5JiHqxNlDqHBTJ3IXIj0 +K6FEksxSpuTmpsyzI0oZjkQqFf3e+8ez9vqs9ez9POu7Nt3e/dhJfj4+vmLq +/FfXxP1HGl6iSd9dq8eDUrENRVcpzwsanWnT4YFZbIuj9CIaKjb4FcRo8yAl +Bl7v4qdhcFHLVQFNHmyKlk4+KUDDkXDhmx+RB0Tk678al9Hwmlng9/g9PFAM +322eKE7D/ZOn9vnTeXDk3JJ8ORkaHtLZ5nttdgLKCh1eGerQkMircpyLmoD5 ++tq5URcann+wKkiSMQH7wmwsW2JoeKqUnjmXOw6Z18q35hfRkNHaMGxAG4eJ +CxIigt1U/y6JWYuYMThZvN3a+A8Nj4nQ9vgPjUJHagh3gknHHwvRYctlR4Fu +1u7zR4uOOmVDQblOn+CW4+h5QTc64kc9PeLqR5g1mEvgxNEx5aObJOSOgAZX +k8sqpOMpdzOt4eoPUFtrkrSuh47lM+K03CfvYWOgHdt0no6J6Su072UPQ3aU +3K0rMgzcl3qntu/CEMhp7REW0mGgrW/s0f3a7yCiUzVykQsDNzPyau7SB0G6 +gv/c5zgGZuxtV04r64fQsy8usIoY2Ln2h/h1017YFKozXtDLQNlH/Vly9V3w +WHV5lNUiGVw6e1lMWb8DNjU2aAQyZbBUMSJ2VKQNKh9qOSbpyqCH9eaMrtJm +2ONY8z9ZNxl0j1lstfvYG8hqPC8sGCeD/FNtZb8vN4J26Nd3PcUyeNVgfHpb +xUuoE3dq2tIjg0Is+q43AXXgOXN7ixMfE1+TszcJVjWsDZJ6MkcwcYlGdWqy +XCUkD4cb8+swkR7vo7P5finoppTY8bkzseB40GdddiF0bPkQ4hvPxDc5s+5y +3/PB3M6oU7WIiRm3DhmGbMsFjoTJsxbKU6o3+dxX5UJxnXnm6WIm2rQ9LHX+ +nQOSW094JZUwcWb2wfrrTTnw9svZlTNlTAx4crMryysHNENTtR48Y+InmZ+c +51UPQClrpGRtAxPz6G+CYx2yQXTiYvJsDxNzaCQs5WZBclT7iZBeJhocElu+ ++HUWMOR3yK/sY2Loh92MFRVZsNeT+0K2n4lZbtelNZKywO7HgRlLLhM9hNyD +NIyyoEBA0LBmmIk08+wmTl0msDbGLY6ZYOKdewdjfhZlQJphppvsAhMLaVLq +ZEU6eM/mr6ymLPbn+r9VD9JB/+bTfPM/TBReLb7kVEo6/BxtnY7gI9BCudik +71w6sML5fXn8BI42WqVbKqeD6FPbwAJBArumGo3zyu9AwNZ1sfvFCaxzam90 +r78NNgIxj42YBAoZWByJXnQLYlMm93ApB0ukH3f+lAa1CoZPXQkCE5Lvq1u+ +SQNZa5GXESSBfpuWJXilpcF0UWRfnSyB0O73O0wlDcIdOYLKfxF4r863m+Z3 +E3JfBVvT9xBYMDhWweNLhblYb6FpLQLzOqzfe2gmQ9fGtFp/bQLHY2vWr9mV +DMUPXvgL6RDIXqfS+e/GZPCsWz1N0yXQbKqrwGE2CSa+l/Yc0SfQdefXT8cy +k2DAZj7noRGB34MvPhNYlgQ1cpcMT5tT/bc7DCK6rsPVhqSEQScCSZ8lW1Zk +JECJhZeMnzOBphqutP64BBiaMHyy0oXAO/q/EisDE2Cf+NJWdVcCbytrNOVa +JsB7c2+JNHcCqwZat2pIJoDauFGcuTeBqorWrw5z4mFSRDimxZ9AGzn7CJML +cXDU+GJEXSyBtO+vfONWx0BXW87C0TgCfQ2V1FV+RYMNq9eTS1mo493fc9xo +cDJXsfwZT6Do9tqg8uxoCLP9sV3hOvWfNTesNNWjodTZ+3XqDQKlB9rv+zhH +AS3MRcwrncAcCU/Vf9sjYarQKpFeSGBYZFLe7xEO1KrCYDll3zD70E9NHEis +oW87XkSgpKL6zrFiDqi9Ham8VEzg/SvKzTsucyBi3OPDeCmBNUpqShWyHGAy +wpWKKwmsWFyj2ux+GcxiHrbovqTef/1B/7zIJag+vSDq3UPgInuRj8zQUMCP +2VHCvQRuE5vmWHqEQhXbZMUdyk+PH9W+ax0Kz2xzhZr6CLQtaBg5uS8Uyk0s +BGS5BI5tfrqmeDIEnhwonusdJjBmyXUJH5sQyJR2e6/BI/BynEaOpG4wXPmn +v2wVH4me84PBPWkBwN7Tv+E25U9Fj9iLQwJA/W5foNwiEp8ZaTsecgiArxd7 +Dx/mJ7Fbqj5AVD4AbBS6m30ESJwysR2oqvaHXUlto93LSBRz86yPGr8IPexG +6dviJBppeq7WNLoA2/nKzsnJkMjKqZTTsfCDY57OBXWU63vGzy076Afn328c +t2KSeLw3nDew1Q8aGkKsoggSX0nfm3075wsOcfowuYXE4PqX+i9TfOE2Y1Ag +X45EdoQCe3zQB6QOC8Yq7iHRYyyQe8n/LPy5YpKlokPiyFMVr7EZTwgZt6xt +oJxHpPluGvIEAQP7QZYuiZVdbYn2bz1BWMx9nZceiS9ceJPrHnqCZCInOseA +RO8l8hxdR0/Yll7hs+EYiZfFXa/dGDgDrHK61oIFNS/+cHdKlwc8HON9rHYh +0SJWvaR50hX6DlYqG7iSOLZCykC41RWEU69GdlHukfDptCxxhVN62+U/u5Go +l9firRPkCozcUz4bzpD48JB7iP4qV0h0HRbwPUuigk9ZOlfNBYKmuuhyASRG +RQ6J52Q4QZ72fa8Sys25Dmo9kU7Qf9v3xcFAEkV5y9s2ezmBytHVp82DSJRa +en+Wd8AJZh8b518Koe6HzX9JGDwNTl5N6u8ukbhpvT58o58G42+1lokxVN4t +MaXxhY7QZKwZ+lcsicryh3ZG3HQE3ccND+oo/+62NL0R5gjo8npuOo7E4fDs +YwvHHWHHUEfSkWsk3ii8lzL4zQGEmkZbl90gcft2Y9aMugM8z1ypfyGdxPDW +Ts5TLhtUFsd7SdwlsUX++XTgKzYU20mmZlNOnYo6aVbEhtz10mOdGSQm9K1Z +rR3JhpQ4BkfpHon5jjv9aPvYcNZ/dx0vh8R/PFWZGddPwHYTy/12RSRW2Dwq +P2NrD/zpO7V5lDsMOky/GNhD16Tg8fPFJOaaOe4N3m8PlziFztdKSBSwrAlt +lraHoQqR1IYyEpf691buav8bkhlVcwrPSDwx/OHguOHfIDDFLFn0kprHjj7e +amAHvft/1URTdidTBFDdDgquNDetbyCRMDVTq9hhB7YyASO7/yFR8Ndjyf6V +dlDO6pRyaqTyOG3OvZFpCx6VV7xb3pDYaa5+MKPYBvojJnfe7SLxnV7M5G6e +FbipbMzEbhLfXiEUdZqsYGFUb+0A5dnegaaLj6xgk072wtpeypHyVw55WoGN +ILsxup9Ep8bDAcfmLGEwtJt9fojE0PofPvoiljB8sS7p6ASJ5wSjFbl65uAt +NyP8mfLHJXttqxTMQaCPHnCVR+KAq7jgMylzYKoGsl9Oknh0baKp6KAZsOeU +d6p9ITGwOqnzz1kzGDn76JXsNyoPj8xIkXum4EMMqNVTjjsQw8iOMoWl7Sse +n/hOopyjiJettylsUXJKuvWD8rs3resPmsKpaSZb8heJOjfO/O/tAAt+3DHu +fExZukRLBOpZwDkaonvkN4ncr27WLx+y4H4+VyFinsQLB+dVCH8W7LMTzdiy +QCKj6lXCTzYLGlaqrXlB2Xl58clRfRaYPXeOsP9D7YNsQeIXJRaMuqXM/6GM +5xpXrNrIgv8DmXIjig== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.9154170213232795}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.9154170213232795}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk0lesXB3BJiSJEpfGc47xvKjeKBsTepcyk5JiHqxNlDqHBTJ3IXIj0 +K6FEksxSpuTmpsyzI0oZjkQqFf3e+8ez9vqs9ez9POu7Nt3e/dhJfj4+vmLq +/FfXxP1HGl6iSd9dq8eDUrENRVcpzwsanWnT4YFZbIuj9CIaKjb4FcRo8yAl +Bl7v4qdhcFHLVQFNHmyKlk4+KUDDkXDhmx+RB0Tk678al9Hwmlng9/g9PFAM +322eKE7D/ZOn9vnTeXDk3JJ8ORkaHtLZ5nttdgLKCh1eGerQkMircpyLmoD5 ++tq5URcann+wKkiSMQH7wmwsW2JoeKqUnjmXOw6Z18q35hfRkNHaMGxAG4eJ +CxIigt1U/y6JWYuYMThZvN3a+A8Nj4nQ9vgPjUJHagh3gknHHwvRYctlR4Fu +1u7zR4uOOmVDQblOn+CW4+h5QTc64kc9PeLqR5g1mEvgxNEx5aObJOSOgAZX +k8sqpOMpdzOt4eoPUFtrkrSuh47lM+K03CfvYWOgHdt0no6J6Su072UPQ3aU +3K0rMgzcl3qntu/CEMhp7REW0mGgrW/s0f3a7yCiUzVykQsDNzPyau7SB0G6 +gv/c5zgGZuxtV04r64fQsy8usIoY2Ln2h/h1017YFKozXtDLQNlH/Vly9V3w +WHV5lNUiGVw6e1lMWb8DNjU2aAQyZbBUMSJ2VKQNKh9qOSbpyqCH9eaMrtJm +2ONY8z9ZNxl0j1lstfvYG8hqPC8sGCeD/FNtZb8vN4J26Nd3PcUyeNVgfHpb +xUuoE3dq2tIjg0Is+q43AXXgOXN7ixMfE1+TszcJVjWsDZJ6MkcwcYlGdWqy +XCUkD4cb8+swkR7vo7P5finoppTY8bkzseB40GdddiF0bPkQ4hvPxDc5s+5y +3/PB3M6oU7WIiRm3DhmGbMsFjoTJsxbKU6o3+dxX5UJxnXnm6WIm2rQ9LHX+ +nQOSW094JZUwcWb2wfrrTTnw9svZlTNlTAx4crMryysHNENTtR48Y+InmZ+c +51UPQClrpGRtAxPz6G+CYx2yQXTiYvJsDxNzaCQs5WZBclT7iZBeJhocElu+ ++HUWMOR3yK/sY2Loh92MFRVZsNeT+0K2n4lZbtelNZKywO7HgRlLLhM9hNyD +NIyyoEBA0LBmmIk08+wmTl0msDbGLY6ZYOKdewdjfhZlQJphppvsAhMLaVLq +ZEU6eM/mr6ymLPbn+r9VD9JB/+bTfPM/TBReLb7kVEo6/BxtnY7gI9BCudik +71w6sML5fXn8BI42WqVbKqeD6FPbwAJBArumGo3zyu9AwNZ1sfvFCaxzam90 +r78NNgIxj42YBAoZWByJXnQLYlMm93ApB0ukH3f+lAa1CoZPXQkCE5Lvq1u+ +SQNZa5GXESSBfpuWJXilpcF0UWRfnSyB0O73O0wlDcIdOYLKfxF4r863m+Z3 +E3JfBVvT9xBYMDhWweNLhblYb6FpLQLzOqzfe2gmQ9fGtFp/bQLHY2vWr9mV +DMUPXvgL6RDIXqfS+e/GZPCsWz1N0yXQbKqrwGE2CSa+l/Yc0SfQdefXT8cy +k2DAZj7noRGB34MvPhNYlgQ1cpcMT5tT/bc7DCK6rsPVhqSEQScCSZ8lW1Zk +JECJhZeMnzOBphqutP64BBiaMHyy0oXAO/q/EisDE2Cf+NJWdVcCbytrNOVa +JsB7c2+JNHcCqwZat2pIJoDauFGcuTeBqorWrw5z4mFSRDimxZ9AGzn7CJML +cXDU+GJEXSyBtO+vfONWx0BXW87C0TgCfQ2V1FV+RYMNq9eTS1mo493fc9xo +cDJXsfwZT6Do9tqg8uxoCLP9sV3hOvWfNTesNNWjodTZ+3XqDQKlB9rv+zhH +AS3MRcwrncAcCU/Vf9sjYarQKpFeSGBYZFLe7xEO1KrCYDll3zD70E9NHEis +oW87XkSgpKL6zrFiDqi9Ham8VEzg/SvKzTsucyBi3OPDeCmBNUpqShWyHGAy +wpWKKwmsWFyj2ux+GcxiHrbovqTef/1B/7zIJag+vSDq3UPgInuRj8zQUMCP +2VHCvQRuE5vmWHqEQhXbZMUdyk+PH9W+ax0Kz2xzhZr6CLQtaBg5uS8Uyk0s +BGS5BI5tfrqmeDIEnhwonusdJjBmyXUJH5sQyJR2e6/BI/BynEaOpG4wXPmn +v2wVH4me84PBPWkBwN7Tv+E25U9Fj9iLQwJA/W5foNwiEp8ZaTsecgiArxd7 +Dx/mJ7Fbqj5AVD4AbBS6m30ESJwysR2oqvaHXUlto93LSBRz86yPGr8IPexG +6dviJBppeq7WNLoA2/nKzsnJkMjKqZTTsfCDY57OBXWU63vGzy076Afn328c +t2KSeLw3nDew1Q8aGkKsoggSX0nfm3075wsOcfowuYXE4PqX+i9TfOE2Y1Ag +X45EdoQCe3zQB6QOC8Yq7iHRYyyQe8n/LPy5YpKlokPiyFMVr7EZTwgZt6xt +oJxHpPluGvIEAQP7QZYuiZVdbYn2bz1BWMx9nZceiS9ceJPrHnqCZCInOseA +RO8l8hxdR0/Yll7hs+EYiZfFXa/dGDgDrHK61oIFNS/+cHdKlwc8HON9rHYh +0SJWvaR50hX6DlYqG7iSOLZCykC41RWEU69GdlHukfDptCxxhVN62+U/u5Go +l9firRPkCozcUz4bzpD48JB7iP4qV0h0HRbwPUuigk9ZOlfNBYKmuuhyASRG +RQ6J52Q4QZ72fa8Sys25Dmo9kU7Qf9v3xcFAEkV5y9s2ezmBytHVp82DSJRa +en+Wd8AJZh8b518Koe6HzX9JGDwNTl5N6u8ukbhpvT58o58G42+1lokxVN4t +MaXxhY7QZKwZ+lcsicryh3ZG3HQE3ccND+oo/+62NL0R5gjo8npuOo7E4fDs +YwvHHWHHUEfSkWsk3ii8lzL4zQGEmkZbl90gcft2Y9aMugM8z1ypfyGdxPDW +Ts5TLhtUFsd7SdwlsUX++XTgKzYU20mmZlNOnYo6aVbEhtz10mOdGSQm9K1Z +rR3JhpQ4BkfpHon5jjv9aPvYcNZ/dx0vh8R/PFWZGddPwHYTy/12RSRW2Dwq +P2NrD/zpO7V5lDsMOky/GNhD16Tg8fPFJOaaOe4N3m8PlziFztdKSBSwrAlt +lraHoQqR1IYyEpf691buav8bkhlVcwrPSDwx/OHguOHfIDDFLFn0kprHjj7e +amAHvft/1URTdidTBFDdDgquNDetbyCRMDVTq9hhB7YyASO7/yFR8Ndjyf6V +dlDO6pRyaqTyOG3OvZFpCx6VV7xb3pDYaa5+MKPYBvojJnfe7SLxnV7M5G6e +FbipbMzEbhLfXiEUdZqsYGFUb+0A5dnegaaLj6xgk072wtpeypHyVw55WoGN +ILsxup9Ep8bDAcfmLGEwtJt9fojE0PofPvoiljB8sS7p6ASJ5wSjFbl65uAt +NyP8mfLHJXttqxTMQaCPHnCVR+KAq7jgMylzYKoGsl9Oknh0baKp6KAZsOeU +d6p9ITGwOqnzz1kzGDn76JXsNyoPj8xIkXum4EMMqNVTjjsQw8iOMoWl7Sse +n/hOopyjiJettylsUXJKuvWD8rs3resPmsKpaSZb8heJOjfO/O/tAAt+3DHu +fExZukRLBOpZwDkaonvkN4ncr27WLx+y4H4+VyFinsQLB+dVCH8W7LMTzdiy +QCKj6lXCTzYLGlaqrXlB2Xl58clRfRaYPXeOsP9D7YNsQeIXJRaMuqXM/6GM +5xpXrNrIgv8DmXIjig== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.9154170213232795}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.5}, {0., 0.9154170213232795}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.992490450578113*^9, + 3.992490467990189*^9}}, + CellLabel->"Out[25]=",ExpressionUUID->"932bc8f4-5735-4d23-a89c-82166d7b2280"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ +\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\ +\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 0.8332573817712089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.235, $CellContext`xmax$$ = + 11.52, $CellContext`xmin$$ = 8., $CellContext`ymax$$ = + 0.903, $CellContext`yyv$$ = 2.34, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {106.49546827361407`, 112.12046827361407`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {195.41109327361409`, 201.03609327361409`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l11\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[4.000000000000009`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[4.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[4, 11], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"4\\\", \\\",\\\", \\\"11\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.07`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 5, 5, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992489848358252*^9}, + CellLabel->"",ExpressionUUID->"7c4a07a9-e9c6-41a6-b104-66776e55e201"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992490681423608*^9, 3.9924906823127747`*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzHs0lAkYBvDJFEnYbbIk2m/GjE83rYO5sHlfcjsJpWTVVFKkTWRC5ZLS +EImVcktsNVi5Ls26JHZGQqWxYZRalVS0paFQLmmnP97znN95zvPSfYM9/FQo +FIqr8r6lPrdBGQRGrNabfpMlh84T07LLSkfHiqTlqXI4c4eXYzuHQFOLcFpY +ghymtlWbn1IhcK5pAV/1qBx6oyv2qs4jcLyxP8/aSw5Zt660LFxA4Etzadmo +jhx03OPPLFlMoE3ovWVpF7rhO3/3ReYmBO5Us6rrzOiCvXGNTa2bCbRqpMdp +JD6AKTWB4bEoAmV+yS5FUR1wWuD048585d5asiOf2w4hsklpfgeB/YfLxywn +2iAveURr/mcCYwUZHg5rWsDEpnmm3YiOPvyh3jlht6Cop+7cbTc6ntW3j8rU +lMKBzo//PA6nY4/TVEGsTiMk/b2gctNVOnLnizXTzW7Ae21/61d3lX1VDDX1 +czU4OQ8Eln6go+LgMUX9cjHMhqwFuSEDfZ3F7gHHKuHT7JN6fUcGpg7aWuQk +loNbtFevNISBa/N0Uwy8iyFnYCz30iUGOrSovLjeXAgrynoWXmhm4JXsSqHK +YxHoBqQbDCsY+NzZb9pA7wo4xmf1+OoZYXh+qUxUnQtd6UfNrOyNcFLitzT7 +ZDZsTY4wdwg2Qn/pNhXf0XRYOiR5FphphEtUPRsE2ufBxuLlqokm5Z5Osxdv +SwXRgAvz0lsjHEgTvgj1OgtfI+RNYTQmkhDY91deAtRSf1aptGGiduDDsgwi +DsSK12/n72NiQZM3fHSPBc37QeFNaUz84V6M+ip+DPDT9IoqGpj47BDLKvBd +BLy/oSqse8XE36N7MNn7CPR1P6CwvmfhXdfziiNzQkHbo58s47FwqNQb+jaG +AKdm0UTAbqW163P6tYKgQZPuF3+WhZHyG826LfshrvXwcYmYhdRFXdu7NvtD +iUDE5T9noUk2dVy+dA/QTurmLlY3xqGZmfr2OB8IOVJWRDEzxhGLoOsuf/Bh +9S7C041vjHyBfKQ96RdYWfywpFZojMOS47qVNp5w+vUBkfBPY3SIE4ymrPCA +3gUMO+ETY2y1L6xoI90hKM0g6TKVxIwphT5zdj34aIyFLltD4mSiYvkDfSdI +H9RWr/MiMUj96Y6t0+tAUuJqfzqGRPWwjWqnttiC8+4AoqaYxLnzMmwVVWuB +FtFaSO0isc1unGldzYP1++hZNUoPH6redL2AB7FbIhMPdJP4MNJwGTudByOm +awK75CQ6V2VGbA/lgWwgw0z0iET72vVCpjkPElz9b9o9Vf7vcJ+8VsWFGWJe +58k3JD4KbrDZUscBc61dtyz/I1EWXhVJK+bAr9O14jdK18zYxf97kQO98sDM +Te9I1AnXeJsUxYHqM918uoJEQ4f363YhB0LGRIOSMRI/Ndfe7rzDhqL+L49C +x0mU3hSNrqxnw3OZ112TCRIpjRsSUkrZ4HZNoyz1E4kfHEv6gn9jw6qdhwU+ +UyTuVrM4cdWTDXtc7u9ZPE2id2ayt6MTGy5ySc82pfW3lh/8yGWDOu0J56cv +JA42p5nuN2ADUiyXv1Q6rzC+w0yLDUeHU/SzZkk01bl6nkphQ8XjIY0NX0ns +yFUNezpqCa9b7b58VdriXO/BpgFL+B9ZICtn + "]]}, + 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:eJwVzHs0lAkYBvDJFEnYbbIk2m/GjE83rYO5sHlfcjsJpWTVVFKkTWRC5ZLS +EImVcktsNVi5Ls26JHZGQqWxYZRalVS0paFQLmmnP97znN95zvPSfYM9/FQo +FIqr8r6lPrdBGQRGrNabfpMlh84T07LLSkfHiqTlqXI4c4eXYzuHQFOLcFpY +ghymtlWbn1IhcK5pAV/1qBx6oyv2qs4jcLyxP8/aSw5Zt660LFxA4Etzadmo +jhx03OPPLFlMoE3ovWVpF7rhO3/3ReYmBO5Us6rrzOiCvXGNTa2bCbRqpMdp +JD6AKTWB4bEoAmV+yS5FUR1wWuD048585d5asiOf2w4hsklpfgeB/YfLxywn +2iAveURr/mcCYwUZHg5rWsDEpnmm3YiOPvyh3jlht6Cop+7cbTc6ntW3j8rU +lMKBzo//PA6nY4/TVEGsTiMk/b2gctNVOnLnizXTzW7Ae21/61d3lX1VDDX1 +czU4OQ8Eln6go+LgMUX9cjHMhqwFuSEDfZ3F7gHHKuHT7JN6fUcGpg7aWuQk +loNbtFevNISBa/N0Uwy8iyFnYCz30iUGOrSovLjeXAgrynoWXmhm4JXsSqHK +YxHoBqQbDCsY+NzZb9pA7wo4xmf1+OoZYXh+qUxUnQtd6UfNrOyNcFLitzT7 +ZDZsTY4wdwg2Qn/pNhXf0XRYOiR5FphphEtUPRsE2ufBxuLlqokm5Z5Osxdv +SwXRgAvz0lsjHEgTvgj1OgtfI+RNYTQmkhDY91deAtRSf1aptGGiduDDsgwi +DsSK12/n72NiQZM3fHSPBc37QeFNaUz84V6M+ip+DPDT9IoqGpj47BDLKvBd +BLy/oSqse8XE36N7MNn7CPR1P6CwvmfhXdfziiNzQkHbo58s47FwqNQb+jaG +AKdm0UTAbqW163P6tYKgQZPuF3+WhZHyG826LfshrvXwcYmYhdRFXdu7NvtD +iUDE5T9noUk2dVy+dA/QTurmLlY3xqGZmfr2OB8IOVJWRDEzxhGLoOsuf/Bh +9S7C041vjHyBfKQ96RdYWfywpFZojMOS47qVNp5w+vUBkfBPY3SIE4ymrPCA +3gUMO+ETY2y1L6xoI90hKM0g6TKVxIwphT5zdj34aIyFLltD4mSiYvkDfSdI +H9RWr/MiMUj96Y6t0+tAUuJqfzqGRPWwjWqnttiC8+4AoqaYxLnzMmwVVWuB +FtFaSO0isc1unGldzYP1++hZNUoPH6redL2AB7FbIhMPdJP4MNJwGTudByOm +awK75CQ6V2VGbA/lgWwgw0z0iET72vVCpjkPElz9b9o9Vf7vcJ+8VsWFGWJe +58k3JD4KbrDZUscBc61dtyz/I1EWXhVJK+bAr9O14jdK18zYxf97kQO98sDM +Te9I1AnXeJsUxYHqM918uoJEQ4f363YhB0LGRIOSMRI/Ndfe7rzDhqL+L49C +x0mU3hSNrqxnw3OZ112TCRIpjRsSUkrZ4HZNoyz1E4kfHEv6gn9jw6qdhwU+ +UyTuVrM4cdWTDXtc7u9ZPE2id2ayt6MTGy5ySc82pfW3lh/8yGWDOu0J56cv +JA42p5nuN2ADUiyXv1Q6rzC+w0yLDUeHU/SzZkk01bl6nkphQ8XjIY0NX0ns +yFUNezpqCa9b7b58VdriXO/BpgFL+B9ZICtn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.33745812912885464`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.33745812912885464`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzHs0lAkYBvDJFEnYbbIk2m/GjE83rYO5sHlfcjsJpWTVVFKkTWRC5ZLS +EImVcktsNVi5Ls26JHZGQqWxYZRalVS0paFQLmmnP97znN95zvPSfYM9/FQo +FIqr8r6lPrdBGQRGrNabfpMlh84T07LLSkfHiqTlqXI4c4eXYzuHQFOLcFpY +ghymtlWbn1IhcK5pAV/1qBx6oyv2qs4jcLyxP8/aSw5Zt660LFxA4Etzadmo +jhx03OPPLFlMoE3ovWVpF7rhO3/3ReYmBO5Us6rrzOiCvXGNTa2bCbRqpMdp +JD6AKTWB4bEoAmV+yS5FUR1wWuD048585d5asiOf2w4hsklpfgeB/YfLxywn +2iAveURr/mcCYwUZHg5rWsDEpnmm3YiOPvyh3jlht6Cop+7cbTc6ntW3j8rU +lMKBzo//PA6nY4/TVEGsTiMk/b2gctNVOnLnizXTzW7Ae21/61d3lX1VDDX1 +czU4OQ8Eln6go+LgMUX9cjHMhqwFuSEDfZ3F7gHHKuHT7JN6fUcGpg7aWuQk +loNbtFevNISBa/N0Uwy8iyFnYCz30iUGOrSovLjeXAgrynoWXmhm4JXsSqHK +YxHoBqQbDCsY+NzZb9pA7wo4xmf1+OoZYXh+qUxUnQtd6UfNrOyNcFLitzT7 +ZDZsTY4wdwg2Qn/pNhXf0XRYOiR5FphphEtUPRsE2ufBxuLlqokm5Z5Osxdv +SwXRgAvz0lsjHEgTvgj1OgtfI+RNYTQmkhDY91deAtRSf1aptGGiduDDsgwi +DsSK12/n72NiQZM3fHSPBc37QeFNaUz84V6M+ip+DPDT9IoqGpj47BDLKvBd +BLy/oSqse8XE36N7MNn7CPR1P6CwvmfhXdfziiNzQkHbo58s47FwqNQb+jaG +AKdm0UTAbqW163P6tYKgQZPuF3+WhZHyG826LfshrvXwcYmYhdRFXdu7NvtD +iUDE5T9noUk2dVy+dA/QTurmLlY3xqGZmfr2OB8IOVJWRDEzxhGLoOsuf/Bh +9S7C041vjHyBfKQ96RdYWfywpFZojMOS47qVNp5w+vUBkfBPY3SIE4ymrPCA +3gUMO+ETY2y1L6xoI90hKM0g6TKVxIwphT5zdj34aIyFLltD4mSiYvkDfSdI +H9RWr/MiMUj96Y6t0+tAUuJqfzqGRPWwjWqnttiC8+4AoqaYxLnzMmwVVWuB +FtFaSO0isc1unGldzYP1++hZNUoPH6redL2AB7FbIhMPdJP4MNJwGTudByOm +awK75CQ6V2VGbA/lgWwgw0z0iET72vVCpjkPElz9b9o9Vf7vcJ+8VsWFGWJe +58k3JD4KbrDZUscBc61dtyz/I1EWXhVJK+bAr9O14jdK18zYxf97kQO98sDM +Te9I1AnXeJsUxYHqM918uoJEQ4f363YhB0LGRIOSMRI/Ndfe7rzDhqL+L49C +x0mU3hSNrqxnw3OZ112TCRIpjRsSUkrZ4HZNoyz1E4kfHEv6gn9jw6qdhwU+ +UyTuVrM4cdWTDXtc7u9ZPE2id2ayt6MTGy5ySc82pfW3lh/8yGWDOu0J56cv +JA42p5nuN2ADUiyXv1Q6rzC+w0yLDUeHU/SzZkk01bl6nkphQ8XjIY0NX0ns +yFUNezpqCa9b7b58VdriXO/BpgFL+B9ZICtn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.33745812912885464`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.33745812912885464`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.992490678481496*^9, + 3.9924906828219557`*^9}}, + CellLabel->"Out[27]=",ExpressionUUID->"18e847be-2a32-4c60-965e-bdb45e566e0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.9924906901866837`*^9, 3.9924906943292103`*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.11715219691304858`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.15196830163658082`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.11715219691304858`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.15196830163658082`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.731135383246491`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"1.161914161791272`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"39\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.11715219691304858`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.15196830163658082`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\" \\\", SuperscriptBox[\\\ +\"R2\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\ +\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.11715219691304858`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.15196830163658082`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.731135383246491`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"1.7712345107890794`*^9\\\", \\\ +\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}]}], \\\",\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of numbers with \ +dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 28, 1, 25981787676918171289, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9924906954198914`*^9}, + CellLabel-> + "During evaluation of \ +In[28]:=",ExpressionUUID->"74c7b39d-17d0-4330-b3c8-7564c57c191f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "2.1574527885444974`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6469178601287684`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992490695476355*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"acdfe2e4-9f43-45a2-8d7a-a87af52c7032"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "2.157"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.992490699682392*^9, + 3.9924907036804867`*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["2.157`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.992490704773671*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"56cbbf9a-c570-4711-bd89-1bc366b3d74a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.647"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.9924907064991283`*^9, + 3.992490711525877*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.647`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9, + 3.992490713483798*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"b6683b06-7369-4a3e-847d-04e2029151e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[31]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFlHs41Xccx61aIpMpt63Sufx+53yf5plLtDQ+H5o6Za5RURjFk+MWjVjH +eNiOMzk7CVstO2ctRbnsROU25Bbl0pM4aCoicmQbUS4Hs7/64/28n/df79fz +/uPNCIhwD1yhpqbmsKz/nSEMXammtgU/Vdhd/PFZE2TBoALM3+V19rGT4pUM +/K5Op6WgqgHUbxToaloxMK1H627Q41q46TS9804oA8tkovnxA9Xg+SX3Tczv +DNS/XnNisqccNJpMv0/vZOBAwVxHG96GqAinTcOaTBzRDLk8NFoMf2dAqtSG +iRe8d+WZgBx8P9ooOhjBxMyYFJPqhXxIbteS7LvCxL8EGZ2kPRcqFzv4l7qZ +iFE3m/+IyYG8I4Uu5tosNNvZtWbW5xKINkY11u9ioWfTqMTv7K8gOKSlUx7N +QmFKnI084gJQdRVHX+azsKZxQOVxMQsGcm3TTj9lYXZ+mV+++By4VyqqeHps +/KVOFL8/WgK3Tb0S9R3Z2L5Z+IW8JhVMmDcMePFsNOwLrdVaFIKX3aaykhI2 +znMtt9skJ8P5Pl+T5GE2dlvMT/9QlQgtvakW+w0pjDaSnfB+IICSVS32Ps4U +BkhVUa/iYqEov59uSaSwfLJ3LOv9aPBN1NxwspTC158ZCMMeRcKK0s3nPh6n +0FLsOHPGPRzKg9e84BjTqPB7EBymywdq32q7cE8aPYf0lR8wgyDnam+koYjG +9FdWzkWLAWAQ+LNFfTmNt6YC1Zu8vgJwC17M/YfGqOrQ+x33D8M35TrSfxkc +DBlRH3jbfxD4Lq27Tx7i4JOaA9Kf7DwgzN+nwesMB/nX2trX+7nB0a6eDqzi +oMTLJTX2uRNonzqu9H/Nwdvdg2vt/PdCa2abYpjiYmx93D3X+w4A/btbrxzh +4oBS4CKLtYer4uvugee4WCqrn+o/DrCldLBQ1MDF5+aeN0RL1uCibaY7PMfF +bIHu0OlRK0gf2O+Ya0LQIaa5cW+eBTTp++sF+xHU8JheFas0heK4pJfHsgg2 +NwZlSao/AfmhuLMNTQQrWhN1UuRceBaXoVpaIpi2LTOhtosNvGDh7ueDBDl6 +wjPbi2hQ9SeEPOoiyC+cKlZe40DmRBpjYoKgNatNPPsnBYps1UJLO0FvExGv +cysXwgs1bo4qCeqOBb113UZDhaWOZGaG4JuS82IWj4L6Oes9vBaCrkmnMh6F +ceHwWt5C4AhB+9+o+IkTNORmOPd8PU2w7ph8ByRR0Nr90EGgIpggHuvL0aag +gjwOEd5b5sswLNSXcMHdeoSR84LgkrlxaYKEBmnduKr4NUGG8u5JkWy5b3Uk +v2KO4HqjSLnr1mXePHOG7SLBDRLy1HiSDZa15NsrzQT3mFea3ZNxoe2h1bb6 +IYJ0vICvkNJg5G2zrmOSoIwOfu/zIgpspXcEvbMEn4wnWN/aQYEbJln4LBAs +2G4j9FGjwPvDQW3j5T0vTxo/HRtkwxP3hSpR57u/+A9zG/9S + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{69, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 63, 58, 54, 51, + 49, 48, 64, 59, 55, 52, 50, 65, 60, 56, 53, 66, 61, 57, 67, 62, 68, + 47}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSnNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5XTQzkA0ikGZQ== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFlHs41Xccx61aIpMpt63Sufx+53yf5plLtDQ+H5o6Za5RURjFk+MWjVjH +eNiOMzk7CVstO2ctRbnsROU25Bbl0pM4aCoicmQbUS4Hs7/64/28n/df79fz +/uPNCIhwD1yhpqbmsKz/nSEMXammtgU/Vdhd/PFZE2TBoALM3+V19rGT4pUM +/K5Op6WgqgHUbxToaloxMK1H627Q41q46TS9804oA8tkovnxA9Xg+SX3Tczv +DNS/XnNisqccNJpMv0/vZOBAwVxHG96GqAinTcOaTBzRDLk8NFoMf2dAqtSG +iRe8d+WZgBx8P9ooOhjBxMyYFJPqhXxIbteS7LvCxL8EGZ2kPRcqFzv4l7qZ +iFE3m/+IyYG8I4Uu5tosNNvZtWbW5xKINkY11u9ioWfTqMTv7K8gOKSlUx7N +QmFKnI084gJQdRVHX+azsKZxQOVxMQsGcm3TTj9lYXZ+mV+++By4VyqqeHps +/KVOFL8/WgK3Tb0S9R3Z2L5Z+IW8JhVMmDcMePFsNOwLrdVaFIKX3aaykhI2 +znMtt9skJ8P5Pl+T5GE2dlvMT/9QlQgtvakW+w0pjDaSnfB+IICSVS32Ps4U +BkhVUa/iYqEov59uSaSwfLJ3LOv9aPBN1NxwspTC158ZCMMeRcKK0s3nPh6n +0FLsOHPGPRzKg9e84BjTqPB7EBymywdq32q7cE8aPYf0lR8wgyDnam+koYjG +9FdWzkWLAWAQ+LNFfTmNt6YC1Zu8vgJwC17M/YfGqOrQ+x33D8M35TrSfxkc +DBlRH3jbfxD4Lq27Tx7i4JOaA9Kf7DwgzN+nwesMB/nX2trX+7nB0a6eDqzi +oMTLJTX2uRNonzqu9H/Nwdvdg2vt/PdCa2abYpjiYmx93D3X+w4A/btbrxzh +4oBS4CKLtYer4uvugee4WCqrn+o/DrCldLBQ1MDF5+aeN0RL1uCibaY7PMfF +bIHu0OlRK0gf2O+Ya0LQIaa5cW+eBTTp++sF+xHU8JheFas0heK4pJfHsgg2 +NwZlSao/AfmhuLMNTQQrWhN1UuRceBaXoVpaIpi2LTOhtosNvGDh7ueDBDl6 +wjPbi2hQ9SeEPOoiyC+cKlZe40DmRBpjYoKgNatNPPsnBYps1UJLO0FvExGv +cysXwgs1bo4qCeqOBb113UZDhaWOZGaG4JuS82IWj4L6Oes9vBaCrkmnMh6F +ceHwWt5C4AhB+9+o+IkTNORmOPd8PU2w7ph8ByRR0Nr90EGgIpggHuvL0aag +gjwOEd5b5sswLNSXcMHdeoSR84LgkrlxaYKEBmnduKr4NUGG8u5JkWy5b3Uk +v2KO4HqjSLnr1mXePHOG7SLBDRLy1HiSDZa15NsrzQT3mFea3ZNxoe2h1bb6 +IYJ0vICvkNJg5G2zrmOSoIwOfu/zIgpspXcEvbMEn4wnWN/aQYEbJln4LBAs +2G4j9FGjwPvDQW3j5T0vTxo/HRtkwxP3hSpR57u/+A9zG/9S + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{69, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 63, 58, + 54, 51, 49, 48, 64, 59, 55, 52, 50, 65, 60, 56, 53, 66, 61, 57, + 67, 62, 68, 47}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.18650991993824692`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVi2tUk3UcgMlMFAkJFbFU3OV99/6PcUKuieHvByZOTUEUBRQJFI4bIrfA +kSM4YHMha3IrTdsyUVAujYsgGCAMBB3gkcsA88JNkCEVNy84IPvwnOc8Hx5W +YJhn0DwDA4PN7/jfjz1nKqXta/EzrcuFH582wBJX0bjsfRaeqjXV5FXWgWFh +npmRAwtTuozvBD+sgZKdUxtvH2PhTaX07ei+KvD6inkZ8zsLza9Xh493lcOi +BuvvU9tZ2Js33dqMpRAZtnP1oBEbh4xCLg8MF8Hf6ZCscGbjed/NOVaggkMf +r5LuD2NjRsxpq6qZXEhqMZZvv8LGv8Tp7aQlG27NtgovdbIRI0sa/4jJgpyD ++e42Jhxcv7Fj4Ru/SyBdFVmv3sxBr4Zhuf/ZX0HsbWxaHs1ByelYZ1XYeaBq +Kw4/z+VgdX2vfu+FTOjN3pRy8gkHL+be9M+VpYHnLW0lfzkXf6mVxu2JlkOp +tU+C+Q4utqyRfKmqTgYrduEKfhwXLR4dqzGelYCPy+qbxcVcfMvYOzonJcG5 +R4eskga52Gn7duqHygTQdCfb7rGgMHqlMtz3vhiK52tc/XZRGKjQR76IFUFB +bg+tSaCwfLx7JPODaDiUYLQsqozCic9XSELbImBe2Zq0T0YptJfteH3G8ziU +CxY+41nSqPW/Lwg1EwK1fYHLcS8avQbMdR+ygyHraneEhZTG1BcOuwpmA2FF +0M+26nIab0wGGTb4fA2wWzCb/Q+NkVXH7rXeOwDflpsq/mXxMGTIsPdVz34Q +uje5RXnz8HH1PsVPLnshNMCvzucMD4XXmluW+u+Gwx1drVjJQ7mPe7KobyeY +nDiqC5jgYWln/2KXgG3QlNGsHaQYFKlj73rc2wLQ49Z05SCDvTqxu1LkCldl +1z2D0hgsU6one44CrC3rz5fWMdhn41UonXMCd5P1ZoPTDF4Umw2cHHaA1N49 +O7KtCG6JaazflmMLDeYBywX+BBftnZov0llDUWzi8yOZBBvrgzPlVZ+Cyjv2 +bF0DwYqmBNPTKgbsa8h3VxoJbrW5tf6ukoEK8jBEcpcgL90i31zOgHraaStf +Q9Aj8UR6WygD2ov6GU0LQV8rKb99HQP6nviQtg6CwvzJIt01HvAFEre+/nf/ +cskZxwIamh842KkHCNJxYqFWQYOn0xAr6xnBORvLsng5DQcW82eChgi6/kbF +jYXTcDx/UcmwjqDZSPArDzsaMsZSWGNjBJ04zbI3f1Kw0td5Ses4QSUteO+L +AgoUtaP6ogmCLN2dKKmSguz0XV3fTBGsPaLaAIkUVNibyl+/Jviy+JyMw6dg +k+K2uPsNwcej8U43NlCgXhAhrJgmuHRlhMpjHQVNnQ+2iPUE42Ujj7JMKNiN +ibZ+MwTzHJ0lfgYUaHNsWJtmCS6TkyeW41zw/ajfxHKO4OVxyycj/Vx4Gpuu +n3vXKXYZ8TUdXPgPiDXx1A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.18650991993824692`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVi2tUk3UcgMlMFAkJFbFU3OV99/6PcUKuieHvByZOTUEUBRQJFI4bIrfA +kSM4YHMha3IrTdsyUVAujYsgGCAMBB3gkcsA88JNkCEVNy84IPvwnOc8Hx5W +YJhn0DwDA4PN7/jfjz1nKqXta/EzrcuFH582wBJX0bjsfRaeqjXV5FXWgWFh +npmRAwtTuozvBD+sgZKdUxtvH2PhTaX07ei+KvD6inkZ8zsLza9Xh493lcOi +BuvvU9tZ2Js33dqMpRAZtnP1oBEbh4xCLg8MF8Hf6ZCscGbjed/NOVaggkMf +r5LuD2NjRsxpq6qZXEhqMZZvv8LGv8Tp7aQlG27NtgovdbIRI0sa/4jJgpyD ++e42Jhxcv7Fj4Ru/SyBdFVmv3sxBr4Zhuf/ZX0HsbWxaHs1ByelYZ1XYeaBq +Kw4/z+VgdX2vfu+FTOjN3pRy8gkHL+be9M+VpYHnLW0lfzkXf6mVxu2JlkOp +tU+C+Q4utqyRfKmqTgYrduEKfhwXLR4dqzGelYCPy+qbxcVcfMvYOzonJcG5 +R4eskga52Gn7duqHygTQdCfb7rGgMHqlMtz3vhiK52tc/XZRGKjQR76IFUFB +bg+tSaCwfLx7JPODaDiUYLQsqozCic9XSELbImBe2Zq0T0YptJfteH3G8ziU +CxY+41nSqPW/Lwg1EwK1fYHLcS8avQbMdR+ygyHraneEhZTG1BcOuwpmA2FF +0M+26nIab0wGGTb4fA2wWzCb/Q+NkVXH7rXeOwDflpsq/mXxMGTIsPdVz34Q +uje5RXnz8HH1PsVPLnshNMCvzucMD4XXmluW+u+Gwx1drVjJQ7mPe7KobyeY +nDiqC5jgYWln/2KXgG3QlNGsHaQYFKlj73rc2wLQ49Z05SCDvTqxu1LkCldl +1z2D0hgsU6one44CrC3rz5fWMdhn41UonXMCd5P1ZoPTDF4Umw2cHHaA1N49 +O7KtCG6JaazflmMLDeYBywX+BBftnZov0llDUWzi8yOZBBvrgzPlVZ+Cyjv2 +bF0DwYqmBNPTKgbsa8h3VxoJbrW5tf6ukoEK8jBEcpcgL90i31zOgHraaStf +Q9Aj8UR6WygD2ov6GU0LQV8rKb99HQP6nviQtg6CwvzJIt01HvAFEre+/nf/ +cskZxwIamh842KkHCNJxYqFWQYOn0xAr6xnBORvLsng5DQcW82eChgi6/kbF +jYXTcDx/UcmwjqDZSPArDzsaMsZSWGNjBJ04zbI3f1Kw0td5Ses4QSUteO+L +AgoUtaP6ogmCLN2dKKmSguz0XV3fTBGsPaLaAIkUVNibyl+/Jviy+JyMw6dg +k+K2uPsNwcej8U43NlCgXhAhrJgmuHRlhMpjHQVNnQ+2iPUE42Ujj7JMKNiN +ibZ+MwTzHJ0lfgYUaHNsWJtmCS6TkyeW41zw/ajfxHKO4OVxyycj/Vx4Gpuu +n3vXKXYZ8TUdXPgPiDXx1A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFlHs41Xccx61aIpMpt63Sufx+53yf5plLtDQ+H5o6Za5RURjFk+MWjVjH +eNiOMzk7CVstO2ctRbnsROU25Bbl0pM4aCoicmQbUS4Hs7/64/28n/df79fz +/uPNCIhwD1yhpqbmsKz/nSEMXammtgU/Vdhd/PFZE2TBoALM3+V19rGT4pUM +/K5Op6WgqgHUbxToaloxMK1H627Q41q46TS9804oA8tkovnxA9Xg+SX3Tczv +DNS/XnNisqccNJpMv0/vZOBAwVxHG96GqAinTcOaTBzRDLk8NFoMf2dAqtSG +iRe8d+WZgBx8P9ooOhjBxMyYFJPqhXxIbteS7LvCxL8EGZ2kPRcqFzv4l7qZ +iFE3m/+IyYG8I4Uu5tosNNvZtWbW5xKINkY11u9ioWfTqMTv7K8gOKSlUx7N +QmFKnI084gJQdRVHX+azsKZxQOVxMQsGcm3TTj9lYXZ+mV+++By4VyqqeHps +/KVOFL8/WgK3Tb0S9R3Z2L5Z+IW8JhVMmDcMePFsNOwLrdVaFIKX3aaykhI2 +znMtt9skJ8P5Pl+T5GE2dlvMT/9QlQgtvakW+w0pjDaSnfB+IICSVS32Ps4U +BkhVUa/iYqEov59uSaSwfLJ3LOv9aPBN1NxwspTC158ZCMMeRcKK0s3nPh6n +0FLsOHPGPRzKg9e84BjTqPB7EBymywdq32q7cE8aPYf0lR8wgyDnam+koYjG +9FdWzkWLAWAQ+LNFfTmNt6YC1Zu8vgJwC17M/YfGqOrQ+x33D8M35TrSfxkc +DBlRH3jbfxD4Lq27Tx7i4JOaA9Kf7DwgzN+nwesMB/nX2trX+7nB0a6eDqzi +oMTLJTX2uRNonzqu9H/Nwdvdg2vt/PdCa2abYpjiYmx93D3X+w4A/btbrxzh +4oBS4CKLtYer4uvugee4WCqrn+o/DrCldLBQ1MDF5+aeN0RL1uCibaY7PMfF +bIHu0OlRK0gf2O+Ya0LQIaa5cW+eBTTp++sF+xHU8JheFas0heK4pJfHsgg2 +NwZlSao/AfmhuLMNTQQrWhN1UuRceBaXoVpaIpi2LTOhtosNvGDh7ueDBDl6 +wjPbi2hQ9SeEPOoiyC+cKlZe40DmRBpjYoKgNatNPPsnBYps1UJLO0FvExGv +cysXwgs1bo4qCeqOBb113UZDhaWOZGaG4JuS82IWj4L6Oes9vBaCrkmnMh6F +ceHwWt5C4AhB+9+o+IkTNORmOPd8PU2w7ph8ByRR0Nr90EGgIpggHuvL0aag +gjwOEd5b5sswLNSXcMHdeoSR84LgkrlxaYKEBmnduKr4NUGG8u5JkWy5b3Uk +v2KO4HqjSLnr1mXePHOG7SLBDRLy1HiSDZa15NsrzQT3mFea3ZNxoe2h1bb6 +IYJ0vICvkNJg5G2zrmOSoIwOfu/zIgpspXcEvbMEn4wnWN/aQYEbJln4LBAs +2G4j9FGjwPvDQW3j5T0vTxo/HRtkwxP3hSpR57u/+A9zG/9S + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{69, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, + 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 63, 58, 54, 51, 49, + 48, 64, 59, 55, 52, 50, 65, 60, 56, 53, 66, 61, 57, 67, 62, 68, + 47}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.18650991993824692`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVi2tUk3UcgMlMFAkJFbFU3OV99/6PcUKuieHvByZOTUEUBRQJFI4bIrfA +kSM4YHMha3IrTdsyUVAujYsgGCAMBB3gkcsA88JNkCEVNy84IPvwnOc8Hx5W +YJhn0DwDA4PN7/jfjz1nKqXta/EzrcuFH582wBJX0bjsfRaeqjXV5FXWgWFh +npmRAwtTuozvBD+sgZKdUxtvH2PhTaX07ei+KvD6inkZ8zsLza9Xh493lcOi +BuvvU9tZ2Js33dqMpRAZtnP1oBEbh4xCLg8MF8Hf6ZCscGbjed/NOVaggkMf +r5LuD2NjRsxpq6qZXEhqMZZvv8LGv8Tp7aQlG27NtgovdbIRI0sa/4jJgpyD ++e42Jhxcv7Fj4Ru/SyBdFVmv3sxBr4Zhuf/ZX0HsbWxaHs1ByelYZ1XYeaBq +Kw4/z+VgdX2vfu+FTOjN3pRy8gkHL+be9M+VpYHnLW0lfzkXf6mVxu2JlkOp +tU+C+Q4utqyRfKmqTgYrduEKfhwXLR4dqzGelYCPy+qbxcVcfMvYOzonJcG5 +R4eskga52Gn7duqHygTQdCfb7rGgMHqlMtz3vhiK52tc/XZRGKjQR76IFUFB +bg+tSaCwfLx7JPODaDiUYLQsqozCic9XSELbImBe2Zq0T0YptJfteH3G8ziU +CxY+41nSqPW/Lwg1EwK1fYHLcS8avQbMdR+ygyHraneEhZTG1BcOuwpmA2FF +0M+26nIab0wGGTb4fA2wWzCb/Q+NkVXH7rXeOwDflpsq/mXxMGTIsPdVz34Q +uje5RXnz8HH1PsVPLnshNMCvzucMD4XXmluW+u+Gwx1drVjJQ7mPe7KobyeY +nDiqC5jgYWln/2KXgG3QlNGsHaQYFKlj73rc2wLQ49Z05SCDvTqxu1LkCldl +1z2D0hgsU6one44CrC3rz5fWMdhn41UonXMCd5P1ZoPTDF4Umw2cHHaA1N49 +O7KtCG6JaazflmMLDeYBywX+BBftnZov0llDUWzi8yOZBBvrgzPlVZ+Cyjv2 +bF0DwYqmBNPTKgbsa8h3VxoJbrW5tf6ukoEK8jBEcpcgL90i31zOgHraaStf +Q9Aj8UR6WygD2ov6GU0LQV8rKb99HQP6nviQtg6CwvzJIt01HvAFEre+/nf/ +cskZxwIamh842KkHCNJxYqFWQYOn0xAr6xnBORvLsng5DQcW82eChgi6/kbF +jYXTcDx/UcmwjqDZSPArDzsaMsZSWGNjBJ04zbI3f1Kw0td5Ses4QSUteO+L +AgoUtaP6ogmCLN2dKKmSguz0XV3fTBGsPaLaAIkUVNibyl+/Jviy+JyMw6dg +k+K2uPsNwcej8U43NlCgXhAhrJgmuHRlhMpjHQVNnQ+2iPUE42Ujj7JMKNiN +ibZ+MwTzHJ0lfgYUaHNsWJtmCS6TkyeW41zw/ajfxHKO4OVxyycj/Vx4Gpuu +n3vXKXYZ8TUdXPgPiDXx1A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.18650991993824692`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964359553013*^9, 3.9919653448206234`*^9, + 3.9924907178034687`*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"ee4e144a-3634-48b6-b518-ae6c6ee69509"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[32]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzHs0lAkYBvDJFEnYbbIk2m/GjE83rYO5sHlfcjsJpWTVVFKkTWRC5ZLS +EImVcktsNVi5Ls26JHZGQqWxYZRalVS0paFQLmmnP97znN95zvPSfYM9/FQo +FIqr8r6lPrdBGQRGrNabfpMlh84T07LLSkfHiqTlqXI4c4eXYzuHQFOLcFpY +ghymtlWbn1IhcK5pAV/1qBx6oyv2qs4jcLyxP8/aSw5Zt660LFxA4Etzadmo +jhx03OPPLFlMoE3ovWVpF7rhO3/3ReYmBO5Us6rrzOiCvXGNTa2bCbRqpMdp +JD6AKTWB4bEoAmV+yS5FUR1wWuD048585d5asiOf2w4hsklpfgeB/YfLxywn +2iAveURr/mcCYwUZHg5rWsDEpnmm3YiOPvyh3jlht6Cop+7cbTc6ntW3j8rU +lMKBzo//PA6nY4/TVEGsTiMk/b2gctNVOnLnizXTzW7Ae21/61d3lX1VDDX1 +czU4OQ8Eln6go+LgMUX9cjHMhqwFuSEDfZ3F7gHHKuHT7JN6fUcGpg7aWuQk +loNbtFevNISBa/N0Uwy8iyFnYCz30iUGOrSovLjeXAgrynoWXmhm4JXsSqHK +YxHoBqQbDCsY+NzZb9pA7wo4xmf1+OoZYXh+qUxUnQtd6UfNrOyNcFLitzT7 +ZDZsTY4wdwg2Qn/pNhXf0XRYOiR5FphphEtUPRsE2ufBxuLlqokm5Z5Osxdv +SwXRgAvz0lsjHEgTvgj1OgtfI+RNYTQmkhDY91deAtRSf1aptGGiduDDsgwi +DsSK12/n72NiQZM3fHSPBc37QeFNaUz84V6M+ip+DPDT9IoqGpj47BDLKvBd +BLy/oSqse8XE36N7MNn7CPR1P6CwvmfhXdfziiNzQkHbo58s47FwqNQb+jaG +AKdm0UTAbqW163P6tYKgQZPuF3+WhZHyG826LfshrvXwcYmYhdRFXdu7NvtD +iUDE5T9noUk2dVy+dA/QTurmLlY3xqGZmfr2OB8IOVJWRDEzxhGLoOsuf/Bh +9S7C041vjHyBfKQ96RdYWfywpFZojMOS47qVNp5w+vUBkfBPY3SIE4ymrPCA +3gUMO+ETY2y1L6xoI90hKM0g6TKVxIwphT5zdj34aIyFLltD4mSiYvkDfSdI +H9RWr/MiMUj96Y6t0+tAUuJqfzqGRPWwjWqnttiC8+4AoqaYxLnzMmwVVWuB +FtFaSO0isc1unGldzYP1++hZNUoPH6redL2AB7FbIhMPdJP4MNJwGTudByOm +awK75CQ6V2VGbA/lgWwgw0z0iET72vVCpjkPElz9b9o9Vf7vcJ+8VsWFGWJe +58k3JD4KbrDZUscBc61dtyz/I1EWXhVJK+bAr9O14jdK18zYxf97kQO98sDM +Te9I1AnXeJsUxYHqM918uoJEQ4f363YhB0LGRIOSMRI/Ndfe7rzDhqL+L49C +x0mU3hSNrqxnw3OZ112TCRIpjRsSUkrZ4HZNoyz1E4kfHEv6gn9jw6qdhwU+ +UyTuVrM4cdWTDXtc7u9ZPE2id2ayt6MTGy5ySc82pfW3lh/8yGWDOu0J56cv +JA42p5nuN2ADUiyXv1Q6rzC+w0yLDUeHU/SzZkk01bl6nkphQ8XjIY0NX0ns +yFUNezpqCa9b7b58VdriXO/BpgFL+B9ZICtn + "]]}, + 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:eJwVzHs0lAkYBvDJFEnYbbIk2m/GjE83rYO5sHlfcjsJpWTVVFKkTWRC5ZLS +EImVcktsNVi5Ls26JHZGQqWxYZRalVS0paFQLmmnP97znN95zvPSfYM9/FQo +FIqr8r6lPrdBGQRGrNabfpMlh84T07LLSkfHiqTlqXI4c4eXYzuHQFOLcFpY +ghymtlWbn1IhcK5pAV/1qBx6oyv2qs4jcLyxP8/aSw5Zt660LFxA4Etzadmo +jhx03OPPLFlMoE3ovWVpF7rhO3/3ReYmBO5Us6rrzOiCvXGNTa2bCbRqpMdp +JD6AKTWB4bEoAmV+yS5FUR1wWuD048585d5asiOf2w4hsklpfgeB/YfLxywn +2iAveURr/mcCYwUZHg5rWsDEpnmm3YiOPvyh3jlht6Cop+7cbTc6ntW3j8rU +lMKBzo//PA6nY4/TVEGsTiMk/b2gctNVOnLnizXTzW7Ae21/61d3lX1VDDX1 +czU4OQ8Eln6go+LgMUX9cjHMhqwFuSEDfZ3F7gHHKuHT7JN6fUcGpg7aWuQk +loNbtFevNISBa/N0Uwy8iyFnYCz30iUGOrSovLjeXAgrynoWXmhm4JXsSqHK +YxHoBqQbDCsY+NzZb9pA7wo4xmf1+OoZYXh+qUxUnQtd6UfNrOyNcFLitzT7 +ZDZsTY4wdwg2Qn/pNhXf0XRYOiR5FphphEtUPRsE2ufBxuLlqokm5Z5Osxdv +SwXRgAvz0lsjHEgTvgj1OgtfI+RNYTQmkhDY91deAtRSf1aptGGiduDDsgwi +DsSK12/n72NiQZM3fHSPBc37QeFNaUz84V6M+ip+DPDT9IoqGpj47BDLKvBd +BLy/oSqse8XE36N7MNn7CPR1P6CwvmfhXdfziiNzQkHbo58s47FwqNQb+jaG +AKdm0UTAbqW163P6tYKgQZPuF3+WhZHyG826LfshrvXwcYmYhdRFXdu7NvtD +iUDE5T9noUk2dVy+dA/QTurmLlY3xqGZmfr2OB8IOVJWRDEzxhGLoOsuf/Bh +9S7C041vjHyBfKQ96RdYWfywpFZojMOS47qVNp5w+vUBkfBPY3SIE4ymrPCA +3gUMO+ETY2y1L6xoI90hKM0g6TKVxIwphT5zdj34aIyFLltD4mSiYvkDfSdI +H9RWr/MiMUj96Y6t0+tAUuJqfzqGRPWwjWqnttiC8+4AoqaYxLnzMmwVVWuB +FtFaSO0isc1unGldzYP1++hZNUoPH6redL2AB7FbIhMPdJP4MNJwGTudByOm +awK75CQ6V2VGbA/lgWwgw0z0iET72vVCpjkPElz9b9o9Vf7vcJ+8VsWFGWJe +58k3JD4KbrDZUscBc61dtyz/I1EWXhVJK+bAr9O14jdK18zYxf97kQO98sDM +Te9I1AnXeJsUxYHqM918uoJEQ4f363YhB0LGRIOSMRI/Ndfe7rzDhqL+L49C +x0mU3hSNrqxnw3OZ112TCRIpjRsSUkrZ4HZNoyz1E4kfHEv6gn9jw6qdhwU+ +UyTuVrM4cdWTDXtc7u9ZPE2id2ayt6MTGy5ySc82pfW3lh/8yGWDOu0J56cv +JA42p5nuN2ADUiyXv1Q6rzC+w0yLDUeHU/SzZkk01bl6nkphQ8XjIY0NX0ns +yFUNezpqCa9b7b58VdriXO/BpgFL+B9ZICtn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.33745812912885464`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.33745812912885464`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzHs0lAkYBvDJFEnYbbIk2m/GjE83rYO5sHlfcjsJpWTVVFKkTWRC5ZLS +EImVcktsNVi5Ls26JHZGQqWxYZRalVS0paFQLmmnP97znN95zvPSfYM9/FQo +FIqr8r6lPrdBGQRGrNabfpMlh84T07LLSkfHiqTlqXI4c4eXYzuHQFOLcFpY +ghymtlWbn1IhcK5pAV/1qBx6oyv2qs4jcLyxP8/aSw5Zt660LFxA4Etzadmo +jhx03OPPLFlMoE3ovWVpF7rhO3/3ReYmBO5Us6rrzOiCvXGNTa2bCbRqpMdp +JD6AKTWB4bEoAmV+yS5FUR1wWuD048585d5asiOf2w4hsklpfgeB/YfLxywn +2iAveURr/mcCYwUZHg5rWsDEpnmm3YiOPvyh3jlht6Cop+7cbTc6ntW3j8rU +lMKBzo//PA6nY4/TVEGsTiMk/b2gctNVOnLnizXTzW7Ae21/61d3lX1VDDX1 +czU4OQ8Eln6go+LgMUX9cjHMhqwFuSEDfZ3F7gHHKuHT7JN6fUcGpg7aWuQk +loNbtFevNISBa/N0Uwy8iyFnYCz30iUGOrSovLjeXAgrynoWXmhm4JXsSqHK +YxHoBqQbDCsY+NzZb9pA7wo4xmf1+OoZYXh+qUxUnQtd6UfNrOyNcFLitzT7 +ZDZsTY4wdwg2Qn/pNhXf0XRYOiR5FphphEtUPRsE2ufBxuLlqokm5Z5Osxdv +SwXRgAvz0lsjHEgTvgj1OgtfI+RNYTQmkhDY91deAtRSf1aptGGiduDDsgwi +DsSK12/n72NiQZM3fHSPBc37QeFNaUz84V6M+ip+DPDT9IoqGpj47BDLKvBd +BLy/oSqse8XE36N7MNn7CPR1P6CwvmfhXdfziiNzQkHbo58s47FwqNQb+jaG +AKdm0UTAbqW163P6tYKgQZPuF3+WhZHyG826LfshrvXwcYmYhdRFXdu7NvtD +iUDE5T9noUk2dVy+dA/QTurmLlY3xqGZmfr2OB8IOVJWRDEzxhGLoOsuf/Bh +9S7C041vjHyBfKQ96RdYWfywpFZojMOS47qVNp5w+vUBkfBPY3SIE4ymrPCA +3gUMO+ETY2y1L6xoI90hKM0g6TKVxIwphT5zdj34aIyFLltD4mSiYvkDfSdI +H9RWr/MiMUj96Y6t0+tAUuJqfzqGRPWwjWqnttiC8+4AoqaYxLnzMmwVVWuB +FtFaSO0isc1unGldzYP1++hZNUoPH6redL2AB7FbIhMPdJP4MNJwGTudByOm +awK75CQ6V2VGbA/lgWwgw0z0iET72vVCpjkPElz9b9o9Vf7vcJ+8VsWFGWJe +58k3JD4KbrDZUscBc61dtyz/I1EWXhVJK+bAr9O14jdK18zYxf97kQO98sDM +Te9I1AnXeJsUxYHqM918uoJEQ4f363YhB0LGRIOSMRI/Ndfe7rzDhqL+L49C +x0mU3hSNrqxnw3OZ112TCRIpjRsSUkrZ4HZNoyz1E4kfHEv6gn9jw6qdhwU+ +UyTuVrM4cdWTDXtc7u9ZPE2id2ayt6MTGy5ySc82pfW3lh/8yGWDOu0J56cv +JA42p5nuN2ADUiyXv1Q6rzC+w0yLDUeHU/SzZkk01bl6nkphQ8XjIY0NX0ns +yFUNezpqCa9b7b58VdriXO/BpgFL+B9ZICtn + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.33745812912885464`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFlHs41Xccx61aIpMpt63Sufx+53yf5plLtDQ+H5o6Za5RURjFk+MWjVjH +eNiOMzk7CVstO2ctRbnsROU25Bbl0pM4aCoicmQbUS4Hs7/64/28n/df79fz +/uPNCIhwD1yhpqbmsKz/nSEMXammtgU/Vdhd/PFZE2TBoALM3+V19rGT4pUM +/K5Op6WgqgHUbxToaloxMK1H627Q41q46TS9804oA8tkovnxA9Xg+SX3Tczv +DNS/XnNisqccNJpMv0/vZOBAwVxHG96GqAinTcOaTBzRDLk8NFoMf2dAqtSG +iRe8d+WZgBx8P9ooOhjBxMyYFJPqhXxIbteS7LvCxL8EGZ2kPRcqFzv4l7qZ +iFE3m/+IyYG8I4Uu5tosNNvZtWbW5xKINkY11u9ioWfTqMTv7K8gOKSlUx7N +QmFKnI084gJQdRVHX+azsKZxQOVxMQsGcm3TTj9lYXZ+mV+++By4VyqqeHps +/KVOFL8/WgK3Tb0S9R3Z2L5Z+IW8JhVMmDcMePFsNOwLrdVaFIKX3aaykhI2 +znMtt9skJ8P5Pl+T5GE2dlvMT/9QlQgtvakW+w0pjDaSnfB+IICSVS32Ps4U +BkhVUa/iYqEov59uSaSwfLJ3LOv9aPBN1NxwspTC158ZCMMeRcKK0s3nPh6n +0FLsOHPGPRzKg9e84BjTqPB7EBymywdq32q7cE8aPYf0lR8wgyDnam+koYjG +9FdWzkWLAWAQ+LNFfTmNt6YC1Zu8vgJwC17M/YfGqOrQ+x33D8M35TrSfxkc +DBlRH3jbfxD4Lq27Tx7i4JOaA9Kf7DwgzN+nwesMB/nX2trX+7nB0a6eDqzi +oMTLJTX2uRNonzqu9H/Nwdvdg2vt/PdCa2abYpjiYmx93D3X+w4A/btbrxzh +4oBS4CKLtYer4uvugee4WCqrn+o/DrCldLBQ1MDF5+aeN0RL1uCibaY7PMfF +bIHu0OlRK0gf2O+Ya0LQIaa5cW+eBTTp++sF+xHU8JheFas0heK4pJfHsgg2 +NwZlSao/AfmhuLMNTQQrWhN1UuRceBaXoVpaIpi2LTOhtosNvGDh7ueDBDl6 +wjPbi2hQ9SeEPOoiyC+cKlZe40DmRBpjYoKgNatNPPsnBYps1UJLO0FvExGv +cysXwgs1bo4qCeqOBb113UZDhaWOZGaG4JuS82IWj4L6Oes9vBaCrkmnMh6F +ceHwWt5C4AhB+9+o+IkTNORmOPd8PU2w7ph8ByRR0Nr90EGgIpggHuvL0aag +gjwOEd5b5sswLNSXcMHdeoSR84LgkrlxaYKEBmnduKr4NUGG8u5JkWy5b3Uk +v2KO4HqjSLnr1mXePHOG7SLBDRLy1HiSDZa15NsrzQT3mFea3ZNxoe2h1bb6 +IYJ0vICvkNJg5G2zrmOSoIwOfu/zIgpspXcEvbMEn4wnWN/aQYEbJln4LBAs +2G4j9FGjwPvDQW3j5T0vTxo/HRtkwxP3hSpR57u/+A9zG/9S + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{69, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, + 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 63, 58, 54, + 51, 49, 48, 64, 59, 55, 52, 50, 65, 60, 56, 53, 66, 61, 57, 67, + 62, 68, 47}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJxTTMoPSnNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy +UeWjykeVjyofVT6qfFT5qPJR5aPKR5XTQzkA0ikGZQ== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFlHs41Xccx61aIpMpt63Sufx+53yf5plLtDQ+H5o6Za5RURjFk+MWjVjH +eNiOMzk7CVstO2ctRbnsROU25Bbl0pM4aCoicmQbUS4Hs7/64/28n/df79fz +/uPNCIhwD1yhpqbmsKz/nSEMXammtgU/Vdhd/PFZE2TBoALM3+V19rGT4pUM +/K5Op6WgqgHUbxToaloxMK1H627Q41q46TS9804oA8tkovnxA9Xg+SX3Tczv +DNS/XnNisqccNJpMv0/vZOBAwVxHG96GqAinTcOaTBzRDLk8NFoMf2dAqtSG +iRe8d+WZgBx8P9ooOhjBxMyYFJPqhXxIbteS7LvCxL8EGZ2kPRcqFzv4l7qZ +iFE3m/+IyYG8I4Uu5tosNNvZtWbW5xKINkY11u9ioWfTqMTv7K8gOKSlUx7N +QmFKnI084gJQdRVHX+azsKZxQOVxMQsGcm3TTj9lYXZ+mV+++By4VyqqeHps +/KVOFL8/WgK3Tb0S9R3Z2L5Z+IW8JhVMmDcMePFsNOwLrdVaFIKX3aaykhI2 +znMtt9skJ8P5Pl+T5GE2dlvMT/9QlQgtvakW+w0pjDaSnfB+IICSVS32Ps4U +BkhVUa/iYqEov59uSaSwfLJ3LOv9aPBN1NxwspTC158ZCMMeRcKK0s3nPh6n +0FLsOHPGPRzKg9e84BjTqPB7EBymywdq32q7cE8aPYf0lR8wgyDnam+koYjG +9FdWzkWLAWAQ+LNFfTmNt6YC1Zu8vgJwC17M/YfGqOrQ+x33D8M35TrSfxkc +DBlRH3jbfxD4Lq27Tx7i4JOaA9Kf7DwgzN+nwesMB/nX2trX+7nB0a6eDqzi +oMTLJTX2uRNonzqu9H/Nwdvdg2vt/PdCa2abYpjiYmx93D3X+w4A/btbrxzh +4oBS4CKLtYer4uvugee4WCqrn+o/DrCldLBQ1MDF5+aeN0RL1uCibaY7PMfF +bIHu0OlRK0gf2O+Ya0LQIaa5cW+eBTTp++sF+xHU8JheFas0heK4pJfHsgg2 +NwZlSao/AfmhuLMNTQQrWhN1UuRceBaXoVpaIpi2LTOhtosNvGDh7ueDBDl6 +wjPbi2hQ9SeEPOoiyC+cKlZe40DmRBpjYoKgNatNPPsnBYps1UJLO0FvExGv +cysXwgs1bo4qCeqOBb113UZDhaWOZGaG4JuS82IWj4L6Oes9vBaCrkmnMh6F +ceHwWt5C4AhB+9+o+IkTNORmOPd8PU2w7ph8ByRR0Nr90EGgIpggHuvL0aag +gjwOEd5b5sswLNSXcMHdeoSR84LgkrlxaYKEBmnduKr4NUGG8u5JkWy5b3Uk +v2KO4HqjSLnr1mXePHOG7SLBDRLy1HiSDZa15NsrzQT3mFea3ZNxoe2h1bb6 +IYJ0vICvkNJg5G2zrmOSoIwOfu/zIgpspXcEvbMEn4wnWN/aQYEbJln4LBAs +2G4j9FGjwPvDQW3j5T0vTxo/HRtkwxP3hSpR57u/+A9zG/9S + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{69, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, + 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, + 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 63, + 58, 54, 51, 49, 48, 64, 59, 55, 52, 50, 65, 60, 56, 53, 66, + 61, 57, 67, 62, 68, 47}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.18650991993824692`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVi2tUk3UcgMlMFAkJFbFU3OV99/6PcUKuieHvByZOTUEUBRQJFI4bIrfA +kSM4YHMha3IrTdsyUVAujYsgGCAMBB3gkcsA88JNkCEVNy84IPvwnOc8Hx5W +YJhn0DwDA4PN7/jfjz1nKqXta/EzrcuFH582wBJX0bjsfRaeqjXV5FXWgWFh +npmRAwtTuozvBD+sgZKdUxtvH2PhTaX07ei+KvD6inkZ8zsLza9Xh493lcOi +BuvvU9tZ2Js33dqMpRAZtnP1oBEbh4xCLg8MF8Hf6ZCscGbjed/NOVaggkMf +r5LuD2NjRsxpq6qZXEhqMZZvv8LGv8Tp7aQlG27NtgovdbIRI0sa/4jJgpyD ++e42Jhxcv7Fj4Ru/SyBdFVmv3sxBr4Zhuf/ZX0HsbWxaHs1ByelYZ1XYeaBq +Kw4/z+VgdX2vfu+FTOjN3pRy8gkHL+be9M+VpYHnLW0lfzkXf6mVxu2JlkOp +tU+C+Q4utqyRfKmqTgYrduEKfhwXLR4dqzGelYCPy+qbxcVcfMvYOzonJcG5 +R4eskga52Gn7duqHygTQdCfb7rGgMHqlMtz3vhiK52tc/XZRGKjQR76IFUFB +bg+tSaCwfLx7JPODaDiUYLQsqozCic9XSELbImBe2Zq0T0YptJfteH3G8ziU +CxY+41nSqPW/Lwg1EwK1fYHLcS8avQbMdR+ygyHraneEhZTG1BcOuwpmA2FF +0M+26nIab0wGGTb4fA2wWzCb/Q+NkVXH7rXeOwDflpsq/mXxMGTIsPdVz34Q +uje5RXnz8HH1PsVPLnshNMCvzucMD4XXmluW+u+Gwx1drVjJQ7mPe7KobyeY +nDiqC5jgYWln/2KXgG3QlNGsHaQYFKlj73rc2wLQ49Z05SCDvTqxu1LkCldl +1z2D0hgsU6one44CrC3rz5fWMdhn41UonXMCd5P1ZoPTDF4Umw2cHHaA1N49 +O7KtCG6JaazflmMLDeYBywX+BBftnZov0llDUWzi8yOZBBvrgzPlVZ+Cyjv2 +bF0DwYqmBNPTKgbsa8h3VxoJbrW5tf6ukoEK8jBEcpcgL90i31zOgHraaStf +Q9Aj8UR6WygD2ov6GU0LQV8rKb99HQP6nviQtg6CwvzJIt01HvAFEre+/nf/ +cskZxwIamh842KkHCNJxYqFWQYOn0xAr6xnBORvLsng5DQcW82eChgi6/kbF +jYXTcDx/UcmwjqDZSPArDzsaMsZSWGNjBJ04zbI3f1Kw0td5Ses4QSUteO+L +AgoUtaP6ogmCLN2dKKmSguz0XV3fTBGsPaLaAIkUVNibyl+/Jviy+JyMw6dg +k+K2uPsNwcej8U43NlCgXhAhrJgmuHRlhMpjHQVNnQ+2iPUE42Ujj7JMKNiN +ibZ+MwTzHJ0lfgYUaHNsWJtmCS6TkyeW41zw/ajfxHKO4OVxyycj/Vx4Gpuu +n3vXKXYZ8TUdXPgPiDXx1A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.18650991993824692`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVi2tUk3UcgMlMFAkJFbFU3OV99/6PcUKuieHvByZOTUEUBRQJFI4bIrfA +kSM4YHMha3IrTdsyUVAujYsgGCAMBB3gkcsA88JNkCEVNy84IPvwnOc8Hx5W +YJhn0DwDA4PN7/jfjz1nKqXta/EzrcuFH582wBJX0bjsfRaeqjXV5FXWgWFh +npmRAwtTuozvBD+sgZKdUxtvH2PhTaX07ei+KvD6inkZ8zsLza9Xh493lcOi +BuvvU9tZ2Js33dqMpRAZtnP1oBEbh4xCLg8MF8Hf6ZCscGbjed/NOVaggkMf +r5LuD2NjRsxpq6qZXEhqMZZvv8LGv8Tp7aQlG27NtgovdbIRI0sa/4jJgpyD ++e42Jhxcv7Fj4Ru/SyBdFVmv3sxBr4Zhuf/ZX0HsbWxaHs1ByelYZ1XYeaBq +Kw4/z+VgdX2vfu+FTOjN3pRy8gkHL+be9M+VpYHnLW0lfzkXf6mVxu2JlkOp +tU+C+Q4utqyRfKmqTgYrduEKfhwXLR4dqzGelYCPy+qbxcVcfMvYOzonJcG5 +R4eskga52Gn7duqHygTQdCfb7rGgMHqlMtz3vhiK52tc/XZRGKjQR76IFUFB +bg+tSaCwfLx7JPODaDiUYLQsqozCic9XSELbImBe2Zq0T0YptJfteH3G8ziU +CxY+41nSqPW/Lwg1EwK1fYHLcS8avQbMdR+ygyHraneEhZTG1BcOuwpmA2FF +0M+26nIab0wGGTb4fA2wWzCb/Q+NkVXH7rXeOwDflpsq/mXxMGTIsPdVz34Q +uje5RXnz8HH1PsVPLnshNMCvzucMD4XXmluW+u+Gwx1drVjJQ7mPe7KobyeY +nDiqC5jgYWln/2KXgG3QlNGsHaQYFKlj73rc2wLQ49Z05SCDvTqxu1LkCldl +1z2D0hgsU6one44CrC3rz5fWMdhn41UonXMCd5P1ZoPTDF4Umw2cHHaA1N49 +O7KtCG6JaazflmMLDeYBywX+BBftnZov0llDUWzi8yOZBBvrgzPlVZ+Cyjv2 +bF0DwYqmBNPTKgbsa8h3VxoJbrW5tf6ukoEK8jBEcpcgL90i31zOgHraaStf +Q9Aj8UR6WygD2ov6GU0LQV8rKb99HQP6nviQtg6CwvzJIt01HvAFEre+/nf/ +cskZxwIamh842KkHCNJxYqFWQYOn0xAr6xnBORvLsng5DQcW82eChgi6/kbF +jYXTcDx/UcmwjqDZSPArDzsaMsZSWGNjBJ04zbI3f1Kw0td5Ses4QSUteO+L +AgoUtaP6ogmCLN2dKKmSguz0XV3fTBGsPaLaAIkUVNibyl+/Jviy+JyMw6dg +k+K2uPsNwcej8U43NlCgXhAhrJgmuHRlhMpjHQVNnQ+2iPUE42Ujj7JMKNiN +ibZ+MwTzHJ0lfgYUaHNsWJtmCS6TkyeW41zw/ajfxHKO4OVxyycj/Vx4Gpuu +n3vXKXYZ8TUdXPgPiDXx1A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFlHs41Xccx61aIpMpt63Sufx+53yf5plLtDQ+H5o6Za5RURjFk+MWjVjH +eNiOMzk7CVstO2ctRbnsROU25Bbl0pM4aCoicmQbUS4Hs7/64/28n/df79fz +/uPNCIhwD1yhpqbmsKz/nSEMXammtgU/Vdhd/PFZE2TBoALM3+V19rGT4pUM +/K5Op6WgqgHUbxToaloxMK1H627Q41q46TS9804oA8tkovnxA9Xg+SX3Tczv +DNS/XnNisqccNJpMv0/vZOBAwVxHG96GqAinTcOaTBzRDLk8NFoMf2dAqtSG +iRe8d+WZgBx8P9ooOhjBxMyYFJPqhXxIbteS7LvCxL8EGZ2kPRcqFzv4l7qZ +iFE3m/+IyYG8I4Uu5tosNNvZtWbW5xKINkY11u9ioWfTqMTv7K8gOKSlUx7N +QmFKnI084gJQdRVHX+azsKZxQOVxMQsGcm3TTj9lYXZ+mV+++By4VyqqeHps +/KVOFL8/WgK3Tb0S9R3Z2L5Z+IW8JhVMmDcMePFsNOwLrdVaFIKX3aaykhI2 +znMtt9skJ8P5Pl+T5GE2dlvMT/9QlQgtvakW+w0pjDaSnfB+IICSVS32Ps4U +BkhVUa/iYqEov59uSaSwfLJ3LOv9aPBN1NxwspTC158ZCMMeRcKK0s3nPh6n +0FLsOHPGPRzKg9e84BjTqPB7EBymywdq32q7cE8aPYf0lR8wgyDnam+koYjG +9FdWzkWLAWAQ+LNFfTmNt6YC1Zu8vgJwC17M/YfGqOrQ+x33D8M35TrSfxkc +DBlRH3jbfxD4Lq27Tx7i4JOaA9Kf7DwgzN+nwesMB/nX2trX+7nB0a6eDqzi +oMTLJTX2uRNonzqu9H/Nwdvdg2vt/PdCa2abYpjiYmx93D3X+w4A/btbrxzh +4oBS4CKLtYer4uvugee4WCqrn+o/DrCldLBQ1MDF5+aeN0RL1uCibaY7PMfF +bIHu0OlRK0gf2O+Ya0LQIaa5cW+eBTTp++sF+xHU8JheFas0heK4pJfHsgg2 +NwZlSao/AfmhuLMNTQQrWhN1UuRceBaXoVpaIpi2LTOhtosNvGDh7ueDBDl6 +wjPbi2hQ9SeEPOoiyC+cKlZe40DmRBpjYoKgNatNPPsnBYps1UJLO0FvExGv +cysXwgs1bo4qCeqOBb113UZDhaWOZGaG4JuS82IWj4L6Oes9vBaCrkmnMh6F +ceHwWt5C4AhB+9+o+IkTNORmOPd8PU2w7ph8ByRR0Nr90EGgIpggHuvL0aag +gjwOEd5b5sswLNSXcMHdeoSR84LgkrlxaYKEBmnduKr4NUGG8u5JkWy5b3Uk +v2KO4HqjSLnr1mXePHOG7SLBDRLy1HiSDZa15NsrzQT3mFea3ZNxoe2h1bb6 +IYJ0vICvkNJg5G2zrmOSoIwOfu/zIgpspXcEvbMEn4wnWN/aQYEbJln4LBAs +2G4j9FGjwPvDQW3j5T0vTxo/HRtkwxP3hSpR57u/+A9zG/9S + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{69, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, + 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, + 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 63, 58, 54, 51, + 49, 48, 64, 59, 55, 52, 50, 65, 60, 56, 53, 66, 61, 57, 67, 62, + 68, 47}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.18650991993824692`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVi2tUk3UcgMlMFAkJFbFU3OV99/6PcUKuieHvByZOTUEUBRQJFI4bIrfA +kSM4YHMha3IrTdsyUVAujYsgGCAMBB3gkcsA88JNkCEVNy84IPvwnOc8Hx5W +YJhn0DwDA4PN7/jfjz1nKqXta/EzrcuFH582wBJX0bjsfRaeqjXV5FXWgWFh +npmRAwtTuozvBD+sgZKdUxtvH2PhTaX07ei+KvD6inkZ8zsLza9Xh493lcOi +BuvvU9tZ2Js33dqMpRAZtnP1oBEbh4xCLg8MF8Hf6ZCscGbjed/NOVaggkMf +r5LuD2NjRsxpq6qZXEhqMZZvv8LGv8Tp7aQlG27NtgovdbIRI0sa/4jJgpyD ++e42Jhxcv7Fj4Ru/SyBdFVmv3sxBr4Zhuf/ZX0HsbWxaHs1ByelYZ1XYeaBq +Kw4/z+VgdX2vfu+FTOjN3pRy8gkHL+be9M+VpYHnLW0lfzkXf6mVxu2JlkOp +tU+C+Q4utqyRfKmqTgYrduEKfhwXLR4dqzGelYCPy+qbxcVcfMvYOzonJcG5 +R4eskga52Gn7duqHygTQdCfb7rGgMHqlMtz3vhiK52tc/XZRGKjQR76IFUFB +bg+tSaCwfLx7JPODaDiUYLQsqozCic9XSELbImBe2Zq0T0YptJfteH3G8ziU +CxY+41nSqPW/Lwg1EwK1fYHLcS8avQbMdR+ygyHraneEhZTG1BcOuwpmA2FF +0M+26nIab0wGGTb4fA2wWzCb/Q+NkVXH7rXeOwDflpsq/mXxMGTIsPdVz34Q +uje5RXnz8HH1PsVPLnshNMCvzucMD4XXmluW+u+Gwx1drVjJQ7mPe7KobyeY +nDiqC5jgYWln/2KXgG3QlNGsHaQYFKlj73rc2wLQ49Z05SCDvTqxu1LkCldl +1z2D0hgsU6one44CrC3rz5fWMdhn41UonXMCd5P1ZoPTDF4Umw2cHHaA1N49 +O7KtCG6JaazflmMLDeYBywX+BBftnZov0llDUWzi8yOZBBvrgzPlVZ+Cyjv2 +bF0DwYqmBNPTKgbsa8h3VxoJbrW5tf6ukoEK8jBEcpcgL90i31zOgHraaStf +Q9Aj8UR6WygD2ov6GU0LQV8rKb99HQP6nviQtg6CwvzJIt01HvAFEre+/nf/ +cskZxwIamh842KkHCNJxYqFWQYOn0xAr6xnBORvLsng5DQcW82eChgi6/kbF +jYXTcDx/UcmwjqDZSPArDzsaMsZSWGNjBJ04zbI3f1Kw0td5Ses4QSUteO+L +AgoUtaP6ogmCLN2dKKmSguz0XV3fTBGsPaLaAIkUVNibyl+/Jviy+JyMw6dg +k+K2uPsNwcej8U43NlCgXhAhrJgmuHRlhMpjHQVNnQ+2iPUE42Ujj7JMKNiN +ibZ+MwTzHJ0lfgYUaHNsWJtmCS6TkyeW41zw/ajfxHKO4OVxyycj/Vx4Gpuu +n3vXKXYZ8TUdXPgPiDXx1A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.33745812912885464`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9, + 3.992490721374383*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"344281ea-d403-40d9-8a9e-16fec0248c21"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = 1, $CellContext`yv$$ = + 1.213, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[7.000000000000016`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[7.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[7, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"7\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"1\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 7, 8, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.992489873415876*^9}, + CellLabel->"",ExpressionUUID->"354fe6ea-3459-499b-b5e4-330cd3490bae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "10"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992490751558592*^9, 3.992490754645732*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V+0bB3BZSVMhM99zjtmQnZXr8kVpIY+ibCIiI0RS2RRZ2RIllURm +RiohPFSPUCpZlU1JZKV+5/fXeb3/ue77/tyf+xB27sYOrCwsLMQKFpb/f5U8 +/DlYWARw6z6jTjPWSbi9Yi5Te4UAKqUxdj1jmQTea14qIawCuD589j/xvxPw +s9z1JCeHANpecL41uTQBJUtW/67hFkBl/cznPrMTIBehc1WQVwAXmFtvWY9M +wLYba/gUpQXwEtvR4pRXE0C+vCHuaCSAOvVfeCOSJqCV+0JY7F0BdEk/y9ux +fgIW1n9Vn54XwFVwIfjf4HHYNBijVaMviDxeEj9WjozByPWfIfuyBPFqHGQf +3T4GTOEB0Q1TgtimUuPl6TwKpgGRC2l7hVBEK/Dvk0sjcKzAi4rKFMIHJddz +ZoOHof/28M3ySSH8K6PqzQweAvISn12OrjCOiShaFR4ZhFGxl2dbkoRxZa7i +qdMyX+F6XOMHs0FhNNjBHx88/Rm4v/pfvK8hgtX8lGxI/AAsL1f4KkeLYNPK +zIpvmv2Qv1hYEvJFBA1KnjcER/bAnqZRDTU1UaRMJrjisz+Cw/ECQenLophx +ZkpM/kcXYNtWtY99oihqcyVVSOgtZK2RL3ghtwUvurUVfYhph+ptP+y8I7fg +DxX/lxZj/8FzoVnHK71bMM/2tiUh3wqH2oKefZAVwy6x8X9StjVBolPzsYkw +MewXGyrdwawHm6YUfdUuMXxRtunH2VW1sOb82zqfTQxsLPAa/nq1Gl6wabIW +azFw3sbUw9ilHLwffrY1BgYGdJaW1B0rB3Hzy89/0q6Zu+mhpV8OoSXvAlW0 +GairEGJoJlEOuraefx/rMFBEcWArX38ZNDy987tRn4GCl8s/PjQtg/pzPHOf +jBloWa5w66BhKTz/PjTOdZKBlXJlj3ZZF4PKep72CtrFubNvpQ2L4YGsRqWj +EwM/3AlTlIRiSD4dG9rgzMCKm3cS9MSKwXV8l2igKwNPNnIif38RCAxHGsx5 +MvCo0859i/ZF4Na7tXgwgIELju6B+qOFIPTK7WxdAgPbPx7kcPLIh53eytvc +rjHwOyn7I+JoPugK/+4TTGTg9IvFjBrNfHB3vrzPM4mBgWYXWE6syocGjtsi +jFQGetWva8jLuQ9uWh/qLmTS81nCt678lAd1D3XWq92j87B/zl1lfg+cEwTu +PXzCQAFnA/2zibmw5kDkf4ZPGXjrmrXL28BcKGSb//Wd9vbpfFHd07kw7d2l +J1fLwC/fJVcb7cmFANPkL0V1DKRGmVzEwm2IEeEVK2lioNNJ39As29tQcmd9 +ctkbBrrfYMl6vTsHlqo5Q6sGGfgmOm9+iXET7IYX5E8OMVCslq8hc/1NaNk0 +2cc7zMDOv/Iqhn+yId21Q8NjhIHjCX8H+ruzQXVL9k/JcQbmWh8hnqZkw9kg +NfvEKQYWXOpMOroxG6b3ujLdl+h5u+9mOUjcgLHONywSPAQ69mUkBJ9Ph76N +bkQT7YkWwf5623ToNOJmOm8kkN/jcLuwfjo8eckMKdhE4OlMRfv1fOkQ11DK +ocJPoOl7BVe2ojRQKUvi3itM4KJNSc+GsVQIuXaM11mCQO9K4RYjtxQQMR6Q +KlAjcLorQ3ihNBGKNgttPqhO4Dd1Cl5nJYJejzHnOO03zFDn8qhEcHNq+Cqt +SWCS7qeMKvtEeH7x7s3bWgQqfCqaS+FNBMf808LXdQiM3VaQl33uGhSxL66L +OkRgzNkR81CjBNBtUfgjY0Dg0YEC7UCtBPgQ6zLZTFsgUy40ensCsAr3tHIa +ETgywT3xlisBjsjXRgYbEzi1Zqp/a108LFqGs/qbErg0v2JP+6540K3Y+MvJ +lsCIOsh/JhsHN6Zeu/DZ0ecNKD53WDQO5mWiBp7T7mauqZhZHQcPrrO9EjpB +4FWvweDe9ljgC57JeelI4PG9bV0O+2Nh6OC7w3KuBM7NH+59DTEQ8TmtYO4s +gZxra4c1dKLhs/BR6rYvgTtLd14LEo8GzSMb04z8CExPDfIc4oiGqaYroXnn +COwrSzi69t8oMCs4b24eQGBFl1D5S6MokPazXPUsiN6v1Iq0BYcr0LKWcAiP +JvD9cnGGwZ1IKDYLPyR1lcDZpY7TvFcjITVnXLmZNotIYcC0VyQ4qj3i5I4l +cO+s9PIv7Uhgczhw72o8gT/u5+uK9UWAZo3PeGIygU9MifmPohFQeKrFMyeb +QI68M1JnHoRBUvnO47o3CfSVeKwqkBwGASxJzEHanayJnJ2XwmB/svUmqRwC +tx1Ljor+JwyGn8+U3c8lUJFPVervUigwBMXmi+8TuGfaW+mjUSgkNHldrC0j +cHKP/vDQqhDQCreYdCun9yu7asR3JhjGdfUsRB8RuHVVRp1YXzDo1vGr+1cQ +uMPD60FpWTDM1VTNKlbT6y8UjY7aBINFyV/Xu88I/BpctRjwJAgkMqPMY1oI +JOxNU+6FB0K7uXeLZiuBRd85Jca9AuGikKXaOO0RKaURbdtAeJ8iu1n/FYFS +nSuebdMMhCsJb9pXtBFY5dHP1jN4Cb5FbN7v85bON0zPRqv5IlSeyVG16CdQ +Y6jQ0CAvAKaZykJ/aQvWjVs+uxIA2zY1Ld0cIPA+b1y4oWsA3Cgdezr8me6v +9Xzxy50BEDYjr+c1SKBEXw9zV+V5MD5be/jKGIF3G5lSZa/9YeJcz6nKGTqf +7NjESJ5zILnf/aD5LIGPL/DN5P7yA2uhFbJ/aNd51f/o7faD9mrxHzpzBMad +ZLfKueMHVUsuvv8tEBh0ZVTYa7cfhF9YDBn6Q2Dj+9KQzR6+wAjanMm7isRD ++2Uk6kd8YPG93qEy2vKCI3xpb3ygQ857+R9uEr2jE2PCq30gvL/N8tpqEn3u +M5/ejfaBCbiyZeM6EnXLR++xKPhA5Z/fWes3kbg52cNvIdAbDAM+3+IWJdGg +UGmn504vkO7c8M992kl2rNLrhL2AdTuw7d9C4ukmTZZaTi8o686wvyxG4u32 +lD+2vWdASOOIOBdJ4qmgTeyZMWdgaKEpl0OKRFJ1+mfPtCdc9C24xyJPosPJ +xEn2Fg8Q1bHuK6At6c5lmvjIA2rW8fCbK5BY+YPrklqOByzmeoeUK5Kof6ml +sCHAA852alidUiFxvLJ73Sc5Dzgt37KpU4NE+90/9/1ScweL8aGLd/eQKLw3 +3bCe6zQsPUotN9lLIpyonVwacoX04P0TK/TpvJaJ68dfuMJ7wcJjFvtIjEt4 +GX452BVM9H2UeA6SuND1RTrvjwscyGUb8z9Mn3+PWcvL5VOgbs04YmBBIjE3 +V5PM7wyOmuf/fKfNP3trXHXJCRIE392NtyTxybUhvvk+JxjriFrstKL3q6c+ +8jLPCdL157LMbUl8d3ez6SstJ1iUfz3m5Ejico2gwQa3k1DFHhAY4kFi6bBv +THe/A3wdeCcj4UliaO+LgKFmB9jwTL6jkbYeu+gP7mIHcDo3LMHtRaK43le2 +7CAHEPhm3BrnQ6LRIvV3jnIAvy4Z/hv+JBZGp3LuO30CVO935VeGklhfNbi2 +jsceti6Vd58MI3HLF6GDa5fsQPhg4urN4SSyyzgPnvlqB38mjVx8IkicuD1R +Gl1hBw3yLVsVrpD4sON8/JyVHRhW1eTlx9Lz77CqxZfYgmPzzbs30kn8ULY7 +hcfVBswEA7sOZZDocawuxtPMBvadslq5TJtD399tRNcGtq8RPmmeSWJKVeIl +oS02MG2YKCmQTeIvlyINoRxruNAVnhufS2Lat1MZ289ZQeKQS05oEYm92beG +hPUsQOLZ0E25YhIz+qIGOigLeJRim/2JtoPIjEIJqwV80DfNVColMV7psexA +rTlsyWemfC0nMUYFx9jAHO65C0bpPiaR+9d6NlXmcXgy33iGvZHuQ8Z1SbQ3 +A4M32p5FtEciTsR77TGD/rwad4smEs08vxo1y5gBq3mJa1kziaOnSlTfTpmC +/pNMxxOt9PzOpzf8Ak2hPcj7eEMbib6bP/e+yD0KQ9wkM7SbXi9b7WPwyiPA +PqtXKv6JxIHY2oI9UyZA9jmLv6B9pHFlGfXBBKxLizk5e0lMWNn4TTrfBN6b +a7dG9JOY03Zc09LIBFof2JhEDZJoG9IdeTTrHygyyHJM+E73749iabeBMbxW +re9SmCLx0fyCU6K6MUySw/odtOsZi/L2ksawdU52G+80iSG/5LKZfw5DTtbT +70kzJNo5WpzgfHgYkqd6/NIWSNxl6hF7lfcwnE8Qicpmo9DRROH8nx5DsJqq +DzZgp/B22IrOnApDYBq4+P+mbbDVOO1svCFwc1c7m3FSOJzamZKjZwjpQab6 +G1ZRuGCUXM5XZACVHgkcgeso5BdOq9px9RDMGHAFWgtS+N+7tcHtjgfg/YOH +vmuFKHy/SnV1g94BqOE2dX9MW7bToPeT+AEIacy12ixC4aOh7/khX/bDRi2d +3f9tofDNrf6f2Xb7QW7HxUUtcQoX32sY/zy5D06vnvHespNCLhZCruXqXuj1 +1+2rpf158IaJotdeMBhL3GcvR+Geci7earO9IPev8pZ78hQumzz8LCa+F2bC +fZvklShMJ0RwX80e8GddEtRTo1Ao7o373A89iFxY8cxFh0KiqX1u3FMXFpyM +ZdbpUuiDe3xeHteFU+9vXSuivea8R0Ojji4cqNBxmtWjcEBizpGLXxfW+YTx +XNKnMHKg4kHNYx1ImuI6kXCIwg8mUsJvVuvAreH1q6pM6bxzZFy/PdGG0t7f +2mZmFH7sDQxRu68NDW9H/edo606JaqYna8Ngff2E8nEKq2vZla67a4N0tm9b +iQWFv7I7K7JIbSgw60t5YEvh7vu10vHRCJX/Fkpmu1DItPSM4+zTgubaDGtw +pZBH/6lJYY0WfKiITO2l3fe05vP5dC36/2zHLepGobCYf2XEUS3YHcz/Lc2D +wtNO3D2WbbuhTv1i+TUfOr/iNZIDLZrwKv+QbsQlChkZymuVP6rDbf6nbEqB +FFpzV47WVqmDf5BsfT9tHymXVK80dZA0Xc9UD6b7Uvu8/OAxdbjI+gYmQynU +cFFabv6oBjuPmWj8c4VCi2OX2uq+qkI8p7mCWBKFWjLtVjGbdoGTZ+uPVtov +7n5qzZpTAa1PGsV+yXSfxHrL27tVYKxYRK49hcJttwrtrt9WAaZl746wdApL +T717V71LBX6W2sqMZ1FYOfz3LOsJZThi68SouE+h3WLDQkWHIlT2BBmb5VPI +MeCivv+JIogczwhdoJ13kbo5e0cRPhu/HtEooPsxmu6Z4q8IbrpKxbUPKSzx +5xNmpxQhUoqF2VJGIfK+6HT2U4DqyRT7nqd0f4UrfhYqyYPoqeKki8/oPIf8 +9ygQ8hA41NIkVkuhdJbYhda18rC3b3mb3XMKs7TZlWFYDjrb7GeG6um8/Rt3 +yGTIwWTpzrCpZgrlU+ujpznlgOHfdIetg8L2pP2/vbt3gOlJIrWCdudI2vcH +5TsgxuT8ZZdOCkMjekx443bAb9mdrh1v6ffVMX/ZQ28HfPiSLJ/znsKWtxSY +lWyHhEOONcxeCqUsfZ+XJG4DNoKjPWiUwpmIklgefxlQX2ddrzxG3zdzcaTl +mAycWaosG6VtwxX76YGaDPS/dU05PEGhe9Xj5tEFaai50mlBfKdQvNlyNzNA +GrxncoZrZyhUNSzOZkZKQf7A8nvvWQqXVol6u52Sgs+vTVukf9HvI6nw7bOD +UmCUt7ogbo4+j87+yHYeKdhh5XXGZpHCh1Z8GSWZknDiwCt73iUKIaT1FUeQ +JFxXlTrSTFtX/fyWCyckgXtT9y65ZQrveHc7dG2TBG0WZZmvtNnnxdiq10uC +32SMUOof+n1eCVtd+1MCHn4cWX3wL4WrF3uNR7skYKiJufyXdtRR5QLlGgn4 +H6xYIKY= + "]]}, + 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:eJwV1Hc8V+0bB3BZSVMhM99zjtmQnZXr8kVpIY+ibCIiI0RS2RRZ2RIllURm +RiohPFSPUCpZlU1JZKV+5/fXeb3/ue77/tyf+xB27sYOrCwsLMQKFpb/f5U8 +/DlYWARw6z6jTjPWSbi9Yi5Te4UAKqUxdj1jmQTea14qIawCuD589j/xvxPw +s9z1JCeHANpecL41uTQBJUtW/67hFkBl/cznPrMTIBehc1WQVwAXmFtvWY9M +wLYba/gUpQXwEtvR4pRXE0C+vCHuaCSAOvVfeCOSJqCV+0JY7F0BdEk/y9ux +fgIW1n9Vn54XwFVwIfjf4HHYNBijVaMviDxeEj9WjozByPWfIfuyBPFqHGQf +3T4GTOEB0Q1TgtimUuPl6TwKpgGRC2l7hVBEK/Dvk0sjcKzAi4rKFMIHJddz +ZoOHof/28M3ySSH8K6PqzQweAvISn12OrjCOiShaFR4ZhFGxl2dbkoRxZa7i +qdMyX+F6XOMHs0FhNNjBHx88/Rm4v/pfvK8hgtX8lGxI/AAsL1f4KkeLYNPK +zIpvmv2Qv1hYEvJFBA1KnjcER/bAnqZRDTU1UaRMJrjisz+Cw/ECQenLophx +ZkpM/kcXYNtWtY99oihqcyVVSOgtZK2RL3ghtwUvurUVfYhph+ptP+y8I7fg +DxX/lxZj/8FzoVnHK71bMM/2tiUh3wqH2oKefZAVwy6x8X9StjVBolPzsYkw +MewXGyrdwawHm6YUfdUuMXxRtunH2VW1sOb82zqfTQxsLPAa/nq1Gl6wabIW +azFw3sbUw9ilHLwffrY1BgYGdJaW1B0rB3Hzy89/0q6Zu+mhpV8OoSXvAlW0 +GairEGJoJlEOuraefx/rMFBEcWArX38ZNDy987tRn4GCl8s/PjQtg/pzPHOf +jBloWa5w66BhKTz/PjTOdZKBlXJlj3ZZF4PKep72CtrFubNvpQ2L4YGsRqWj +EwM/3AlTlIRiSD4dG9rgzMCKm3cS9MSKwXV8l2igKwNPNnIif38RCAxHGsx5 +MvCo0859i/ZF4Na7tXgwgIELju6B+qOFIPTK7WxdAgPbPx7kcPLIh53eytvc +rjHwOyn7I+JoPugK/+4TTGTg9IvFjBrNfHB3vrzPM4mBgWYXWE6syocGjtsi +jFQGetWva8jLuQ9uWh/qLmTS81nCt678lAd1D3XWq92j87B/zl1lfg+cEwTu +PXzCQAFnA/2zibmw5kDkf4ZPGXjrmrXL28BcKGSb//Wd9vbpfFHd07kw7d2l +J1fLwC/fJVcb7cmFANPkL0V1DKRGmVzEwm2IEeEVK2lioNNJ39As29tQcmd9 +ctkbBrrfYMl6vTsHlqo5Q6sGGfgmOm9+iXET7IYX5E8OMVCslq8hc/1NaNk0 +2cc7zMDOv/Iqhn+yId21Q8NjhIHjCX8H+ruzQXVL9k/JcQbmWh8hnqZkw9kg +NfvEKQYWXOpMOroxG6b3ujLdl+h5u+9mOUjcgLHONywSPAQ69mUkBJ9Ph76N +bkQT7YkWwf5623ToNOJmOm8kkN/jcLuwfjo8eckMKdhE4OlMRfv1fOkQ11DK +ocJPoOl7BVe2ojRQKUvi3itM4KJNSc+GsVQIuXaM11mCQO9K4RYjtxQQMR6Q +KlAjcLorQ3ihNBGKNgttPqhO4Dd1Cl5nJYJejzHnOO03zFDn8qhEcHNq+Cqt +SWCS7qeMKvtEeH7x7s3bWgQqfCqaS+FNBMf808LXdQiM3VaQl33uGhSxL66L +OkRgzNkR81CjBNBtUfgjY0Dg0YEC7UCtBPgQ6zLZTFsgUy40ensCsAr3tHIa +ETgywT3xlisBjsjXRgYbEzi1Zqp/a108LFqGs/qbErg0v2JP+6540K3Y+MvJ +lsCIOsh/JhsHN6Zeu/DZ0ecNKD53WDQO5mWiBp7T7mauqZhZHQcPrrO9EjpB +4FWvweDe9ljgC57JeelI4PG9bV0O+2Nh6OC7w3KuBM7NH+59DTEQ8TmtYO4s +gZxra4c1dKLhs/BR6rYvgTtLd14LEo8GzSMb04z8CExPDfIc4oiGqaYroXnn +COwrSzi69t8oMCs4b24eQGBFl1D5S6MokPazXPUsiN6v1Iq0BYcr0LKWcAiP +JvD9cnGGwZ1IKDYLPyR1lcDZpY7TvFcjITVnXLmZNotIYcC0VyQ4qj3i5I4l +cO+s9PIv7Uhgczhw72o8gT/u5+uK9UWAZo3PeGIygU9MifmPohFQeKrFMyeb +QI68M1JnHoRBUvnO47o3CfSVeKwqkBwGASxJzEHanayJnJ2XwmB/svUmqRwC +tx1Ljor+JwyGn8+U3c8lUJFPVervUigwBMXmi+8TuGfaW+mjUSgkNHldrC0j +cHKP/vDQqhDQCreYdCun9yu7asR3JhjGdfUsRB8RuHVVRp1YXzDo1vGr+1cQ +uMPD60FpWTDM1VTNKlbT6y8UjY7aBINFyV/Xu88I/BpctRjwJAgkMqPMY1oI +JOxNU+6FB0K7uXeLZiuBRd85Jca9AuGikKXaOO0RKaURbdtAeJ8iu1n/FYFS +nSuebdMMhCsJb9pXtBFY5dHP1jN4Cb5FbN7v85bON0zPRqv5IlSeyVG16CdQ +Y6jQ0CAvAKaZykJ/aQvWjVs+uxIA2zY1Ld0cIPA+b1y4oWsA3Cgdezr8me6v +9Xzxy50BEDYjr+c1SKBEXw9zV+V5MD5be/jKGIF3G5lSZa/9YeJcz6nKGTqf +7NjESJ5zILnf/aD5LIGPL/DN5P7yA2uhFbJ/aNd51f/o7faD9mrxHzpzBMad +ZLfKueMHVUsuvv8tEBh0ZVTYa7cfhF9YDBn6Q2Dj+9KQzR6+wAjanMm7isRD ++2Uk6kd8YPG93qEy2vKCI3xpb3ygQ857+R9uEr2jE2PCq30gvL/N8tpqEn3u +M5/ejfaBCbiyZeM6EnXLR++xKPhA5Z/fWes3kbg52cNvIdAbDAM+3+IWJdGg +UGmn504vkO7c8M992kl2rNLrhL2AdTuw7d9C4ukmTZZaTi8o686wvyxG4u32 +lD+2vWdASOOIOBdJ4qmgTeyZMWdgaKEpl0OKRFJ1+mfPtCdc9C24xyJPosPJ +xEn2Fg8Q1bHuK6At6c5lmvjIA2rW8fCbK5BY+YPrklqOByzmeoeUK5Kof6ml +sCHAA852alidUiFxvLJ73Sc5Dzgt37KpU4NE+90/9/1ScweL8aGLd/eQKLw3 +3bCe6zQsPUotN9lLIpyonVwacoX04P0TK/TpvJaJ68dfuMJ7wcJjFvtIjEt4 +GX452BVM9H2UeA6SuND1RTrvjwscyGUb8z9Mn3+PWcvL5VOgbs04YmBBIjE3 +V5PM7wyOmuf/fKfNP3trXHXJCRIE392NtyTxybUhvvk+JxjriFrstKL3q6c+ +8jLPCdL157LMbUl8d3ez6SstJ1iUfz3m5Ejico2gwQa3k1DFHhAY4kFi6bBv +THe/A3wdeCcj4UliaO+LgKFmB9jwTL6jkbYeu+gP7mIHcDo3LMHtRaK43le2 +7CAHEPhm3BrnQ6LRIvV3jnIAvy4Z/hv+JBZGp3LuO30CVO935VeGklhfNbi2 +jsceti6Vd58MI3HLF6GDa5fsQPhg4urN4SSyyzgPnvlqB38mjVx8IkicuD1R +Gl1hBw3yLVsVrpD4sON8/JyVHRhW1eTlx9Lz77CqxZfYgmPzzbs30kn8ULY7 +hcfVBswEA7sOZZDocawuxtPMBvadslq5TJtD399tRNcGtq8RPmmeSWJKVeIl +oS02MG2YKCmQTeIvlyINoRxruNAVnhufS2Lat1MZ289ZQeKQS05oEYm92beG +hPUsQOLZ0E25YhIz+qIGOigLeJRim/2JtoPIjEIJqwV80DfNVColMV7psexA +rTlsyWemfC0nMUYFx9jAHO65C0bpPiaR+9d6NlXmcXgy33iGvZHuQ8Z1SbQ3 +A4M32p5FtEciTsR77TGD/rwad4smEs08vxo1y5gBq3mJa1kziaOnSlTfTpmC +/pNMxxOt9PzOpzf8Ak2hPcj7eEMbib6bP/e+yD0KQ9wkM7SbXi9b7WPwyiPA +PqtXKv6JxIHY2oI9UyZA9jmLv6B9pHFlGfXBBKxLizk5e0lMWNn4TTrfBN6b +a7dG9JOY03Zc09LIBFof2JhEDZJoG9IdeTTrHygyyHJM+E73749iabeBMbxW +re9SmCLx0fyCU6K6MUySw/odtOsZi/L2ksawdU52G+80iSG/5LKZfw5DTtbT +70kzJNo5WpzgfHgYkqd6/NIWSNxl6hF7lfcwnE8Qicpmo9DRROH8nx5DsJqq +DzZgp/B22IrOnApDYBq4+P+mbbDVOO1svCFwc1c7m3FSOJzamZKjZwjpQab6 +G1ZRuGCUXM5XZACVHgkcgeso5BdOq9px9RDMGHAFWgtS+N+7tcHtjgfg/YOH +vmuFKHy/SnV1g94BqOE2dX9MW7bToPeT+AEIacy12ixC4aOh7/khX/bDRi2d +3f9tofDNrf6f2Xb7QW7HxUUtcQoX32sY/zy5D06vnvHespNCLhZCruXqXuj1 +1+2rpf158IaJotdeMBhL3GcvR+Geci7earO9IPev8pZ78hQumzz8LCa+F2bC +fZvklShMJ0RwX80e8GddEtRTo1Ao7o373A89iFxY8cxFh0KiqX1u3FMXFpyM +ZdbpUuiDe3xeHteFU+9vXSuivea8R0Ojji4cqNBxmtWjcEBizpGLXxfW+YTx +XNKnMHKg4kHNYx1ImuI6kXCIwg8mUsJvVuvAreH1q6pM6bxzZFy/PdGG0t7f +2mZmFH7sDQxRu68NDW9H/edo606JaqYna8Ngff2E8nEKq2vZla67a4N0tm9b +iQWFv7I7K7JIbSgw60t5YEvh7vu10vHRCJX/Fkpmu1DItPSM4+zTgubaDGtw +pZBH/6lJYY0WfKiITO2l3fe05vP5dC36/2zHLepGobCYf2XEUS3YHcz/Lc2D +wtNO3D2WbbuhTv1i+TUfOr/iNZIDLZrwKv+QbsQlChkZymuVP6rDbf6nbEqB +FFpzV47WVqmDf5BsfT9tHymXVK80dZA0Xc9UD6b7Uvu8/OAxdbjI+gYmQynU +cFFabv6oBjuPmWj8c4VCi2OX2uq+qkI8p7mCWBKFWjLtVjGbdoGTZ+uPVtov +7n5qzZpTAa1PGsV+yXSfxHrL27tVYKxYRK49hcJttwrtrt9WAaZl746wdApL +T717V71LBX6W2sqMZ1FYOfz3LOsJZThi68SouE+h3WLDQkWHIlT2BBmb5VPI +MeCivv+JIogczwhdoJ13kbo5e0cRPhu/HtEooPsxmu6Z4q8IbrpKxbUPKSzx +5xNmpxQhUoqF2VJGIfK+6HT2U4DqyRT7nqd0f4UrfhYqyYPoqeKki8/oPIf8 +9ygQ8hA41NIkVkuhdJbYhda18rC3b3mb3XMKs7TZlWFYDjrb7GeG6um8/Rt3 +yGTIwWTpzrCpZgrlU+ujpznlgOHfdIetg8L2pP2/vbt3gOlJIrWCdudI2vcH +5TsgxuT8ZZdOCkMjekx443bAb9mdrh1v6ffVMX/ZQ28HfPiSLJ/znsKWtxSY +lWyHhEOONcxeCqUsfZ+XJG4DNoKjPWiUwpmIklgefxlQX2ddrzxG3zdzcaTl +mAycWaosG6VtwxX76YGaDPS/dU05PEGhe9Xj5tEFaai50mlBfKdQvNlyNzNA +GrxncoZrZyhUNSzOZkZKQf7A8nvvWQqXVol6u52Sgs+vTVukf9HvI6nw7bOD +UmCUt7ogbo4+j87+yHYeKdhh5XXGZpHCh1Z8GSWZknDiwCt73iUKIaT1FUeQ +JFxXlTrSTFtX/fyWCyckgXtT9y65ZQrveHc7dG2TBG0WZZmvtNnnxdiq10uC +32SMUOof+n1eCVtd+1MCHn4cWX3wL4WrF3uNR7skYKiJufyXdtRR5QLlGgn4 +H6xYIKY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 10}, {0., 0.9065364977598496}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 10}, {0., 0.9065364977598496}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V+0bB3BZSVMhM99zjtmQnZXr8kVpIY+ibCIiI0RS2RRZ2RIllURm +RiohPFSPUCpZlU1JZKV+5/fXeb3/ue77/tyf+xB27sYOrCwsLMQKFpb/f5U8 +/DlYWARw6z6jTjPWSbi9Yi5Te4UAKqUxdj1jmQTea14qIawCuD589j/xvxPw +s9z1JCeHANpecL41uTQBJUtW/67hFkBl/cznPrMTIBehc1WQVwAXmFtvWY9M +wLYba/gUpQXwEtvR4pRXE0C+vCHuaCSAOvVfeCOSJqCV+0JY7F0BdEk/y9ux +fgIW1n9Vn54XwFVwIfjf4HHYNBijVaMviDxeEj9WjozByPWfIfuyBPFqHGQf +3T4GTOEB0Q1TgtimUuPl6TwKpgGRC2l7hVBEK/Dvk0sjcKzAi4rKFMIHJddz +ZoOHof/28M3ySSH8K6PqzQweAvISn12OrjCOiShaFR4ZhFGxl2dbkoRxZa7i +qdMyX+F6XOMHs0FhNNjBHx88/Rm4v/pfvK8hgtX8lGxI/AAsL1f4KkeLYNPK +zIpvmv2Qv1hYEvJFBA1KnjcER/bAnqZRDTU1UaRMJrjisz+Cw/ECQenLophx +ZkpM/kcXYNtWtY99oihqcyVVSOgtZK2RL3ghtwUvurUVfYhph+ptP+y8I7fg +DxX/lxZj/8FzoVnHK71bMM/2tiUh3wqH2oKefZAVwy6x8X9StjVBolPzsYkw +MewXGyrdwawHm6YUfdUuMXxRtunH2VW1sOb82zqfTQxsLPAa/nq1Gl6wabIW +azFw3sbUw9ilHLwffrY1BgYGdJaW1B0rB3Hzy89/0q6Zu+mhpV8OoSXvAlW0 +GairEGJoJlEOuraefx/rMFBEcWArX38ZNDy987tRn4GCl8s/PjQtg/pzPHOf +jBloWa5w66BhKTz/PjTOdZKBlXJlj3ZZF4PKep72CtrFubNvpQ2L4YGsRqWj +EwM/3AlTlIRiSD4dG9rgzMCKm3cS9MSKwXV8l2igKwNPNnIif38RCAxHGsx5 +MvCo0859i/ZF4Na7tXgwgIELju6B+qOFIPTK7WxdAgPbPx7kcPLIh53eytvc +rjHwOyn7I+JoPugK/+4TTGTg9IvFjBrNfHB3vrzPM4mBgWYXWE6syocGjtsi +jFQGetWva8jLuQ9uWh/qLmTS81nCt678lAd1D3XWq92j87B/zl1lfg+cEwTu +PXzCQAFnA/2zibmw5kDkf4ZPGXjrmrXL28BcKGSb//Wd9vbpfFHd07kw7d2l +J1fLwC/fJVcb7cmFANPkL0V1DKRGmVzEwm2IEeEVK2lioNNJ39As29tQcmd9 +ctkbBrrfYMl6vTsHlqo5Q6sGGfgmOm9+iXET7IYX5E8OMVCslq8hc/1NaNk0 +2cc7zMDOv/Iqhn+yId21Q8NjhIHjCX8H+ruzQXVL9k/JcQbmWh8hnqZkw9kg +NfvEKQYWXOpMOroxG6b3ujLdl+h5u+9mOUjcgLHONywSPAQ69mUkBJ9Ph76N +bkQT7YkWwf5623ToNOJmOm8kkN/jcLuwfjo8eckMKdhE4OlMRfv1fOkQ11DK +ocJPoOl7BVe2ojRQKUvi3itM4KJNSc+GsVQIuXaM11mCQO9K4RYjtxQQMR6Q +KlAjcLorQ3ihNBGKNgttPqhO4Dd1Cl5nJYJejzHnOO03zFDn8qhEcHNq+Cqt +SWCS7qeMKvtEeH7x7s3bWgQqfCqaS+FNBMf808LXdQiM3VaQl33uGhSxL66L +OkRgzNkR81CjBNBtUfgjY0Dg0YEC7UCtBPgQ6zLZTFsgUy40ensCsAr3tHIa +ETgywT3xlisBjsjXRgYbEzi1Zqp/a108LFqGs/qbErg0v2JP+6540K3Y+MvJ +lsCIOsh/JhsHN6Zeu/DZ0ecNKD53WDQO5mWiBp7T7mauqZhZHQcPrrO9EjpB +4FWvweDe9ljgC57JeelI4PG9bV0O+2Nh6OC7w3KuBM7NH+59DTEQ8TmtYO4s +gZxra4c1dKLhs/BR6rYvgTtLd14LEo8GzSMb04z8CExPDfIc4oiGqaYroXnn +COwrSzi69t8oMCs4b24eQGBFl1D5S6MokPazXPUsiN6v1Iq0BYcr0LKWcAiP +JvD9cnGGwZ1IKDYLPyR1lcDZpY7TvFcjITVnXLmZNotIYcC0VyQ4qj3i5I4l +cO+s9PIv7Uhgczhw72o8gT/u5+uK9UWAZo3PeGIygU9MifmPohFQeKrFMyeb +QI68M1JnHoRBUvnO47o3CfSVeKwqkBwGASxJzEHanayJnJ2XwmB/svUmqRwC +tx1Ljor+JwyGn8+U3c8lUJFPVervUigwBMXmi+8TuGfaW+mjUSgkNHldrC0j +cHKP/vDQqhDQCreYdCun9yu7asR3JhjGdfUsRB8RuHVVRp1YXzDo1vGr+1cQ +uMPD60FpWTDM1VTNKlbT6y8UjY7aBINFyV/Xu88I/BpctRjwJAgkMqPMY1oI +JOxNU+6FB0K7uXeLZiuBRd85Jca9AuGikKXaOO0RKaURbdtAeJ8iu1n/FYFS +nSuebdMMhCsJb9pXtBFY5dHP1jN4Cb5FbN7v85bON0zPRqv5IlSeyVG16CdQ +Y6jQ0CAvAKaZykJ/aQvWjVs+uxIA2zY1Ld0cIPA+b1y4oWsA3Cgdezr8me6v +9Xzxy50BEDYjr+c1SKBEXw9zV+V5MD5be/jKGIF3G5lSZa/9YeJcz6nKGTqf +7NjESJ5zILnf/aD5LIGPL/DN5P7yA2uhFbJ/aNd51f/o7faD9mrxHzpzBMad +ZLfKueMHVUsuvv8tEBh0ZVTYa7cfhF9YDBn6Q2Dj+9KQzR6+wAjanMm7isRD ++2Uk6kd8YPG93qEy2vKCI3xpb3ygQ857+R9uEr2jE2PCq30gvL/N8tpqEn3u +M5/ejfaBCbiyZeM6EnXLR++xKPhA5Z/fWes3kbg52cNvIdAbDAM+3+IWJdGg +UGmn504vkO7c8M992kl2rNLrhL2AdTuw7d9C4ukmTZZaTi8o686wvyxG4u32 +lD+2vWdASOOIOBdJ4qmgTeyZMWdgaKEpl0OKRFJ1+mfPtCdc9C24xyJPosPJ +xEn2Fg8Q1bHuK6At6c5lmvjIA2rW8fCbK5BY+YPrklqOByzmeoeUK5Kof6ml +sCHAA852alidUiFxvLJ73Sc5Dzgt37KpU4NE+90/9/1ScweL8aGLd/eQKLw3 +3bCe6zQsPUotN9lLIpyonVwacoX04P0TK/TpvJaJ68dfuMJ7wcJjFvtIjEt4 +GX452BVM9H2UeA6SuND1RTrvjwscyGUb8z9Mn3+PWcvL5VOgbs04YmBBIjE3 +V5PM7wyOmuf/fKfNP3trXHXJCRIE392NtyTxybUhvvk+JxjriFrstKL3q6c+ +8jLPCdL157LMbUl8d3ez6SstJ1iUfz3m5Ejico2gwQa3k1DFHhAY4kFi6bBv +THe/A3wdeCcj4UliaO+LgKFmB9jwTL6jkbYeu+gP7mIHcDo3LMHtRaK43le2 +7CAHEPhm3BrnQ6LRIvV3jnIAvy4Z/hv+JBZGp3LuO30CVO935VeGklhfNbi2 +jsceti6Vd58MI3HLF6GDa5fsQPhg4urN4SSyyzgPnvlqB38mjVx8IkicuD1R +Gl1hBw3yLVsVrpD4sON8/JyVHRhW1eTlx9Lz77CqxZfYgmPzzbs30kn8ULY7 +hcfVBswEA7sOZZDocawuxtPMBvadslq5TJtD399tRNcGtq8RPmmeSWJKVeIl +oS02MG2YKCmQTeIvlyINoRxruNAVnhufS2Lat1MZ289ZQeKQS05oEYm92beG +hPUsQOLZ0E25YhIz+qIGOigLeJRim/2JtoPIjEIJqwV80DfNVColMV7psexA +rTlsyWemfC0nMUYFx9jAHO65C0bpPiaR+9d6NlXmcXgy33iGvZHuQ8Z1SbQ3 +A4M32p5FtEciTsR77TGD/rwad4smEs08vxo1y5gBq3mJa1kziaOnSlTfTpmC +/pNMxxOt9PzOpzf8Ak2hPcj7eEMbib6bP/e+yD0KQ9wkM7SbXi9b7WPwyiPA +PqtXKv6JxIHY2oI9UyZA9jmLv6B9pHFlGfXBBKxLizk5e0lMWNn4TTrfBN6b +a7dG9JOY03Zc09LIBFof2JhEDZJoG9IdeTTrHygyyHJM+E73749iabeBMbxW +re9SmCLx0fyCU6K6MUySw/odtOsZi/L2ksawdU52G+80iSG/5LKZfw5DTtbT +70kzJNo5WpzgfHgYkqd6/NIWSNxl6hF7lfcwnE8Qicpmo9DRROH8nx5DsJqq +DzZgp/B22IrOnApDYBq4+P+mbbDVOO1svCFwc1c7m3FSOJzamZKjZwjpQab6 +G1ZRuGCUXM5XZACVHgkcgeso5BdOq9px9RDMGHAFWgtS+N+7tcHtjgfg/YOH +vmuFKHy/SnV1g94BqOE2dX9MW7bToPeT+AEIacy12ixC4aOh7/khX/bDRi2d +3f9tofDNrf6f2Xb7QW7HxUUtcQoX32sY/zy5D06vnvHespNCLhZCruXqXuj1 +1+2rpf158IaJotdeMBhL3GcvR+Geci7earO9IPev8pZ78hQumzz8LCa+F2bC +fZvklShMJ0RwX80e8GddEtRTo1Ao7o373A89iFxY8cxFh0KiqX1u3FMXFpyM +ZdbpUuiDe3xeHteFU+9vXSuivea8R0Ojji4cqNBxmtWjcEBizpGLXxfW+YTx +XNKnMHKg4kHNYx1ImuI6kXCIwg8mUsJvVuvAreH1q6pM6bxzZFy/PdGG0t7f +2mZmFH7sDQxRu68NDW9H/edo606JaqYna8Ngff2E8nEKq2vZla67a4N0tm9b +iQWFv7I7K7JIbSgw60t5YEvh7vu10vHRCJX/Fkpmu1DItPSM4+zTgubaDGtw +pZBH/6lJYY0WfKiITO2l3fe05vP5dC36/2zHLepGobCYf2XEUS3YHcz/Lc2D +wtNO3D2WbbuhTv1i+TUfOr/iNZIDLZrwKv+QbsQlChkZymuVP6rDbf6nbEqB +FFpzV47WVqmDf5BsfT9tHymXVK80dZA0Xc9UD6b7Uvu8/OAxdbjI+gYmQynU +cFFabv6oBjuPmWj8c4VCi2OX2uq+qkI8p7mCWBKFWjLtVjGbdoGTZ+uPVtov +7n5qzZpTAa1PGsV+yXSfxHrL27tVYKxYRK49hcJttwrtrt9WAaZl746wdApL +T717V71LBX6W2sqMZ1FYOfz3LOsJZThi68SouE+h3WLDQkWHIlT2BBmb5VPI +MeCivv+JIogczwhdoJ13kbo5e0cRPhu/HtEooPsxmu6Z4q8IbrpKxbUPKSzx +5xNmpxQhUoqF2VJGIfK+6HT2U4DqyRT7nqd0f4UrfhYqyYPoqeKki8/oPIf8 +9ygQ8hA41NIkVkuhdJbYhda18rC3b3mb3XMKs7TZlWFYDjrb7GeG6um8/Rt3 +yGTIwWTpzrCpZgrlU+ujpznlgOHfdIetg8L2pP2/vbt3gOlJIrWCdudI2vcH +5TsgxuT8ZZdOCkMjekx443bAb9mdrh1v6ffVMX/ZQ28HfPiSLJ/znsKWtxSY +lWyHhEOONcxeCqUsfZ+XJG4DNoKjPWiUwpmIklgefxlQX2ddrzxG3zdzcaTl +mAycWaosG6VtwxX76YGaDPS/dU05PEGhe9Xj5tEFaai50mlBfKdQvNlyNzNA +GrxncoZrZyhUNSzOZkZKQf7A8nvvWQqXVol6u52Sgs+vTVukf9HvI6nw7bOD +UmCUt7ogbo4+j87+yHYeKdhh5XXGZpHCh1Z8GSWZknDiwCt73iUKIaT1FUeQ +JFxXlTrSTFtX/fyWCyckgXtT9y65ZQrveHc7dG2TBG0WZZmvtNnnxdiq10uC +32SMUOof+n1eCVtd+1MCHn4cWX3wL4WrF3uNR7skYKiJufyXdtRR5QLlGgn4 +H6xYIKY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 10}, {0., 0.9065364977598496}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 10}, {0., 0.9065364977598496}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.992490746943987*^9, + 3.9924907558392887`*^9}}, + CellLabel->"Out[34]=",ExpressionUUID->"fbc78f1a-a110-4201-b666-ed9327ff71c1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.992490762089761*^9, 3.9924907707304373`*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.03186539756034922`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.15196830163658082`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.03186539756034922`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.15196830163658082`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"29759.32216792815`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]]}], \\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.03186539756034922`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.15196830163658082`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"4.5365432456209324`*^7\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of \ +numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) \ +at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 35, 2, 25981787676918171289, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992490772355879*^9}, + CellLabel-> + "During evaluation of \ +In[35]:=",ExpressionUUID->"17bd0456-27e9-47f1-8a61-f71fcbb8a532"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3966224812080126`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.3504082381946567`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.9924907724244747`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"b6f62474-2ea5-4fc5-9620-cb47ee7dde78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.397"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}, {3.992490775997477*^9, + 3.992490778346204*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.397`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9, + 3.992490789997221*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"927d70a7-7391-4c83-b883-79e517d02289"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}, {3.992490783283875*^9, + 3.992490787218137*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9, + 3.9924907881758623`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"ec635a86-c125-4d7e-bbe3-68dd0373fe92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}, { + 3.992490814436172*^9, 3.99249081512245*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlnc4FYwXx29k1quMZHP3vZVkJJTOybhm2UUi2YmE7JRVIRk3o9eKCCWy +R0lSWWl7EVHp0iAUDRE/vz/Oc57znD/P5/l8D9HZ19KNi0AgLKzU//shvQwB +AkECPTdKjCt6z8CusQ2t1YkSqPFm2rv/5BRwXmYxd1IlMXdC9RbP0wmYk173 +saRGEjeR3wS9s/wMo+vDfIxACm8LhD/0nBqHTMsvxa19Uhiw5vwOV28O1E0b +qcm4SmPLwD7lSJVRyH5dcXLvX2k0fV1oX/72LTj6Cp6uuSSDVTLeZW86hiDB +yWbor7wshqW+v7fPeAAi8q5NyDbK4j6ryoaskV54vWPMjMSSw6EZeedC7pcg +EiEdYf9CDrdZKUpXCD4D0XUHHLw85XGeFUE4bNANpxajUh1+yOPI5ivhdu7t +sF/abpeogQIqPo5UE25rA4ckbzERtgLyftsdlex6DyRuBYtzDyjgp81/Dj04 +cxt2BPF8HyET8Yf+zN5df+pAcCLh100vIt7L8xM75lENe3gv9bk1EFGo8Klt +s2EFeASLSzVxkVCtOkChe6YU9mSknl8yJOH3c+lfZx8UwRn75Kdb00nIfUBi +QvVvPvg9jQWLNyQM3r70WlQ+Bywzf4gJkcgofkKY19gqEzJ5Pz+o8yGjZGfW +gif3JUgh9+aY1ZJx4urGwfojyfB1fI9ZL4GCKbOdEB8QD5qEze6zJhQsoo1b +bq+OBc2ONSWr2RR0ElBejFwbBblqvvcJIxT8FmVvD9nhUGfWzTNNoeK/Z9yj +FIqDoLk1vyLYi4rFvjIEKPIH2sD8tok6KuoKnfK0YR4H/VzjYfNFKo5Mz1f9 +0+wJnfxyLgWGNJRs7KF+n3aBZeJnEU4yDV+kbnXYZOIE1FQl+v3/aOgypx4+ +0XQQKop/i8UT6VjGWKjOu2ADk0ebtuh60vHI0Z+WyrkWcPHVouynWjp2JHA1 +iZiZguylOwF0AgMzU8JrxP5jwRGC/6wti4HhQf4GN8t1QECszDSQzcCJUOMf +WoK7wf2/oWcxrxlYICot0xepAVWT5xu2yDPxmZ5S+971auB0oz6k1YuJV2QO +WJBp2+DBhmEXVhUTj97+vcvk8CZ4Oay2sLzMxKfdC64OfFToEetztWNJoOBk +2D7169NQ/FvIQyCViIztxN0CNZXQ22Idsm6YiJe5dKktEWXQy9v7fIhKQnkd +5z2WD4rhXcj6MnFfEi6JtVIyuq7CbzFBvtZGEga0sU9OfcmDURXtG0rLJLSe +N/SoyP0X5vb5Tr43IGOptl6h6vp0EEt3rORKJeMDRe0yN1Yq7OZZ8zN1kIzB +vinDInqJcCmgftCFRsEBhtMNmDsHTS7ZvIvHKZjoH3GG1RUNExHatVyNFHSI ++yaoces0MNtyPgSvoiLfRteI8VWhoBG3/WCNARW7zDUcSxNPgp/pE1/lFCrC +2Ghz5cMTUK9F4pN7TUU0f/vnrvkx4LVSUwgl0bANO+dttruDazr3HR1vGj6V +uiu7l9cZ2HZrc19W03DXNfm3NjEO8EVaTO7aAg1/Z2laui0fgL38rxXG9ehY +XKhfZRhuBc1y9tfSk+j4+f7modo0M7BRfdN5fpCO3rBm6qa3EdzrylBFMgN7 +86zXvinWg+0JQgoe3gx8un/yF18rQuNJ3aTFOga2qHlRC4k7Ye37Kl3bRQaa +Tgg5mW9RhzgT+cs/9ZiY6pjcxCCogMg7o+PcSUzkfXdBO0ZJEbrn45QKB5jY +pt997VEiHdK2qDdsIUugj4n9wUcKMzDwzVRpKIKIruXD963iqiBhNKBEq5uI +55M/1mweuglyEBhoLEbCnLu6VsK9JZDCZ/Gv4CESdos6Kz5qLYRdjT1ev4pJ +ONBaqT6llg83CO9Ptn4lIeGJc796fxaQA6oJv9VW7u2apla0KQP6npC1Dp0h +Y5qmKbFVng0eab5dJzrIeMdPr6ez8yKg4qJYjigFufnLfrzZHAfzyi71wQ4U +3OkTX/6rIQbYV4vKua9RMHj0N7f3lkhwWThr2TxNwfu109XRrDD4ObGsZKFO +RdNHPCW/2YGQwbsj2TqCivKFHA+NCj84LiCUE9tBxbLW6DRyrTfQQu4tua6j +YcFoTLfECQ8Qf7Z+nf9BGj4ztgzj+eEMnXf/HLAvoGFvp1SeEvdhiOsrINV8 +oqGU4NWGA1Z2cLr/U9YOVTp67htKGTplDdZ6gke9w+l4n7wj3a/cHPxivGcb +OugYWGYyydNrDMe3Xn9VI8xAAo+YMVeDPpjotwo42TGw7oO4/6bKPeCkF/xV +o4iBQfbM4sjEXaA51C4w9YWBFH/DgwyzHSCT86pEWIWJBSVNCxKrVEFTP3L2 +yCkm3rvK/62vZiu089V0zT1kYomkgO7ABAOeTjimW0wyMSP7c+RPpEGIhrtT +hrAEznYwzlxizYDf1DFRvZNEnI86defKzypwP8kNz1uJ6HbK7sBYcjnoDD3q +iFpDwrcvQPqjUyl82ueXEmtJQoX8VMNeLIIRgQoZ0TwShm274fgtMx+SPqoM +8o+R8NXeiO0WodmgxdMrGLOZjMKhEt+pdzNA3Yt3OS6IjHNbxaN0U9iwOERU +fXeXjJWzx+Wvs5NAXFBeRUOQgqvy+J8VPYkDSUmDpDprCrZnFUXmqMbCuJrt +pthsCh4ZkO5fnR0JhMt/4kfGKTj3YUf786kw6JMdk8pXpOJixiveT1JBcP3D +hNx4ABW3ad3ILqD7Q/dMzHhDCxWDXgWwAr19oF6QZ2qQh4bBRpMJI6KeMH1s +Y1O8BQ0zL1wsnjjhApxpv7orl2nY4/Ouzaj7MPTVfKJovaXhRA37mvbqgyB+ +b+aA0yY63igfK0jksgGF/vfd/X501A3b7V9FtoAzZbX85i10DPL/KMaTbALt +TtWFX/kZuOR3jaOjx4I+0r+n35gxkMvk5rCqog6obRGWPZC9wkPZ/OR3Q20w +t30xqTHKwMqfrbUS4zvA/WG50hUGEw8xAoJHzqlCT7C0emoAE4kbuvnCI5Tg +oVBnhuwdJpIdz+vPXmVCz/cA57DRlTzQD/rvHIcGzzlGnYyfTOx/LHtytoAK +XruX1B7zS6B+aO1hD7sZaPEOPxviS8SQoxsbardWg7X2Y0Hp5pX8d0gdeTxR +DtbMqROyfCSEmM28QaWlkOa/KvH+XhLWkQmLhOgiqKjO+5H/74oPhgT/GHXn +A2FoaG35OxJ2mf41aH6cDaynnOROGhn3lw0ebOPLBPfG4CPy/mSUfv5OKKqL +De3Lfz5ubCLjxRNy5nHzSRAdUonneCg4c2jnW2GFeLi+VjPM2pyC2ezW/fH+ +sbB+qcrzYQYFAw6q27q9ioR947XXfEcpeDeP7R+tFw7t9QdSDJgrvj/k8FHS +KQhULNvHt/pSsWmPb2icmz+EcFouWNym4rO40G6Lbh9YelUytmEVDVffNpT0 +8PCEQ7elkjbspaFyukuBQKULfI9T5OxJoyGnyzy3f6MTnCatLY4YpGG59GJS +qONBGK0+WT9HpWO1s61aKcsGzuU/Cf/Hh45LL8iLfE4WcO6erWhOEx2PNdz9 +7jFlAt/n6y8krGZgefL+nRqJLMhJ5WmSMmHgb6MbDQQfHZBTGFEbz2Cs+Paw +/p9SbRjK2O84MszAsj/LeosqGpA4kDU7Rmbi/m45c/nHqiAufLSf4ctEyXie +F5ocJdBjW/5VrmciZ4cRK5CwCUyCljqThpl4a32GhZAGHcw8e7dqf2OivVm6 +/dgMFSyO3DsitsDEu+zoThlrKrjsMb7itloCR136rXucZ4CzOaZFxIeInRHd ++QvG1dBNvHWitYmIyxZWNSSpCnA0j9afWE1CCmeb2fmeUvCK7RJwMiGh4kv+ +C++vFoE438ZRj0wSXsnj3Lr5IR8arbfRzoyQsHbVezvjH9nQo+JjeYxCxttZ +v3M8FTPh9OFK9hdfMk41ZWUfHmdDWapHW009GRkBDkcDFZOhUWneQJGbgofP +mIvcNIoHP16VGfI+CorYHdprwI6FotGR865pFPTdn5I/NB0JQf+wVTXeUTDh +sOLee77hsJtb2ESaTsUN6YWBXDFBEBxfY/zKm4phF71yu2L9wczxkKNcIxW/ +7XgcUTHvA1c1Qo/ULFGxubTIMyPVE9hHckKGjGmYnXHLi/PMBUJsLiyIsGn4 +qKN32FvZCV6+znWXH1iZrwfFrEk8CJ0368dayHT0/zL5he+oDWie1bUu9aJj +FVeZQvRpC0jouiGh00BHx3/8RNPkTCGO1bRsy8XAwxEhbvGVLFjq3NnXZMjA +W78+hGhd1AGxrIet5WkMTNDSVQ14rQ0K6pIbq4YY+MF4Vr3bTgPynFNt4olM +/MBvV3T5qyrcGV5XOue94otVT6XWrN0Gq3sztzXXMDGg6FhQndImEGzUXZQY +YuLuywbNus50ELoh6dwxxcTeXb2PuiRosL5wdXre7xU+3rn95IRRgS0ftjXh +LxPZLG/vLEUqvNM50avCJYG707sSIjxmIHgN39DbY0RMF9FnbbWrBl6xAvKl +RiLqitbTPJQrYNSlR+klNwlDRVfFXB0phf0Xyw2VjFfyZjQrwrWmCIyVrWxN +Mlb4cH/RdGwmH9JSB1U8h0nImdIuoQvmwDq3qppd5JV8Kdf8aIGZIFhjuvn5 +8RV+IPDryBwb8gZzb0XVkdHpZkXSBYNksLyQ+5jARcGoNCtdtmM82MRsLVuz +l4Jv8j4aaVyNhSnrwEy1SxS0fW7owViKBMGCyDCZtxQMq4z+GHQ2HMKu+zB4 +aFRsixpuT0gLAinqjVPXjlHxa1nu/Yg0f9CSLutY3bDyXxQqXAsRPg5zX47I +R/9d2Zsn83YVe4Li9mGfFiMaNuTxjnHeukDzTq3zCyk0rPR/mMra7QSn6sZZ +M3001IKm+m9XD8Kd6wf+FpLouKZkv4dpmA2wg0+3Bh6lYyjLQ+TVRQtIfGol +vaGejj+0xtZ2qZvCS+/bmriKgWLPtNs62lhQyelzjTdgICsp1NY7VweE+hvO +pV5iIMnhlfKTb9rw4GxYQNYgAwd8CG6GPhpQWpLIa6/AxBczpLqJJVUQ0nNJ +GTzGRPPvFt+EJbcB56SWcVQ1E5d/sHIDDTbBF9vxDSOvmZhSmiYRHkyHKePm +8MSvTJSJIgr3b6HBjG5JhcsvJk7PO7i4JFHBv1XG0GyRifsiNnx6iVSoPt0v +9mhphT/+z/oBUlT4H3M26dU= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 216, 181, 147, 114, 82, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 217, 182, 148, 115, 83, 52, + 21, 218, 183, 149, 116, 84, 53, 22, 219, 184, 150, 117, 85, 54, + 23, 220, 185, 151, 118, 86, 55, 24, 221, 186, 152, 119, 87, 56, 25, + 222, 187, 153, 120, 88, 57, 26, 223, 188, 154, 121, 89, 58, 27, + 224, 189, 155, 122, 90, 59, 28, 225, 190, 156, 123, 91, 60, 29, + 226, 191, 157, 124, 92, 61, 30, 227, 192, 158, 125, 93, 62, 31, + 228, 193, 159, 126, 94, 63, 32, 229, 194, 160, 127, 95, 64, 33, + 230, 195, 161, 128, 96, 65, 34, 231, 196, 162, 129, 97, 66, 35, + 232, 197, 163, 130, 98, 67, 36, 233, 198, 164, 131, 99, 68, 37, + 234, 199, 165, 132, 100, 69, 38, 235, 200, 166, 133, 101, 70, 39, + 236, 201, 167, 134, 102, 71, 40, 237, 202, 168, 135, 103, 72, 41, + 238, 203, 169, 136, 104, 73, 42, 239, 204, 170, 137, 105, 74, 43, + 240, 205, 171, 138, 106, 75, 44, 241, 206, 172, 139, 107, 76, 45, + 242, 207, 173, 140, 108, 77, 46, 243, 208, 174, 141, 109, 78, 47, + 244, 209, 175, 142, 110, 79, 48, 245, 210, 176, 143, 111, 80, 49, + 246, 211, 177, 144, 112, 81, 247, 212, 178, 145, 113, 248, 213, + 179, 146, 249, 214, 180, 250, 215, 251, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzb22gKCzeweM2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7j+J/4DfoBU94= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlnc4FYwXx29k1quMZHP3vZVkJJTOybhm2UUi2YmE7JRVIRk3o9eKCCWy +R0lSWWl7EVHp0iAUDRE/vz/Oc57znD/P5/l8D9HZ19KNi0AgLKzU//shvQwB +AkECPTdKjCt6z8CusQ2t1YkSqPFm2rv/5BRwXmYxd1IlMXdC9RbP0wmYk173 +saRGEjeR3wS9s/wMo+vDfIxACm8LhD/0nBqHTMsvxa19Uhiw5vwOV28O1E0b +qcm4SmPLwD7lSJVRyH5dcXLvX2k0fV1oX/72LTj6Cp6uuSSDVTLeZW86hiDB +yWbor7wshqW+v7fPeAAi8q5NyDbK4j6ryoaskV54vWPMjMSSw6EZeedC7pcg +EiEdYf9CDrdZKUpXCD4D0XUHHLw85XGeFUE4bNANpxajUh1+yOPI5ivhdu7t +sF/abpeogQIqPo5UE25rA4ckbzERtgLyftsdlex6DyRuBYtzDyjgp81/Dj04 +cxt2BPF8HyET8Yf+zN5df+pAcCLh100vIt7L8xM75lENe3gv9bk1EFGo8Klt +s2EFeASLSzVxkVCtOkChe6YU9mSknl8yJOH3c+lfZx8UwRn75Kdb00nIfUBi +QvVvPvg9jQWLNyQM3r70WlQ+Bywzf4gJkcgofkKY19gqEzJ5Pz+o8yGjZGfW +gif3JUgh9+aY1ZJx4urGwfojyfB1fI9ZL4GCKbOdEB8QD5qEze6zJhQsoo1b +bq+OBc2ONSWr2RR0ElBejFwbBblqvvcJIxT8FmVvD9nhUGfWzTNNoeK/Z9yj +FIqDoLk1vyLYi4rFvjIEKPIH2sD8tok6KuoKnfK0YR4H/VzjYfNFKo5Mz1f9 +0+wJnfxyLgWGNJRs7KF+n3aBZeJnEU4yDV+kbnXYZOIE1FQl+v3/aOgypx4+ +0XQQKop/i8UT6VjGWKjOu2ADk0ebtuh60vHI0Z+WyrkWcPHVouynWjp2JHA1 +iZiZguylOwF0AgMzU8JrxP5jwRGC/6wti4HhQf4GN8t1QECszDSQzcCJUOMf +WoK7wf2/oWcxrxlYICot0xepAVWT5xu2yDPxmZ5S+971auB0oz6k1YuJV2QO +WJBp2+DBhmEXVhUTj97+vcvk8CZ4Oay2sLzMxKfdC64OfFToEetztWNJoOBk +2D7169NQ/FvIQyCViIztxN0CNZXQ22Idsm6YiJe5dKktEWXQy9v7fIhKQnkd +5z2WD4rhXcj6MnFfEi6JtVIyuq7CbzFBvtZGEga0sU9OfcmDURXtG0rLJLSe +N/SoyP0X5vb5Tr43IGOptl6h6vp0EEt3rORKJeMDRe0yN1Yq7OZZ8zN1kIzB +vinDInqJcCmgftCFRsEBhtMNmDsHTS7ZvIvHKZjoH3GG1RUNExHatVyNFHSI ++yaoces0MNtyPgSvoiLfRteI8VWhoBG3/WCNARW7zDUcSxNPgp/pE1/lFCrC +2Ghz5cMTUK9F4pN7TUU0f/vnrvkx4LVSUwgl0bANO+dttruDazr3HR1vGj6V +uiu7l9cZ2HZrc19W03DXNfm3NjEO8EVaTO7aAg1/Z2laui0fgL38rxXG9ehY +XKhfZRhuBc1y9tfSk+j4+f7modo0M7BRfdN5fpCO3rBm6qa3EdzrylBFMgN7 +86zXvinWg+0JQgoe3gx8un/yF18rQuNJ3aTFOga2qHlRC4k7Ye37Kl3bRQaa +Tgg5mW9RhzgT+cs/9ZiY6pjcxCCogMg7o+PcSUzkfXdBO0ZJEbrn45QKB5jY +pt997VEiHdK2qDdsIUugj4n9wUcKMzDwzVRpKIKIruXD963iqiBhNKBEq5uI +55M/1mweuglyEBhoLEbCnLu6VsK9JZDCZ/Gv4CESdos6Kz5qLYRdjT1ev4pJ +ONBaqT6llg83CO9Ptn4lIeGJc796fxaQA6oJv9VW7u2apla0KQP6npC1Dp0h +Y5qmKbFVng0eab5dJzrIeMdPr6ez8yKg4qJYjigFufnLfrzZHAfzyi71wQ4U +3OkTX/6rIQbYV4vKua9RMHj0N7f3lkhwWThr2TxNwfu109XRrDD4ObGsZKFO +RdNHPCW/2YGQwbsj2TqCivKFHA+NCj84LiCUE9tBxbLW6DRyrTfQQu4tua6j +YcFoTLfECQ8Qf7Z+nf9BGj4ztgzj+eEMnXf/HLAvoGFvp1SeEvdhiOsrINV8 +oqGU4NWGA1Z2cLr/U9YOVTp67htKGTplDdZ6gke9w+l4n7wj3a/cHPxivGcb +OugYWGYyydNrDMe3Xn9VI8xAAo+YMVeDPpjotwo42TGw7oO4/6bKPeCkF/xV +o4iBQfbM4sjEXaA51C4w9YWBFH/DgwyzHSCT86pEWIWJBSVNCxKrVEFTP3L2 +yCkm3rvK/62vZiu089V0zT1kYomkgO7ABAOeTjimW0wyMSP7c+RPpEGIhrtT +hrAEznYwzlxizYDf1DFRvZNEnI86defKzypwP8kNz1uJ6HbK7sBYcjnoDD3q +iFpDwrcvQPqjUyl82ueXEmtJQoX8VMNeLIIRgQoZ0TwShm274fgtMx+SPqoM +8o+R8NXeiO0WodmgxdMrGLOZjMKhEt+pdzNA3Yt3OS6IjHNbxaN0U9iwOERU +fXeXjJWzx+Wvs5NAXFBeRUOQgqvy+J8VPYkDSUmDpDprCrZnFUXmqMbCuJrt +pthsCh4ZkO5fnR0JhMt/4kfGKTj3YUf786kw6JMdk8pXpOJixiveT1JBcP3D +hNx4ABW3ad3ILqD7Q/dMzHhDCxWDXgWwAr19oF6QZ2qQh4bBRpMJI6KeMH1s +Y1O8BQ0zL1wsnjjhApxpv7orl2nY4/Ouzaj7MPTVfKJovaXhRA37mvbqgyB+ +b+aA0yY63igfK0jksgGF/vfd/X501A3b7V9FtoAzZbX85i10DPL/KMaTbALt +TtWFX/kZuOR3jaOjx4I+0r+n35gxkMvk5rCqog6obRGWPZC9wkPZ/OR3Q20w +t30xqTHKwMqfrbUS4zvA/WG50hUGEw8xAoJHzqlCT7C0emoAE4kbuvnCI5Tg +oVBnhuwdJpIdz+vPXmVCz/cA57DRlTzQD/rvHIcGzzlGnYyfTOx/LHtytoAK +XruX1B7zS6B+aO1hD7sZaPEOPxviS8SQoxsbardWg7X2Y0Hp5pX8d0gdeTxR +DtbMqROyfCSEmM28QaWlkOa/KvH+XhLWkQmLhOgiqKjO+5H/74oPhgT/GHXn +A2FoaG35OxJ2mf41aH6cDaynnOROGhn3lw0ebOPLBPfG4CPy/mSUfv5OKKqL +De3Lfz5ubCLjxRNy5nHzSRAdUonneCg4c2jnW2GFeLi+VjPM2pyC2ezW/fH+ +sbB+qcrzYQYFAw6q27q9ioR947XXfEcpeDeP7R+tFw7t9QdSDJgrvj/k8FHS +KQhULNvHt/pSsWmPb2icmz+EcFouWNym4rO40G6Lbh9YelUytmEVDVffNpT0 +8PCEQ7elkjbspaFyukuBQKULfI9T5OxJoyGnyzy3f6MTnCatLY4YpGG59GJS +qONBGK0+WT9HpWO1s61aKcsGzuU/Cf/Hh45LL8iLfE4WcO6erWhOEx2PNdz9 +7jFlAt/n6y8krGZgefL+nRqJLMhJ5WmSMmHgb6MbDQQfHZBTGFEbz2Cs+Paw +/p9SbRjK2O84MszAsj/LeosqGpA4kDU7Rmbi/m45c/nHqiAufLSf4ctEyXie +F5ocJdBjW/5VrmciZ4cRK5CwCUyCljqThpl4a32GhZAGHcw8e7dqf2OivVm6 +/dgMFSyO3DsitsDEu+zoThlrKrjsMb7itloCR136rXucZ4CzOaZFxIeInRHd ++QvG1dBNvHWitYmIyxZWNSSpCnA0j9afWE1CCmeb2fmeUvCK7RJwMiGh4kv+ +C++vFoE438ZRj0wSXsnj3Lr5IR8arbfRzoyQsHbVezvjH9nQo+JjeYxCxttZ +v3M8FTPh9OFK9hdfMk41ZWUfHmdDWapHW009GRkBDkcDFZOhUWneQJGbgofP +mIvcNIoHP16VGfI+CorYHdprwI6FotGR865pFPTdn5I/NB0JQf+wVTXeUTDh +sOLee77hsJtb2ESaTsUN6YWBXDFBEBxfY/zKm4phF71yu2L9wczxkKNcIxW/ +7XgcUTHvA1c1Qo/ULFGxubTIMyPVE9hHckKGjGmYnXHLi/PMBUJsLiyIsGn4 +qKN32FvZCV6+znWXH1iZrwfFrEk8CJ0368dayHT0/zL5he+oDWie1bUu9aJj +FVeZQvRpC0jouiGh00BHx3/8RNPkTCGO1bRsy8XAwxEhbvGVLFjq3NnXZMjA +W78+hGhd1AGxrIet5WkMTNDSVQ14rQ0K6pIbq4YY+MF4Vr3bTgPynFNt4olM +/MBvV3T5qyrcGV5XOue94otVT6XWrN0Gq3sztzXXMDGg6FhQndImEGzUXZQY +YuLuywbNus50ELoh6dwxxcTeXb2PuiRosL5wdXre7xU+3rn95IRRgS0ftjXh +LxPZLG/vLEUqvNM50avCJYG707sSIjxmIHgN39DbY0RMF9FnbbWrBl6xAvKl +RiLqitbTPJQrYNSlR+klNwlDRVfFXB0phf0Xyw2VjFfyZjQrwrWmCIyVrWxN +Mlb4cH/RdGwmH9JSB1U8h0nImdIuoQvmwDq3qppd5JV8Kdf8aIGZIFhjuvn5 +8RV+IPDryBwb8gZzb0XVkdHpZkXSBYNksLyQ+5jARcGoNCtdtmM82MRsLVuz +l4Jv8j4aaVyNhSnrwEy1SxS0fW7owViKBMGCyDCZtxQMq4z+GHQ2HMKu+zB4 +aFRsixpuT0gLAinqjVPXjlHxa1nu/Yg0f9CSLutY3bDyXxQqXAsRPg5zX47I +R/9d2Zsn83YVe4Li9mGfFiMaNuTxjnHeukDzTq3zCyk0rPR/mMra7QSn6sZZ +M3001IKm+m9XD8Kd6wf+FpLouKZkv4dpmA2wg0+3Bh6lYyjLQ+TVRQtIfGol +vaGejj+0xtZ2qZvCS+/bmriKgWLPtNs62lhQyelzjTdgICsp1NY7VweE+hvO +pV5iIMnhlfKTb9rw4GxYQNYgAwd8CG6GPhpQWpLIa6/AxBczpLqJJVUQ0nNJ +GTzGRPPvFt+EJbcB56SWcVQ1E5d/sHIDDTbBF9vxDSOvmZhSmiYRHkyHKePm +8MSvTJSJIgr3b6HBjG5JhcsvJk7PO7i4JFHBv1XG0GyRifsiNnx6iVSoPt0v +9mhphT/+z/oBUlT4H3M26dU= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 216, 181, 147, 114, 82, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 217, 182, 148, 115, + 83, 52, 21, 218, 183, 149, 116, 84, 53, 22, 219, 184, 150, 117, + 85, 54, 23, 220, 185, 151, 118, 86, 55, 24, 221, 186, 152, + 119, 87, 56, 25, 222, 187, 153, 120, 88, 57, 26, 223, 188, 154, + 121, 89, 58, 27, 224, 189, 155, 122, 90, 59, 28, 225, 190, + 156, 123, 91, 60, 29, 226, 191, 157, 124, 92, 61, 30, 227, 192, + 158, 125, 93, 62, 31, 228, 193, 159, 126, 94, 63, 32, 229, + 194, 160, 127, 95, 64, 33, 230, 195, 161, 128, 96, 65, 34, 231, + 196, 162, 129, 97, 66, 35, 232, 197, 163, 130, 98, 67, 36, + 233, 198, 164, 131, 99, 68, 37, 234, 199, 165, 132, 100, 69, + 38, 235, 200, 166, 133, 101, 70, 39, 236, 201, 167, 134, 102, + 71, 40, 237, 202, 168, 135, 103, 72, 41, 238, 203, 169, 136, + 104, 73, 42, 239, 204, 170, 137, 105, 74, 43, 240, 205, 171, + 138, 106, 75, 44, 241, 206, 172, 139, 107, 76, 45, 242, 207, + 173, 140, 108, 77, 46, 243, 208, 174, 141, 109, 78, 47, 244, + 209, 175, 142, 110, 79, 48, 245, 210, 176, 143, 111, 80, 49, + 246, 211, 177, 144, 112, 81, 247, 212, 178, 145, 113, 248, 213, + 179, 146, 249, 214, 180, 250, 215, 251, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.0264109600115834`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4FYwXvpFZnzKSzd33VpKRUDon45plF4lkJxKyU1aFZNyMPisilMge +JUllpe1DRKVLg1A0RPz8/jjPec7zvue857x/HaKzr6UbF4FAWFiJ/+dDehkC +BIIEem6UGFf0noF3Oid6VbgkcHd6V0KExwy47DG+4rZaAkdd+q17nGfAa/eS +2mN+CdQPrT3sYTcDIRruThnCEjjbwThziTUDaVvUG7aQJdDHxP7gI4UZ6BHr +c7VjSaDgZNg+9evTsGtsQ2t1ogRqvJn27j85BZyXWcydVEnMnVC9xfN0Auak +130sqZHETeQ3Qe8sP8Po+jAfI5DC2wLhDz2nxiHT8ktxa58UBqw5v8PVmwN1 +00ZqMq7S2DKwTzlSZRSyX1ec3PtXGk1fF9qXv30Ljr6Cp2suyWCVjHfZm44h +SHCyGforL4thqe/v7TMegIi8axOyjbK4z6qyIWukF17vGDMjseRwaEbeuZD7 +JYhESEfYv5DDbVaK0hWCz0B03QEHL095nGdFEA4bdMOpxahUhx/yOLL5Srid +ezvsl7bbJWqggIqPI9WE29rAIclbTIStgLzfdkclu94DiVvB4twDCvhp859D +D87chh1BPN9HyET8oT+zd9efOhCcSPh104uI9/L8xI55VEPwGr6ht8eImC6i +z9pqVw2czTEtIj5E7Izozl8wroYW7/CzIb5EDDm6saF2azX4TR0T1TtJxPmo +U3eu/KyCgW+mSkMRRHQtH75vFVcFxb+FPARSicjYTtwtUFMJe3gv9bk1EFGo +8Klts2EF8IoVkC81ElFXtJ7moVwB3cRbJ1qbiLhsYVVDkqoAa+3HgtLNK3yH +1JHHE+XgfpIbnrcS0e2U3YGx5HJIGA0o0eom4vnkjzWbh25Cb4t1yLphIl7m +0qW2RJSBR7C4VBMXCdWqAxS6Z0ph1KVH6SU3CUNFV8VcHSkFR/No/YnVJKRw +tpmd7ykFa+bUCVk+EkLMZt6g0lLQGXrUEbWGhG9fgPRHp1KQg8BAYzES5tzV +tRLuLYFe3t7nQ1QSyus477F8UAx7MlLPLxmS8Pu59K+zD4pg/8VyQyXjlf7R +rAjXmiLwiu0ScDIhoeJL/gvvrxZBmv+qxPt7SVhHJiwSoovg0z6/lFhLEirk +pxr2YhGk8Fn8K3iIhN2izoqPWgvhXcj6MnFfEi6JtVIyuq7CGfvkp1vTSch9 +QGJC9W8+GCtb2ZpkkLDW/UXTsZl8EOfbOOqRScIreZxbNz/kQ0V13o/8f0k4 +MCT4x6g7H0YEKmRE80gYtu2G47fMfNjV2OP1q3gFb61Un1LLh99ignytjSQM +aGOfnPqSB35PY8HiDQmDty+9FpXPgbTUQRXPYRJyprRL6II50Gi9jXZmZEV/ +1Xs74x/ZQBgaWlv+joRdpn8Nmh9nQ9JHlUH+MRK+2hux3SI0G24Q3p9s/UpC +whPnfvX+LBhV0b6htExC63lDj4rcf8Ey84eYEImM4ieEeY2tMmGdW1XNLjIZ +hcs1P1pgJvSo+Fgeo5DxdtbvHE/FTGA95SR30si4v2zwYBtfJmjx9ArGbF7h +h0p8p97NAHJANeG3GhlLXdPUijZlwNw+38n3Biu1tl6h6vp0yOT9/KDOh4yS +nVkLntyXQLDGdPPz4yvzIfDryBwbTh+uZH/xJeNUU1b24XE2uDcGH5H3J6P0 +83dCUV1sUPfiXY4LIuPcVvEo3RQ29D0hax06Q8Y0TVNiqzwbxNIdK7lSyfhA +UbvMjZUKKeTeHLNaMk5c3ThYfyQZ8gZzb0XVkdHpZkXSBYNkKEv1aKupJyMj +wOFooGIytC//+bixiYwXT8iZx80nweIQUfXdXTJWzh6Xv85OAo80364THWS8 +46fX09l5EXbzrPmZOkjGYN+UYRG9RPg6vsesl0DBlNlOiA+IB8sLuY8JXBSM +SrPSZTvGQ6PSvIEiNwUPnzEXuWkUD9EhlXiOh4Izh3a+FVaIB3FBeRUNQQqu +yuN/VvQkDlBxUSxHlILc/GU/3myOg0sB9YMuNAoOMJxuwNw50CRsdp81oWAR +bdxye3Us2MRsLVuzl4Jv8j4aaVyNBT9elRnyPgqK2B3aa8COhetrNcOszSmY +zW7dH+8fC5KSBkl11hRszyqKzFGNhXlll/pgBwru9Ikv/9UQA00u2byLxymY +6B9xhtUVDZoda0pWsynoJKC8GLk2CqasAzPVLlHQ9rmhB2MpEopGR867plHQ +d39K/tB0JKxfqvJ8mEHBgIPqtm6vImFczXZTbDYFjwxI96/OjgT21aJy7msU +DB79ze29JRImIrRruRop6BD3TVDj1mnIVfO9Txih4Lcoe3vIDgfBgsgwmbcU +DKuM/hh0NhyC/mGraryjYMJhxb33fMNh33jtNd9RCt7NY/tH64UD4fKf+JFx +Cs592NH+fCoMXBbOWjZPU/B+7XR1NCsMmG05H4JXUZFvo2vE+KpQqDPr5pmm +UPHfM+5RCsVBEHbdh8FDo2Jb1HB7QloQ7OYWNpGmU3FDemEgV0wQtNcfSDFg +UhEOOXyUdAqCPtkxqXxFKi5mvOL9JBUEPyeWlSzUqWj6iKfkNzsQNOK2H6wx +oGKXuYZjaeJJaG7Nrwj2omKxrwwBivxBinrj1LVjVPxalns/Is0fguNrjF95 +UzHsolduV6w/qFi2j2/1pWLTHt/QODd/uP5hQm48gIrbtG5kF9D9IYN3R7J1 +BBXlCzkeGhV+4Gf6xFc5ZWW/sdHmyocngDYwv22ijoq6Qqc8bZjHQUu6rGN1 +AxXLChWuhQgfBzPHQ45yjVT8tuNxRMW8D4RwWi5Y3Kbis7jQbotuH+ieiRlv +aKFi0KsAVqC3DxwXEMqJ7Vjpb41OI9d6Q70WiU/uNRXR/O2fu+bHQD/XeNh8 +kYoj0/NV/zR7wtyXI/LRf1fuM0/m7Sr2hKsaoUdqlqjYXFrkmZHqCUuvSsY2 +rKLh6tuGkh4enlAvyDM1yEPDYKPJhBFRT6CF3FtyXUfDgtGYbokTHsBrpaYQ +SqJhG3bO22x3h05+OZcCQxpKNvZQv0+7gOL2YZ8WIxo25PGOcd66APtITsiQ +MQ2zM255cZ65wKHbUkkb9tJQOd2lQKDSBaaPbWyKt6Bh5oWLxRMnXED82fp1 +/gdp+MzYMoznhzO4pnPf0fGm4VOpu7J7eZ1hmfhZhJNMwxepWx02mThB806t +8wspNKz0f5jK2u0EITYXFkTYNHzU0TvsrewE3+MUOXvSaMjpMs/t3+gEnGm/ +uiuXadjj867NqPswdN79c8C+gIa9nVJ5StyHgW23NvdlNQ13XZN/axPjANRU +Jfr9/2joMqcePtF0EE7VjbNm+mioBU31364ehJevc93lB1b0rgfFrEk8CKdJ +a4sjBmlYLr2YFOp4EPpqPlG03tJwooZ9TXv1QYjrKyDVfKKhlODVhgNWdvBF +Wkzu2gINf2dpWrotH4CK4t9i8UQ6ljEWqvMu2MCd6wf+FpLouKZkv4dpmA10 +3qwfayHT0f/L5Be+ozYwWn2yfo5Kx2pnW7VSlg2I35s54LSJjjfKxwoSuWzg +dP+nrB2qdPTcN5QydMoa9vK/VhjXo2NxoX6VYbgVTB5t2qLrSccjR39aKuda +ADv4dGvgUTqGsjxEXl20AM2zutalXnSs4ipTiD5tAefyn4T/40PHpRfkRT4n +C1Dof9/d70dH3bDd/lVkC7DWEzzqHU7H++Qd6X7l5tAsZ38tPYmOn+9vHqpN +M4OLrxZlP9XSsSOBq0nEzBQSn1pJb6in4w+tsbVd6qaQ0HVDQqeBjo7/+Imm +yZnCuXu2ojlNdDzWcPe7x5QJnCmr5TdvoWOQ/0cxnmQT8Ivxnm3ooGNgmckk +T68x2Ki+6Tw/SEdvWDN109sIZC/dCaATGJiZEl4j9h8LXnrf1sRVDBR7pt3W +0caCOFbTsi0XAw9HhLjFV7Lg+3z9hYTVDCxP3r9TI5EF7U7VhV/5Gbjkd42j +o8eC41uvv6oRZiCBR8yYq0Ef7nVlqCKZgb151mvfFOvBEYL/rC2LgeFB/gY3 +y3WgktPnGm/AQFZSqK13rg4sde7sazJk4K1fH0K0LupATipPk5QJA38b3Wgg ++OhAH+nf02/MGMhlcnNYVVEHTPRbBZzsGFj3Qdx/U+Ue2J4gpODhzcCn+yd/ +8bUiCIiVmQayGTgRavxDS3A3CPU3nEu9xECSwyvlJ9+0QSzrYWt5GgMTtHRV +A15rg5zCiNp4BmPl/zqs/6dUG9S2CMseyF6ZXzY/+d1QG5z0gr9qFDEwyJ5Z +HJm4CxpP6iYt1jGwRc2LWkjcCe7/DT2Lec3AAlFpmb5IDXhwNiwga5CBAz4E +N0MfDVBQl9xYNcTAD8az6t12GjCUsd9xZJiBZX+W9RZVNMDc9sWkxigDK3+2 +1kqM7wDNoXaBqS8MpPgbHmSY7YC176t0bRcZaDoh5GS+RR2qJs83bJFn4jM9 +pfa969WgtCSR116BiS9mSHUTS6qQ55xqE09k4gd+u6LLX1UhcSBrdozMxP3d +cubyj1XB/WG50hUGEw8xAoJHzqmCTM6rEmEVJhaUNC1IrFKFOBP5yz/1mJjq +mNzEIKiA0436kFYvJl6ROWBBpm0DIT2XlMFjTDT/bvFNWHIb3BleVzrnzUTi +qqdSa9ZuA3Hho/0MXyZKxvO80OQoQU+wtHpqwAq+oZsvPEIJNPUjZ4+cYuK9 +q/zf+mq2gsg7o+PcSUzkfXdBO0ZJER5sGHZhVTHx6O3fu0wObwLOSS3jqGom +Lv9g5QYabILVvZnbmmuYGFB0LKhOaRPosS3/KtczkbPDiBVI2AQPhTozZO8w +kex4Xn/2KhPa+Wq65h4ysURSQHdgggHd83FKhQNMbNPvvvYokQ5fbMc3jLxm +YkppmkR4MB0EG3UXJYaYuPuyQbOuMx1MgpY6k4aZeGt9hoWQBh16vgc4h42u ++KEf9N85Dg2eTjimW0wyMSP7c+RPpMGUcXN44lcmykQRhfu30EDohqRzxxQT +e3f1PuqSoIGZZ+9W7W9MtDdLtx+bocJzjlEn4ycT+x/LnpwtoMKMbkmFyy8m +Ts87uLgkUWF94er0vN9MvPvO7ScnjAoWR+4dEVtYqdnRnTLWVPBvlTE0W2Ti +vogNn14iFdjyYVsT/jKRzfL2zlKkQvXpfrFHSyt+8X/WD5CiwsthtYXlZSY+ +7V5wdeCjwv8A/1Lp1Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.0264109600115834`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4FYwXvpFZnzKSzd33VpKRUDon45plF4lkJxKyU1aFZNyMPisilMge +JUllpe1DRKVLg1A0RPz8/jjPec7zvue857x/HaKzr6UbF4FAWFiJ/+dDehkC +BIIEem6UGFf0noF3Oid6VbgkcHd6V0KExwy47DG+4rZaAkdd+q17nGfAa/eS +2mN+CdQPrT3sYTcDIRruThnCEjjbwThziTUDaVvUG7aQJdDHxP7gI4UZ6BHr +c7VjSaDgZNg+9evTsGtsQ2t1ogRqvJn27j85BZyXWcydVEnMnVC9xfN0Auak +130sqZHETeQ3Qe8sP8Po+jAfI5DC2wLhDz2nxiHT8ktxa58UBqw5v8PVmwN1 +00ZqMq7S2DKwTzlSZRSyX1ec3PtXGk1fF9qXv30Ljr6Cp2suyWCVjHfZm44h +SHCyGforL4thqe/v7TMegIi8axOyjbK4z6qyIWukF17vGDMjseRwaEbeuZD7 +JYhESEfYv5DDbVaK0hWCz0B03QEHL095nGdFEA4bdMOpxahUhx/yOLL5Srid +ezvsl7bbJWqggIqPI9WE29rAIclbTIStgLzfdkclu94DiVvB4twDCvhp859D +D87chh1BPN9HyET8oT+zd9efOhCcSPh104uI9/L8xI55VEPwGr6ht8eImC6i +z9pqVw2czTEtIj5E7Izozl8wroYW7/CzIb5EDDm6saF2azX4TR0T1TtJxPmo +U3eu/KyCgW+mSkMRRHQtH75vFVcFxb+FPARSicjYTtwtUFMJe3gv9bk1EFGo +8Klts2EF8IoVkC81ElFXtJ7moVwB3cRbJ1qbiLhsYVVDkqoAa+3HgtLNK3yH +1JHHE+XgfpIbnrcS0e2U3YGx5HJIGA0o0eom4vnkjzWbh25Cb4t1yLphIl7m +0qW2RJSBR7C4VBMXCdWqAxS6Z0ph1KVH6SU3CUNFV8VcHSkFR/No/YnVJKRw +tpmd7ykFa+bUCVk+EkLMZt6g0lLQGXrUEbWGhG9fgPRHp1KQg8BAYzES5tzV +tRLuLYFe3t7nQ1QSyus477F8UAx7MlLPLxmS8Pu59K+zD4pg/8VyQyXjlf7R +rAjXmiLwiu0ScDIhoeJL/gvvrxZBmv+qxPt7SVhHJiwSoovg0z6/lFhLEirk +pxr2YhGk8Fn8K3iIhN2izoqPWgvhXcj6MnFfEi6JtVIyuq7CGfvkp1vTSch9 +QGJC9W8+GCtb2ZpkkLDW/UXTsZl8EOfbOOqRScIreZxbNz/kQ0V13o/8f0k4 +MCT4x6g7H0YEKmRE80gYtu2G47fMfNjV2OP1q3gFb61Un1LLh99ignytjSQM +aGOfnPqSB35PY8HiDQmDty+9FpXPgbTUQRXPYRJyprRL6II50Gi9jXZmZEV/ +1Xs74x/ZQBgaWlv+joRdpn8Nmh9nQ9JHlUH+MRK+2hux3SI0G24Q3p9s/UpC +whPnfvX+LBhV0b6htExC63lDj4rcf8Ey84eYEImM4ieEeY2tMmGdW1XNLjIZ +hcs1P1pgJvSo+Fgeo5DxdtbvHE/FTGA95SR30si4v2zwYBtfJmjx9ArGbF7h +h0p8p97NAHJANeG3GhlLXdPUijZlwNw+38n3Biu1tl6h6vp0yOT9/KDOh4yS +nVkLntyXQLDGdPPz4yvzIfDryBwbTh+uZH/xJeNUU1b24XE2uDcGH5H3J6P0 +83dCUV1sUPfiXY4LIuPcVvEo3RQ29D0hax06Q8Y0TVNiqzwbxNIdK7lSyfhA +UbvMjZUKKeTeHLNaMk5c3ThYfyQZ8gZzb0XVkdHpZkXSBYNkKEv1aKupJyMj +wOFooGIytC//+bixiYwXT8iZx80nweIQUfXdXTJWzh6Xv85OAo80364THWS8 +46fX09l5EXbzrPmZOkjGYN+UYRG9RPg6vsesl0DBlNlOiA+IB8sLuY8JXBSM +SrPSZTvGQ6PSvIEiNwUPnzEXuWkUD9EhlXiOh4Izh3a+FVaIB3FBeRUNQQqu +yuN/VvQkDlBxUSxHlILc/GU/3myOg0sB9YMuNAoOMJxuwNw50CRsdp81oWAR +bdxye3Us2MRsLVuzl4Jv8j4aaVyNBT9elRnyPgqK2B3aa8COhetrNcOszSmY +zW7dH+8fC5KSBkl11hRszyqKzFGNhXlll/pgBwru9Ikv/9UQA00u2byLxymY +6B9xhtUVDZoda0pWsynoJKC8GLk2CqasAzPVLlHQ9rmhB2MpEopGR867plHQ +d39K/tB0JKxfqvJ8mEHBgIPqtm6vImFczXZTbDYFjwxI96/OjgT21aJy7msU +DB79ze29JRImIrRruRop6BD3TVDj1mnIVfO9Txih4Lcoe3vIDgfBgsgwmbcU +DKuM/hh0NhyC/mGraryjYMJhxb33fMNh33jtNd9RCt7NY/tH64UD4fKf+JFx +Cs592NH+fCoMXBbOWjZPU/B+7XR1NCsMmG05H4JXUZFvo2vE+KpQqDPr5pmm +UPHfM+5RCsVBEHbdh8FDo2Jb1HB7QloQ7OYWNpGmU3FDemEgV0wQtNcfSDFg +UhEOOXyUdAqCPtkxqXxFKi5mvOL9JBUEPyeWlSzUqWj6iKfkNzsQNOK2H6wx +oGKXuYZjaeJJaG7Nrwj2omKxrwwBivxBinrj1LVjVPxalns/Is0fguNrjF95 +UzHsolduV6w/qFi2j2/1pWLTHt/QODd/uP5hQm48gIrbtG5kF9D9IYN3R7J1 +BBXlCzkeGhV+4Gf6xFc5ZWW/sdHmyocngDYwv22ijoq6Qqc8bZjHQUu6rGN1 +AxXLChWuhQgfBzPHQ45yjVT8tuNxRMW8D4RwWi5Y3Kbis7jQbotuH+ieiRlv +aKFi0KsAVqC3DxwXEMqJ7Vjpb41OI9d6Q70WiU/uNRXR/O2fu+bHQD/XeNh8 +kYoj0/NV/zR7wtyXI/LRf1fuM0/m7Sr2hKsaoUdqlqjYXFrkmZHqCUuvSsY2 +rKLh6tuGkh4enlAvyDM1yEPDYKPJhBFRT6CF3FtyXUfDgtGYbokTHsBrpaYQ +SqJhG3bO22x3h05+OZcCQxpKNvZQv0+7gOL2YZ8WIxo25PGOcd66APtITsiQ +MQ2zM255cZ65wKHbUkkb9tJQOd2lQKDSBaaPbWyKt6Bh5oWLxRMnXED82fp1 +/gdp+MzYMoznhzO4pnPf0fGm4VOpu7J7eZ1hmfhZhJNMwxepWx02mThB806t +8wspNKz0f5jK2u0EITYXFkTYNHzU0TvsrewE3+MUOXvSaMjpMs/t3+gEnGm/ +uiuXadjj867NqPswdN79c8C+gIa9nVJ5StyHgW23NvdlNQ13XZN/axPjANRU +Jfr9/2joMqcePtF0EE7VjbNm+mioBU31364ehJevc93lB1b0rgfFrEk8CKdJ +a4sjBmlYLr2YFOp4EPpqPlG03tJwooZ9TXv1QYjrKyDVfKKhlODVhgNWdvBF +Wkzu2gINf2dpWrotH4CK4t9i8UQ6ljEWqvMu2MCd6wf+FpLouKZkv4dpmA10 +3qwfayHT0f/L5Be+ozYwWn2yfo5Kx2pnW7VSlg2I35s54LSJjjfKxwoSuWzg +dP+nrB2qdPTcN5QydMoa9vK/VhjXo2NxoX6VYbgVTB5t2qLrSccjR39aKuda +ADv4dGvgUTqGsjxEXl20AM2zutalXnSs4ipTiD5tAefyn4T/40PHpRfkRT4n +C1Dof9/d70dH3bDd/lVkC7DWEzzqHU7H++Qd6X7l5tAsZ38tPYmOn+9vHqpN +M4OLrxZlP9XSsSOBq0nEzBQSn1pJb6in4w+tsbVd6qaQ0HVDQqeBjo7/+Imm +yZnCuXu2ojlNdDzWcPe7x5QJnCmr5TdvoWOQ/0cxnmQT8Ivxnm3ooGNgmckk +T68x2Ki+6Tw/SEdvWDN109sIZC/dCaATGJiZEl4j9h8LXnrf1sRVDBR7pt3W +0caCOFbTsi0XAw9HhLjFV7Lg+3z9hYTVDCxP3r9TI5EF7U7VhV/5Gbjkd42j +o8eC41uvv6oRZiCBR8yYq0Ef7nVlqCKZgb151mvfFOvBEYL/rC2LgeFB/gY3 +y3WgktPnGm/AQFZSqK13rg4sde7sazJk4K1fH0K0LupATipPk5QJA38b3Wgg ++OhAH+nf02/MGMhlcnNYVVEHTPRbBZzsGFj3Qdx/U+Ue2J4gpODhzcCn+yd/ +8bUiCIiVmQayGTgRavxDS3A3CPU3nEu9xECSwyvlJ9+0QSzrYWt5GgMTtHRV +A15rg5zCiNp4BmPl/zqs/6dUG9S2CMseyF6ZXzY/+d1QG5z0gr9qFDEwyJ5Z +HJm4CxpP6iYt1jGwRc2LWkjcCe7/DT2Lec3AAlFpmb5IDXhwNiwga5CBAz4E +N0MfDVBQl9xYNcTAD8az6t12GjCUsd9xZJiBZX+W9RZVNMDc9sWkxigDK3+2 +1kqM7wDNoXaBqS8MpPgbHmSY7YC176t0bRcZaDoh5GS+RR2qJs83bJFn4jM9 +pfa969WgtCSR116BiS9mSHUTS6qQ55xqE09k4gd+u6LLX1UhcSBrdozMxP3d +cubyj1XB/WG50hUGEw8xAoJHzqmCTM6rEmEVJhaUNC1IrFKFOBP5yz/1mJjq +mNzEIKiA0436kFYvJl6ROWBBpm0DIT2XlMFjTDT/bvFNWHIb3BleVzrnzUTi +qqdSa9ZuA3Hho/0MXyZKxvO80OQoQU+wtHpqwAq+oZsvPEIJNPUjZ4+cYuK9 +q/zf+mq2gsg7o+PcSUzkfXdBO0ZJER5sGHZhVTHx6O3fu0wObwLOSS3jqGom +Lv9g5QYabILVvZnbmmuYGFB0LKhOaRPosS3/KtczkbPDiBVI2AQPhTozZO8w +kex4Xn/2KhPa+Wq65h4ysURSQHdgggHd83FKhQNMbNPvvvYokQ5fbMc3jLxm +YkppmkR4MB0EG3UXJYaYuPuyQbOuMx1MgpY6k4aZeGt9hoWQBh16vgc4h42u ++KEf9N85Dg2eTjimW0wyMSP7c+RPpMGUcXN44lcmykQRhfu30EDohqRzxxQT +e3f1PuqSoIGZZ+9W7W9MtDdLtx+bocJzjlEn4ycT+x/LnpwtoMKMbkmFyy8m +Ts87uLgkUWF94er0vN9MvPvO7ScnjAoWR+4dEVtYqdnRnTLWVPBvlTE0W2Ti +vogNn14iFdjyYVsT/jKRzfL2zlKkQvXpfrFHSyt+8X/WD5CiwsthtYXlZSY+ +7V5wdeCjwv8A/1Lp1Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlnc4FYwXx29k1quMZHP3vZVkJJTOybhm2UUi2YmE7JRVIRk3o9eKCCWy +R0lSWWl7EVHp0iAUDRE/vz/Oc57znD/P5/l8D9HZ19KNi0AgLKzU//shvQwB +AkECPTdKjCt6z8CusQ2t1YkSqPFm2rv/5BRwXmYxd1IlMXdC9RbP0wmYk173 +saRGEjeR3wS9s/wMo+vDfIxACm8LhD/0nBqHTMsvxa19Uhiw5vwOV28O1E0b +qcm4SmPLwD7lSJVRyH5dcXLvX2k0fV1oX/72LTj6Cp6uuSSDVTLeZW86hiDB +yWbor7wshqW+v7fPeAAi8q5NyDbK4j6ryoaskV54vWPMjMSSw6EZeedC7pcg +EiEdYf9CDrdZKUpXCD4D0XUHHLw85XGeFUE4bNANpxajUh1+yOPI5ivhdu7t +sF/abpeogQIqPo5UE25rA4ckbzERtgLyftsdlex6DyRuBYtzDyjgp81/Dj04 +cxt2BPF8HyET8Yf+zN5df+pAcCLh100vIt7L8xM75lENe3gv9bk1EFGo8Klt +s2EFeASLSzVxkVCtOkChe6YU9mSknl8yJOH3c+lfZx8UwRn75Kdb00nIfUBi +QvVvPvg9jQWLNyQM3r70WlQ+Bywzf4gJkcgofkKY19gqEzJ5Pz+o8yGjZGfW +gif3JUgh9+aY1ZJx4urGwfojyfB1fI9ZL4GCKbOdEB8QD5qEze6zJhQsoo1b +bq+OBc2ONSWr2RR0ElBejFwbBblqvvcJIxT8FmVvD9nhUGfWzTNNoeK/Z9yj +FIqDoLk1vyLYi4rFvjIEKPIH2sD8tok6KuoKnfK0YR4H/VzjYfNFKo5Mz1f9 +0+wJnfxyLgWGNJRs7KF+n3aBZeJnEU4yDV+kbnXYZOIE1FQl+v3/aOgypx4+ +0XQQKop/i8UT6VjGWKjOu2ADk0ebtuh60vHI0Z+WyrkWcPHVouynWjp2JHA1 +iZiZguylOwF0AgMzU8JrxP5jwRGC/6wti4HhQf4GN8t1QECszDSQzcCJUOMf +WoK7wf2/oWcxrxlYICot0xepAVWT5xu2yDPxmZ5S+971auB0oz6k1YuJV2QO +WJBp2+DBhmEXVhUTj97+vcvk8CZ4Oay2sLzMxKfdC64OfFToEetztWNJoOBk +2D7169NQ/FvIQyCViIztxN0CNZXQ22Idsm6YiJe5dKktEWXQy9v7fIhKQnkd +5z2WD4rhXcj6MnFfEi6JtVIyuq7CbzFBvtZGEga0sU9OfcmDURXtG0rLJLSe +N/SoyP0X5vb5Tr43IGOptl6h6vp0EEt3rORKJeMDRe0yN1Yq7OZZ8zN1kIzB +vinDInqJcCmgftCFRsEBhtMNmDsHTS7ZvIvHKZjoH3GG1RUNExHatVyNFHSI ++yaoces0MNtyPgSvoiLfRteI8VWhoBG3/WCNARW7zDUcSxNPgp/pE1/lFCrC +2Ghz5cMTUK9F4pN7TUU0f/vnrvkx4LVSUwgl0bANO+dttruDazr3HR1vGj6V +uiu7l9cZ2HZrc19W03DXNfm3NjEO8EVaTO7aAg1/Z2laui0fgL38rxXG9ehY +XKhfZRhuBc1y9tfSk+j4+f7modo0M7BRfdN5fpCO3rBm6qa3EdzrylBFMgN7 +86zXvinWg+0JQgoe3gx8un/yF18rQuNJ3aTFOga2qHlRC4k7Ye37Kl3bRQaa +Tgg5mW9RhzgT+cs/9ZiY6pjcxCCogMg7o+PcSUzkfXdBO0ZJEbrn45QKB5jY +pt997VEiHdK2qDdsIUugj4n9wUcKMzDwzVRpKIKIruXD963iqiBhNKBEq5uI +55M/1mweuglyEBhoLEbCnLu6VsK9JZDCZ/Gv4CESdos6Kz5qLYRdjT1ev4pJ +ONBaqT6llg83CO9Ptn4lIeGJc796fxaQA6oJv9VW7u2apla0KQP6npC1Dp0h +Y5qmKbFVng0eab5dJzrIeMdPr6ez8yKg4qJYjigFufnLfrzZHAfzyi71wQ4U +3OkTX/6rIQbYV4vKua9RMHj0N7f3lkhwWThr2TxNwfu109XRrDD4ObGsZKFO +RdNHPCW/2YGQwbsj2TqCivKFHA+NCj84LiCUE9tBxbLW6DRyrTfQQu4tua6j +YcFoTLfECQ8Qf7Z+nf9BGj4ztgzj+eEMnXf/HLAvoGFvp1SeEvdhiOsrINV8 +oqGU4NWGA1Z2cLr/U9YOVTp67htKGTplDdZ6gke9w+l4n7wj3a/cHPxivGcb +OugYWGYyydNrDMe3Xn9VI8xAAo+YMVeDPpjotwo42TGw7oO4/6bKPeCkF/xV +o4iBQfbM4sjEXaA51C4w9YWBFH/DgwyzHSCT86pEWIWJBSVNCxKrVEFTP3L2 +yCkm3rvK/62vZiu089V0zT1kYomkgO7ABAOeTjimW0wyMSP7c+RPpEGIhrtT +hrAEznYwzlxizYDf1DFRvZNEnI86defKzypwP8kNz1uJ6HbK7sBYcjnoDD3q +iFpDwrcvQPqjUyl82ueXEmtJQoX8VMNeLIIRgQoZ0TwShm274fgtMx+SPqoM +8o+R8NXeiO0WodmgxdMrGLOZjMKhEt+pdzNA3Yt3OS6IjHNbxaN0U9iwOERU +fXeXjJWzx+Wvs5NAXFBeRUOQgqvy+J8VPYkDSUmDpDprCrZnFUXmqMbCuJrt +pthsCh4ZkO5fnR0JhMt/4kfGKTj3YUf786kw6JMdk8pXpOJixiveT1JBcP3D +hNx4ABW3ad3ILqD7Q/dMzHhDCxWDXgWwAr19oF6QZ2qQh4bBRpMJI6KeMH1s +Y1O8BQ0zL1wsnjjhApxpv7orl2nY4/Ouzaj7MPTVfKJovaXhRA37mvbqgyB+ +b+aA0yY63igfK0jksgGF/vfd/X501A3b7V9FtoAzZbX85i10DPL/KMaTbALt +TtWFX/kZuOR3jaOjx4I+0r+n35gxkMvk5rCqog6obRGWPZC9wkPZ/OR3Q20w +t30xqTHKwMqfrbUS4zvA/WG50hUGEw8xAoJHzqlCT7C0emoAE4kbuvnCI5Tg +oVBnhuwdJpIdz+vPXmVCz/cA57DRlTzQD/rvHIcGzzlGnYyfTOx/LHtytoAK +XruX1B7zS6B+aO1hD7sZaPEOPxviS8SQoxsbardWg7X2Y0Hp5pX8d0gdeTxR +DtbMqROyfCSEmM28QaWlkOa/KvH+XhLWkQmLhOgiqKjO+5H/74oPhgT/GHXn +A2FoaG35OxJ2mf41aH6cDaynnOROGhn3lw0ebOPLBPfG4CPy/mSUfv5OKKqL +De3Lfz5ubCLjxRNy5nHzSRAdUonneCg4c2jnW2GFeLi+VjPM2pyC2ezW/fH+ +sbB+qcrzYQYFAw6q27q9ioR947XXfEcpeDeP7R+tFw7t9QdSDJgrvj/k8FHS +KQhULNvHt/pSsWmPb2icmz+EcFouWNym4rO40G6Lbh9YelUytmEVDVffNpT0 +8PCEQ7elkjbspaFyukuBQKULfI9T5OxJoyGnyzy3f6MTnCatLY4YpGG59GJS +qONBGK0+WT9HpWO1s61aKcsGzuU/Cf/Hh45LL8iLfE4WcO6erWhOEx2PNdz9 +7jFlAt/n6y8krGZgefL+nRqJLMhJ5WmSMmHgb6MbDQQfHZBTGFEbz2Cs+Paw +/p9SbRjK2O84MszAsj/LeosqGpA4kDU7Rmbi/m45c/nHqiAufLSf4ctEyXie +F5ocJdBjW/5VrmciZ4cRK5CwCUyCljqThpl4a32GhZAGHcw8e7dqf2OivVm6 +/dgMFSyO3DsitsDEu+zoThlrKrjsMb7itloCR136rXucZ4CzOaZFxIeInRHd ++QvG1dBNvHWitYmIyxZWNSSpCnA0j9afWE1CCmeb2fmeUvCK7RJwMiGh4kv+ +C++vFoE438ZRj0wSXsnj3Lr5IR8arbfRzoyQsHbVezvjH9nQo+JjeYxCxttZ +v3M8FTPh9OFK9hdfMk41ZWUfHmdDWapHW009GRkBDkcDFZOhUWneQJGbgofP +mIvcNIoHP16VGfI+CorYHdprwI6FotGR865pFPTdn5I/NB0JQf+wVTXeUTDh +sOLee77hsJtb2ESaTsUN6YWBXDFBEBxfY/zKm4phF71yu2L9wczxkKNcIxW/ +7XgcUTHvA1c1Qo/ULFGxubTIMyPVE9hHckKGjGmYnXHLi/PMBUJsLiyIsGn4 +qKN32FvZCV6+znWXH1iZrwfFrEk8CJ0368dayHT0/zL5he+oDWie1bUu9aJj +FVeZQvRpC0jouiGh00BHx3/8RNPkTCGO1bRsy8XAwxEhbvGVLFjq3NnXZMjA +W78+hGhd1AGxrIet5WkMTNDSVQ14rQ0K6pIbq4YY+MF4Vr3bTgPynFNt4olM +/MBvV3T5qyrcGV5XOue94otVT6XWrN0Gq3sztzXXMDGg6FhQndImEGzUXZQY +YuLuywbNus50ELoh6dwxxcTeXb2PuiRosL5wdXre7xU+3rn95IRRgS0ftjXh +LxPZLG/vLEUqvNM50avCJYG707sSIjxmIHgN39DbY0RMF9FnbbWrBl6xAvKl +RiLqitbTPJQrYNSlR+klNwlDRVfFXB0phf0Xyw2VjFfyZjQrwrWmCIyVrWxN +Mlb4cH/RdGwmH9JSB1U8h0nImdIuoQvmwDq3qppd5JV8Kdf8aIGZIFhjuvn5 +8RV+IPDryBwb8gZzb0XVkdHpZkXSBYNksLyQ+5jARcGoNCtdtmM82MRsLVuz +l4Jv8j4aaVyNhSnrwEy1SxS0fW7owViKBMGCyDCZtxQMq4z+GHQ2HMKu+zB4 +aFRsixpuT0gLAinqjVPXjlHxa1nu/Yg0f9CSLutY3bDyXxQqXAsRPg5zX47I +R/9d2Zsn83YVe4Li9mGfFiMaNuTxjnHeukDzTq3zCyk0rPR/mMra7QSn6sZZ +M3001IKm+m9XD8Kd6wf+FpLouKZkv4dpmA2wg0+3Bh6lYyjLQ+TVRQtIfGol +vaGejj+0xtZ2qZvCS+/bmriKgWLPtNs62lhQyelzjTdgICsp1NY7VweE+hvO +pV5iIMnhlfKTb9rw4GxYQNYgAwd8CG6GPhpQWpLIa6/AxBczpLqJJVUQ0nNJ +GTzGRPPvFt+EJbcB56SWcVQ1E5d/sHIDDTbBF9vxDSOvmZhSmiYRHkyHKePm +8MSvTJSJIgr3b6HBjG5JhcsvJk7PO7i4JFHBv1XG0GyRifsiNnx6iVSoPt0v +9mhphT/+z/oBUlT4H3M26dU= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 216, 181, 147, 114, 82, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 217, 182, 148, 115, 83, 52, + 21, 218, 183, 149, 116, 84, 53, 22, 219, 184, 150, 117, 85, 54, 23, + 220, 185, 151, 118, 86, 55, 24, 221, 186, 152, 119, 87, 56, 25, + 222, 187, 153, 120, 88, 57, 26, 223, 188, 154, 121, 89, 58, 27, + 224, 189, 155, 122, 90, 59, 28, 225, 190, 156, 123, 91, 60, 29, + 226, 191, 157, 124, 92, 61, 30, 227, 192, 158, 125, 93, 62, 31, + 228, 193, 159, 126, 94, 63, 32, 229, 194, 160, 127, 95, 64, 33, + 230, 195, 161, 128, 96, 65, 34, 231, 196, 162, 129, 97, 66, 35, + 232, 197, 163, 130, 98, 67, 36, 233, 198, 164, 131, 99, 68, 37, + 234, 199, 165, 132, 100, 69, 38, 235, 200, 166, 133, 101, 70, 39, + 236, 201, 167, 134, 102, 71, 40, 237, 202, 168, 135, 103, 72, 41, + 238, 203, 169, 136, 104, 73, 42, 239, 204, 170, 137, 105, 74, 43, + 240, 205, 171, 138, 106, 75, 44, 241, 206, 172, 139, 107, 76, 45, + 242, 207, 173, 140, 108, 77, 46, 243, 208, 174, 141, 109, 78, 47, + 244, 209, 175, 142, 110, 79, 48, 245, 210, 176, 143, 111, 80, 49, + 246, 211, 177, 144, 112, 81, 247, 212, 178, 145, 113, 248, 213, + 179, 146, 249, 214, 180, 250, 215, 251, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.0264109600115834`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4FYwXvpFZnzKSzd33VpKRUDon45plF4lkJxKyU1aFZNyMPisilMge +JUllpe1DRKVLg1A0RPz8/jjPec7zvue857x/HaKzr6UbF4FAWFiJ/+dDehkC +BIIEem6UGFf0noF3Oid6VbgkcHd6V0KExwy47DG+4rZaAkdd+q17nGfAa/eS +2mN+CdQPrT3sYTcDIRruThnCEjjbwThziTUDaVvUG7aQJdDHxP7gI4UZ6BHr +c7VjSaDgZNg+9evTsGtsQ2t1ogRqvJn27j85BZyXWcydVEnMnVC9xfN0Auak +130sqZHETeQ3Qe8sP8Po+jAfI5DC2wLhDz2nxiHT8ktxa58UBqw5v8PVmwN1 +00ZqMq7S2DKwTzlSZRSyX1ec3PtXGk1fF9qXv30Ljr6Cp2suyWCVjHfZm44h +SHCyGforL4thqe/v7TMegIi8axOyjbK4z6qyIWukF17vGDMjseRwaEbeuZD7 +JYhESEfYv5DDbVaK0hWCz0B03QEHL095nGdFEA4bdMOpxahUhx/yOLL5Srid +ezvsl7bbJWqggIqPI9WE29rAIclbTIStgLzfdkclu94DiVvB4twDCvhp859D +D87chh1BPN9HyET8oT+zd9efOhCcSPh104uI9/L8xI55VEPwGr6ht8eImC6i +z9pqVw2czTEtIj5E7Izozl8wroYW7/CzIb5EDDm6saF2azX4TR0T1TtJxPmo +U3eu/KyCgW+mSkMRRHQtH75vFVcFxb+FPARSicjYTtwtUFMJe3gv9bk1EFGo +8Klts2EF8IoVkC81ElFXtJ7moVwB3cRbJ1qbiLhsYVVDkqoAa+3HgtLNK3yH +1JHHE+XgfpIbnrcS0e2U3YGx5HJIGA0o0eom4vnkjzWbh25Cb4t1yLphIl7m +0qW2RJSBR7C4VBMXCdWqAxS6Z0ph1KVH6SU3CUNFV8VcHSkFR/No/YnVJKRw +tpmd7ykFa+bUCVk+EkLMZt6g0lLQGXrUEbWGhG9fgPRHp1KQg8BAYzES5tzV +tRLuLYFe3t7nQ1QSyus477F8UAx7MlLPLxmS8Pu59K+zD4pg/8VyQyXjlf7R +rAjXmiLwiu0ScDIhoeJL/gvvrxZBmv+qxPt7SVhHJiwSoovg0z6/lFhLEirk +pxr2YhGk8Fn8K3iIhN2izoqPWgvhXcj6MnFfEi6JtVIyuq7CGfvkp1vTSch9 +QGJC9W8+GCtb2ZpkkLDW/UXTsZl8EOfbOOqRScIreZxbNz/kQ0V13o/8f0k4 +MCT4x6g7H0YEKmRE80gYtu2G47fMfNjV2OP1q3gFb61Un1LLh99ignytjSQM +aGOfnPqSB35PY8HiDQmDty+9FpXPgbTUQRXPYRJyprRL6II50Gi9jXZmZEV/ +1Xs74x/ZQBgaWlv+joRdpn8Nmh9nQ9JHlUH+MRK+2hux3SI0G24Q3p9s/UpC +whPnfvX+LBhV0b6htExC63lDj4rcf8Ey84eYEImM4ieEeY2tMmGdW1XNLjIZ +hcs1P1pgJvSo+Fgeo5DxdtbvHE/FTGA95SR30si4v2zwYBtfJmjx9ArGbF7h +h0p8p97NAHJANeG3GhlLXdPUijZlwNw+38n3Biu1tl6h6vp0yOT9/KDOh4yS +nVkLntyXQLDGdPPz4yvzIfDryBwbTh+uZH/xJeNUU1b24XE2uDcGH5H3J6P0 +83dCUV1sUPfiXY4LIuPcVvEo3RQ29D0hax06Q8Y0TVNiqzwbxNIdK7lSyfhA +UbvMjZUKKeTeHLNaMk5c3ThYfyQZ8gZzb0XVkdHpZkXSBYNkKEv1aKupJyMj +wOFooGIytC//+bixiYwXT8iZx80nweIQUfXdXTJWzh6Xv85OAo80364THWS8 +46fX09l5EXbzrPmZOkjGYN+UYRG9RPg6vsesl0DBlNlOiA+IB8sLuY8JXBSM +SrPSZTvGQ6PSvIEiNwUPnzEXuWkUD9EhlXiOh4Izh3a+FVaIB3FBeRUNQQqu +yuN/VvQkDlBxUSxHlILc/GU/3myOg0sB9YMuNAoOMJxuwNw50CRsdp81oWAR +bdxye3Us2MRsLVuzl4Jv8j4aaVyNBT9elRnyPgqK2B3aa8COhetrNcOszSmY +zW7dH+8fC5KSBkl11hRszyqKzFGNhXlll/pgBwru9Ikv/9UQA00u2byLxymY +6B9xhtUVDZoda0pWsynoJKC8GLk2CqasAzPVLlHQ9rmhB2MpEopGR867plHQ +d39K/tB0JKxfqvJ8mEHBgIPqtm6vImFczXZTbDYFjwxI96/OjgT21aJy7msU +DB79ze29JRImIrRruRop6BD3TVDj1mnIVfO9Txih4Lcoe3vIDgfBgsgwmbcU +DKuM/hh0NhyC/mGraryjYMJhxb33fMNh33jtNd9RCt7NY/tH64UD4fKf+JFx +Cs592NH+fCoMXBbOWjZPU/B+7XR1NCsMmG05H4JXUZFvo2vE+KpQqDPr5pmm +UPHfM+5RCsVBEHbdh8FDo2Jb1HB7QloQ7OYWNpGmU3FDemEgV0wQtNcfSDFg +UhEOOXyUdAqCPtkxqXxFKi5mvOL9JBUEPyeWlSzUqWj6iKfkNzsQNOK2H6wx +oGKXuYZjaeJJaG7Nrwj2omKxrwwBivxBinrj1LVjVPxalns/Is0fguNrjF95 +UzHsolduV6w/qFi2j2/1pWLTHt/QODd/uP5hQm48gIrbtG5kF9D9IYN3R7J1 +BBXlCzkeGhV+4Gf6xFc5ZWW/sdHmyocngDYwv22ijoq6Qqc8bZjHQUu6rGN1 +AxXLChWuhQgfBzPHQ45yjVT8tuNxRMW8D4RwWi5Y3Kbis7jQbotuH+ieiRlv +aKFi0KsAVqC3DxwXEMqJ7Vjpb41OI9d6Q70WiU/uNRXR/O2fu+bHQD/XeNh8 +kYoj0/NV/zR7wtyXI/LRf1fuM0/m7Sr2hKsaoUdqlqjYXFrkmZHqCUuvSsY2 +rKLh6tuGkh4enlAvyDM1yEPDYKPJhBFRT6CF3FtyXUfDgtGYbokTHsBrpaYQ +SqJhG3bO22x3h05+OZcCQxpKNvZQv0+7gOL2YZ8WIxo25PGOcd66APtITsiQ +MQ2zM255cZ65wKHbUkkb9tJQOd2lQKDSBaaPbWyKt6Bh5oWLxRMnXED82fp1 +/gdp+MzYMoznhzO4pnPf0fGm4VOpu7J7eZ1hmfhZhJNMwxepWx02mThB806t +8wspNKz0f5jK2u0EITYXFkTYNHzU0TvsrewE3+MUOXvSaMjpMs/t3+gEnGm/ +uiuXadjj867NqPswdN79c8C+gIa9nVJ5StyHgW23NvdlNQ13XZN/axPjANRU +Jfr9/2joMqcePtF0EE7VjbNm+mioBU31364ehJevc93lB1b0rgfFrEk8CKdJ +a4sjBmlYLr2YFOp4EPpqPlG03tJwooZ9TXv1QYjrKyDVfKKhlODVhgNWdvBF +Wkzu2gINf2dpWrotH4CK4t9i8UQ6ljEWqvMu2MCd6wf+FpLouKZkv4dpmA10 +3qwfayHT0f/L5Be+ozYwWn2yfo5Kx2pnW7VSlg2I35s54LSJjjfKxwoSuWzg +dP+nrB2qdPTcN5QydMoa9vK/VhjXo2NxoX6VYbgVTB5t2qLrSccjR39aKuda +ADv4dGvgUTqGsjxEXl20AM2zutalXnSs4ipTiD5tAefyn4T/40PHpRfkRT4n +C1Dof9/d70dH3bDd/lVkC7DWEzzqHU7H++Qd6X7l5tAsZ38tPYmOn+9vHqpN +M4OLrxZlP9XSsSOBq0nEzBQSn1pJb6in4w+tsbVd6qaQ0HVDQqeBjo7/+Imm +yZnCuXu2ojlNdDzWcPe7x5QJnCmr5TdvoWOQ/0cxnmQT8Ivxnm3ooGNgmckk +T68x2Ki+6Tw/SEdvWDN109sIZC/dCaATGJiZEl4j9h8LXnrf1sRVDBR7pt3W +0caCOFbTsi0XAw9HhLjFV7Lg+3z9hYTVDCxP3r9TI5EF7U7VhV/5Gbjkd42j +o8eC41uvv6oRZiCBR8yYq0Ef7nVlqCKZgb151mvfFOvBEYL/rC2LgeFB/gY3 +y3WgktPnGm/AQFZSqK13rg4sde7sazJk4K1fH0K0LupATipPk5QJA38b3Wgg ++OhAH+nf02/MGMhlcnNYVVEHTPRbBZzsGFj3Qdx/U+Ue2J4gpODhzcCn+yd/ +8bUiCIiVmQayGTgRavxDS3A3CPU3nEu9xECSwyvlJ9+0QSzrYWt5GgMTtHRV +A15rg5zCiNp4BmPl/zqs/6dUG9S2CMseyF6ZXzY/+d1QG5z0gr9qFDEwyJ5Z +HJm4CxpP6iYt1jGwRc2LWkjcCe7/DT2Lec3AAlFpmb5IDXhwNiwga5CBAz4E +N0MfDVBQl9xYNcTAD8az6t12GjCUsd9xZJiBZX+W9RZVNMDc9sWkxigDK3+2 +1kqM7wDNoXaBqS8MpPgbHmSY7YC176t0bRcZaDoh5GS+RR2qJs83bJFn4jM9 +pfa969WgtCSR116BiS9mSHUTS6qQ55xqE09k4gd+u6LLX1UhcSBrdozMxP3d +cubyj1XB/WG50hUGEw8xAoJHzqmCTM6rEmEVJhaUNC1IrFKFOBP5yz/1mJjq +mNzEIKiA0436kFYvJl6ROWBBpm0DIT2XlMFjTDT/bvFNWHIb3BleVzrnzUTi +qqdSa9ZuA3Hho/0MXyZKxvO80OQoQU+wtHpqwAq+oZsvPEIJNPUjZ4+cYuK9 +q/zf+mq2gsg7o+PcSUzkfXdBO0ZJER5sGHZhVTHx6O3fu0wObwLOSS3jqGom +Lv9g5QYabILVvZnbmmuYGFB0LKhOaRPosS3/KtczkbPDiBVI2AQPhTozZO8w +kex4Xn/2KhPa+Wq65h4ysURSQHdgggHd83FKhQNMbNPvvvYokQ5fbMc3jLxm +YkppmkR4MB0EG3UXJYaYuPuyQbOuMx1MgpY6k4aZeGt9hoWQBh16vgc4h42u ++KEf9N85Dg2eTjimW0wyMSP7c+RPpMGUcXN44lcmykQRhfu30EDohqRzxxQT +e3f1PuqSoIGZZ+9W7W9MtDdLtx+bocJzjlEn4ycT+x/LnpwtoMKMbkmFyy8m +Ts87uLgkUWF94er0vN9MvPvO7ScnjAoWR+4dEVtYqdnRnTLWVPBvlTE0W2Ti +vogNn14iFdjyYVsT/jKRzfL2zlKkQvXpfrFHSyt+8X/WD5CiwsthtYXlZSY+ +7V5wdeCjwv8A/1Lp1Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 1.0264109600115834`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}, { + 3.9924907924542923`*^9, 3.992490816012463*^9}}, + CellLabel->"Out[40]=",ExpressionUUID->"e44f6f33-84b2-4e95-a760-76c1f6448200"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[41]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hc8V+0bB3BZSVMhM99zjtmQnZXr8kVpIY+ibCIiI0RS2RRZ2RIllURm +RiohPFSPUCpZlU1JZKV+5/fXeb3/ue77/tyf+xB27sYOrCwsLMQKFpb/f5U8 +/DlYWARw6z6jTjPWSbi9Yi5Te4UAKqUxdj1jmQTea14qIawCuD589j/xvxPw +s9z1JCeHANpecL41uTQBJUtW/67hFkBl/cznPrMTIBehc1WQVwAXmFtvWY9M +wLYba/gUpQXwEtvR4pRXE0C+vCHuaCSAOvVfeCOSJqCV+0JY7F0BdEk/y9ux +fgIW1n9Vn54XwFVwIfjf4HHYNBijVaMviDxeEj9WjozByPWfIfuyBPFqHGQf +3T4GTOEB0Q1TgtimUuPl6TwKpgGRC2l7hVBEK/Dvk0sjcKzAi4rKFMIHJddz +ZoOHof/28M3ySSH8K6PqzQweAvISn12OrjCOiShaFR4ZhFGxl2dbkoRxZa7i +qdMyX+F6XOMHs0FhNNjBHx88/Rm4v/pfvK8hgtX8lGxI/AAsL1f4KkeLYNPK +zIpvmv2Qv1hYEvJFBA1KnjcER/bAnqZRDTU1UaRMJrjisz+Cw/ECQenLophx +ZkpM/kcXYNtWtY99oihqcyVVSOgtZK2RL3ghtwUvurUVfYhph+ptP+y8I7fg +DxX/lxZj/8FzoVnHK71bMM/2tiUh3wqH2oKefZAVwy6x8X9StjVBolPzsYkw +MewXGyrdwawHm6YUfdUuMXxRtunH2VW1sOb82zqfTQxsLPAa/nq1Gl6wabIW +azFw3sbUw9ilHLwffrY1BgYGdJaW1B0rB3Hzy89/0q6Zu+mhpV8OoSXvAlW0 +GairEGJoJlEOuraefx/rMFBEcWArX38ZNDy987tRn4GCl8s/PjQtg/pzPHOf +jBloWa5w66BhKTz/PjTOdZKBlXJlj3ZZF4PKep72CtrFubNvpQ2L4YGsRqWj +EwM/3AlTlIRiSD4dG9rgzMCKm3cS9MSKwXV8l2igKwNPNnIif38RCAxHGsx5 +MvCo0859i/ZF4Na7tXgwgIELju6B+qOFIPTK7WxdAgPbPx7kcPLIh53eytvc +rjHwOyn7I+JoPugK/+4TTGTg9IvFjBrNfHB3vrzPM4mBgWYXWE6syocGjtsi +jFQGetWva8jLuQ9uWh/qLmTS81nCt678lAd1D3XWq92j87B/zl1lfg+cEwTu +PXzCQAFnA/2zibmw5kDkf4ZPGXjrmrXL28BcKGSb//Wd9vbpfFHd07kw7d2l +J1fLwC/fJVcb7cmFANPkL0V1DKRGmVzEwm2IEeEVK2lioNNJ39As29tQcmd9 +ctkbBrrfYMl6vTsHlqo5Q6sGGfgmOm9+iXET7IYX5E8OMVCslq8hc/1NaNk0 +2cc7zMDOv/Iqhn+yId21Q8NjhIHjCX8H+ruzQXVL9k/JcQbmWh8hnqZkw9kg +NfvEKQYWXOpMOroxG6b3ujLdl+h5u+9mOUjcgLHONywSPAQ69mUkBJ9Ph76N +bkQT7YkWwf5623ToNOJmOm8kkN/jcLuwfjo8eckMKdhE4OlMRfv1fOkQ11DK +ocJPoOl7BVe2ojRQKUvi3itM4KJNSc+GsVQIuXaM11mCQO9K4RYjtxQQMR6Q +KlAjcLorQ3ihNBGKNgttPqhO4Dd1Cl5nJYJejzHnOO03zFDn8qhEcHNq+Cqt +SWCS7qeMKvtEeH7x7s3bWgQqfCqaS+FNBMf808LXdQiM3VaQl33uGhSxL66L +OkRgzNkR81CjBNBtUfgjY0Dg0YEC7UCtBPgQ6zLZTFsgUy40ensCsAr3tHIa +ETgywT3xlisBjsjXRgYbEzi1Zqp/a108LFqGs/qbErg0v2JP+6540K3Y+MvJ +lsCIOsh/JhsHN6Zeu/DZ0ecNKD53WDQO5mWiBp7T7mauqZhZHQcPrrO9EjpB +4FWvweDe9ljgC57JeelI4PG9bV0O+2Nh6OC7w3KuBM7NH+59DTEQ8TmtYO4s +gZxra4c1dKLhs/BR6rYvgTtLd14LEo8GzSMb04z8CExPDfIc4oiGqaYroXnn +COwrSzi69t8oMCs4b24eQGBFl1D5S6MokPazXPUsiN6v1Iq0BYcr0LKWcAiP +JvD9cnGGwZ1IKDYLPyR1lcDZpY7TvFcjITVnXLmZNotIYcC0VyQ4qj3i5I4l +cO+s9PIv7Uhgczhw72o8gT/u5+uK9UWAZo3PeGIygU9MifmPohFQeKrFMyeb +QI68M1JnHoRBUvnO47o3CfSVeKwqkBwGASxJzEHanayJnJ2XwmB/svUmqRwC +tx1Ljor+JwyGn8+U3c8lUJFPVervUigwBMXmi+8TuGfaW+mjUSgkNHldrC0j +cHKP/vDQqhDQCreYdCun9yu7asR3JhjGdfUsRB8RuHVVRp1YXzDo1vGr+1cQ +uMPD60FpWTDM1VTNKlbT6y8UjY7aBINFyV/Xu88I/BpctRjwJAgkMqPMY1oI +JOxNU+6FB0K7uXeLZiuBRd85Jca9AuGikKXaOO0RKaURbdtAeJ8iu1n/FYFS +nSuebdMMhCsJb9pXtBFY5dHP1jN4Cb5FbN7v85bON0zPRqv5IlSeyVG16CdQ +Y6jQ0CAvAKaZykJ/aQvWjVs+uxIA2zY1Ld0cIPA+b1y4oWsA3Cgdezr8me6v +9Xzxy50BEDYjr+c1SKBEXw9zV+V5MD5be/jKGIF3G5lSZa/9YeJcz6nKGTqf +7NjESJ5zILnf/aD5LIGPL/DN5P7yA2uhFbJ/aNd51f/o7faD9mrxHzpzBMad +ZLfKueMHVUsuvv8tEBh0ZVTYa7cfhF9YDBn6Q2Dj+9KQzR6+wAjanMm7isRD ++2Uk6kd8YPG93qEy2vKCI3xpb3ygQ857+R9uEr2jE2PCq30gvL/N8tpqEn3u +M5/ejfaBCbiyZeM6EnXLR++xKPhA5Z/fWes3kbg52cNvIdAbDAM+3+IWJdGg +UGmn504vkO7c8M992kl2rNLrhL2AdTuw7d9C4ukmTZZaTi8o686wvyxG4u32 +lD+2vWdASOOIOBdJ4qmgTeyZMWdgaKEpl0OKRFJ1+mfPtCdc9C24xyJPosPJ +xEn2Fg8Q1bHuK6At6c5lmvjIA2rW8fCbK5BY+YPrklqOByzmeoeUK5Kof6ml +sCHAA852alidUiFxvLJ73Sc5Dzgt37KpU4NE+90/9/1ScweL8aGLd/eQKLw3 +3bCe6zQsPUotN9lLIpyonVwacoX04P0TK/TpvJaJ68dfuMJ7wcJjFvtIjEt4 +GX452BVM9H2UeA6SuND1RTrvjwscyGUb8z9Mn3+PWcvL5VOgbs04YmBBIjE3 +V5PM7wyOmuf/fKfNP3trXHXJCRIE392NtyTxybUhvvk+JxjriFrstKL3q6c+ +8jLPCdL157LMbUl8d3ez6SstJ1iUfz3m5Ejico2gwQa3k1DFHhAY4kFi6bBv +THe/A3wdeCcj4UliaO+LgKFmB9jwTL6jkbYeu+gP7mIHcDo3LMHtRaK43le2 +7CAHEPhm3BrnQ6LRIvV3jnIAvy4Z/hv+JBZGp3LuO30CVO935VeGklhfNbi2 +jsceti6Vd58MI3HLF6GDa5fsQPhg4urN4SSyyzgPnvlqB38mjVx8IkicuD1R +Gl1hBw3yLVsVrpD4sON8/JyVHRhW1eTlx9Lz77CqxZfYgmPzzbs30kn8ULY7 +hcfVBswEA7sOZZDocawuxtPMBvadslq5TJtD399tRNcGtq8RPmmeSWJKVeIl +oS02MG2YKCmQTeIvlyINoRxruNAVnhufS2Lat1MZ289ZQeKQS05oEYm92beG +hPUsQOLZ0E25YhIz+qIGOigLeJRim/2JtoPIjEIJqwV80DfNVColMV7psexA +rTlsyWemfC0nMUYFx9jAHO65C0bpPiaR+9d6NlXmcXgy33iGvZHuQ8Z1SbQ3 +A4M32p5FtEciTsR77TGD/rwad4smEs08vxo1y5gBq3mJa1kziaOnSlTfTpmC +/pNMxxOt9PzOpzf8Ak2hPcj7eEMbib6bP/e+yD0KQ9wkM7SbXi9b7WPwyiPA +PqtXKv6JxIHY2oI9UyZA9jmLv6B9pHFlGfXBBKxLizk5e0lMWNn4TTrfBN6b +a7dG9JOY03Zc09LIBFof2JhEDZJoG9IdeTTrHygyyHJM+E73749iabeBMbxW +re9SmCLx0fyCU6K6MUySw/odtOsZi/L2ksawdU52G+80iSG/5LKZfw5DTtbT +70kzJNo5WpzgfHgYkqd6/NIWSNxl6hF7lfcwnE8Qicpmo9DRROH8nx5DsJqq +DzZgp/B22IrOnApDYBq4+P+mbbDVOO1svCFwc1c7m3FSOJzamZKjZwjpQab6 +G1ZRuGCUXM5XZACVHgkcgeso5BdOq9px9RDMGHAFWgtS+N+7tcHtjgfg/YOH +vmuFKHy/SnV1g94BqOE2dX9MW7bToPeT+AEIacy12ixC4aOh7/khX/bDRi2d +3f9tofDNrf6f2Xb7QW7HxUUtcQoX32sY/zy5D06vnvHespNCLhZCruXqXuj1 +1+2rpf158IaJotdeMBhL3GcvR+Geci7earO9IPev8pZ78hQumzz8LCa+F2bC +fZvklShMJ0RwX80e8GddEtRTo1Ao7o373A89iFxY8cxFh0KiqX1u3FMXFpyM +ZdbpUuiDe3xeHteFU+9vXSuivea8R0Ojji4cqNBxmtWjcEBizpGLXxfW+YTx +XNKnMHKg4kHNYx1ImuI6kXCIwg8mUsJvVuvAreH1q6pM6bxzZFy/PdGG0t7f +2mZmFH7sDQxRu68NDW9H/edo606JaqYna8Ngff2E8nEKq2vZla67a4N0tm9b +iQWFv7I7K7JIbSgw60t5YEvh7vu10vHRCJX/Fkpmu1DItPSM4+zTgubaDGtw +pZBH/6lJYY0WfKiITO2l3fe05vP5dC36/2zHLepGobCYf2XEUS3YHcz/Lc2D +wtNO3D2WbbuhTv1i+TUfOr/iNZIDLZrwKv+QbsQlChkZymuVP6rDbf6nbEqB +FFpzV47WVqmDf5BsfT9tHymXVK80dZA0Xc9UD6b7Uvu8/OAxdbjI+gYmQynU +cFFabv6oBjuPmWj8c4VCi2OX2uq+qkI8p7mCWBKFWjLtVjGbdoGTZ+uPVtov +7n5qzZpTAa1PGsV+yXSfxHrL27tVYKxYRK49hcJttwrtrt9WAaZl746wdApL +T717V71LBX6W2sqMZ1FYOfz3LOsJZThi68SouE+h3WLDQkWHIlT2BBmb5VPI +MeCivv+JIogczwhdoJ13kbo5e0cRPhu/HtEooPsxmu6Z4q8IbrpKxbUPKSzx +5xNmpxQhUoqF2VJGIfK+6HT2U4DqyRT7nqd0f4UrfhYqyYPoqeKki8/oPIf8 +9ygQ8hA41NIkVkuhdJbYhda18rC3b3mb3XMKs7TZlWFYDjrb7GeG6um8/Rt3 +yGTIwWTpzrCpZgrlU+ujpznlgOHfdIetg8L2pP2/vbt3gOlJIrWCdudI2vcH +5TsgxuT8ZZdOCkMjekx443bAb9mdrh1v6ffVMX/ZQ28HfPiSLJ/znsKWtxSY +lWyHhEOONcxeCqUsfZ+XJG4DNoKjPWiUwpmIklgefxlQX2ddrzxG3zdzcaTl +mAycWaosG6VtwxX76YGaDPS/dU05PEGhe9Xj5tEFaai50mlBfKdQvNlyNzNA +GrxncoZrZyhUNSzOZkZKQf7A8nvvWQqXVol6u52Sgs+vTVukf9HvI6nw7bOD +UmCUt7ogbo4+j87+yHYeKdhh5XXGZpHCh1Z8GSWZknDiwCt73iUKIaT1FUeQ +JFxXlTrSTFtX/fyWCyckgXtT9y65ZQrveHc7dG2TBG0WZZmvtNnnxdiq10uC +32SMUOof+n1eCVtd+1MCHn4cWX3wL4WrF3uNR7skYKiJufyXdtRR5QLlGgn4 +H6xYIKY= + "]]}, + 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:eJwV1Hc8V+0bB3BZSVMhM99zjtmQnZXr8kVpIY+ibCIiI0RS2RRZ2RIllURm +RiohPFSPUCpZlU1JZKV+5/fXeb3/ue77/tyf+xB27sYOrCwsLMQKFpb/f5U8 +/DlYWARw6z6jTjPWSbi9Yi5Te4UAKqUxdj1jmQTea14qIawCuD589j/xvxPw +s9z1JCeHANpecL41uTQBJUtW/67hFkBl/cznPrMTIBehc1WQVwAXmFtvWY9M +wLYba/gUpQXwEtvR4pRXE0C+vCHuaCSAOvVfeCOSJqCV+0JY7F0BdEk/y9ux +fgIW1n9Vn54XwFVwIfjf4HHYNBijVaMviDxeEj9WjozByPWfIfuyBPFqHGQf +3T4GTOEB0Q1TgtimUuPl6TwKpgGRC2l7hVBEK/Dvk0sjcKzAi4rKFMIHJddz +ZoOHof/28M3ySSH8K6PqzQweAvISn12OrjCOiShaFR4ZhFGxl2dbkoRxZa7i +qdMyX+F6XOMHs0FhNNjBHx88/Rm4v/pfvK8hgtX8lGxI/AAsL1f4KkeLYNPK +zIpvmv2Qv1hYEvJFBA1KnjcER/bAnqZRDTU1UaRMJrjisz+Cw/ECQenLophx +ZkpM/kcXYNtWtY99oihqcyVVSOgtZK2RL3ghtwUvurUVfYhph+ptP+y8I7fg +DxX/lxZj/8FzoVnHK71bMM/2tiUh3wqH2oKefZAVwy6x8X9StjVBolPzsYkw +MewXGyrdwawHm6YUfdUuMXxRtunH2VW1sOb82zqfTQxsLPAa/nq1Gl6wabIW +azFw3sbUw9ilHLwffrY1BgYGdJaW1B0rB3Hzy89/0q6Zu+mhpV8OoSXvAlW0 +GairEGJoJlEOuraefx/rMFBEcWArX38ZNDy987tRn4GCl8s/PjQtg/pzPHOf +jBloWa5w66BhKTz/PjTOdZKBlXJlj3ZZF4PKep72CtrFubNvpQ2L4YGsRqWj +EwM/3AlTlIRiSD4dG9rgzMCKm3cS9MSKwXV8l2igKwNPNnIif38RCAxHGsx5 +MvCo0859i/ZF4Na7tXgwgIELju6B+qOFIPTK7WxdAgPbPx7kcPLIh53eytvc +rjHwOyn7I+JoPugK/+4TTGTg9IvFjBrNfHB3vrzPM4mBgWYXWE6syocGjtsi +jFQGetWva8jLuQ9uWh/qLmTS81nCt678lAd1D3XWq92j87B/zl1lfg+cEwTu +PXzCQAFnA/2zibmw5kDkf4ZPGXjrmrXL28BcKGSb//Wd9vbpfFHd07kw7d2l +J1fLwC/fJVcb7cmFANPkL0V1DKRGmVzEwm2IEeEVK2lioNNJ39As29tQcmd9 +ctkbBrrfYMl6vTsHlqo5Q6sGGfgmOm9+iXET7IYX5E8OMVCslq8hc/1NaNk0 +2cc7zMDOv/Iqhn+yId21Q8NjhIHjCX8H+ruzQXVL9k/JcQbmWh8hnqZkw9kg +NfvEKQYWXOpMOroxG6b3ujLdl+h5u+9mOUjcgLHONywSPAQ69mUkBJ9Ph76N +bkQT7YkWwf5623ToNOJmOm8kkN/jcLuwfjo8eckMKdhE4OlMRfv1fOkQ11DK +ocJPoOl7BVe2ojRQKUvi3itM4KJNSc+GsVQIuXaM11mCQO9K4RYjtxQQMR6Q +KlAjcLorQ3ihNBGKNgttPqhO4Dd1Cl5nJYJejzHnOO03zFDn8qhEcHNq+Cqt +SWCS7qeMKvtEeH7x7s3bWgQqfCqaS+FNBMf808LXdQiM3VaQl33uGhSxL66L +OkRgzNkR81CjBNBtUfgjY0Dg0YEC7UCtBPgQ6zLZTFsgUy40ensCsAr3tHIa +ETgywT3xlisBjsjXRgYbEzi1Zqp/a108LFqGs/qbErg0v2JP+6540K3Y+MvJ +lsCIOsh/JhsHN6Zeu/DZ0ecNKD53WDQO5mWiBp7T7mauqZhZHQcPrrO9EjpB +4FWvweDe9ljgC57JeelI4PG9bV0O+2Nh6OC7w3KuBM7NH+59DTEQ8TmtYO4s +gZxra4c1dKLhs/BR6rYvgTtLd14LEo8GzSMb04z8CExPDfIc4oiGqaYroXnn +COwrSzi69t8oMCs4b24eQGBFl1D5S6MokPazXPUsiN6v1Iq0BYcr0LKWcAiP +JvD9cnGGwZ1IKDYLPyR1lcDZpY7TvFcjITVnXLmZNotIYcC0VyQ4qj3i5I4l +cO+s9PIv7Uhgczhw72o8gT/u5+uK9UWAZo3PeGIygU9MifmPohFQeKrFMyeb +QI68M1JnHoRBUvnO47o3CfSVeKwqkBwGASxJzEHanayJnJ2XwmB/svUmqRwC +tx1Ljor+JwyGn8+U3c8lUJFPVervUigwBMXmi+8TuGfaW+mjUSgkNHldrC0j +cHKP/vDQqhDQCreYdCun9yu7asR3JhjGdfUsRB8RuHVVRp1YXzDo1vGr+1cQ +uMPD60FpWTDM1VTNKlbT6y8UjY7aBINFyV/Xu88I/BpctRjwJAgkMqPMY1oI +JOxNU+6FB0K7uXeLZiuBRd85Jca9AuGikKXaOO0RKaURbdtAeJ8iu1n/FYFS +nSuebdMMhCsJb9pXtBFY5dHP1jN4Cb5FbN7v85bON0zPRqv5IlSeyVG16CdQ +Y6jQ0CAvAKaZykJ/aQvWjVs+uxIA2zY1Ld0cIPA+b1y4oWsA3Cgdezr8me6v +9Xzxy50BEDYjr+c1SKBEXw9zV+V5MD5be/jKGIF3G5lSZa/9YeJcz6nKGTqf +7NjESJ5zILnf/aD5LIGPL/DN5P7yA2uhFbJ/aNd51f/o7faD9mrxHzpzBMad +ZLfKueMHVUsuvv8tEBh0ZVTYa7cfhF9YDBn6Q2Dj+9KQzR6+wAjanMm7isRD ++2Uk6kd8YPG93qEy2vKCI3xpb3ygQ857+R9uEr2jE2PCq30gvL/N8tpqEn3u +M5/ejfaBCbiyZeM6EnXLR++xKPhA5Z/fWes3kbg52cNvIdAbDAM+3+IWJdGg +UGmn504vkO7c8M992kl2rNLrhL2AdTuw7d9C4ukmTZZaTi8o686wvyxG4u32 +lD+2vWdASOOIOBdJ4qmgTeyZMWdgaKEpl0OKRFJ1+mfPtCdc9C24xyJPosPJ +xEn2Fg8Q1bHuK6At6c5lmvjIA2rW8fCbK5BY+YPrklqOByzmeoeUK5Kof6ml +sCHAA852alidUiFxvLJ73Sc5Dzgt37KpU4NE+90/9/1ScweL8aGLd/eQKLw3 +3bCe6zQsPUotN9lLIpyonVwacoX04P0TK/TpvJaJ68dfuMJ7wcJjFvtIjEt4 +GX452BVM9H2UeA6SuND1RTrvjwscyGUb8z9Mn3+PWcvL5VOgbs04YmBBIjE3 +V5PM7wyOmuf/fKfNP3trXHXJCRIE392NtyTxybUhvvk+JxjriFrstKL3q6c+ +8jLPCdL157LMbUl8d3ez6SstJ1iUfz3m5Ejico2gwQa3k1DFHhAY4kFi6bBv +THe/A3wdeCcj4UliaO+LgKFmB9jwTL6jkbYeu+gP7mIHcDo3LMHtRaK43le2 +7CAHEPhm3BrnQ6LRIvV3jnIAvy4Z/hv+JBZGp3LuO30CVO935VeGklhfNbi2 +jsceti6Vd58MI3HLF6GDa5fsQPhg4urN4SSyyzgPnvlqB38mjVx8IkicuD1R +Gl1hBw3yLVsVrpD4sON8/JyVHRhW1eTlx9Lz77CqxZfYgmPzzbs30kn8ULY7 +hcfVBswEA7sOZZDocawuxtPMBvadslq5TJtD399tRNcGtq8RPmmeSWJKVeIl +oS02MG2YKCmQTeIvlyINoRxruNAVnhufS2Lat1MZ289ZQeKQS05oEYm92beG +hPUsQOLZ0E25YhIz+qIGOigLeJRim/2JtoPIjEIJqwV80DfNVColMV7psexA +rTlsyWemfC0nMUYFx9jAHO65C0bpPiaR+9d6NlXmcXgy33iGvZHuQ8Z1SbQ3 +A4M32p5FtEciTsR77TGD/rwad4smEs08vxo1y5gBq3mJa1kziaOnSlTfTpmC +/pNMxxOt9PzOpzf8Ak2hPcj7eEMbib6bP/e+yD0KQ9wkM7SbXi9b7WPwyiPA +PqtXKv6JxIHY2oI9UyZA9jmLv6B9pHFlGfXBBKxLizk5e0lMWNn4TTrfBN6b +a7dG9JOY03Zc09LIBFof2JhEDZJoG9IdeTTrHygyyHJM+E73749iabeBMbxW +re9SmCLx0fyCU6K6MUySw/odtOsZi/L2ksawdU52G+80iSG/5LKZfw5DTtbT +70kzJNo5WpzgfHgYkqd6/NIWSNxl6hF7lfcwnE8Qicpmo9DRROH8nx5DsJqq +DzZgp/B22IrOnApDYBq4+P+mbbDVOO1svCFwc1c7m3FSOJzamZKjZwjpQab6 +G1ZRuGCUXM5XZACVHgkcgeso5BdOq9px9RDMGHAFWgtS+N+7tcHtjgfg/YOH +vmuFKHy/SnV1g94BqOE2dX9MW7bToPeT+AEIacy12ixC4aOh7/khX/bDRi2d +3f9tofDNrf6f2Xb7QW7HxUUtcQoX32sY/zy5D06vnvHespNCLhZCruXqXuj1 +1+2rpf158IaJotdeMBhL3GcvR+Geci7earO9IPev8pZ78hQumzz8LCa+F2bC +fZvklShMJ0RwX80e8GddEtRTo1Ao7o373A89iFxY8cxFh0KiqX1u3FMXFpyM +ZdbpUuiDe3xeHteFU+9vXSuivea8R0Ojji4cqNBxmtWjcEBizpGLXxfW+YTx +XNKnMHKg4kHNYx1ImuI6kXCIwg8mUsJvVuvAreH1q6pM6bxzZFy/PdGG0t7f +2mZmFH7sDQxRu68NDW9H/edo606JaqYna8Ngff2E8nEKq2vZla67a4N0tm9b +iQWFv7I7K7JIbSgw60t5YEvh7vu10vHRCJX/Fkpmu1DItPSM4+zTgubaDGtw +pZBH/6lJYY0WfKiITO2l3fe05vP5dC36/2zHLepGobCYf2XEUS3YHcz/Lc2D +wtNO3D2WbbuhTv1i+TUfOr/iNZIDLZrwKv+QbsQlChkZymuVP6rDbf6nbEqB +FFpzV47WVqmDf5BsfT9tHymXVK80dZA0Xc9UD6b7Uvu8/OAxdbjI+gYmQynU +cFFabv6oBjuPmWj8c4VCi2OX2uq+qkI8p7mCWBKFWjLtVjGbdoGTZ+uPVtov +7n5qzZpTAa1PGsV+yXSfxHrL27tVYKxYRK49hcJttwrtrt9WAaZl746wdApL +T717V71LBX6W2sqMZ1FYOfz3LOsJZThi68SouE+h3WLDQkWHIlT2BBmb5VPI +MeCivv+JIogczwhdoJ13kbo5e0cRPhu/HtEooPsxmu6Z4q8IbrpKxbUPKSzx +5xNmpxQhUoqF2VJGIfK+6HT2U4DqyRT7nqd0f4UrfhYqyYPoqeKki8/oPIf8 +9ygQ8hA41NIkVkuhdJbYhda18rC3b3mb3XMKs7TZlWFYDjrb7GeG6um8/Rt3 +yGTIwWTpzrCpZgrlU+ujpznlgOHfdIetg8L2pP2/vbt3gOlJIrWCdudI2vcH +5TsgxuT8ZZdOCkMjekx443bAb9mdrh1v6ffVMX/ZQ28HfPiSLJ/znsKWtxSY +lWyHhEOONcxeCqUsfZ+XJG4DNoKjPWiUwpmIklgefxlQX2ddrzxG3zdzcaTl +mAycWaosG6VtwxX76YGaDPS/dU05PEGhe9Xj5tEFaai50mlBfKdQvNlyNzNA +GrxncoZrZyhUNSzOZkZKQf7A8nvvWQqXVol6u52Sgs+vTVukf9HvI6nw7bOD +UmCUt7ogbo4+j87+yHYeKdhh5XXGZpHCh1Z8GSWZknDiwCt73iUKIaT1FUeQ +JFxXlTrSTFtX/fyWCyckgXtT9y65ZQrveHc7dG2TBG0WZZmvtNnnxdiq10uC +32SMUOof+n1eCVtd+1MCHn4cWX3wL4WrF3uNR7skYKiJufyXdtRR5QLlGgn4 +H6xYIKY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 10}, {0., 0.9065364977598496}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 10}, {0., 0.9065364977598496}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hc8V+0bB3BZSVMhM99zjtmQnZXr8kVpIY+ibCIiI0RS2RRZ2RIllURm +RiohPFSPUCpZlU1JZKV+5/fXeb3/ue77/tyf+xB27sYOrCwsLMQKFpb/f5U8 +/DlYWARw6z6jTjPWSbi9Yi5Te4UAKqUxdj1jmQTea14qIawCuD589j/xvxPw +s9z1JCeHANpecL41uTQBJUtW/67hFkBl/cznPrMTIBehc1WQVwAXmFtvWY9M +wLYba/gUpQXwEtvR4pRXE0C+vCHuaCSAOvVfeCOSJqCV+0JY7F0BdEk/y9ux +fgIW1n9Vn54XwFVwIfjf4HHYNBijVaMviDxeEj9WjozByPWfIfuyBPFqHGQf +3T4GTOEB0Q1TgtimUuPl6TwKpgGRC2l7hVBEK/Dvk0sjcKzAi4rKFMIHJddz +ZoOHof/28M3ySSH8K6PqzQweAvISn12OrjCOiShaFR4ZhFGxl2dbkoRxZa7i +qdMyX+F6XOMHs0FhNNjBHx88/Rm4v/pfvK8hgtX8lGxI/AAsL1f4KkeLYNPK +zIpvmv2Qv1hYEvJFBA1KnjcER/bAnqZRDTU1UaRMJrjisz+Cw/ECQenLophx +ZkpM/kcXYNtWtY99oihqcyVVSOgtZK2RL3ghtwUvurUVfYhph+ptP+y8I7fg +DxX/lxZj/8FzoVnHK71bMM/2tiUh3wqH2oKefZAVwy6x8X9StjVBolPzsYkw +MewXGyrdwawHm6YUfdUuMXxRtunH2VW1sOb82zqfTQxsLPAa/nq1Gl6wabIW +azFw3sbUw9ilHLwffrY1BgYGdJaW1B0rB3Hzy89/0q6Zu+mhpV8OoSXvAlW0 +GairEGJoJlEOuraefx/rMFBEcWArX38ZNDy987tRn4GCl8s/PjQtg/pzPHOf +jBloWa5w66BhKTz/PjTOdZKBlXJlj3ZZF4PKep72CtrFubNvpQ2L4YGsRqWj +EwM/3AlTlIRiSD4dG9rgzMCKm3cS9MSKwXV8l2igKwNPNnIif38RCAxHGsx5 +MvCo0859i/ZF4Na7tXgwgIELju6B+qOFIPTK7WxdAgPbPx7kcPLIh53eytvc +rjHwOyn7I+JoPugK/+4TTGTg9IvFjBrNfHB3vrzPM4mBgWYXWE6syocGjtsi +jFQGetWva8jLuQ9uWh/qLmTS81nCt678lAd1D3XWq92j87B/zl1lfg+cEwTu +PXzCQAFnA/2zibmw5kDkf4ZPGXjrmrXL28BcKGSb//Wd9vbpfFHd07kw7d2l +J1fLwC/fJVcb7cmFANPkL0V1DKRGmVzEwm2IEeEVK2lioNNJ39As29tQcmd9 +ctkbBrrfYMl6vTsHlqo5Q6sGGfgmOm9+iXET7IYX5E8OMVCslq8hc/1NaNk0 +2cc7zMDOv/Iqhn+yId21Q8NjhIHjCX8H+ruzQXVL9k/JcQbmWh8hnqZkw9kg +NfvEKQYWXOpMOroxG6b3ujLdl+h5u+9mOUjcgLHONywSPAQ69mUkBJ9Ph76N +bkQT7YkWwf5623ToNOJmOm8kkN/jcLuwfjo8eckMKdhE4OlMRfv1fOkQ11DK +ocJPoOl7BVe2ojRQKUvi3itM4KJNSc+GsVQIuXaM11mCQO9K4RYjtxQQMR6Q +KlAjcLorQ3ihNBGKNgttPqhO4Dd1Cl5nJYJejzHnOO03zFDn8qhEcHNq+Cqt +SWCS7qeMKvtEeH7x7s3bWgQqfCqaS+FNBMf808LXdQiM3VaQl33uGhSxL66L +OkRgzNkR81CjBNBtUfgjY0Dg0YEC7UCtBPgQ6zLZTFsgUy40ensCsAr3tHIa +ETgywT3xlisBjsjXRgYbEzi1Zqp/a108LFqGs/qbErg0v2JP+6540K3Y+MvJ +lsCIOsh/JhsHN6Zeu/DZ0ecNKD53WDQO5mWiBp7T7mauqZhZHQcPrrO9EjpB +4FWvweDe9ljgC57JeelI4PG9bV0O+2Nh6OC7w3KuBM7NH+59DTEQ8TmtYO4s +gZxra4c1dKLhs/BR6rYvgTtLd14LEo8GzSMb04z8CExPDfIc4oiGqaYroXnn +COwrSzi69t8oMCs4b24eQGBFl1D5S6MokPazXPUsiN6v1Iq0BYcr0LKWcAiP +JvD9cnGGwZ1IKDYLPyR1lcDZpY7TvFcjITVnXLmZNotIYcC0VyQ4qj3i5I4l +cO+s9PIv7Uhgczhw72o8gT/u5+uK9UWAZo3PeGIygU9MifmPohFQeKrFMyeb +QI68M1JnHoRBUvnO47o3CfSVeKwqkBwGASxJzEHanayJnJ2XwmB/svUmqRwC +tx1Ljor+JwyGn8+U3c8lUJFPVervUigwBMXmi+8TuGfaW+mjUSgkNHldrC0j +cHKP/vDQqhDQCreYdCun9yu7asR3JhjGdfUsRB8RuHVVRp1YXzDo1vGr+1cQ +uMPD60FpWTDM1VTNKlbT6y8UjY7aBINFyV/Xu88I/BpctRjwJAgkMqPMY1oI +JOxNU+6FB0K7uXeLZiuBRd85Jca9AuGikKXaOO0RKaURbdtAeJ8iu1n/FYFS +nSuebdMMhCsJb9pXtBFY5dHP1jN4Cb5FbN7v85bON0zPRqv5IlSeyVG16CdQ +Y6jQ0CAvAKaZykJ/aQvWjVs+uxIA2zY1Ld0cIPA+b1y4oWsA3Cgdezr8me6v +9Xzxy50BEDYjr+c1SKBEXw9zV+V5MD5be/jKGIF3G5lSZa/9YeJcz6nKGTqf +7NjESJ5zILnf/aD5LIGPL/DN5P7yA2uhFbJ/aNd51f/o7faD9mrxHzpzBMad +ZLfKueMHVUsuvv8tEBh0ZVTYa7cfhF9YDBn6Q2Dj+9KQzR6+wAjanMm7isRD ++2Uk6kd8YPG93qEy2vKCI3xpb3ygQ857+R9uEr2jE2PCq30gvL/N8tpqEn3u +M5/ejfaBCbiyZeM6EnXLR++xKPhA5Z/fWes3kbg52cNvIdAbDAM+3+IWJdGg +UGmn504vkO7c8M992kl2rNLrhL2AdTuw7d9C4ukmTZZaTi8o686wvyxG4u32 +lD+2vWdASOOIOBdJ4qmgTeyZMWdgaKEpl0OKRFJ1+mfPtCdc9C24xyJPosPJ +xEn2Fg8Q1bHuK6At6c5lmvjIA2rW8fCbK5BY+YPrklqOByzmeoeUK5Kof6ml +sCHAA852alidUiFxvLJ73Sc5Dzgt37KpU4NE+90/9/1ScweL8aGLd/eQKLw3 +3bCe6zQsPUotN9lLIpyonVwacoX04P0TK/TpvJaJ68dfuMJ7wcJjFvtIjEt4 +GX452BVM9H2UeA6SuND1RTrvjwscyGUb8z9Mn3+PWcvL5VOgbs04YmBBIjE3 +V5PM7wyOmuf/fKfNP3trXHXJCRIE392NtyTxybUhvvk+JxjriFrstKL3q6c+ +8jLPCdL157LMbUl8d3ez6SstJ1iUfz3m5Ejico2gwQa3k1DFHhAY4kFi6bBv +THe/A3wdeCcj4UliaO+LgKFmB9jwTL6jkbYeu+gP7mIHcDo3LMHtRaK43le2 +7CAHEPhm3BrnQ6LRIvV3jnIAvy4Z/hv+JBZGp3LuO30CVO935VeGklhfNbi2 +jsceti6Vd58MI3HLF6GDa5fsQPhg4urN4SSyyzgPnvlqB38mjVx8IkicuD1R +Gl1hBw3yLVsVrpD4sON8/JyVHRhW1eTlx9Lz77CqxZfYgmPzzbs30kn8ULY7 +hcfVBswEA7sOZZDocawuxtPMBvadslq5TJtD399tRNcGtq8RPmmeSWJKVeIl +oS02MG2YKCmQTeIvlyINoRxruNAVnhufS2Lat1MZ289ZQeKQS05oEYm92beG +hPUsQOLZ0E25YhIz+qIGOigLeJRim/2JtoPIjEIJqwV80DfNVColMV7psexA +rTlsyWemfC0nMUYFx9jAHO65C0bpPiaR+9d6NlXmcXgy33iGvZHuQ8Z1SbQ3 +A4M32p5FtEciTsR77TGD/rwad4smEs08vxo1y5gBq3mJa1kziaOnSlTfTpmC +/pNMxxOt9PzOpzf8Ak2hPcj7eEMbib6bP/e+yD0KQ9wkM7SbXi9b7WPwyiPA +PqtXKv6JxIHY2oI9UyZA9jmLv6B9pHFlGfXBBKxLizk5e0lMWNn4TTrfBN6b +a7dG9JOY03Zc09LIBFof2JhEDZJoG9IdeTTrHygyyHJM+E73749iabeBMbxW +re9SmCLx0fyCU6K6MUySw/odtOsZi/L2ksawdU52G+80iSG/5LKZfw5DTtbT +70kzJNo5WpzgfHgYkqd6/NIWSNxl6hF7lfcwnE8Qicpmo9DRROH8nx5DsJqq +DzZgp/B22IrOnApDYBq4+P+mbbDVOO1svCFwc1c7m3FSOJzamZKjZwjpQab6 +G1ZRuGCUXM5XZACVHgkcgeso5BdOq9px9RDMGHAFWgtS+N+7tcHtjgfg/YOH +vmuFKHy/SnV1g94BqOE2dX9MW7bToPeT+AEIacy12ixC4aOh7/khX/bDRi2d +3f9tofDNrf6f2Xb7QW7HxUUtcQoX32sY/zy5D06vnvHespNCLhZCruXqXuj1 +1+2rpf158IaJotdeMBhL3GcvR+Geci7earO9IPev8pZ78hQumzz8LCa+F2bC +fZvklShMJ0RwX80e8GddEtRTo1Ao7o373A89iFxY8cxFh0KiqX1u3FMXFpyM +ZdbpUuiDe3xeHteFU+9vXSuivea8R0Ojji4cqNBxmtWjcEBizpGLXxfW+YTx +XNKnMHKg4kHNYx1ImuI6kXCIwg8mUsJvVuvAreH1q6pM6bxzZFy/PdGG0t7f +2mZmFH7sDQxRu68NDW9H/edo606JaqYna8Ngff2E8nEKq2vZla67a4N0tm9b +iQWFv7I7K7JIbSgw60t5YEvh7vu10vHRCJX/Fkpmu1DItPSM4+zTgubaDGtw +pZBH/6lJYY0WfKiITO2l3fe05vP5dC36/2zHLepGobCYf2XEUS3YHcz/Lc2D +wtNO3D2WbbuhTv1i+TUfOr/iNZIDLZrwKv+QbsQlChkZymuVP6rDbf6nbEqB +FFpzV47WVqmDf5BsfT9tHymXVK80dZA0Xc9UD6b7Uvu8/OAxdbjI+gYmQynU +cFFabv6oBjuPmWj8c4VCi2OX2uq+qkI8p7mCWBKFWjLtVjGbdoGTZ+uPVtov +7n5qzZpTAa1PGsV+yXSfxHrL27tVYKxYRK49hcJttwrtrt9WAaZl746wdApL +T717V71LBX6W2sqMZ1FYOfz3LOsJZThi68SouE+h3WLDQkWHIlT2BBmb5VPI +MeCivv+JIogczwhdoJ13kbo5e0cRPhu/HtEooPsxmu6Z4q8IbrpKxbUPKSzx +5xNmpxQhUoqF2VJGIfK+6HT2U4DqyRT7nqd0f4UrfhYqyYPoqeKki8/oPIf8 +9ygQ8hA41NIkVkuhdJbYhda18rC3b3mb3XMKs7TZlWFYDjrb7GeG6um8/Rt3 +yGTIwWTpzrCpZgrlU+ujpznlgOHfdIetg8L2pP2/vbt3gOlJIrWCdudI2vcH +5TsgxuT8ZZdOCkMjekx443bAb9mdrh1v6ffVMX/ZQ28HfPiSLJ/znsKWtxSY +lWyHhEOONcxeCqUsfZ+XJG4DNoKjPWiUwpmIklgefxlQX2ddrzxG3zdzcaTl +mAycWaosG6VtwxX76YGaDPS/dU05PEGhe9Xj5tEFaai50mlBfKdQvNlyNzNA +GrxncoZrZyhUNSzOZkZKQf7A8nvvWQqXVol6u52Sgs+vTVukf9HvI6nw7bOD +UmCUt7ogbo4+j87+yHYeKdhh5XXGZpHCh1Z8GSWZknDiwCt73iUKIaT1FUeQ +JFxXlTrSTFtX/fyWCyckgXtT9y65ZQrveHc7dG2TBG0WZZmvtNnnxdiq10uC +32SMUOof+n1eCVtd+1MCHn4cWX3wL4WrF3uNR7skYKiJufyXdtRR5QLlGgn4 +H6xYIKY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 10}, {0., 0.9065364977598496}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlnc4FYwXx29k1quMZHP3vZVkJJTOybhm2UUi2YmE7JRVIRk3o9eKCCWy +R0lSWWl7EVHp0iAUDRE/vz/Oc57znD/P5/l8D9HZ19KNi0AgLKzU//shvQwB +AkECPTdKjCt6z8CusQ2t1YkSqPFm2rv/5BRwXmYxd1IlMXdC9RbP0wmYk173 +saRGEjeR3wS9s/wMo+vDfIxACm8LhD/0nBqHTMsvxa19Uhiw5vwOV28O1E0b +qcm4SmPLwD7lSJVRyH5dcXLvX2k0fV1oX/72LTj6Cp6uuSSDVTLeZW86hiDB +yWbor7wshqW+v7fPeAAi8q5NyDbK4j6ryoaskV54vWPMjMSSw6EZeedC7pcg +EiEdYf9CDrdZKUpXCD4D0XUHHLw85XGeFUE4bNANpxajUh1+yOPI5ivhdu7t +sF/abpeogQIqPo5UE25rA4ckbzERtgLyftsdlex6DyRuBYtzDyjgp81/Dj04 +cxt2BPF8HyET8Yf+zN5df+pAcCLh100vIt7L8xM75lENe3gv9bk1EFGo8Klt +s2EFeASLSzVxkVCtOkChe6YU9mSknl8yJOH3c+lfZx8UwRn75Kdb00nIfUBi +QvVvPvg9jQWLNyQM3r70WlQ+Bywzf4gJkcgofkKY19gqEzJ5Pz+o8yGjZGfW +gif3JUgh9+aY1ZJx4urGwfojyfB1fI9ZL4GCKbOdEB8QD5qEze6zJhQsoo1b +bq+OBc2ONSWr2RR0ElBejFwbBblqvvcJIxT8FmVvD9nhUGfWzTNNoeK/Z9yj +FIqDoLk1vyLYi4rFvjIEKPIH2sD8tok6KuoKnfK0YR4H/VzjYfNFKo5Mz1f9 +0+wJnfxyLgWGNJRs7KF+n3aBZeJnEU4yDV+kbnXYZOIE1FQl+v3/aOgypx4+ +0XQQKop/i8UT6VjGWKjOu2ADk0ebtuh60vHI0Z+WyrkWcPHVouynWjp2JHA1 +iZiZguylOwF0AgMzU8JrxP5jwRGC/6wti4HhQf4GN8t1QECszDSQzcCJUOMf +WoK7wf2/oWcxrxlYICot0xepAVWT5xu2yDPxmZ5S+971auB0oz6k1YuJV2QO +WJBp2+DBhmEXVhUTj97+vcvk8CZ4Oay2sLzMxKfdC64OfFToEetztWNJoOBk +2D7169NQ/FvIQyCViIztxN0CNZXQ22Idsm6YiJe5dKktEWXQy9v7fIhKQnkd +5z2WD4rhXcj6MnFfEi6JtVIyuq7CbzFBvtZGEga0sU9OfcmDURXtG0rLJLSe +N/SoyP0X5vb5Tr43IGOptl6h6vp0EEt3rORKJeMDRe0yN1Yq7OZZ8zN1kIzB +vinDInqJcCmgftCFRsEBhtMNmDsHTS7ZvIvHKZjoH3GG1RUNExHatVyNFHSI ++yaoces0MNtyPgSvoiLfRteI8VWhoBG3/WCNARW7zDUcSxNPgp/pE1/lFCrC +2Ghz5cMTUK9F4pN7TUU0f/vnrvkx4LVSUwgl0bANO+dttruDazr3HR1vGj6V +uiu7l9cZ2HZrc19W03DXNfm3NjEO8EVaTO7aAg1/Z2laui0fgL38rxXG9ehY +XKhfZRhuBc1y9tfSk+j4+f7modo0M7BRfdN5fpCO3rBm6qa3EdzrylBFMgN7 +86zXvinWg+0JQgoe3gx8un/yF18rQuNJ3aTFOga2qHlRC4k7Ye37Kl3bRQaa +Tgg5mW9RhzgT+cs/9ZiY6pjcxCCogMg7o+PcSUzkfXdBO0ZJEbrn45QKB5jY +pt997VEiHdK2qDdsIUugj4n9wUcKMzDwzVRpKIKIruXD963iqiBhNKBEq5uI +55M/1mweuglyEBhoLEbCnLu6VsK9JZDCZ/Gv4CESdos6Kz5qLYRdjT1ev4pJ +ONBaqT6llg83CO9Ptn4lIeGJc796fxaQA6oJv9VW7u2apla0KQP6npC1Dp0h +Y5qmKbFVng0eab5dJzrIeMdPr6ez8yKg4qJYjigFufnLfrzZHAfzyi71wQ4U +3OkTX/6rIQbYV4vKua9RMHj0N7f3lkhwWThr2TxNwfu109XRrDD4ObGsZKFO +RdNHPCW/2YGQwbsj2TqCivKFHA+NCj84LiCUE9tBxbLW6DRyrTfQQu4tua6j +YcFoTLfECQ8Qf7Z+nf9BGj4ztgzj+eEMnXf/HLAvoGFvp1SeEvdhiOsrINV8 +oqGU4NWGA1Z2cLr/U9YOVTp67htKGTplDdZ6gke9w+l4n7wj3a/cHPxivGcb +OugYWGYyydNrDMe3Xn9VI8xAAo+YMVeDPpjotwo42TGw7oO4/6bKPeCkF/xV +o4iBQfbM4sjEXaA51C4w9YWBFH/DgwyzHSCT86pEWIWJBSVNCxKrVEFTP3L2 +yCkm3rvK/62vZiu089V0zT1kYomkgO7ABAOeTjimW0wyMSP7c+RPpEGIhrtT +hrAEznYwzlxizYDf1DFRvZNEnI86defKzypwP8kNz1uJ6HbK7sBYcjnoDD3q +iFpDwrcvQPqjUyl82ueXEmtJQoX8VMNeLIIRgQoZ0TwShm274fgtMx+SPqoM +8o+R8NXeiO0WodmgxdMrGLOZjMKhEt+pdzNA3Yt3OS6IjHNbxaN0U9iwOERU +fXeXjJWzx+Wvs5NAXFBeRUOQgqvy+J8VPYkDSUmDpDprCrZnFUXmqMbCuJrt +pthsCh4ZkO5fnR0JhMt/4kfGKTj3YUf786kw6JMdk8pXpOJixiveT1JBcP3D +hNx4ABW3ad3ILqD7Q/dMzHhDCxWDXgWwAr19oF6QZ2qQh4bBRpMJI6KeMH1s +Y1O8BQ0zL1wsnjjhApxpv7orl2nY4/Ouzaj7MPTVfKJovaXhRA37mvbqgyB+ +b+aA0yY63igfK0jksgGF/vfd/X501A3b7V9FtoAzZbX85i10DPL/KMaTbALt +TtWFX/kZuOR3jaOjx4I+0r+n35gxkMvk5rCqog6obRGWPZC9wkPZ/OR3Q20w +t30xqTHKwMqfrbUS4zvA/WG50hUGEw8xAoJHzqlCT7C0emoAE4kbuvnCI5Tg +oVBnhuwdJpIdz+vPXmVCz/cA57DRlTzQD/rvHIcGzzlGnYyfTOx/LHtytoAK +XruX1B7zS6B+aO1hD7sZaPEOPxviS8SQoxsbardWg7X2Y0Hp5pX8d0gdeTxR +DtbMqROyfCSEmM28QaWlkOa/KvH+XhLWkQmLhOgiqKjO+5H/74oPhgT/GHXn +A2FoaG35OxJ2mf41aH6cDaynnOROGhn3lw0ebOPLBPfG4CPy/mSUfv5OKKqL +De3Lfz5ubCLjxRNy5nHzSRAdUonneCg4c2jnW2GFeLi+VjPM2pyC2ezW/fH+ +sbB+qcrzYQYFAw6q27q9ioR947XXfEcpeDeP7R+tFw7t9QdSDJgrvj/k8FHS +KQhULNvHt/pSsWmPb2icmz+EcFouWNym4rO40G6Lbh9YelUytmEVDVffNpT0 +8PCEQ7elkjbspaFyukuBQKULfI9T5OxJoyGnyzy3f6MTnCatLY4YpGG59GJS +qONBGK0+WT9HpWO1s61aKcsGzuU/Cf/Hh45LL8iLfE4WcO6erWhOEx2PNdz9 +7jFlAt/n6y8krGZgefL+nRqJLMhJ5WmSMmHgb6MbDQQfHZBTGFEbz2Cs+Paw +/p9SbRjK2O84MszAsj/LeosqGpA4kDU7Rmbi/m45c/nHqiAufLSf4ctEyXie +F5ocJdBjW/5VrmciZ4cRK5CwCUyCljqThpl4a32GhZAGHcw8e7dqf2OivVm6 +/dgMFSyO3DsitsDEu+zoThlrKrjsMb7itloCR136rXucZ4CzOaZFxIeInRHd ++QvG1dBNvHWitYmIyxZWNSSpCnA0j9afWE1CCmeb2fmeUvCK7RJwMiGh4kv+ +C++vFoE438ZRj0wSXsnj3Lr5IR8arbfRzoyQsHbVezvjH9nQo+JjeYxCxttZ +v3M8FTPh9OFK9hdfMk41ZWUfHmdDWapHW009GRkBDkcDFZOhUWneQJGbgofP +mIvcNIoHP16VGfI+CorYHdprwI6FotGR865pFPTdn5I/NB0JQf+wVTXeUTDh +sOLee77hsJtb2ESaTsUN6YWBXDFBEBxfY/zKm4phF71yu2L9wczxkKNcIxW/ +7XgcUTHvA1c1Qo/ULFGxubTIMyPVE9hHckKGjGmYnXHLi/PMBUJsLiyIsGn4 +qKN32FvZCV6+znWXH1iZrwfFrEk8CJ0368dayHT0/zL5he+oDWie1bUu9aJj +FVeZQvRpC0jouiGh00BHx3/8RNPkTCGO1bRsy8XAwxEhbvGVLFjq3NnXZMjA +W78+hGhd1AGxrIet5WkMTNDSVQ14rQ0K6pIbq4YY+MF4Vr3bTgPynFNt4olM +/MBvV3T5qyrcGV5XOue94otVT6XWrN0Gq3sztzXXMDGg6FhQndImEGzUXZQY +YuLuywbNus50ELoh6dwxxcTeXb2PuiRosL5wdXre7xU+3rn95IRRgS0ftjXh +LxPZLG/vLEUqvNM50avCJYG707sSIjxmIHgN39DbY0RMF9FnbbWrBl6xAvKl +RiLqitbTPJQrYNSlR+klNwlDRVfFXB0phf0Xyw2VjFfyZjQrwrWmCIyVrWxN +Mlb4cH/RdGwmH9JSB1U8h0nImdIuoQvmwDq3qppd5JV8Kdf8aIGZIFhjuvn5 +8RV+IPDryBwb8gZzb0XVkdHpZkXSBYNksLyQ+5jARcGoNCtdtmM82MRsLVuz +l4Jv8j4aaVyNhSnrwEy1SxS0fW7owViKBMGCyDCZtxQMq4z+GHQ2HMKu+zB4 +aFRsixpuT0gLAinqjVPXjlHxa1nu/Yg0f9CSLutY3bDyXxQqXAsRPg5zX47I +R/9d2Zsn83YVe4Li9mGfFiMaNuTxjnHeukDzTq3zCyk0rPR/mMra7QSn6sZZ +M3001IKm+m9XD8Kd6wf+FpLouKZkv4dpmA2wg0+3Bh6lYyjLQ+TVRQtIfGol +vaGejj+0xtZ2qZvCS+/bmriKgWLPtNs62lhQyelzjTdgICsp1NY7VweE+hvO +pV5iIMnhlfKTb9rw4GxYQNYgAwd8CG6GPhpQWpLIa6/AxBczpLqJJVUQ0nNJ +GTzGRPPvFt+EJbcB56SWcVQ1E5d/sHIDDTbBF9vxDSOvmZhSmiYRHkyHKePm +8MSvTJSJIgr3b6HBjG5JhcsvJk7PO7i4JFHBv1XG0GyRifsiNnx6iVSoPt0v +9mhphT/+z/oBUlT4H3M26dU= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 216, 181, 147, 114, 82, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 217, 182, 148, 115, 83, + 52, 21, 218, 183, 149, 116, 84, 53, 22, 219, 184, 150, 117, 85, + 54, 23, 220, 185, 151, 118, 86, 55, 24, 221, 186, 152, 119, 87, + 56, 25, 222, 187, 153, 120, 88, 57, 26, 223, 188, 154, 121, 89, + 58, 27, 224, 189, 155, 122, 90, 59, 28, 225, 190, 156, 123, 91, + 60, 29, 226, 191, 157, 124, 92, 61, 30, 227, 192, 158, 125, 93, + 62, 31, 228, 193, 159, 126, 94, 63, 32, 229, 194, 160, 127, 95, + 64, 33, 230, 195, 161, 128, 96, 65, 34, 231, 196, 162, 129, 97, + 66, 35, 232, 197, 163, 130, 98, 67, 36, 233, 198, 164, 131, 99, + 68, 37, 234, 199, 165, 132, 100, 69, 38, 235, 200, 166, 133, 101, + 70, 39, 236, 201, 167, 134, 102, 71, 40, 237, 202, 168, 135, 103, + 72, 41, 238, 203, 169, 136, 104, 73, 42, 239, 204, 170, 137, 105, + 74, 43, 240, 205, 171, 138, 106, 75, 44, 241, 206, 172, 139, 107, + 76, 45, 242, 207, 173, 140, 108, 77, 46, 243, 208, 174, 141, 109, + 78, 47, 244, 209, 175, 142, 110, 79, 48, 245, 210, 176, 143, 111, + 80, 49, 246, 211, 177, 144, 112, 81, 247, 212, 178, 145, 113, 248, + 213, 179, 146, 249, 214, 180, 250, 215, 251, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIzb22gKCzeweM2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7jOI7jOI7j+J/4DfoBU94= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlnc4FYwXx29k1quMZHP3vZVkJJTOybhm2UUi2YmE7JRVIRk3o9eKCCWy +R0lSWWl7EVHp0iAUDRE/vz/Oc57znD/P5/l8D9HZ19KNi0AgLKzU//shvQwB +AkECPTdKjCt6z8CusQ2t1YkSqPFm2rv/5BRwXmYxd1IlMXdC9RbP0wmYk173 +saRGEjeR3wS9s/wMo+vDfIxACm8LhD/0nBqHTMsvxa19Uhiw5vwOV28O1E0b +qcm4SmPLwD7lSJVRyH5dcXLvX2k0fV1oX/72LTj6Cp6uuSSDVTLeZW86hiDB +yWbor7wshqW+v7fPeAAi8q5NyDbK4j6ryoaskV54vWPMjMSSw6EZeedC7pcg +EiEdYf9CDrdZKUpXCD4D0XUHHLw85XGeFUE4bNANpxajUh1+yOPI5ivhdu7t +sF/abpeogQIqPo5UE25rA4ckbzERtgLyftsdlex6DyRuBYtzDyjgp81/Dj04 +cxt2BPF8HyET8Yf+zN5df+pAcCLh100vIt7L8xM75lENe3gv9bk1EFGo8Klt +s2EFeASLSzVxkVCtOkChe6YU9mSknl8yJOH3c+lfZx8UwRn75Kdb00nIfUBi +QvVvPvg9jQWLNyQM3r70WlQ+Bywzf4gJkcgofkKY19gqEzJ5Pz+o8yGjZGfW +gif3JUgh9+aY1ZJx4urGwfojyfB1fI9ZL4GCKbOdEB8QD5qEze6zJhQsoo1b +bq+OBc2ONSWr2RR0ElBejFwbBblqvvcJIxT8FmVvD9nhUGfWzTNNoeK/Z9yj +FIqDoLk1vyLYi4rFvjIEKPIH2sD8tok6KuoKnfK0YR4H/VzjYfNFKo5Mz1f9 +0+wJnfxyLgWGNJRs7KF+n3aBZeJnEU4yDV+kbnXYZOIE1FQl+v3/aOgypx4+ +0XQQKop/i8UT6VjGWKjOu2ADk0ebtuh60vHI0Z+WyrkWcPHVouynWjp2JHA1 +iZiZguylOwF0AgMzU8JrxP5jwRGC/6wti4HhQf4GN8t1QECszDSQzcCJUOMf +WoK7wf2/oWcxrxlYICot0xepAVWT5xu2yDPxmZ5S+971auB0oz6k1YuJV2QO +WJBp2+DBhmEXVhUTj97+vcvk8CZ4Oay2sLzMxKfdC64OfFToEetztWNJoOBk +2D7169NQ/FvIQyCViIztxN0CNZXQ22Idsm6YiJe5dKktEWXQy9v7fIhKQnkd +5z2WD4rhXcj6MnFfEi6JtVIyuq7CbzFBvtZGEga0sU9OfcmDURXtG0rLJLSe +N/SoyP0X5vb5Tr43IGOptl6h6vp0EEt3rORKJeMDRe0yN1Yq7OZZ8zN1kIzB +vinDInqJcCmgftCFRsEBhtMNmDsHTS7ZvIvHKZjoH3GG1RUNExHatVyNFHSI ++yaoces0MNtyPgSvoiLfRteI8VWhoBG3/WCNARW7zDUcSxNPgp/pE1/lFCrC +2Ghz5cMTUK9F4pN7TUU0f/vnrvkx4LVSUwgl0bANO+dttruDazr3HR1vGj6V +uiu7l9cZ2HZrc19W03DXNfm3NjEO8EVaTO7aAg1/Z2laui0fgL38rxXG9ehY +XKhfZRhuBc1y9tfSk+j4+f7modo0M7BRfdN5fpCO3rBm6qa3EdzrylBFMgN7 +86zXvinWg+0JQgoe3gx8un/yF18rQuNJ3aTFOga2qHlRC4k7Ye37Kl3bRQaa +Tgg5mW9RhzgT+cs/9ZiY6pjcxCCogMg7o+PcSUzkfXdBO0ZJEbrn45QKB5jY +pt997VEiHdK2qDdsIUugj4n9wUcKMzDwzVRpKIKIruXD963iqiBhNKBEq5uI +55M/1mweuglyEBhoLEbCnLu6VsK9JZDCZ/Gv4CESdos6Kz5qLYRdjT1ev4pJ +ONBaqT6llg83CO9Ptn4lIeGJc796fxaQA6oJv9VW7u2apla0KQP6npC1Dp0h +Y5qmKbFVng0eab5dJzrIeMdPr6ez8yKg4qJYjigFufnLfrzZHAfzyi71wQ4U +3OkTX/6rIQbYV4vKua9RMHj0N7f3lkhwWThr2TxNwfu109XRrDD4ObGsZKFO +RdNHPCW/2YGQwbsj2TqCivKFHA+NCj84LiCUE9tBxbLW6DRyrTfQQu4tua6j +YcFoTLfECQ8Qf7Z+nf9BGj4ztgzj+eEMnXf/HLAvoGFvp1SeEvdhiOsrINV8 +oqGU4NWGA1Z2cLr/U9YOVTp67htKGTplDdZ6gke9w+l4n7wj3a/cHPxivGcb +OugYWGYyydNrDMe3Xn9VI8xAAo+YMVeDPpjotwo42TGw7oO4/6bKPeCkF/xV +o4iBQfbM4sjEXaA51C4w9YWBFH/DgwyzHSCT86pEWIWJBSVNCxKrVEFTP3L2 +yCkm3rvK/62vZiu089V0zT1kYomkgO7ABAOeTjimW0wyMSP7c+RPpEGIhrtT +hrAEznYwzlxizYDf1DFRvZNEnI86defKzypwP8kNz1uJ6HbK7sBYcjnoDD3q +iFpDwrcvQPqjUyl82ueXEmtJQoX8VMNeLIIRgQoZ0TwShm274fgtMx+SPqoM +8o+R8NXeiO0WodmgxdMrGLOZjMKhEt+pdzNA3Yt3OS6IjHNbxaN0U9iwOERU +fXeXjJWzx+Wvs5NAXFBeRUOQgqvy+J8VPYkDSUmDpDprCrZnFUXmqMbCuJrt +pthsCh4ZkO5fnR0JhMt/4kfGKTj3YUf786kw6JMdk8pXpOJixiveT1JBcP3D +hNx4ABW3ad3ILqD7Q/dMzHhDCxWDXgWwAr19oF6QZ2qQh4bBRpMJI6KeMH1s +Y1O8BQ0zL1wsnjjhApxpv7orl2nY4/Ouzaj7MPTVfKJovaXhRA37mvbqgyB+ +b+aA0yY63igfK0jksgGF/vfd/X501A3b7V9FtoAzZbX85i10DPL/KMaTbALt +TtWFX/kZuOR3jaOjx4I+0r+n35gxkMvk5rCqog6obRGWPZC9wkPZ/OR3Q20w +t30xqTHKwMqfrbUS4zvA/WG50hUGEw8xAoJHzqlCT7C0emoAE4kbuvnCI5Tg +oVBnhuwdJpIdz+vPXmVCz/cA57DRlTzQD/rvHIcGzzlGnYyfTOx/LHtytoAK +XruX1B7zS6B+aO1hD7sZaPEOPxviS8SQoxsbardWg7X2Y0Hp5pX8d0gdeTxR +DtbMqROyfCSEmM28QaWlkOa/KvH+XhLWkQmLhOgiqKjO+5H/74oPhgT/GHXn +A2FoaG35OxJ2mf41aH6cDaynnOROGhn3lw0ebOPLBPfG4CPy/mSUfv5OKKqL +De3Lfz5ubCLjxRNy5nHzSRAdUonneCg4c2jnW2GFeLi+VjPM2pyC2ezW/fH+ +sbB+qcrzYQYFAw6q27q9ioR947XXfEcpeDeP7R+tFw7t9QdSDJgrvj/k8FHS +KQhULNvHt/pSsWmPb2icmz+EcFouWNym4rO40G6Lbh9YelUytmEVDVffNpT0 +8PCEQ7elkjbspaFyukuBQKULfI9T5OxJoyGnyzy3f6MTnCatLY4YpGG59GJS +qONBGK0+WT9HpWO1s61aKcsGzuU/Cf/Hh45LL8iLfE4WcO6erWhOEx2PNdz9 +7jFlAt/n6y8krGZgefL+nRqJLMhJ5WmSMmHgb6MbDQQfHZBTGFEbz2Cs+Paw +/p9SbRjK2O84MszAsj/LeosqGpA4kDU7Rmbi/m45c/nHqiAufLSf4ctEyXie +F5ocJdBjW/5VrmciZ4cRK5CwCUyCljqThpl4a32GhZAGHcw8e7dqf2OivVm6 +/dgMFSyO3DsitsDEu+zoThlrKrjsMb7itloCR136rXucZ4CzOaZFxIeInRHd ++QvG1dBNvHWitYmIyxZWNSSpCnA0j9afWE1CCmeb2fmeUvCK7RJwMiGh4kv+ +C++vFoE438ZRj0wSXsnj3Lr5IR8arbfRzoyQsHbVezvjH9nQo+JjeYxCxttZ +v3M8FTPh9OFK9hdfMk41ZWUfHmdDWapHW009GRkBDkcDFZOhUWneQJGbgofP +mIvcNIoHP16VGfI+CorYHdprwI6FotGR865pFPTdn5I/NB0JQf+wVTXeUTDh +sOLee77hsJtb2ESaTsUN6YWBXDFBEBxfY/zKm4phF71yu2L9wczxkKNcIxW/ +7XgcUTHvA1c1Qo/ULFGxubTIMyPVE9hHckKGjGmYnXHLi/PMBUJsLiyIsGn4 +qKN32FvZCV6+znWXH1iZrwfFrEk8CJ0368dayHT0/zL5he+oDWie1bUu9aJj +FVeZQvRpC0jouiGh00BHx3/8RNPkTCGO1bRsy8XAwxEhbvGVLFjq3NnXZMjA +W78+hGhd1AGxrIet5WkMTNDSVQ14rQ0K6pIbq4YY+MF4Vr3bTgPynFNt4olM +/MBvV3T5qyrcGV5XOue94otVT6XWrN0Gq3sztzXXMDGg6FhQndImEGzUXZQY +YuLuywbNus50ELoh6dwxxcTeXb2PuiRosL5wdXre7xU+3rn95IRRgS0ftjXh +LxPZLG/vLEUqvNM50avCJYG707sSIjxmIHgN39DbY0RMF9FnbbWrBl6xAvKl +RiLqitbTPJQrYNSlR+klNwlDRVfFXB0phf0Xyw2VjFfyZjQrwrWmCIyVrWxN +Mlb4cH/RdGwmH9JSB1U8h0nImdIuoQvmwDq3qppd5JV8Kdf8aIGZIFhjuvn5 +8RV+IPDryBwb8gZzb0XVkdHpZkXSBYNksLyQ+5jARcGoNCtdtmM82MRsLVuz +l4Jv8j4aaVyNhSnrwEy1SxS0fW7owViKBMGCyDCZtxQMq4z+GHQ2HMKu+zB4 +aFRsixpuT0gLAinqjVPXjlHxa1nu/Yg0f9CSLutY3bDyXxQqXAsRPg5zX47I +R/9d2Zsn83YVe4Li9mGfFiMaNuTxjnHeukDzTq3zCyk0rPR/mMra7QSn6sZZ +M3001IKm+m9XD8Kd6wf+FpLouKZkv4dpmA2wg0+3Bh6lYyjLQ+TVRQtIfGol +vaGejj+0xtZ2qZvCS+/bmriKgWLPtNs62lhQyelzjTdgICsp1NY7VweE+hvO +pV5iIMnhlfKTb9rw4GxYQNYgAwd8CG6GPhpQWpLIa6/AxBczpLqJJVUQ0nNJ +GTzGRPPvFt+EJbcB56SWcVQ1E5d/sHIDDTbBF9vxDSOvmZhSmiYRHkyHKePm +8MSvTJSJIgr3b6HBjG5JhcsvJk7PO7i4JFHBv1XG0GyRifsiNnx6iVSoPt0v +9mhphT/+z/oBUlT4H3M26dU= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 216, 181, 147, 114, 82, 51, 2, 3, 4, 5, 6, 7, 8, 9, + 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 217, 182, 148, + 115, 83, 52, 21, 218, 183, 149, 116, 84, 53, 22, 219, 184, + 150, 117, 85, 54, 23, 220, 185, 151, 118, 86, 55, 24, 221, + 186, 152, 119, 87, 56, 25, 222, 187, 153, 120, 88, 57, 26, + 223, 188, 154, 121, 89, 58, 27, 224, 189, 155, 122, 90, 59, + 28, 225, 190, 156, 123, 91, 60, 29, 226, 191, 157, 124, 92, + 61, 30, 227, 192, 158, 125, 93, 62, 31, 228, 193, 159, 126, + 94, 63, 32, 229, 194, 160, 127, 95, 64, 33, 230, 195, 161, + 128, 96, 65, 34, 231, 196, 162, 129, 97, 66, 35, 232, 197, + 163, 130, 98, 67, 36, 233, 198, 164, 131, 99, 68, 37, 234, + 199, 165, 132, 100, 69, 38, 235, 200, 166, 133, 101, 70, 39, + 236, 201, 167, 134, 102, 71, 40, 237, 202, 168, 135, 103, 72, + 41, 238, 203, 169, 136, 104, 73, 42, 239, 204, 170, 137, 105, + 74, 43, 240, 205, 171, 138, 106, 75, 44, 241, 206, 172, 139, + 107, 76, 45, 242, 207, 173, 140, 108, 77, 46, 243, 208, 174, + 141, 109, 78, 47, 244, 209, 175, 142, 110, 79, 48, 245, 210, + 176, 143, 111, 80, 49, 246, 211, 177, 144, 112, 81, 247, 212, + 178, 145, 113, 248, 213, 179, 146, 249, 214, 180, 250, 215, + 251, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.0264109600115834`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4FYwXvpFZnzKSzd33VpKRUDon45plF4lkJxKyU1aFZNyMPisilMge +JUllpe1DRKVLg1A0RPz8/jjPec7zvue857x/HaKzr6UbF4FAWFiJ/+dDehkC +BIIEem6UGFf0noF3Oid6VbgkcHd6V0KExwy47DG+4rZaAkdd+q17nGfAa/eS +2mN+CdQPrT3sYTcDIRruThnCEjjbwThziTUDaVvUG7aQJdDHxP7gI4UZ6BHr +c7VjSaDgZNg+9evTsGtsQ2t1ogRqvJn27j85BZyXWcydVEnMnVC9xfN0Auak +130sqZHETeQ3Qe8sP8Po+jAfI5DC2wLhDz2nxiHT8ktxa58UBqw5v8PVmwN1 +00ZqMq7S2DKwTzlSZRSyX1ec3PtXGk1fF9qXv30Ljr6Cp2suyWCVjHfZm44h +SHCyGforL4thqe/v7TMegIi8axOyjbK4z6qyIWukF17vGDMjseRwaEbeuZD7 +JYhESEfYv5DDbVaK0hWCz0B03QEHL095nGdFEA4bdMOpxahUhx/yOLL5Srid +ezvsl7bbJWqggIqPI9WE29rAIclbTIStgLzfdkclu94DiVvB4twDCvhp859D +D87chh1BPN9HyET8oT+zd9efOhCcSPh104uI9/L8xI55VEPwGr6ht8eImC6i +z9pqVw2czTEtIj5E7Izozl8wroYW7/CzIb5EDDm6saF2azX4TR0T1TtJxPmo +U3eu/KyCgW+mSkMRRHQtH75vFVcFxb+FPARSicjYTtwtUFMJe3gv9bk1EFGo +8Klts2EF8IoVkC81ElFXtJ7moVwB3cRbJ1qbiLhsYVVDkqoAa+3HgtLNK3yH +1JHHE+XgfpIbnrcS0e2U3YGx5HJIGA0o0eom4vnkjzWbh25Cb4t1yLphIl7m +0qW2RJSBR7C4VBMXCdWqAxS6Z0ph1KVH6SU3CUNFV8VcHSkFR/No/YnVJKRw +tpmd7ykFa+bUCVk+EkLMZt6g0lLQGXrUEbWGhG9fgPRHp1KQg8BAYzES5tzV +tRLuLYFe3t7nQ1QSyus477F8UAx7MlLPLxmS8Pu59K+zD4pg/8VyQyXjlf7R +rAjXmiLwiu0ScDIhoeJL/gvvrxZBmv+qxPt7SVhHJiwSoovg0z6/lFhLEirk +pxr2YhGk8Fn8K3iIhN2izoqPWgvhXcj6MnFfEi6JtVIyuq7CGfvkp1vTSch9 +QGJC9W8+GCtb2ZpkkLDW/UXTsZl8EOfbOOqRScIreZxbNz/kQ0V13o/8f0k4 +MCT4x6g7H0YEKmRE80gYtu2G47fMfNjV2OP1q3gFb61Un1LLh99ignytjSQM +aGOfnPqSB35PY8HiDQmDty+9FpXPgbTUQRXPYRJyprRL6II50Gi9jXZmZEV/ +1Xs74x/ZQBgaWlv+joRdpn8Nmh9nQ9JHlUH+MRK+2hux3SI0G24Q3p9s/UpC +whPnfvX+LBhV0b6htExC63lDj4rcf8Ey84eYEImM4ieEeY2tMmGdW1XNLjIZ +hcs1P1pgJvSo+Fgeo5DxdtbvHE/FTGA95SR30si4v2zwYBtfJmjx9ArGbF7h +h0p8p97NAHJANeG3GhlLXdPUijZlwNw+38n3Biu1tl6h6vp0yOT9/KDOh4yS +nVkLntyXQLDGdPPz4yvzIfDryBwbTh+uZH/xJeNUU1b24XE2uDcGH5H3J6P0 +83dCUV1sUPfiXY4LIuPcVvEo3RQ29D0hax06Q8Y0TVNiqzwbxNIdK7lSyfhA +UbvMjZUKKeTeHLNaMk5c3ThYfyQZ8gZzb0XVkdHpZkXSBYNkKEv1aKupJyMj +wOFooGIytC//+bixiYwXT8iZx80nweIQUfXdXTJWzh6Xv85OAo80364THWS8 +46fX09l5EXbzrPmZOkjGYN+UYRG9RPg6vsesl0DBlNlOiA+IB8sLuY8JXBSM +SrPSZTvGQ6PSvIEiNwUPnzEXuWkUD9EhlXiOh4Izh3a+FVaIB3FBeRUNQQqu +yuN/VvQkDlBxUSxHlILc/GU/3myOg0sB9YMuNAoOMJxuwNw50CRsdp81oWAR +bdxye3Us2MRsLVuzl4Jv8j4aaVyNBT9elRnyPgqK2B3aa8COhetrNcOszSmY +zW7dH+8fC5KSBkl11hRszyqKzFGNhXlll/pgBwru9Ikv/9UQA00u2byLxymY +6B9xhtUVDZoda0pWsynoJKC8GLk2CqasAzPVLlHQ9rmhB2MpEopGR867plHQ +d39K/tB0JKxfqvJ8mEHBgIPqtm6vImFczXZTbDYFjwxI96/OjgT21aJy7msU +DB79ze29JRImIrRruRop6BD3TVDj1mnIVfO9Txih4Lcoe3vIDgfBgsgwmbcU +DKuM/hh0NhyC/mGraryjYMJhxb33fMNh33jtNd9RCt7NY/tH64UD4fKf+JFx +Cs592NH+fCoMXBbOWjZPU/B+7XR1NCsMmG05H4JXUZFvo2vE+KpQqDPr5pmm +UPHfM+5RCsVBEHbdh8FDo2Jb1HB7QloQ7OYWNpGmU3FDemEgV0wQtNcfSDFg +UhEOOXyUdAqCPtkxqXxFKi5mvOL9JBUEPyeWlSzUqWj6iKfkNzsQNOK2H6wx +oGKXuYZjaeJJaG7Nrwj2omKxrwwBivxBinrj1LVjVPxalns/Is0fguNrjF95 +UzHsolduV6w/qFi2j2/1pWLTHt/QODd/uP5hQm48gIrbtG5kF9D9IYN3R7J1 +BBXlCzkeGhV+4Gf6xFc5ZWW/sdHmyocngDYwv22ijoq6Qqc8bZjHQUu6rGN1 +AxXLChWuhQgfBzPHQ45yjVT8tuNxRMW8D4RwWi5Y3Kbis7jQbotuH+ieiRlv +aKFi0KsAVqC3DxwXEMqJ7Vjpb41OI9d6Q70WiU/uNRXR/O2fu+bHQD/XeNh8 +kYoj0/NV/zR7wtyXI/LRf1fuM0/m7Sr2hKsaoUdqlqjYXFrkmZHqCUuvSsY2 +rKLh6tuGkh4enlAvyDM1yEPDYKPJhBFRT6CF3FtyXUfDgtGYbokTHsBrpaYQ +SqJhG3bO22x3h05+OZcCQxpKNvZQv0+7gOL2YZ8WIxo25PGOcd66APtITsiQ +MQ2zM255cZ65wKHbUkkb9tJQOd2lQKDSBaaPbWyKt6Bh5oWLxRMnXED82fp1 +/gdp+MzYMoznhzO4pnPf0fGm4VOpu7J7eZ1hmfhZhJNMwxepWx02mThB806t +8wspNKz0f5jK2u0EITYXFkTYNHzU0TvsrewE3+MUOXvSaMjpMs/t3+gEnGm/ +uiuXadjj867NqPswdN79c8C+gIa9nVJ5StyHgW23NvdlNQ13XZN/axPjANRU +Jfr9/2joMqcePtF0EE7VjbNm+mioBU31364ehJevc93lB1b0rgfFrEk8CKdJ +a4sjBmlYLr2YFOp4EPpqPlG03tJwooZ9TXv1QYjrKyDVfKKhlODVhgNWdvBF +Wkzu2gINf2dpWrotH4CK4t9i8UQ6ljEWqvMu2MCd6wf+FpLouKZkv4dpmA10 +3qwfayHT0f/L5Be+ozYwWn2yfo5Kx2pnW7VSlg2I35s54LSJjjfKxwoSuWzg +dP+nrB2qdPTcN5QydMoa9vK/VhjXo2NxoX6VYbgVTB5t2qLrSccjR39aKuda +ADv4dGvgUTqGsjxEXl20AM2zutalXnSs4ipTiD5tAefyn4T/40PHpRfkRT4n +C1Dof9/d70dH3bDd/lVkC7DWEzzqHU7H++Qd6X7l5tAsZ38tPYmOn+9vHqpN +M4OLrxZlP9XSsSOBq0nEzBQSn1pJb6in4w+tsbVd6qaQ0HVDQqeBjo7/+Imm +yZnCuXu2ojlNdDzWcPe7x5QJnCmr5TdvoWOQ/0cxnmQT8Ivxnm3ooGNgmckk +T68x2Ki+6Tw/SEdvWDN109sIZC/dCaATGJiZEl4j9h8LXnrf1sRVDBR7pt3W +0caCOFbTsi0XAw9HhLjFV7Lg+3z9hYTVDCxP3r9TI5EF7U7VhV/5Gbjkd42j +o8eC41uvv6oRZiCBR8yYq0Ef7nVlqCKZgb151mvfFOvBEYL/rC2LgeFB/gY3 +y3WgktPnGm/AQFZSqK13rg4sde7sazJk4K1fH0K0LupATipPk5QJA38b3Wgg ++OhAH+nf02/MGMhlcnNYVVEHTPRbBZzsGFj3Qdx/U+Ue2J4gpODhzcCn+yd/ +8bUiCIiVmQayGTgRavxDS3A3CPU3nEu9xECSwyvlJ9+0QSzrYWt5GgMTtHRV +A15rg5zCiNp4BmPl/zqs/6dUG9S2CMseyF6ZXzY/+d1QG5z0gr9qFDEwyJ5Z +HJm4CxpP6iYt1jGwRc2LWkjcCe7/DT2Lec3AAlFpmb5IDXhwNiwga5CBAz4E +N0MfDVBQl9xYNcTAD8az6t12GjCUsd9xZJiBZX+W9RZVNMDc9sWkxigDK3+2 +1kqM7wDNoXaBqS8MpPgbHmSY7YC176t0bRcZaDoh5GS+RR2qJs83bJFn4jM9 +pfa969WgtCSR116BiS9mSHUTS6qQ55xqE09k4gd+u6LLX1UhcSBrdozMxP3d +cubyj1XB/WG50hUGEw8xAoJHzqmCTM6rEmEVJhaUNC1IrFKFOBP5yz/1mJjq +mNzEIKiA0436kFYvJl6ROWBBpm0DIT2XlMFjTDT/bvFNWHIb3BleVzrnzUTi +qqdSa9ZuA3Hho/0MXyZKxvO80OQoQU+wtHpqwAq+oZsvPEIJNPUjZ4+cYuK9 +q/zf+mq2gsg7o+PcSUzkfXdBO0ZJER5sGHZhVTHx6O3fu0wObwLOSS3jqGom +Lv9g5QYabILVvZnbmmuYGFB0LKhOaRPosS3/KtczkbPDiBVI2AQPhTozZO8w +kex4Xn/2KhPa+Wq65h4ysURSQHdgggHd83FKhQNMbNPvvvYokQ5fbMc3jLxm +YkppmkR4MB0EG3UXJYaYuPuyQbOuMx1MgpY6k4aZeGt9hoWQBh16vgc4h42u ++KEf9N85Dg2eTjimW0wyMSP7c+RPpMGUcXN44lcmykQRhfu30EDohqRzxxQT +e3f1PuqSoIGZZ+9W7W9MtDdLtx+bocJzjlEn4ycT+x/LnpwtoMKMbkmFyy8m +Ts87uLgkUWF94er0vN9MvPvO7ScnjAoWR+4dEVtYqdnRnTLWVPBvlTE0W2Ti +vogNn14iFdjyYVsT/jKRzfL2zlKkQvXpfrFHSyt+8X/WD5CiwsthtYXlZSY+ +7V5wdeCjwv8A/1Lp1Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.0264109600115834`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4FYwXvpFZnzKSzd33VpKRUDon45plF4lkJxKyU1aFZNyMPisilMge +JUllpe1DRKVLg1A0RPz8/jjPec7zvue857x/HaKzr6UbF4FAWFiJ/+dDehkC +BIIEem6UGFf0noF3Oid6VbgkcHd6V0KExwy47DG+4rZaAkdd+q17nGfAa/eS +2mN+CdQPrT3sYTcDIRruThnCEjjbwThziTUDaVvUG7aQJdDHxP7gI4UZ6BHr +c7VjSaDgZNg+9evTsGtsQ2t1ogRqvJn27j85BZyXWcydVEnMnVC9xfN0Auak +130sqZHETeQ3Qe8sP8Po+jAfI5DC2wLhDz2nxiHT8ktxa58UBqw5v8PVmwN1 +00ZqMq7S2DKwTzlSZRSyX1ec3PtXGk1fF9qXv30Ljr6Cp2suyWCVjHfZm44h +SHCyGforL4thqe/v7TMegIi8axOyjbK4z6qyIWukF17vGDMjseRwaEbeuZD7 +JYhESEfYv5DDbVaK0hWCz0B03QEHL095nGdFEA4bdMOpxahUhx/yOLL5Srid +ezvsl7bbJWqggIqPI9WE29rAIclbTIStgLzfdkclu94DiVvB4twDCvhp859D +D87chh1BPN9HyET8oT+zd9efOhCcSPh104uI9/L8xI55VEPwGr6ht8eImC6i +z9pqVw2czTEtIj5E7Izozl8wroYW7/CzIb5EDDm6saF2azX4TR0T1TtJxPmo +U3eu/KyCgW+mSkMRRHQtH75vFVcFxb+FPARSicjYTtwtUFMJe3gv9bk1EFGo +8Klts2EF8IoVkC81ElFXtJ7moVwB3cRbJ1qbiLhsYVVDkqoAa+3HgtLNK3yH +1JHHE+XgfpIbnrcS0e2U3YGx5HJIGA0o0eom4vnkjzWbh25Cb4t1yLphIl7m +0qW2RJSBR7C4VBMXCdWqAxS6Z0ph1KVH6SU3CUNFV8VcHSkFR/No/YnVJKRw +tpmd7ykFa+bUCVk+EkLMZt6g0lLQGXrUEbWGhG9fgPRHp1KQg8BAYzES5tzV +tRLuLYFe3t7nQ1QSyus477F8UAx7MlLPLxmS8Pu59K+zD4pg/8VyQyXjlf7R +rAjXmiLwiu0ScDIhoeJL/gvvrxZBmv+qxPt7SVhHJiwSoovg0z6/lFhLEirk +pxr2YhGk8Fn8K3iIhN2izoqPWgvhXcj6MnFfEi6JtVIyuq7CGfvkp1vTSch9 +QGJC9W8+GCtb2ZpkkLDW/UXTsZl8EOfbOOqRScIreZxbNz/kQ0V13o/8f0k4 +MCT4x6g7H0YEKmRE80gYtu2G47fMfNjV2OP1q3gFb61Un1LLh99ignytjSQM +aGOfnPqSB35PY8HiDQmDty+9FpXPgbTUQRXPYRJyprRL6II50Gi9jXZmZEV/ +1Xs74x/ZQBgaWlv+joRdpn8Nmh9nQ9JHlUH+MRK+2hux3SI0G24Q3p9s/UpC +whPnfvX+LBhV0b6htExC63lDj4rcf8Ey84eYEImM4ieEeY2tMmGdW1XNLjIZ +hcs1P1pgJvSo+Fgeo5DxdtbvHE/FTGA95SR30si4v2zwYBtfJmjx9ArGbF7h +h0p8p97NAHJANeG3GhlLXdPUijZlwNw+38n3Biu1tl6h6vp0yOT9/KDOh4yS +nVkLntyXQLDGdPPz4yvzIfDryBwbTh+uZH/xJeNUU1b24XE2uDcGH5H3J6P0 +83dCUV1sUPfiXY4LIuPcVvEo3RQ29D0hax06Q8Y0TVNiqzwbxNIdK7lSyfhA +UbvMjZUKKeTeHLNaMk5c3ThYfyQZ8gZzb0XVkdHpZkXSBYNkKEv1aKupJyMj +wOFooGIytC//+bixiYwXT8iZx80nweIQUfXdXTJWzh6Xv85OAo80364THWS8 +46fX09l5EXbzrPmZOkjGYN+UYRG9RPg6vsesl0DBlNlOiA+IB8sLuY8JXBSM +SrPSZTvGQ6PSvIEiNwUPnzEXuWkUD9EhlXiOh4Izh3a+FVaIB3FBeRUNQQqu +yuN/VvQkDlBxUSxHlILc/GU/3myOg0sB9YMuNAoOMJxuwNw50CRsdp81oWAR +bdxye3Us2MRsLVuzl4Jv8j4aaVyNBT9elRnyPgqK2B3aa8COhetrNcOszSmY +zW7dH+8fC5KSBkl11hRszyqKzFGNhXlll/pgBwru9Ikv/9UQA00u2byLxymY +6B9xhtUVDZoda0pWsynoJKC8GLk2CqasAzPVLlHQ9rmhB2MpEopGR867plHQ +d39K/tB0JKxfqvJ8mEHBgIPqtm6vImFczXZTbDYFjwxI96/OjgT21aJy7msU +DB79ze29JRImIrRruRop6BD3TVDj1mnIVfO9Txih4Lcoe3vIDgfBgsgwmbcU +DKuM/hh0NhyC/mGraryjYMJhxb33fMNh33jtNd9RCt7NY/tH64UD4fKf+JFx +Cs592NH+fCoMXBbOWjZPU/B+7XR1NCsMmG05H4JXUZFvo2vE+KpQqDPr5pmm +UPHfM+5RCsVBEHbdh8FDo2Jb1HB7QloQ7OYWNpGmU3FDemEgV0wQtNcfSDFg +UhEOOXyUdAqCPtkxqXxFKi5mvOL9JBUEPyeWlSzUqWj6iKfkNzsQNOK2H6wx +oGKXuYZjaeJJaG7Nrwj2omKxrwwBivxBinrj1LVjVPxalns/Is0fguNrjF95 +UzHsolduV6w/qFi2j2/1pWLTHt/QODd/uP5hQm48gIrbtG5kF9D9IYN3R7J1 +BBXlCzkeGhV+4Gf6xFc5ZWW/sdHmyocngDYwv22ijoq6Qqc8bZjHQUu6rGN1 +AxXLChWuhQgfBzPHQ45yjVT8tuNxRMW8D4RwWi5Y3Kbis7jQbotuH+ieiRlv +aKFi0KsAVqC3DxwXEMqJ7Vjpb41OI9d6Q70WiU/uNRXR/O2fu+bHQD/XeNh8 +kYoj0/NV/zR7wtyXI/LRf1fuM0/m7Sr2hKsaoUdqlqjYXFrkmZHqCUuvSsY2 +rKLh6tuGkh4enlAvyDM1yEPDYKPJhBFRT6CF3FtyXUfDgtGYbokTHsBrpaYQ +SqJhG3bO22x3h05+OZcCQxpKNvZQv0+7gOL2YZ8WIxo25PGOcd66APtITsiQ +MQ2zM255cZ65wKHbUkkb9tJQOd2lQKDSBaaPbWyKt6Bh5oWLxRMnXED82fp1 +/gdp+MzYMoznhzO4pnPf0fGm4VOpu7J7eZ1hmfhZhJNMwxepWx02mThB806t +8wspNKz0f5jK2u0EITYXFkTYNHzU0TvsrewE3+MUOXvSaMjpMs/t3+gEnGm/ +uiuXadjj867NqPswdN79c8C+gIa9nVJ5StyHgW23NvdlNQ13XZN/axPjANRU +Jfr9/2joMqcePtF0EE7VjbNm+mioBU31364ehJevc93lB1b0rgfFrEk8CKdJ +a4sjBmlYLr2YFOp4EPpqPlG03tJwooZ9TXv1QYjrKyDVfKKhlODVhgNWdvBF +Wkzu2gINf2dpWrotH4CK4t9i8UQ6ljEWqvMu2MCd6wf+FpLouKZkv4dpmA10 +3qwfayHT0f/L5Be+ozYwWn2yfo5Kx2pnW7VSlg2I35s54LSJjjfKxwoSuWzg +dP+nrB2qdPTcN5QydMoa9vK/VhjXo2NxoX6VYbgVTB5t2qLrSccjR39aKuda +ADv4dGvgUTqGsjxEXl20AM2zutalXnSs4ipTiD5tAefyn4T/40PHpRfkRT4n +C1Dof9/d70dH3bDd/lVkC7DWEzzqHU7H++Qd6X7l5tAsZ38tPYmOn+9vHqpN +M4OLrxZlP9XSsSOBq0nEzBQSn1pJb6in4w+tsbVd6qaQ0HVDQqeBjo7/+Imm +yZnCuXu2ojlNdDzWcPe7x5QJnCmr5TdvoWOQ/0cxnmQT8Ivxnm3ooGNgmckk +T68x2Ki+6Tw/SEdvWDN109sIZC/dCaATGJiZEl4j9h8LXnrf1sRVDBR7pt3W +0caCOFbTsi0XAw9HhLjFV7Lg+3z9hYTVDCxP3r9TI5EF7U7VhV/5Gbjkd42j +o8eC41uvv6oRZiCBR8yYq0Ef7nVlqCKZgb151mvfFOvBEYL/rC2LgeFB/gY3 +y3WgktPnGm/AQFZSqK13rg4sde7sazJk4K1fH0K0LupATipPk5QJA38b3Wgg ++OhAH+nf02/MGMhlcnNYVVEHTPRbBZzsGFj3Qdx/U+Ue2J4gpODhzcCn+yd/ +8bUiCIiVmQayGTgRavxDS3A3CPU3nEu9xECSwyvlJ9+0QSzrYWt5GgMTtHRV +A15rg5zCiNp4BmPl/zqs/6dUG9S2CMseyF6ZXzY/+d1QG5z0gr9qFDEwyJ5Z +HJm4CxpP6iYt1jGwRc2LWkjcCe7/DT2Lec3AAlFpmb5IDXhwNiwga5CBAz4E +N0MfDVBQl9xYNcTAD8az6t12GjCUsd9xZJiBZX+W9RZVNMDc9sWkxigDK3+2 +1kqM7wDNoXaBqS8MpPgbHmSY7YC176t0bRcZaDoh5GS+RR2qJs83bJFn4jM9 +pfa969WgtCSR116BiS9mSHUTS6qQ55xqE09k4gd+u6LLX1UhcSBrdozMxP3d +cubyj1XB/WG50hUGEw8xAoJHzqmCTM6rEmEVJhaUNC1IrFKFOBP5yz/1mJjq +mNzEIKiA0436kFYvJl6ROWBBpm0DIT2XlMFjTDT/bvFNWHIb3BleVzrnzUTi +qqdSa9ZuA3Hho/0MXyZKxvO80OQoQU+wtHpqwAq+oZsvPEIJNPUjZ4+cYuK9 +q/zf+mq2gsg7o+PcSUzkfXdBO0ZJER5sGHZhVTHx6O3fu0wObwLOSS3jqGom +Lv9g5QYabILVvZnbmmuYGFB0LKhOaRPosS3/KtczkbPDiBVI2AQPhTozZO8w +kex4Xn/2KhPa+Wq65h4ysURSQHdgggHd83FKhQNMbNPvvvYokQ5fbMc3jLxm +YkppmkR4MB0EG3UXJYaYuPuyQbOuMx1MgpY6k4aZeGt9hoWQBh16vgc4h42u ++KEf9N85Dg2eTjimW0wyMSP7c+RPpMGUcXN44lcmykQRhfu30EDohqRzxxQT +e3f1PuqSoIGZZ+9W7W9MtDdLtx+bocJzjlEn4ycT+x/LnpwtoMKMbkmFyy8m +Ts87uLgkUWF94er0vN9MvPvO7ScnjAoWR+4dEVtYqdnRnTLWVPBvlTE0W2Ti +vogNn14iFdjyYVsT/jKRzfL2zlKkQvXpfrFHSyt+8X/WD5CiwsthtYXlZSY+ +7V5wdeCjwv8A/1Lp1Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlnc4FYwXx29k1quMZHP3vZVkJJTOybhm2UUi2YmE7JRVIRk3o9eKCCWy +R0lSWWl7EVHp0iAUDRE/vz/Oc57znD/P5/l8D9HZ19KNi0AgLKzU//shvQwB +AkECPTdKjCt6z8CusQ2t1YkSqPFm2rv/5BRwXmYxd1IlMXdC9RbP0wmYk173 +saRGEjeR3wS9s/wMo+vDfIxACm8LhD/0nBqHTMsvxa19Uhiw5vwOV28O1E0b +qcm4SmPLwD7lSJVRyH5dcXLvX2k0fV1oX/72LTj6Cp6uuSSDVTLeZW86hiDB +yWbor7wshqW+v7fPeAAi8q5NyDbK4j6ryoaskV54vWPMjMSSw6EZeedC7pcg +EiEdYf9CDrdZKUpXCD4D0XUHHLw85XGeFUE4bNANpxajUh1+yOPI5ivhdu7t +sF/abpeogQIqPo5UE25rA4ckbzERtgLyftsdlex6DyRuBYtzDyjgp81/Dj04 +cxt2BPF8HyET8Yf+zN5df+pAcCLh100vIt7L8xM75lENe3gv9bk1EFGo8Klt +s2EFeASLSzVxkVCtOkChe6YU9mSknl8yJOH3c+lfZx8UwRn75Kdb00nIfUBi +QvVvPvg9jQWLNyQM3r70WlQ+Bywzf4gJkcgofkKY19gqEzJ5Pz+o8yGjZGfW +gif3JUgh9+aY1ZJx4urGwfojyfB1fI9ZL4GCKbOdEB8QD5qEze6zJhQsoo1b +bq+OBc2ONSWr2RR0ElBejFwbBblqvvcJIxT8FmVvD9nhUGfWzTNNoeK/Z9yj +FIqDoLk1vyLYi4rFvjIEKPIH2sD8tok6KuoKnfK0YR4H/VzjYfNFKo5Mz1f9 +0+wJnfxyLgWGNJRs7KF+n3aBZeJnEU4yDV+kbnXYZOIE1FQl+v3/aOgypx4+ +0XQQKop/i8UT6VjGWKjOu2ADk0ebtuh60vHI0Z+WyrkWcPHVouynWjp2JHA1 +iZiZguylOwF0AgMzU8JrxP5jwRGC/6wti4HhQf4GN8t1QECszDSQzcCJUOMf +WoK7wf2/oWcxrxlYICot0xepAVWT5xu2yDPxmZ5S+971auB0oz6k1YuJV2QO +WJBp2+DBhmEXVhUTj97+vcvk8CZ4Oay2sLzMxKfdC64OfFToEetztWNJoOBk +2D7169NQ/FvIQyCViIztxN0CNZXQ22Idsm6YiJe5dKktEWXQy9v7fIhKQnkd +5z2WD4rhXcj6MnFfEi6JtVIyuq7CbzFBvtZGEga0sU9OfcmDURXtG0rLJLSe +N/SoyP0X5vb5Tr43IGOptl6h6vp0EEt3rORKJeMDRe0yN1Yq7OZZ8zN1kIzB +vinDInqJcCmgftCFRsEBhtMNmDsHTS7ZvIvHKZjoH3GG1RUNExHatVyNFHSI ++yaoces0MNtyPgSvoiLfRteI8VWhoBG3/WCNARW7zDUcSxNPgp/pE1/lFCrC +2Ghz5cMTUK9F4pN7TUU0f/vnrvkx4LVSUwgl0bANO+dttruDazr3HR1vGj6V +uiu7l9cZ2HZrc19W03DXNfm3NjEO8EVaTO7aAg1/Z2laui0fgL38rxXG9ehY +XKhfZRhuBc1y9tfSk+j4+f7modo0M7BRfdN5fpCO3rBm6qa3EdzrylBFMgN7 +86zXvinWg+0JQgoe3gx8un/yF18rQuNJ3aTFOga2qHlRC4k7Ye37Kl3bRQaa +Tgg5mW9RhzgT+cs/9ZiY6pjcxCCogMg7o+PcSUzkfXdBO0ZJEbrn45QKB5jY +pt997VEiHdK2qDdsIUugj4n9wUcKMzDwzVRpKIKIruXD963iqiBhNKBEq5uI +55M/1mweuglyEBhoLEbCnLu6VsK9JZDCZ/Gv4CESdos6Kz5qLYRdjT1ev4pJ +ONBaqT6llg83CO9Ptn4lIeGJc796fxaQA6oJv9VW7u2apla0KQP6npC1Dp0h +Y5qmKbFVng0eab5dJzrIeMdPr6ez8yKg4qJYjigFufnLfrzZHAfzyi71wQ4U +3OkTX/6rIQbYV4vKua9RMHj0N7f3lkhwWThr2TxNwfu109XRrDD4ObGsZKFO +RdNHPCW/2YGQwbsj2TqCivKFHA+NCj84LiCUE9tBxbLW6DRyrTfQQu4tua6j +YcFoTLfECQ8Qf7Z+nf9BGj4ztgzj+eEMnXf/HLAvoGFvp1SeEvdhiOsrINV8 +oqGU4NWGA1Z2cLr/U9YOVTp67htKGTplDdZ6gke9w+l4n7wj3a/cHPxivGcb +OugYWGYyydNrDMe3Xn9VI8xAAo+YMVeDPpjotwo42TGw7oO4/6bKPeCkF/xV +o4iBQfbM4sjEXaA51C4w9YWBFH/DgwyzHSCT86pEWIWJBSVNCxKrVEFTP3L2 +yCkm3rvK/62vZiu089V0zT1kYomkgO7ABAOeTjimW0wyMSP7c+RPpEGIhrtT +hrAEznYwzlxizYDf1DFRvZNEnI86defKzypwP8kNz1uJ6HbK7sBYcjnoDD3q +iFpDwrcvQPqjUyl82ueXEmtJQoX8VMNeLIIRgQoZ0TwShm274fgtMx+SPqoM +8o+R8NXeiO0WodmgxdMrGLOZjMKhEt+pdzNA3Yt3OS6IjHNbxaN0U9iwOERU +fXeXjJWzx+Wvs5NAXFBeRUOQgqvy+J8VPYkDSUmDpDprCrZnFUXmqMbCuJrt +pthsCh4ZkO5fnR0JhMt/4kfGKTj3YUf786kw6JMdk8pXpOJixiveT1JBcP3D +hNx4ABW3ad3ILqD7Q/dMzHhDCxWDXgWwAr19oF6QZ2qQh4bBRpMJI6KeMH1s +Y1O8BQ0zL1wsnjjhApxpv7orl2nY4/Ouzaj7MPTVfKJovaXhRA37mvbqgyB+ +b+aA0yY63igfK0jksgGF/vfd/X501A3b7V9FtoAzZbX85i10DPL/KMaTbALt +TtWFX/kZuOR3jaOjx4I+0r+n35gxkMvk5rCqog6obRGWPZC9wkPZ/OR3Q20w +t30xqTHKwMqfrbUS4zvA/WG50hUGEw8xAoJHzqlCT7C0emoAE4kbuvnCI5Tg +oVBnhuwdJpIdz+vPXmVCz/cA57DRlTzQD/rvHIcGzzlGnYyfTOx/LHtytoAK +XruX1B7zS6B+aO1hD7sZaPEOPxviS8SQoxsbardWg7X2Y0Hp5pX8d0gdeTxR +DtbMqROyfCSEmM28QaWlkOa/KvH+XhLWkQmLhOgiqKjO+5H/74oPhgT/GHXn +A2FoaG35OxJ2mf41aH6cDaynnOROGhn3lw0ebOPLBPfG4CPy/mSUfv5OKKqL +De3Lfz5ubCLjxRNy5nHzSRAdUonneCg4c2jnW2GFeLi+VjPM2pyC2ezW/fH+ +sbB+qcrzYQYFAw6q27q9ioR947XXfEcpeDeP7R+tFw7t9QdSDJgrvj/k8FHS +KQhULNvHt/pSsWmPb2icmz+EcFouWNym4rO40G6Lbh9YelUytmEVDVffNpT0 +8PCEQ7elkjbspaFyukuBQKULfI9T5OxJoyGnyzy3f6MTnCatLY4YpGG59GJS +qONBGK0+WT9HpWO1s61aKcsGzuU/Cf/Hh45LL8iLfE4WcO6erWhOEx2PNdz9 +7jFlAt/n6y8krGZgefL+nRqJLMhJ5WmSMmHgb6MbDQQfHZBTGFEbz2Cs+Paw +/p9SbRjK2O84MszAsj/LeosqGpA4kDU7Rmbi/m45c/nHqiAufLSf4ctEyXie +F5ocJdBjW/5VrmciZ4cRK5CwCUyCljqThpl4a32GhZAGHcw8e7dqf2OivVm6 +/dgMFSyO3DsitsDEu+zoThlrKrjsMb7itloCR136rXucZ4CzOaZFxIeInRHd ++QvG1dBNvHWitYmIyxZWNSSpCnA0j9afWE1CCmeb2fmeUvCK7RJwMiGh4kv+ +C++vFoE438ZRj0wSXsnj3Lr5IR8arbfRzoyQsHbVezvjH9nQo+JjeYxCxttZ +v3M8FTPh9OFK9hdfMk41ZWUfHmdDWapHW009GRkBDkcDFZOhUWneQJGbgofP +mIvcNIoHP16VGfI+CorYHdprwI6FotGR865pFPTdn5I/NB0JQf+wVTXeUTDh +sOLee77hsJtb2ESaTsUN6YWBXDFBEBxfY/zKm4phF71yu2L9wczxkKNcIxW/ +7XgcUTHvA1c1Qo/ULFGxubTIMyPVE9hHckKGjGmYnXHLi/PMBUJsLiyIsGn4 +qKN32FvZCV6+znWXH1iZrwfFrEk8CJ0368dayHT0/zL5he+oDWie1bUu9aJj +FVeZQvRpC0jouiGh00BHx3/8RNPkTCGO1bRsy8XAwxEhbvGVLFjq3NnXZMjA +W78+hGhd1AGxrIet5WkMTNDSVQ14rQ0K6pIbq4YY+MF4Vr3bTgPynFNt4olM +/MBvV3T5qyrcGV5XOue94otVT6XWrN0Gq3sztzXXMDGg6FhQndImEGzUXZQY +YuLuywbNus50ELoh6dwxxcTeXb2PuiRosL5wdXre7xU+3rn95IRRgS0ftjXh +LxPZLG/vLEUqvNM50avCJYG707sSIjxmIHgN39DbY0RMF9FnbbWrBl6xAvKl +RiLqitbTPJQrYNSlR+klNwlDRVfFXB0phf0Xyw2VjFfyZjQrwrWmCIyVrWxN +Mlb4cH/RdGwmH9JSB1U8h0nImdIuoQvmwDq3qppd5JV8Kdf8aIGZIFhjuvn5 +8RV+IPDryBwb8gZzb0XVkdHpZkXSBYNksLyQ+5jARcGoNCtdtmM82MRsLVuz +l4Jv8j4aaVyNhSnrwEy1SxS0fW7owViKBMGCyDCZtxQMq4z+GHQ2HMKu+zB4 +aFRsixpuT0gLAinqjVPXjlHxa1nu/Yg0f9CSLutY3bDyXxQqXAsRPg5zX47I +R/9d2Zsn83YVe4Li9mGfFiMaNuTxjnHeukDzTq3zCyk0rPR/mMra7QSn6sZZ +M3001IKm+m9XD8Kd6wf+FpLouKZkv4dpmA2wg0+3Bh6lYyjLQ+TVRQtIfGol +vaGejj+0xtZ2qZvCS+/bmriKgWLPtNs62lhQyelzjTdgICsp1NY7VweE+hvO +pV5iIMnhlfKTb9rw4GxYQNYgAwd8CG6GPhpQWpLIa6/AxBczpLqJJVUQ0nNJ +GTzGRPPvFt+EJbcB56SWcVQ1E5d/sHIDDTbBF9vxDSOvmZhSmiYRHkyHKePm +8MSvTJSJIgr3b6HBjG5JhcsvJk7PO7i4JFHBv1XG0GyRifsiNnx6iVSoPt0v +9mhphT/+z/oBUlT4H3M26dU= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 216, 181, 147, 114, 82, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 217, 182, 148, 115, 83, + 52, 21, 218, 183, 149, 116, 84, 53, 22, 219, 184, 150, 117, 85, + 54, 23, 220, 185, 151, 118, 86, 55, 24, 221, 186, 152, 119, 87, + 56, 25, 222, 187, 153, 120, 88, 57, 26, 223, 188, 154, 121, 89, + 58, 27, 224, 189, 155, 122, 90, 59, 28, 225, 190, 156, 123, 91, + 60, 29, 226, 191, 157, 124, 92, 61, 30, 227, 192, 158, 125, 93, + 62, 31, 228, 193, 159, 126, 94, 63, 32, 229, 194, 160, 127, 95, + 64, 33, 230, 195, 161, 128, 96, 65, 34, 231, 196, 162, 129, 97, + 66, 35, 232, 197, 163, 130, 98, 67, 36, 233, 198, 164, 131, 99, + 68, 37, 234, 199, 165, 132, 100, 69, 38, 235, 200, 166, 133, 101, + 70, 39, 236, 201, 167, 134, 102, 71, 40, 237, 202, 168, 135, 103, + 72, 41, 238, 203, 169, 136, 104, 73, 42, 239, 204, 170, 137, 105, + 74, 43, 240, 205, 171, 138, 106, 75, 44, 241, 206, 172, 139, 107, + 76, 45, 242, 207, 173, 140, 108, 77, 46, 243, 208, 174, 141, 109, + 78, 47, 244, 209, 175, 142, 110, 79, 48, 245, 210, 176, 143, 111, + 80, 49, 246, 211, 177, 144, 112, 81, 247, 212, 178, 145, 113, 248, + 213, 179, 146, 249, 214, 180, 250, 215, 251, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 1.0264109600115834`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4FYwXvpFZnzKSzd33VpKRUDon45plF4lkJxKyU1aFZNyMPisilMge +JUllpe1DRKVLg1A0RPz8/jjPec7zvue857x/HaKzr6UbF4FAWFiJ/+dDehkC +BIIEem6UGFf0noF3Oid6VbgkcHd6V0KExwy47DG+4rZaAkdd+q17nGfAa/eS +2mN+CdQPrT3sYTcDIRruThnCEjjbwThziTUDaVvUG7aQJdDHxP7gI4UZ6BHr +c7VjSaDgZNg+9evTsGtsQ2t1ogRqvJn27j85BZyXWcydVEnMnVC9xfN0Auak +130sqZHETeQ3Qe8sP8Po+jAfI5DC2wLhDz2nxiHT8ktxa58UBqw5v8PVmwN1 +00ZqMq7S2DKwTzlSZRSyX1ec3PtXGk1fF9qXv30Ljr6Cp2suyWCVjHfZm44h +SHCyGforL4thqe/v7TMegIi8axOyjbK4z6qyIWukF17vGDMjseRwaEbeuZD7 +JYhESEfYv5DDbVaK0hWCz0B03QEHL095nGdFEA4bdMOpxahUhx/yOLL5Srid +ezvsl7bbJWqggIqPI9WE29rAIclbTIStgLzfdkclu94DiVvB4twDCvhp859D +D87chh1BPN9HyET8oT+zd9efOhCcSPh104uI9/L8xI55VEPwGr6ht8eImC6i +z9pqVw2czTEtIj5E7Izozl8wroYW7/CzIb5EDDm6saF2azX4TR0T1TtJxPmo +U3eu/KyCgW+mSkMRRHQtH75vFVcFxb+FPARSicjYTtwtUFMJe3gv9bk1EFGo +8Klts2EF8IoVkC81ElFXtJ7moVwB3cRbJ1qbiLhsYVVDkqoAa+3HgtLNK3yH +1JHHE+XgfpIbnrcS0e2U3YGx5HJIGA0o0eom4vnkjzWbh25Cb4t1yLphIl7m +0qW2RJSBR7C4VBMXCdWqAxS6Z0ph1KVH6SU3CUNFV8VcHSkFR/No/YnVJKRw +tpmd7ykFa+bUCVk+EkLMZt6g0lLQGXrUEbWGhG9fgPRHp1KQg8BAYzES5tzV +tRLuLYFe3t7nQ1QSyus477F8UAx7MlLPLxmS8Pu59K+zD4pg/8VyQyXjlf7R +rAjXmiLwiu0ScDIhoeJL/gvvrxZBmv+qxPt7SVhHJiwSoovg0z6/lFhLEirk +pxr2YhGk8Fn8K3iIhN2izoqPWgvhXcj6MnFfEi6JtVIyuq7CGfvkp1vTSch9 +QGJC9W8+GCtb2ZpkkLDW/UXTsZl8EOfbOOqRScIreZxbNz/kQ0V13o/8f0k4 +MCT4x6g7H0YEKmRE80gYtu2G47fMfNjV2OP1q3gFb61Un1LLh99ignytjSQM +aGOfnPqSB35PY8HiDQmDty+9FpXPgbTUQRXPYRJyprRL6II50Gi9jXZmZEV/ +1Xs74x/ZQBgaWlv+joRdpn8Nmh9nQ9JHlUH+MRK+2hux3SI0G24Q3p9s/UpC +whPnfvX+LBhV0b6htExC63lDj4rcf8Ey84eYEImM4ieEeY2tMmGdW1XNLjIZ +hcs1P1pgJvSo+Fgeo5DxdtbvHE/FTGA95SR30si4v2zwYBtfJmjx9ArGbF7h +h0p8p97NAHJANeG3GhlLXdPUijZlwNw+38n3Biu1tl6h6vp0yOT9/KDOh4yS +nVkLntyXQLDGdPPz4yvzIfDryBwbTh+uZH/xJeNUU1b24XE2uDcGH5H3J6P0 +83dCUV1sUPfiXY4LIuPcVvEo3RQ29D0hax06Q8Y0TVNiqzwbxNIdK7lSyfhA +UbvMjZUKKeTeHLNaMk5c3ThYfyQZ8gZzb0XVkdHpZkXSBYNkKEv1aKupJyMj +wOFooGIytC//+bixiYwXT8iZx80nweIQUfXdXTJWzh6Xv85OAo80364THWS8 +46fX09l5EXbzrPmZOkjGYN+UYRG9RPg6vsesl0DBlNlOiA+IB8sLuY8JXBSM +SrPSZTvGQ6PSvIEiNwUPnzEXuWkUD9EhlXiOh4Izh3a+FVaIB3FBeRUNQQqu +yuN/VvQkDlBxUSxHlILc/GU/3myOg0sB9YMuNAoOMJxuwNw50CRsdp81oWAR +bdxye3Us2MRsLVuzl4Jv8j4aaVyNBT9elRnyPgqK2B3aa8COhetrNcOszSmY +zW7dH+8fC5KSBkl11hRszyqKzFGNhXlll/pgBwru9Ikv/9UQA00u2byLxymY +6B9xhtUVDZoda0pWsynoJKC8GLk2CqasAzPVLlHQ9rmhB2MpEopGR867plHQ +d39K/tB0JKxfqvJ8mEHBgIPqtm6vImFczXZTbDYFjwxI96/OjgT21aJy7msU +DB79ze29JRImIrRruRop6BD3TVDj1mnIVfO9Txih4Lcoe3vIDgfBgsgwmbcU +DKuM/hh0NhyC/mGraryjYMJhxb33fMNh33jtNd9RCt7NY/tH64UD4fKf+JFx +Cs592NH+fCoMXBbOWjZPU/B+7XR1NCsMmG05H4JXUZFvo2vE+KpQqDPr5pmm +UPHfM+5RCsVBEHbdh8FDo2Jb1HB7QloQ7OYWNpGmU3FDemEgV0wQtNcfSDFg +UhEOOXyUdAqCPtkxqXxFKi5mvOL9JBUEPyeWlSzUqWj6iKfkNzsQNOK2H6wx +oGKXuYZjaeJJaG7Nrwj2omKxrwwBivxBinrj1LVjVPxalns/Is0fguNrjF95 +UzHsolduV6w/qFi2j2/1pWLTHt/QODd/uP5hQm48gIrbtG5kF9D9IYN3R7J1 +BBXlCzkeGhV+4Gf6xFc5ZWW/sdHmyocngDYwv22ijoq6Qqc8bZjHQUu6rGN1 +AxXLChWuhQgfBzPHQ45yjVT8tuNxRMW8D4RwWi5Y3Kbis7jQbotuH+ieiRlv +aKFi0KsAVqC3DxwXEMqJ7Vjpb41OI9d6Q70WiU/uNRXR/O2fu+bHQD/XeNh8 +kYoj0/NV/zR7wtyXI/LRf1fuM0/m7Sr2hKsaoUdqlqjYXFrkmZHqCUuvSsY2 +rKLh6tuGkh4enlAvyDM1yEPDYKPJhBFRT6CF3FtyXUfDgtGYbokTHsBrpaYQ +SqJhG3bO22x3h05+OZcCQxpKNvZQv0+7gOL2YZ8WIxo25PGOcd66APtITsiQ +MQ2zM255cZ65wKHbUkkb9tJQOd2lQKDSBaaPbWyKt6Bh5oWLxRMnXED82fp1 +/gdp+MzYMoznhzO4pnPf0fGm4VOpu7J7eZ1hmfhZhJNMwxepWx02mThB806t +8wspNKz0f5jK2u0EITYXFkTYNHzU0TvsrewE3+MUOXvSaMjpMs/t3+gEnGm/ +uiuXadjj867NqPswdN79c8C+gIa9nVJ5StyHgW23NvdlNQ13XZN/axPjANRU +Jfr9/2joMqcePtF0EE7VjbNm+mioBU31364ehJevc93lB1b0rgfFrEk8CKdJ +a4sjBmlYLr2YFOp4EPpqPlG03tJwooZ9TXv1QYjrKyDVfKKhlODVhgNWdvBF +Wkzu2gINf2dpWrotH4CK4t9i8UQ6ljEWqvMu2MCd6wf+FpLouKZkv4dpmA10 +3qwfayHT0f/L5Be+ozYwWn2yfo5Kx2pnW7VSlg2I35s54LSJjjfKxwoSuWzg +dP+nrB2qdPTcN5QydMoa9vK/VhjXo2NxoX6VYbgVTB5t2qLrSccjR39aKuda +ADv4dGvgUTqGsjxEXl20AM2zutalXnSs4ipTiD5tAefyn4T/40PHpRfkRT4n +C1Dof9/d70dH3bDd/lVkC7DWEzzqHU7H++Qd6X7l5tAsZ38tPYmOn+9vHqpN +M4OLrxZlP9XSsSOBq0nEzBQSn1pJb6in4w+tsbVd6qaQ0HVDQqeBjo7/+Imm +yZnCuXu2ojlNdDzWcPe7x5QJnCmr5TdvoWOQ/0cxnmQT8Ivxnm3ooGNgmckk +T68x2Ki+6Tw/SEdvWDN109sIZC/dCaATGJiZEl4j9h8LXnrf1sRVDBR7pt3W +0caCOFbTsi0XAw9HhLjFV7Lg+3z9hYTVDCxP3r9TI5EF7U7VhV/5Gbjkd42j +o8eC41uvv6oRZiCBR8yYq0Ef7nVlqCKZgb151mvfFOvBEYL/rC2LgeFB/gY3 +y3WgktPnGm/AQFZSqK13rg4sde7sazJk4K1fH0K0LupATipPk5QJA38b3Wgg ++OhAH+nf02/MGMhlcnNYVVEHTPRbBZzsGFj3Qdx/U+Ue2J4gpODhzcCn+yd/ +8bUiCIiVmQayGTgRavxDS3A3CPU3nEu9xECSwyvlJ9+0QSzrYWt5GgMTtHRV +A15rg5zCiNp4BmPl/zqs/6dUG9S2CMseyF6ZXzY/+d1QG5z0gr9qFDEwyJ5Z +HJm4CxpP6iYt1jGwRc2LWkjcCe7/DT2Lec3AAlFpmb5IDXhwNiwga5CBAz4E +N0MfDVBQl9xYNcTAD8az6t12GjCUsd9xZJiBZX+W9RZVNMDc9sWkxigDK3+2 +1kqM7wDNoXaBqS8MpPgbHmSY7YC176t0bRcZaDoh5GS+RR2qJs83bJFn4jM9 +pfa969WgtCSR116BiS9mSHUTS6qQ55xqE09k4gd+u6LLX1UhcSBrdozMxP3d +cubyj1XB/WG50hUGEw8xAoJHzqmCTM6rEmEVJhaUNC1IrFKFOBP5yz/1mJjq +mNzEIKiA0436kFYvJl6ROWBBpm0DIT2XlMFjTDT/bvFNWHIb3BleVzrnzUTi +qqdSa9ZuA3Hho/0MXyZKxvO80OQoQU+wtHpqwAq+oZsvPEIJNPUjZ4+cYuK9 +q/zf+mq2gsg7o+PcSUzkfXdBO0ZJER5sGHZhVTHx6O3fu0wObwLOSS3jqGom +Lv9g5QYabILVvZnbmmuYGFB0LKhOaRPosS3/KtczkbPDiBVI2AQPhTozZO8w +kex4Xn/2KhPa+Wq65h4ysURSQHdgggHd83FKhQNMbNPvvvYokQ5fbMc3jLxm +YkppmkR4MB0EG3UXJYaYuPuyQbOuMx1MgpY6k4aZeGt9hoWQBh16vgc4h42u ++KEf9N85Dg2eTjimW0wyMSP7c+RPpMGUcXN44lcmykQRhfu30EDohqRzxxQT +e3f1PuqSoIGZZ+9W7W9MtDdLtx+bocJzjlEn4ycT+x/LnpwtoMKMbkmFyy8m +Ts87uLgkUWF94er0vN9MvPvO7ScnjAoWR+4dEVtYqdnRnTLWVPBvlTE0W2Ti +vogNn14iFdjyYVsT/jKRzfL2zlKkQvXpfrFHSyt+8X/WD5CiwsthtYXlZSY+ +7V5wdeCjwv8A/1Lp1Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 10}, {0., 0.9065364977598496}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}, { + 3.992490797023282*^9, 3.992490819785078*^9}}, + CellLabel->"Out[41]=",ExpressionUUID->"0087c612-a3a1-48d1-9dc3-aeb39d5b4a16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[42]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.075, $CellContext`xmax$$ = + 10.120000000000001`, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.891, $CellContext`yyv$$ = 1.76, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {106.96119404960558`, 112.58619404960558`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {195.8768190496056, 201.5018190496056}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9, + 3.992490852602666*^9}, + CellLabel->"Out[43]=",ExpressionUUID->"2bfae31d-e656-4a8f-9766-511792d6dc32"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"cef34656-03c8-418c-9ca9-b5e7cad32f0f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 887, 25, 71, "Output",ExpressionUUID->"852c9274-ab42-4b80-a4a4-d07d8fd1ab61"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6373, 204, 2583, 75, 149, "Output",ExpressionUUID->"8cd88442-228a-4158-922f-29c137b2cf58"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8993, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10676, 334, 2780, 81, 149, "Output",ExpressionUUID->"e7772092-f337-4bd7-ac87-a243038530a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13493, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15339, 475, 3720, 109, 158, "Output",ExpressionUUID->"a9cf1197-1299-4925-a00d-99917a68a9f6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19096, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21179, 650, 4787, 138, 193, "Output",ExpressionUUID->"5a9f4d58-c854-4633-adad-0f8631b9c4c1"] +}, Open ]], +Cell[25981, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26154, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26505, 804, 303, 5, 33, "Output",ExpressionUUID->"2edfd926-8e18-4949-8884-e20d9eb13750"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26845, 814, 333, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27181, 822, 303, 5, 33, "Output",ExpressionUUID->"923e80c1-763a-4847-b24d-30cbabfe85a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27521, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27700, 837, 275, 4, 33, "Output",ExpressionUUID->"30f619d1-ebef-4415-b537-30008917545f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28012, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28273, 855, 288, 4, 33, "Output",ExpressionUUID->"86b14bbf-15e1-413c-8ef3-f0735c4d8cba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28598, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28733, 868, 277, 4, 33, "Output",ExpressionUUID->"4da5cdb5-98e8-41d7-8b72-defabb0252df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29047, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29327, 885, 289, 4, 33, "Output",ExpressionUUID->"ebcc8f6a-269b-4b87-b4f0-634cb2c83fa3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29653, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29914, 903, 286, 4, 33, "Output",ExpressionUUID->"791c53f3-35d2-402b-9177-c628b404284c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30237, 912, 372, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30612, 920, 155, 2, 33, "Output",ExpressionUUID->"45e2aed7-0a88-44d9-9897-2ab05da1dc18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30804, 927, 375, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31182, 935, 154, 2, 33, "Output",ExpressionUUID->"c57fab8b-c51d-4d0c-bdcb-02c893ee66cb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31373, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31505, 946, 273, 4, 33, "Output",ExpressionUUID->"821e06c0-0874-4568-9e8d-5af4bf3b2ef9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31815, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31947, 959, 270, 4, 33, "Output",ExpressionUUID->"9be89ca0-58b1-4414-b10e-ffbf06204390"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32254, 968, 2018, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34275, 1021, 11371, 233, 258, "Output",ExpressionUUID->"d3a97d03-699d-495a-a29b-8e43802fd286"] +}, Open ]], +Cell[45661, 1257, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[45814, 1264, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[48093, 1325, 5393, 79, 117, "Message",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], +Cell[53489, 1406, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53865, 1418, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[56036, 1478, 4376, 63, 114, "Message",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], +Cell[60415, 1543, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60749, 1555, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[61054, 1562, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61294, 1570, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[61604, 1577, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61876, 1586, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[64400, 1651, 107321, 2284, 236, "Output",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171758, 3940, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[171922, 3945, 138703, 2809, 236, "Output",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310662, 6759, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[313220, 6832, 3508, 67, 411, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316765, 6904, 968, 27, 96, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[317736, 6933, 17715, 338, 253, "Output",ExpressionUUID->"932bc8f4-5735-4d23-a89c-82166d7b2280"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335488, 7276, 2363, 61, 118, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[337854, 7339, 5452, 79, 226, "Message",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], +Cell[343309, 7420, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343660, 7431, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[343889, 7437, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344101, 7444, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[344356, 7450, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344570, 7457, 981, 26, 74, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[345554, 7485, 111871, 2376, 236, "Output",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457462, 9866, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[457628, 9871, 157319, 3132, 236, "Output",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[614984, 13008, 2578, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[617565, 13082, 3537, 67, 413, "Output",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"], +Cell[621105, 13151, 2319, 36, 54, "Message",ExpressionUUID->"7c4a07a9-e9c6-41a6-b104-66776e55e201"] +}, Open ]], +Cell[623439, 13190, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[623702, 13198, 841, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[624546, 13223, 11315, 233, 234, "Output",ExpressionUUID->"18e847be-2a32-4c60-965e-bdb45e566e0b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[635898, 13461, 2226, 58, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[638127, 13521, 6104, 88, 141, "Message",ExpressionUUID->"74c7b39d-17d0-4330-b3c8-7564c57c191f"], +Cell[644234, 13611, 342, 7, 33, "Output",ExpressionUUID->"acdfe2e4-9f43-45a2-8d7a-a87af52c7032"] +}, Open ]], +Cell[CellGroupData[{ +Cell[644613, 13623, 302, 5, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[644918, 13630, 203, 3, 33, "Output",ExpressionUUID->"56cbbf9a-c570-4711-bd89-1bc366b3d74a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[645158, 13638, 301, 5, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[645462, 13645, 205, 3, 33, "Output",ExpressionUUID->"b6683b06-7369-4a3e-847d-04e2029151e2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[645704, 13653, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[648267, 13719, 21997, 480, 232, "Output",ExpressionUUID->"ee4e144a-3634-48b6-b518-ae6c6ee69509"] +}, Open ]], +Cell[CellGroupData[{ +Cell[670301, 14204, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[670469, 14209, 32093, 670, 234, "Output",ExpressionUUID->"344281ea-d403-40d9-8a9e-16fec0248c21"] +}, Open ]], +Cell[CellGroupData[{ +Cell[702599, 14884, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[705130, 14957, 3491, 66, 420, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"], +Cell[708624, 15025, 2316, 36, 54, "Message",ExpressionUUID->"354fe6ea-3459-499b-b5e4-330cd3490bae"] +}, Open ]], +Cell[CellGroupData[{ +Cell[710977, 15066, 917, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[711897, 15093, 24214, 446, 236, "Output",ExpressionUUID->"fbc78f1a-a110-4201-b666-ed9327ff71c1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[736148, 15544, 2384, 61, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[738535, 15607, 5965, 86, 117, "Message",ExpressionUUID->"17bd0456-27e9-47f1-8a61-f71fcbb8a532"], +Cell[744503, 15695, 344, 7, 33, "Output",ExpressionUUID->"b6f62474-2ea5-4fc5-9620-cb47ee7dde78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[744884, 15707, 301, 5, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[745188, 15714, 205, 3, 33, "Output",ExpressionUUID->"927d70a7-7391-4c83-b883-79e517d02289"] +}, Open ]], +Cell[CellGroupData[{ +Cell[745430, 15722, 301, 5, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[745734, 15729, 204, 3, 33, "Output",ExpressionUUID->"ec635a86-c125-4d7e-bbe3-68dd0373fe92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[745975, 15737, 2893, 73, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[748871, 15812, 59909, 1258, 236, "Output",ExpressionUUID->"e44f6f33-84b2-4e95-a760-76c1f6448200"] +}, Open ]], +Cell[CellGroupData[{ +Cell[808817, 17075, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[809024, 17081, 83326, 1662, 236, "Output",ExpressionUUID->"0087c612-a3a1-48d1-9dc3-aeb39d5b4a16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[892387, 18748, 2581, 72, 95, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[894971, 18822, 3568, 68, 433, "Output",ExpressionUUID->"2bfae31d-e656-4a8f-9766-511792d6dc32"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/rename.zsh b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/154-86_h_Pu240_8-9/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb new file mode 100644 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw1.nb @@ -0,0 +1,9365 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399390, 9355] +NotebookOptionsPosition[ 375168, 8989] +NotebookOutlinePosition[ 375597, 9006] +CellTagsIndexPosition[ 375554, 9003] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "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->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_фитирование.nb b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_фитирование.nb new file mode 100644 index 0000000..50dab25 --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/h_156-84_h_Pu240_10-11_фитирование.nb @@ -0,0 +1,20975 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 997702, 20967] +NotebookOptionsPosition[ 985957, 20759] +NotebookOutlinePosition[ 986369, 20776] +CellTagsIndexPosition[ 986326, 20773] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992491241626186*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"86162b62-9f26-4fee-bbcc-17fb5cb8b767"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.992491241888543*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"4058715c-86d6-40c0-b854-49a6a1901929"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.992491241911606*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"4264b1a8-015f-42c9-85ea-c84c5d073fe1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.992491241933113*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"d72666f8-dbb5-44b4-803f-b520f0337c8b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.992491241954792*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"6e2e9955-2236-43a7-8c72-eaaf64c34aee"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.992491241980302*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"ea1519f7-b1be-4314-a6a0-61efeb89acb8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}, { + 3.992491179024283*^9, 3.99249118818781*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.9924912420095882`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"534d12da-81c9-4bb2-8ca2-e35cfdd7c08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "156"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.992491191815319*^9, + 3.992491192475101*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["156"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.992491242033901*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"fb8d496f-f7a1-4310-9c00-e2c725b489b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.992491242058434*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b7d5cc73-90f8-4b17-b648-874223338997"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5455000000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992491242083928*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"6e601fc6-604a-4066-806b-68cfc7afcd13"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992491242109316*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"30e420d9-455d-4f0d-b04c-acb30d57f1af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.244526630021248`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992491242134049*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"ca444931-de2f-4e67-99e4-e3bd8edfba01"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["5.08024220226995`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9924912421582937`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"225e7e5e-fa3f-4067-a151-32961d618dbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.983"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.992491203428967*^9, 3.992491210860484*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.983`"], "Output", + CellChangeTimes->{3.992491242182205*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"29dbd62b-94ce-4416-bf34-75ad12db4506"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.463"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992491217899188*^9, 3.992491223115357*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.463`"], "Output", + CellChangeTimes->{3.992491242206492*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"d2928301-36e4-4a12-98f8-360575a3660a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.992491242232203*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"72094384-b983-41bf-9bd7-2e327eb1e663"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.992491242258623*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"88cd1898-4cbf-4a2c-9c64-a4bd19fa9a63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992491248706807*^9, 3.9924912611525927`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03841AccB/AjNkq0iFL43rkf31S4Hv2wyucjMRYyT2LaStRKNymrc/mV +Lrpp0TK/ClFDrZpHxSni0mG5Oolk6Tqh4XA3OiQOu/3xed7P67/387yfDzU0 +0v+ALoVC8dHe/2ndZTaPQiFQHLKbcIxSgXKkc6Bc660JuRWbj6ngoe7V5nAd +ApN9U2s8j6ogmLnmcpsugR83hdH3HlFBZoQ7+7o+gWcWd7knH1aBkebEXt8F +BMq8J7OFoSr4tLSjOs+cwAFKXNQtfxW89L903HkNgZbE2jipowpMd5lX4x4C +M1qcOL/JlTDjSbganCdwhrPRVZSsBFmIY6/iPoEnGaVhU1QlbDNwDr6kINC7 +xY09VjwMgQXNiwwtqBgoNF3aRR0GdcN3eR6eVHRSKLu8Tw1B0hejbld4VLRI +oWCaZBAeeS9eJSym4ujKF0E6xoOQbLG6P/cVFSVG0/m6qxQw/qK1x1WPhp8i +7GV3XQcg+M6pKR02DZkdOVUuXv3gSTD6L+yjYZNT46E/mH3QnRBoKk+jYYV8 +eNV5/X9gXgTfbEpEQwyw79xT3QuWiffYjiM07Ptc6Nkf3gMy/rE0ppUtbl8p +n6KzuoG1hHw06GOLeSJDYjalC6yyOezIWFu8f3nwoNuEDPJuXI+uu22LL7cY +iifXd8KiLsXrNW9tUcppCS6/1AEO+g9ig+fTsUBP5FLv1g4dVYkfdm6io2bQ +QDAmbwW7kPYbJuF09FNNzD180gJRdo6x7zPpOCvwjfzQKAW3pDM0QSMd7St7 +vc7Nk4BIGmY4qKZjoYkhadLeCPUlmxssGQwMv3Jn5Z2HYqgtWp5/IICBQeMF +xRHz6yAsXVB+lM/A7nBfFaewBi6aDBd63WPgl00dTL+QB3A47u2znncMLNVM +TMNABWw0bjfLWshEI/6b9FHlXbjg0MC2cGGiGe2lzkmbMriIW9OCOEyM44U8 +rq+8BSu6K0UH85j4xmFn2o746+B/rMpxg4SJRcMz7qPLiiCeKa4hPjJxmeJp +iWzzVWBz6m3+ZrHQ+bncOYOVD78W+NftCGBhmQ8/qV2RA7yw1xsyz7LwdJJD +6+K5DAjw/kEyJmRhd9K41/6ai/CWnphn9p6FCYbGVjKfNFCdT3fTXULirF3t +kFqQAjffs+3KtpKoP5CVViJKht37OlbzIkkM8L6vTsjga//hhJ5xIYnrlDPx +c36nICa8cPl+KYnNomcBuWUxEJTB+MW+mcTBLV3b0/NjYJ3o5tSk1qGC2tqs +czEwYlbxOrWFxIgV7PG/9sfAwUdN2ZVtJDZNc65IlsXATgu16YJOEnNincWe +Z0+CfYO70d0+EvlR35QMHOKB0YgkNq6fxKxyweH4QB4oLP2GPAZIXHu2N8Xa +gwdFR4MlbxQkCtuPVCbb8mD5isif9ZUkOhe3yfrk0WDwU47et2oSzfcZyIYD +o6Ev3+q47RiJmbd3+bl9FQ3iJ9d6lVqv/12TXbw+GhKs/3zMnyCxeoyRmLok +Gsab6hJvfyLx9DYDqaKNC61jHiPcKRKL5n82ni/mQpnNs72u09o+7NzS7+9x +4ccTr1xeaUictDYXzqVz4evC3aWFMyT+u/C5upvPBdbTd1acWRIdihuuPY/i +gt7EgdR1c9o9doxWPQnlQg8xpJnTOl7j6yT158J/AnFE7g== + "]]}, + 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:eJwV03841AccB/AjNkq0iFL43rkf31S4Hv2wyucjMRYyT2LaStRKNymrc/mV +Lrpp0TK/ClFDrZpHxSni0mG5Oolk6Tqh4XA3OiQOu/3xed7P67/387yfDzU0 +0v+ALoVC8dHe/2ndZTaPQiFQHLKbcIxSgXKkc6Bc660JuRWbj6ngoe7V5nAd +ApN9U2s8j6ogmLnmcpsugR83hdH3HlFBZoQ7+7o+gWcWd7knH1aBkebEXt8F +BMq8J7OFoSr4tLSjOs+cwAFKXNQtfxW89L903HkNgZbE2jipowpMd5lX4x4C +M1qcOL/JlTDjSbganCdwhrPRVZSsBFmIY6/iPoEnGaVhU1QlbDNwDr6kINC7 +xY09VjwMgQXNiwwtqBgoNF3aRR0GdcN3eR6eVHRSKLu8Tw1B0hejbld4VLRI +oWCaZBAeeS9eJSym4ujKF0E6xoOQbLG6P/cVFSVG0/m6qxQw/qK1x1WPhp8i +7GV3XQcg+M6pKR02DZkdOVUuXv3gSTD6L+yjYZNT46E/mH3QnRBoKk+jYYV8 +eNV5/X9gXgTfbEpEQwyw79xT3QuWiffYjiM07Ptc6Nkf3gMy/rE0ppUtbl8p +n6KzuoG1hHw06GOLeSJDYjalC6yyOezIWFu8f3nwoNuEDPJuXI+uu22LL7cY +iifXd8KiLsXrNW9tUcppCS6/1AEO+g9ig+fTsUBP5FLv1g4dVYkfdm6io2bQ +QDAmbwW7kPYbJuF09FNNzD180gJRdo6x7zPpOCvwjfzQKAW3pDM0QSMd7St7 +vc7Nk4BIGmY4qKZjoYkhadLeCPUlmxssGQwMv3Jn5Z2HYqgtWp5/IICBQeMF +xRHz6yAsXVB+lM/A7nBfFaewBi6aDBd63WPgl00dTL+QB3A47u2znncMLNVM +TMNABWw0bjfLWshEI/6b9FHlXbjg0MC2cGGiGe2lzkmbMriIW9OCOEyM44U8 +rq+8BSu6K0UH85j4xmFn2o746+B/rMpxg4SJRcMz7qPLiiCeKa4hPjJxmeJp +iWzzVWBz6m3+ZrHQ+bncOYOVD78W+NftCGBhmQ8/qV2RA7yw1xsyz7LwdJJD +6+K5DAjw/kEyJmRhd9K41/6ai/CWnphn9p6FCYbGVjKfNFCdT3fTXULirF3t +kFqQAjffs+3KtpKoP5CVViJKht37OlbzIkkM8L6vTsjga//hhJ5xIYnrlDPx +c36nICa8cPl+KYnNomcBuWUxEJTB+MW+mcTBLV3b0/NjYJ3o5tSk1qGC2tqs +czEwYlbxOrWFxIgV7PG/9sfAwUdN2ZVtJDZNc65IlsXATgu16YJOEnNincWe +Z0+CfYO70d0+EvlR35QMHOKB0YgkNq6fxKxyweH4QB4oLP2GPAZIXHu2N8Xa +gwdFR4MlbxQkCtuPVCbb8mD5isif9ZUkOhe3yfrk0WDwU47et2oSzfcZyIYD +o6Ev3+q47RiJmbd3+bl9FQ3iJ9d6lVqv/12TXbw+GhKs/3zMnyCxeoyRmLok +Gsab6hJvfyLx9DYDqaKNC61jHiPcKRKL5n82ni/mQpnNs72u09o+7NzS7+9x +4ccTr1xeaUictDYXzqVz4evC3aWFMyT+u/C5upvPBdbTd1acWRIdihuuPY/i +gt7EgdR1c9o9doxWPQnlQg8xpJnTOl7j6yT158J/AnFE7g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9514389640781008}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9514389640781008}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03841AccB/AjNkq0iFL43rkf31S4Hv2wyucjMRYyT2LaStRKNymrc/mV +Lrpp0TK/ClFDrZpHxSni0mG5Oolk6Tqh4XA3OiQOu/3xed7P67/387yfDzU0 +0v+ALoVC8dHe/2ndZTaPQiFQHLKbcIxSgXKkc6Bc660JuRWbj6ngoe7V5nAd +ApN9U2s8j6ogmLnmcpsugR83hdH3HlFBZoQ7+7o+gWcWd7knH1aBkebEXt8F +BMq8J7OFoSr4tLSjOs+cwAFKXNQtfxW89L903HkNgZbE2jipowpMd5lX4x4C +M1qcOL/JlTDjSbganCdwhrPRVZSsBFmIY6/iPoEnGaVhU1QlbDNwDr6kINC7 +xY09VjwMgQXNiwwtqBgoNF3aRR0GdcN3eR6eVHRSKLu8Tw1B0hejbld4VLRI +oWCaZBAeeS9eJSym4ujKF0E6xoOQbLG6P/cVFSVG0/m6qxQw/qK1x1WPhp8i +7GV3XQcg+M6pKR02DZkdOVUuXv3gSTD6L+yjYZNT46E/mH3QnRBoKk+jYYV8 +eNV5/X9gXgTfbEpEQwyw79xT3QuWiffYjiM07Ptc6Nkf3gMy/rE0ppUtbl8p +n6KzuoG1hHw06GOLeSJDYjalC6yyOezIWFu8f3nwoNuEDPJuXI+uu22LL7cY +iifXd8KiLsXrNW9tUcppCS6/1AEO+g9ig+fTsUBP5FLv1g4dVYkfdm6io2bQ +QDAmbwW7kPYbJuF09FNNzD180gJRdo6x7zPpOCvwjfzQKAW3pDM0QSMd7St7 +vc7Nk4BIGmY4qKZjoYkhadLeCPUlmxssGQwMv3Jn5Z2HYqgtWp5/IICBQeMF +xRHz6yAsXVB+lM/A7nBfFaewBi6aDBd63WPgl00dTL+QB3A47u2znncMLNVM +TMNABWw0bjfLWshEI/6b9FHlXbjg0MC2cGGiGe2lzkmbMriIW9OCOEyM44U8 +rq+8BSu6K0UH85j4xmFn2o746+B/rMpxg4SJRcMz7qPLiiCeKa4hPjJxmeJp +iWzzVWBz6m3+ZrHQ+bncOYOVD78W+NftCGBhmQ8/qV2RA7yw1xsyz7LwdJJD +6+K5DAjw/kEyJmRhd9K41/6ai/CWnphn9p6FCYbGVjKfNFCdT3fTXULirF3t +kFqQAjffs+3KtpKoP5CVViJKht37OlbzIkkM8L6vTsjga//hhJ5xIYnrlDPx +c36nICa8cPl+KYnNomcBuWUxEJTB+MW+mcTBLV3b0/NjYJ3o5tSk1qGC2tqs +czEwYlbxOrWFxIgV7PG/9sfAwUdN2ZVtJDZNc65IlsXATgu16YJOEnNincWe +Z0+CfYO70d0+EvlR35QMHOKB0YgkNq6fxKxyweH4QB4oLP2GPAZIXHu2N8Xa +gwdFR4MlbxQkCtuPVCbb8mD5isif9ZUkOhe3yfrk0WDwU47et2oSzfcZyIYD +o6Ev3+q47RiJmbd3+bl9FQ3iJ9d6lVqv/12TXbw+GhKs/3zMnyCxeoyRmLok +Gsab6hJvfyLx9DYDqaKNC61jHiPcKRKL5n82ni/mQpnNs72u09o+7NzS7+9x +4ccTr1xeaUictDYXzqVz4evC3aWFMyT+u/C5upvPBdbTd1acWRIdihuuPY/i +gt7EgdR1c9o9doxWPQnlQg8xpJnTOl7j6yT158J/AnFE7g== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9514389640781008}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12.5}, {0., 0.9514389640781008}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.992491242416819*^9, 3.992491261628717*^9}}, + CellLabel->"Out[21]=",ExpressionUUID->"70810c33-6da3-459c-894f-4e17ce5d3f72"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\ +\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \\\", \\\"R1\\\"}], \\\"]\ +\\\"}]}], RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 20, 1, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9}, + CellLabel-> + "During evaluation of \ +In[20]:=",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.2800677099442378`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"5391.436356051909`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.2800677099442378`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.2988729554791925`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"67848.64114184062`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"35\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ +is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ +\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \ +\\\",\\\", \\\"b0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"1.`\\\", \\\",\\\", \\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 380, + 164, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9}, + CellLabel-> + "During evaluation of \ +In[380]:=",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 12}, {0., 0.8911371422921853}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 10}, {0., 0.9853735520528359}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.855, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 8.06, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.635, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {105.63052248880513`, 111.25552248880513`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {194.54614748880513`, 200.17114748880513`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9, + 3.992491270913006*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"f63d4ebf-a9ef-44ed-91af-2660732158ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.992491396714066*^9, + 3.9924914113149643`*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03k4lPsXAHAk2y9Li5SiYeZ9KYpKbkmdE09CIdtkImTJThk7UZQ7WZIl +ayhZWlRGjKVUtpu4VIqKRJSSUSihwu+9f3yf7/P545zznPOco+TkZ+EqJCAg +wKPef79c8n+k4Ze87EruNB+qZdZWJlDGNLvzRj/5YHOh0221IA3tRczaB37w +ITsJ2rcI0bDr4XiE5CQfFM+vznQVpqH3I+tcBz4fiPj2jW1iNNQoXlQxPMCH +rWe3sdKX0nCJ2c2GyCd8MAtdXKZOp2GhP62gNZMPNRXHWk2NaFh0SNlJluTD +3D+NsyPeNPxWv8to4vYobD9jb9uZRMMGJwX+/MZRKEqrXV9WSUPx02nPs1O/ +AD98maToGxq63No6v2pqBFx5akcsF2j4+GNjS9f2EejOie7nM5SwyFtE+L7v +Z1Cy6Qpa2KeEmq9hdVjBJ8hzGwkT9VXC9EZ2wT93h2HKZDaVk6yEK+dmeVLN +H0G/36CfWaGEqq7ttKZ/P0Bjo3WGfI8Scte68GPKhkAhytHl0JwS1trVj77M +HoTriep55+jK2L0O4/yc3oP6Pm0JcSNlPDLvETZGDkDcq53xgt7KmMs5Iqkz +3Qer7wmFfktWRuKxh1GNRy/EBDaHMyuV0Wxd39azEm9AMcZotLxXGS39Y9IP +xXQDd+f/Eu0E6VjdJnItXv4lKLa16Ecx6FhVfe3JpsnnUHdrn1uGMR2Hvnr8 +MA18CtpuDfmqvnTUnV/Y+P1iGxS3hUmIJtPR9NO5u4JLW8Aw5sf7Hh4dP/nk +1a1Ja4KmpZ4dKj10/F+tQW5sYT34f7+s4inAwD+cq7Ir8+pg1SnZu7MEA6Of +btGzqKuGzKGzlkJGDPSigfGv5gowzq5yFPBj4LCYmfBTGS50q3yMDk5h4LsJ +/R+fdUqB5Xjw1c5KBsoXnfEoNS0BzjLrB52U3RfbqUnuLAFeE6vIg8fA7o5T +f0WolMCK9c7sjCoGapZZy5wVKIFnE4HS32sYqBHV8A3vFoNBTM6+Gw8YOJ/t +3XR4TTFoFQ9XrWphYMkkc/D9VCFI8SMyp3oYGLGnfCGrswAyE7uco3sZ+O8x +2373xgJQ1tikIf2WgUK67kl6FQXwl39/s2ofA1nOw4Yr0wvAcWbPd9t+BsbI +GYfvPlwA5cKipg1DDDQZP1aW8OEKMBWSFyXxGciddt42LXAFck2LfFXnGXiY +tJc5dScPAqbKpOspc4bWVYun5cGBS/fLWAsMvFmV7XI9JA9+jbyYjBMgcOv0 +QMoGvTxgnhUKHhMi0CvrXtWW7lyQuu8QVS5K4GaV7FYToVyIXC9/QXcpgS35 +2pYmnjlgL5zEPcgg0HjI3zcgKBMuZH/V7qfs2VdolXg0Exo1Te/7EARuu2wT +zDuQCapHJB/HkQRuQjXDHfRMmKyMf9ukSmBuBndi4VkGnHXjiO7YSOBFlZf6 +HI0MKG09fURJm0A/39J63ZmLMHshQHxyH4E5fxpMhHip8Foht/GkIYGXsn6s +0SxKBd6N5pPiRgROfghX9EpLBf+mlZM0YwJrcO6SGDsV+NPVPWYHCAykP/17 +QDMV3tnP3bx1kEB3f2+nP7dToEE91tSDRaCWVB67pCIZEloyUgc8CbynZTLw +8XESVB1m00O8CDyye1Jd4EYSDPJN70p7EyjG/+uSVkISbF8q8mK3D4GR0ZyU +0YNJ8IEVsCzXj0BkzNxJ6j0Pu0YPJrMCCBReHnA0fyoRvkpKJHWeJFBOISvZ +SjcBzC0j4pouEFj/omT8l/Q5eP3y5rx5MoGdaJyRP8sBe2avfz/l/VvPf2cO +ccCTpWP7K4XAa0J/0uZ4HDjjMKOmeZFABb7RlKoDB6q9AtpzsgisoN+R5Zf/ +DbQz3jLsAgLtDyd1NbnFwniFXbpSBYF6KeKTg4vOQONOGKil7FEbQhiNx0B6 +g9IGq0oqPrQzsv5tDOx6NlwXyyOw7Dsc+1wZA3Gjxz+OVhPoKKLuIOkRAwzl +s1q8OgLZQRpdxZ3RYJN0q9P4MYFb3kR3lZWfhnqPeamAHqq+khVX1iAK8NP1 +RIleAu/7nNAtUImCRy7WS65QttG4LLxfPAoeOJSKd7wlkEFrGB3/NxJqrQ8L +q/YT2G80GBhvHQl39/Bme4cI/Gl3qGbY6yQUrfb9oD9G4N4HS/9OLQ2Hc0/6 +apYLkChSr/9pJCQEXLT71l6m/GdL4rrjTiGw++rbKHVBEjs+itMkDoTAj4je +vXuFSNTc9Gh76LoQsNd88zxImES5RYWL9R4Hw5aMlyNvxEgM8g6QOy4fDD0u +basvLyUxUiG2+VlHIKgJ1ISq00nM1f2jYe/NBgt/r/Imyhvq7ij22LAh7IPC +qB2DRM+K++Pue9nQ0hJtl0iQGH9l/a8Himw4lnwAvqqQOHnNpMm40x8uKw8I +l6mTeGbHHnanrj/I7hW9sFWbROcHqVOb1p2AhXPWxTpGJBqrj1+0VfOF6FHb +xhbK2z+X2HVI+YKwidMA05jE1qYAY9tJH5CQ8ZNn7ycReGHYWOMDK9I552+a +kDiQ6KD4xMgHNhTcC1prQaJGsIFClq83MGuV9s0fJjGr/Hcut9UTbn0Z+1Tv +TaK9R/vy7S1u8FavboeJD4lCL51S5rluIJGTEP+aMt3BFN7kuIH7fjWNb74k +7g3Uetfq5wbKpe5Ba0+QePVeoVHuKjdI9xkSDg4ksedi39NvPsfg1PhrJfVI +EmWv66t3k65w2/Aau4qyiGJKhuByV+i7HNysF0Vi20zBGlhwAR3zlR6sUyTK +zz3fNP7KBaa4lmWx0SS+UMx7ohrnAp7sjt3vY0m04nvoDk84g+XPRtv0JBKf +sGKFVDucoMPSIGbjBRL3Z+cLztY6gTG35UYTZWfN7bJ9JU6A3u2zk8kkkqGS +m9+ddoJNg90ZZmkk3pMawAZtJxDvGHkhlkXipV+XlIUKj8LDIukD4QUk/tQf +3PYp3hF0FqWwl10l8a7yRMlMmCPwHFfkXKfsYdy0eI2nI5SuWf3lVSGJ+dw8 +/RRDR8hOVuZolVD9LZQuMhJxhMCT25rGbpL4ztBWL1XcAdSsbXUdK0nkJR/S +tV5zBIQKNhuOURaXdkwNWLCD119FrcJ4JL5KpovdHrKDWE6FV1oViYIePnzf +UjsYvCeZ01JD4hd7P2kS7CBT+dGs5gMSTYOLw609bEF4nFEl+JhE5Rv+L+Sf +saBX93fDecpSt/SyzKtYUH7ueceaFhIbHt68nZ/HAgd65PC2JyR2B4SxT/uw +oJb5StazjdqfoaNyrCUsOF53LqDzKbXvv13TDUxtoC/u6+arr0ksvVhxJmGQ +Cb46CkX4hsQambhF00+YMD+yf9U7ysKZle7hXCYoGl2fX9VLYmf+/ojnp5hg +L+rSdr6PxGd2NSN3aEwYiHnjEjZIot2WeZ11rtYwFNGUYc4n0YArXSMnYAUB +6t8lvlHmDHReSfxiCcJvlSITxkg88UzdQr7LEhg7o1wefyVRZrVMafANS3CZ +3bF51wRV//jZWmBawnDgnVbVn9R8PojpTnAtIIh4t+sfyuM97V0tuRYg0rWE +6zxN3c+2FW2V5yxARcszI2+GxJDfKsefHrUA90mGy4rfVH9jO/csLLOAmSuW +r7iUCRl9y6gFc+CYRxub/aHy3RdcvoJvDtfK+jXj5kjUO8I0CG82h+2OUoUq +8yROWIUmmZSbQ4v0LrlmyiHVPpu18s3B5qFXnNMCdR/Om+Q0EsxhxDd7boHy +x7lWtd2h5vB/+oYjSw== + "]]}, + 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:eJwV03k4lPsXAHAk2y9Li5SiYeZ9KYpKbkmdE09CIdtkImTJThk7UZQ7WZIl +ayhZWlRGjKVUtpu4VIqKRJSSUSihwu+9f3yf7/P545zznPOco+TkZ+EqJCAg +wKPef79c8n+k4Ze87EruNB+qZdZWJlDGNLvzRj/5YHOh0221IA3tRczaB37w +ITsJ2rcI0bDr4XiE5CQfFM+vznQVpqH3I+tcBz4fiPj2jW1iNNQoXlQxPMCH +rWe3sdKX0nCJ2c2GyCd8MAtdXKZOp2GhP62gNZMPNRXHWk2NaFh0SNlJluTD +3D+NsyPeNPxWv8to4vYobD9jb9uZRMMGJwX+/MZRKEqrXV9WSUPx02nPs1O/ +AD98maToGxq63No6v2pqBFx5akcsF2j4+GNjS9f2EejOie7nM5SwyFtE+L7v +Z1Cy6Qpa2KeEmq9hdVjBJ8hzGwkT9VXC9EZ2wT93h2HKZDaVk6yEK+dmeVLN +H0G/36CfWaGEqq7ttKZ/P0Bjo3WGfI8Scte68GPKhkAhytHl0JwS1trVj77M +HoTriep55+jK2L0O4/yc3oP6Pm0JcSNlPDLvETZGDkDcq53xgt7KmMs5Iqkz +3Qer7wmFfktWRuKxh1GNRy/EBDaHMyuV0Wxd39azEm9AMcZotLxXGS39Y9IP +xXQDd+f/Eu0E6VjdJnItXv4lKLa16Ecx6FhVfe3JpsnnUHdrn1uGMR2Hvnr8 +MA18CtpuDfmqvnTUnV/Y+P1iGxS3hUmIJtPR9NO5u4JLW8Aw5sf7Hh4dP/nk +1a1Ja4KmpZ4dKj10/F+tQW5sYT34f7+s4inAwD+cq7Ir8+pg1SnZu7MEA6Of +btGzqKuGzKGzlkJGDPSigfGv5gowzq5yFPBj4LCYmfBTGS50q3yMDk5h4LsJ +/R+fdUqB5Xjw1c5KBsoXnfEoNS0BzjLrB52U3RfbqUnuLAFeE6vIg8fA7o5T +f0WolMCK9c7sjCoGapZZy5wVKIFnE4HS32sYqBHV8A3vFoNBTM6+Gw8YOJ/t +3XR4TTFoFQ9XrWphYMkkc/D9VCFI8SMyp3oYGLGnfCGrswAyE7uco3sZ+O8x +2373xgJQ1tikIf2WgUK67kl6FQXwl39/s2ofA1nOw4Yr0wvAcWbPd9t+BsbI +GYfvPlwA5cKipg1DDDQZP1aW8OEKMBWSFyXxGciddt42LXAFck2LfFXnGXiY +tJc5dScPAqbKpOspc4bWVYun5cGBS/fLWAsMvFmV7XI9JA9+jbyYjBMgcOv0 +QMoGvTxgnhUKHhMi0CvrXtWW7lyQuu8QVS5K4GaV7FYToVyIXC9/QXcpgS35 +2pYmnjlgL5zEPcgg0HjI3zcgKBMuZH/V7qfs2VdolXg0Exo1Te/7EARuu2wT +zDuQCapHJB/HkQRuQjXDHfRMmKyMf9ukSmBuBndi4VkGnHXjiO7YSOBFlZf6 +HI0MKG09fURJm0A/39J63ZmLMHshQHxyH4E5fxpMhHip8Foht/GkIYGXsn6s +0SxKBd6N5pPiRgROfghX9EpLBf+mlZM0YwJrcO6SGDsV+NPVPWYHCAykP/17 +QDMV3tnP3bx1kEB3f2+nP7dToEE91tSDRaCWVB67pCIZEloyUgc8CbynZTLw +8XESVB1m00O8CDyye1Jd4EYSDPJN70p7EyjG/+uSVkISbF8q8mK3D4GR0ZyU +0YNJ8IEVsCzXj0BkzNxJ6j0Pu0YPJrMCCBReHnA0fyoRvkpKJHWeJFBOISvZ +SjcBzC0j4pouEFj/omT8l/Q5eP3y5rx5MoGdaJyRP8sBe2avfz/l/VvPf2cO +ccCTpWP7K4XAa0J/0uZ4HDjjMKOmeZFABb7RlKoDB6q9AtpzsgisoN+R5Zf/ +DbQz3jLsAgLtDyd1NbnFwniFXbpSBYF6KeKTg4vOQONOGKil7FEbQhiNx0B6 +g9IGq0oqPrQzsv5tDOx6NlwXyyOw7Dsc+1wZA3Gjxz+OVhPoKKLuIOkRAwzl +s1q8OgLZQRpdxZ3RYJN0q9P4MYFb3kR3lZWfhnqPeamAHqq+khVX1iAK8NP1 +RIleAu/7nNAtUImCRy7WS65QttG4LLxfPAoeOJSKd7wlkEFrGB3/NxJqrQ8L +q/YT2G80GBhvHQl39/Bme4cI/Gl3qGbY6yQUrfb9oD9G4N4HS/9OLQ2Hc0/6 +apYLkChSr/9pJCQEXLT71l6m/GdL4rrjTiGw++rbKHVBEjs+itMkDoTAj4je +vXuFSNTc9Gh76LoQsNd88zxImES5RYWL9R4Hw5aMlyNvxEgM8g6QOy4fDD0u +basvLyUxUiG2+VlHIKgJ1ISq00nM1f2jYe/NBgt/r/Imyhvq7ij22LAh7IPC +qB2DRM+K++Pue9nQ0hJtl0iQGH9l/a8Himw4lnwAvqqQOHnNpMm40x8uKw8I +l6mTeGbHHnanrj/I7hW9sFWbROcHqVOb1p2AhXPWxTpGJBqrj1+0VfOF6FHb +xhbK2z+X2HVI+YKwidMA05jE1qYAY9tJH5CQ8ZNn7ycReGHYWOMDK9I552+a +kDiQ6KD4xMgHNhTcC1prQaJGsIFClq83MGuV9s0fJjGr/Hcut9UTbn0Z+1Tv +TaK9R/vy7S1u8FavboeJD4lCL51S5rluIJGTEP+aMt3BFN7kuIH7fjWNb74k +7g3Uetfq5wbKpe5Ba0+QePVeoVHuKjdI9xkSDg4ksedi39NvPsfg1PhrJfVI +EmWv66t3k65w2/Aau4qyiGJKhuByV+i7HNysF0Vi20zBGlhwAR3zlR6sUyTK +zz3fNP7KBaa4lmWx0SS+UMx7ohrnAp7sjt3vY0m04nvoDk84g+XPRtv0JBKf +sGKFVDucoMPSIGbjBRL3Z+cLztY6gTG35UYTZWfN7bJ9JU6A3u2zk8kkkqGS +m9+ddoJNg90ZZmkk3pMawAZtJxDvGHkhlkXipV+XlIUKj8LDIukD4QUk/tQf +3PYp3hF0FqWwl10l8a7yRMlMmCPwHFfkXKfsYdy0eI2nI5SuWf3lVSGJ+dw8 +/RRDR8hOVuZolVD9LZQuMhJxhMCT25rGbpL4ztBWL1XcAdSsbXUdK0nkJR/S +tV5zBIQKNhuOURaXdkwNWLCD119FrcJ4JL5KpovdHrKDWE6FV1oViYIePnzf +UjsYvCeZ01JD4hd7P2kS7CBT+dGs5gMSTYOLw609bEF4nFEl+JhE5Rv+L+Sf +saBX93fDecpSt/SyzKtYUH7ueceaFhIbHt68nZ/HAgd65PC2JyR2B4SxT/uw +oJb5StazjdqfoaNyrCUsOF53LqDzKbXvv13TDUxtoC/u6+arr0ksvVhxJmGQ +Cb46CkX4hsQambhF00+YMD+yf9U7ysKZle7hXCYoGl2fX9VLYmf+/ojnp5hg +L+rSdr6PxGd2NSN3aEwYiHnjEjZIot2WeZ11rtYwFNGUYc4n0YArXSMnYAUB +6t8lvlHmDHReSfxiCcJvlSITxkg88UzdQr7LEhg7o1wefyVRZrVMafANS3CZ +3bF51wRV//jZWmBawnDgnVbVn9R8PojpTnAtIIh4t+sfyuM97V0tuRYg0rWE +6zxN3c+2FW2V5yxARcszI2+GxJDfKsefHrUA90mGy4rfVH9jO/csLLOAmSuW +r7iUCRl9y6gFc+CYRxub/aHy3RdcvoJvDtfK+jXj5kjUO8I0CG82h+2OUoUq +8yROWIUmmZSbQ4v0LrlmyiHVPpu18s3B5qFXnNMCdR/Om+Q0EsxhxDd7boHy +x7lWtd2h5vB/+oYjSw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.905236105628288}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.905236105628288}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k4lPsXAHAk2y9Li5SiYeZ9KYpKbkmdE09CIdtkImTJThk7UZQ7WZIl +ayhZWlRGjKVUtpu4VIqKRJSSUSihwu+9f3yf7/P545zznPOco+TkZ+EqJCAg +wKPef79c8n+k4Ze87EruNB+qZdZWJlDGNLvzRj/5YHOh0221IA3tRczaB37w +ITsJ2rcI0bDr4XiE5CQfFM+vznQVpqH3I+tcBz4fiPj2jW1iNNQoXlQxPMCH +rWe3sdKX0nCJ2c2GyCd8MAtdXKZOp2GhP62gNZMPNRXHWk2NaFh0SNlJluTD +3D+NsyPeNPxWv8to4vYobD9jb9uZRMMGJwX+/MZRKEqrXV9WSUPx02nPs1O/ +AD98maToGxq63No6v2pqBFx5akcsF2j4+GNjS9f2EejOie7nM5SwyFtE+L7v +Z1Cy6Qpa2KeEmq9hdVjBJ8hzGwkT9VXC9EZ2wT93h2HKZDaVk6yEK+dmeVLN +H0G/36CfWaGEqq7ttKZ/P0Bjo3WGfI8Scte68GPKhkAhytHl0JwS1trVj77M +HoTriep55+jK2L0O4/yc3oP6Pm0JcSNlPDLvETZGDkDcq53xgt7KmMs5Iqkz +3Qer7wmFfktWRuKxh1GNRy/EBDaHMyuV0Wxd39azEm9AMcZotLxXGS39Y9IP +xXQDd+f/Eu0E6VjdJnItXv4lKLa16Ecx6FhVfe3JpsnnUHdrn1uGMR2Hvnr8 +MA18CtpuDfmqvnTUnV/Y+P1iGxS3hUmIJtPR9NO5u4JLW8Aw5sf7Hh4dP/nk +1a1Ja4KmpZ4dKj10/F+tQW5sYT34f7+s4inAwD+cq7Ir8+pg1SnZu7MEA6Of +btGzqKuGzKGzlkJGDPSigfGv5gowzq5yFPBj4LCYmfBTGS50q3yMDk5h4LsJ +/R+fdUqB5Xjw1c5KBsoXnfEoNS0BzjLrB52U3RfbqUnuLAFeE6vIg8fA7o5T +f0WolMCK9c7sjCoGapZZy5wVKIFnE4HS32sYqBHV8A3vFoNBTM6+Gw8YOJ/t +3XR4TTFoFQ9XrWphYMkkc/D9VCFI8SMyp3oYGLGnfCGrswAyE7uco3sZ+O8x +2373xgJQ1tikIf2WgUK67kl6FQXwl39/s2ofA1nOw4Yr0wvAcWbPd9t+BsbI +GYfvPlwA5cKipg1DDDQZP1aW8OEKMBWSFyXxGciddt42LXAFck2LfFXnGXiY +tJc5dScPAqbKpOspc4bWVYun5cGBS/fLWAsMvFmV7XI9JA9+jbyYjBMgcOv0 +QMoGvTxgnhUKHhMi0CvrXtWW7lyQuu8QVS5K4GaV7FYToVyIXC9/QXcpgS35 +2pYmnjlgL5zEPcgg0HjI3zcgKBMuZH/V7qfs2VdolXg0Exo1Te/7EARuu2wT +zDuQCapHJB/HkQRuQjXDHfRMmKyMf9ukSmBuBndi4VkGnHXjiO7YSOBFlZf6 +HI0MKG09fURJm0A/39J63ZmLMHshQHxyH4E5fxpMhHip8Foht/GkIYGXsn6s +0SxKBd6N5pPiRgROfghX9EpLBf+mlZM0YwJrcO6SGDsV+NPVPWYHCAykP/17 +QDMV3tnP3bx1kEB3f2+nP7dToEE91tSDRaCWVB67pCIZEloyUgc8CbynZTLw +8XESVB1m00O8CDyye1Jd4EYSDPJN70p7EyjG/+uSVkISbF8q8mK3D4GR0ZyU +0YNJ8IEVsCzXj0BkzNxJ6j0Pu0YPJrMCCBReHnA0fyoRvkpKJHWeJFBOISvZ +SjcBzC0j4pouEFj/omT8l/Q5eP3y5rx5MoGdaJyRP8sBe2avfz/l/VvPf2cO +ccCTpWP7K4XAa0J/0uZ4HDjjMKOmeZFABb7RlKoDB6q9AtpzsgisoN+R5Zf/ +DbQz3jLsAgLtDyd1NbnFwniFXbpSBYF6KeKTg4vOQONOGKil7FEbQhiNx0B6 +g9IGq0oqPrQzsv5tDOx6NlwXyyOw7Dsc+1wZA3Gjxz+OVhPoKKLuIOkRAwzl +s1q8OgLZQRpdxZ3RYJN0q9P4MYFb3kR3lZWfhnqPeamAHqq+khVX1iAK8NP1 +RIleAu/7nNAtUImCRy7WS65QttG4LLxfPAoeOJSKd7wlkEFrGB3/NxJqrQ8L +q/YT2G80GBhvHQl39/Bme4cI/Gl3qGbY6yQUrfb9oD9G4N4HS/9OLQ2Hc0/6 +apYLkChSr/9pJCQEXLT71l6m/GdL4rrjTiGw++rbKHVBEjs+itMkDoTAj4je +vXuFSNTc9Gh76LoQsNd88zxImES5RYWL9R4Hw5aMlyNvxEgM8g6QOy4fDD0u +basvLyUxUiG2+VlHIKgJ1ISq00nM1f2jYe/NBgt/r/Imyhvq7ij22LAh7IPC +qB2DRM+K++Pue9nQ0hJtl0iQGH9l/a8Himw4lnwAvqqQOHnNpMm40x8uKw8I +l6mTeGbHHnanrj/I7hW9sFWbROcHqVOb1p2AhXPWxTpGJBqrj1+0VfOF6FHb +xhbK2z+X2HVI+YKwidMA05jE1qYAY9tJH5CQ8ZNn7ycReGHYWOMDK9I552+a +kDiQ6KD4xMgHNhTcC1prQaJGsIFClq83MGuV9s0fJjGr/Hcut9UTbn0Z+1Tv +TaK9R/vy7S1u8FavboeJD4lCL51S5rluIJGTEP+aMt3BFN7kuIH7fjWNb74k +7g3Uetfq5wbKpe5Ba0+QePVeoVHuKjdI9xkSDg4ksedi39NvPsfg1PhrJfVI +EmWv66t3k65w2/Aau4qyiGJKhuByV+i7HNysF0Vi20zBGlhwAR3zlR6sUyTK +zz3fNP7KBaa4lmWx0SS+UMx7ohrnAp7sjt3vY0m04nvoDk84g+XPRtv0JBKf +sGKFVDucoMPSIGbjBRL3Z+cLztY6gTG35UYTZWfN7bJ9JU6A3u2zk8kkkqGS +m9+ddoJNg90ZZmkk3pMawAZtJxDvGHkhlkXipV+XlIUKj8LDIukD4QUk/tQf +3PYp3hF0FqWwl10l8a7yRMlMmCPwHFfkXKfsYdy0eI2nI5SuWf3lVSGJ+dw8 +/RRDR8hOVuZolVD9LZQuMhJxhMCT25rGbpL4ztBWL1XcAdSsbXUdK0nkJR/S +tV5zBIQKNhuOURaXdkwNWLCD119FrcJ4JL5KpovdHrKDWE6FV1oViYIePnzf +UjsYvCeZ01JD4hd7P2kS7CBT+dGs5gMSTYOLw609bEF4nFEl+JhE5Rv+L+Sf +saBX93fDecpSt/SyzKtYUH7ueceaFhIbHt68nZ/HAgd65PC2JyR2B4SxT/uw +oJb5StazjdqfoaNyrCUsOF53LqDzKbXvv13TDUxtoC/u6+arr0ksvVhxJmGQ +Cb46CkX4hsQambhF00+YMD+yf9U7ysKZle7hXCYoGl2fX9VLYmf+/ojnp5hg +L+rSdr6PxGd2NSN3aEwYiHnjEjZIot2WeZ11rtYwFNGUYc4n0YArXSMnYAUB +6t8lvlHmDHReSfxiCcJvlSITxkg88UzdQr7LEhg7o1wefyVRZrVMafANS3CZ +3bF51wRV//jZWmBawnDgnVbVn9R8PojpTnAtIIh4t+sfyuM97V0tuRYg0rWE +6zxN3c+2FW2V5yxARcszI2+GxJDfKsefHrUA90mGy4rfVH9jO/csLLOAmSuW +r7iUCRl9y6gFc+CYRxub/aHy3RdcvoJvDtfK+jXj5kjUO8I0CG82h+2OUoUq +8yROWIUmmZSbQ4v0LrlmyiHVPpu18s3B5qFXnNMCdR/Om+Q0EsxhxDd7boHy +x7lWtd2h5vB/+oYjSw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.905236105628288}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.5}, {0., 0.905236105628288}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.992491393793434*^9, + 3.992491411749783*^9}}, + CellLabel->"Out[27]=",ExpressionUUID->"1b8b3a78-a0bd-45d3-bd96-36802f91f8de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ +\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\ +\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 0.8332573817712089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9}, + CellLabel->"In[30]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.225, $CellContext`xmax$$ = + 11.72, $CellContext`xmin$$ = 7.9, $CellContext`ymax$$ = + 0.886, $CellContext`yyv$$ = 2.405, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {109.64179900320869`, 115.26679900320869`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {198.5574240032087, 204.1824240032087}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.9924889078442383`*^9, 3.992489848193634*^9, {3.992491416660532*^9, + 3.992491419519278*^9}}, + CellLabel->"Out[31]=",ExpressionUUID->"4ecd72d2-1ace-4ff2-8e88-c0632f9a0e98"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.1"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992491537778275*^9, 3.9924915442297153`*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzns0lAkcxnGM1qklZWhL6J13Zt6sGe+MGEvk92sTUYpsJaJcuijNkEOE +RqbbNjpWWDa0arIko9qsmhRq6zQuJbqdQ7t2MhW55lZssrN/POd7Pv89rAjJ +xp0Genp6frr9X03cEl0I9McdZfKflXDBP7okVedi/df11qeUECW47jGpc0JZ +YH11mhJ6+r1SRvQJlCpCYz5EKWFwt3hMyyBwOi3dv9RRCZ9D77xtNCJQ8/nu +o/G2SvjGN6Q5x5TAh0mB5rRZJfiR+blLlxAoNwtQlZRUgNrkFmMQCeSHxb2j +b5dB1GRb4sEdBLZXhxvvXl8KDz7FyiOkBHqMR1s62SpA5Fib2l9C4OL31eL7 +pufhwf6pONcGAg18XYwXFZ+DqG7tKu5rAkv/adpe6FQI6pjNNw4wWHiPOV7v +7VIA6yZu0zKShbPkraPJqjzouvU4Y5knC9sjXlpk+OVAjvR5x8VIFsZYd9YL +12SDcVDks6QMFp7wPL/hqn4W5O4rquhTsDAEnd+8OC0Hd2nTUdafLGSMPU0x +Up6E0UcKtwktCwdW9s+Ya4+BRGiYy/+KxO2eWnldggy+ztk6zOWS6NZXHI6S +I1AjDP62zovExuy2LunIYch4vGHXol0kbjq3uPdlVQqElg1LmSdJpPO33hg9 +kQTTOQvdJJdIXHXHoKpGnQB30kVTp9Uk9pb+3Z8ujYfM8um8te9JbPLpzn/j +EwcpT26JWmazUWbXcUj4TgwC45nEKls2PjgcvLxduQ9GMgZzBb5snGNPrnPO +2gMvJttr4qPZyHr8F5v8uBMaL0f8sVnORkZr1k1+YiQciUveVFjJRgHT7nq3 +dzhs/e7Y5IVmNk6lW/TSQ2GALu6HfAbYWF6kyGvZHwLerj1ffjfmoKntwaFP +siAwX7+Ye5jHQSv9mY/K8U0wVDy5tGcdB3cX9zIzUwOhb6CFtojh4Cl+rY+r +OAAmktaaaU5z8JE9s8lLux5YhvWTEiUHNUuju4wL1sJ8hSpjRwsHFxQfcH91 +fQ3MS9veMzTAweXOtqNbelaDYMtUwPcmXAx+GM+tzVsFoTFY4Cjg4p673eW+ +QSvBP88k/bg/F223NXlBkwdE1bXuK5Jwceyr6tJtmW5wglzhFJDNxebxZsP3 +e12g6fiveo1XuSisUQnN20TQ/uWk+EIrF2mbThfRj47Qe81aZfmBiwGrO4WZ +PzgAsbPMaPM8CmO2LPTO/kJD9gK/VI3OVq/60WqIBgP1yHDMfAobfrkyVNVF +Q7edR4fMjMIr6ovb+hpo+G34WeU1cwqVFu6zG2Q08FMNNposopCqVAc/n0OD +a05o0X0WhaRm7pU8G3uo8GTM9ycpvLfXecp0nj1YTpQf69RZkmwky9a3h89B +Y+IRNoWmhS5QoeVDg418JUFRmHbWfdrhMh+8Km6+TbGjMJ3RHpvvyocbIWEh +RjwK3Rv298p4fLA1MXxyRme7kOZdB635MDt2g+oSn8I9fa3h8fp8aBG9lb+k +KVxoduhjXSMPVryT60UKKCyxyXXqruVBVYFDwqDOiYqLwXOreJD1b2rYLAcK +HfnawOQzPNBTkk9/0plpKCJUR3kQG6b2tlqm+z9V/3AmkQcaU/HtMp2dPSy9 +/aJ5sPEu08HRkULNtY6z50N48B9dbhPY + "]]}, + 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:eJwVzns0lAkcxnGM1qklZWhL6J13Zt6sGe+MGEvk92sTUYpsJaJcuijNkEOE +RqbbNjpWWDa0arIko9qsmhRq6zQuJbqdQ7t2MhW55lZssrN/POd7Pv89rAjJ +xp0Genp6frr9X03cEl0I9McdZfKflXDBP7okVedi/df11qeUECW47jGpc0JZ +YH11mhJ6+r1SRvQJlCpCYz5EKWFwt3hMyyBwOi3dv9RRCZ9D77xtNCJQ8/nu +o/G2SvjGN6Q5x5TAh0mB5rRZJfiR+blLlxAoNwtQlZRUgNrkFmMQCeSHxb2j +b5dB1GRb4sEdBLZXhxvvXl8KDz7FyiOkBHqMR1s62SpA5Fib2l9C4OL31eL7 +pufhwf6pONcGAg18XYwXFZ+DqG7tKu5rAkv/adpe6FQI6pjNNw4wWHiPOV7v +7VIA6yZu0zKShbPkraPJqjzouvU4Y5knC9sjXlpk+OVAjvR5x8VIFsZYd9YL +12SDcVDks6QMFp7wPL/hqn4W5O4rquhTsDAEnd+8OC0Hd2nTUdafLGSMPU0x +Up6E0UcKtwktCwdW9s+Ya4+BRGiYy/+KxO2eWnldggy+ztk6zOWS6NZXHI6S +I1AjDP62zovExuy2LunIYch4vGHXol0kbjq3uPdlVQqElg1LmSdJpPO33hg9 +kQTTOQvdJJdIXHXHoKpGnQB30kVTp9Uk9pb+3Z8ujYfM8um8te9JbPLpzn/j +EwcpT26JWmazUWbXcUj4TgwC45nEKls2PjgcvLxduQ9GMgZzBb5snGNPrnPO +2gMvJttr4qPZyHr8F5v8uBMaL0f8sVnORkZr1k1+YiQciUveVFjJRgHT7nq3 +dzhs/e7Y5IVmNk6lW/TSQ2GALu6HfAbYWF6kyGvZHwLerj1ffjfmoKntwaFP +siAwX7+Ye5jHQSv9mY/K8U0wVDy5tGcdB3cX9zIzUwOhb6CFtojh4Cl+rY+r +OAAmktaaaU5z8JE9s8lLux5YhvWTEiUHNUuju4wL1sJ8hSpjRwsHFxQfcH91 +fQ3MS9veMzTAweXOtqNbelaDYMtUwPcmXAx+GM+tzVsFoTFY4Cjg4p673eW+ +QSvBP88k/bg/F223NXlBkwdE1bXuK5Jwceyr6tJtmW5wglzhFJDNxebxZsP3 +e12g6fiveo1XuSisUQnN20TQ/uWk+EIrF2mbThfRj47Qe81aZfmBiwGrO4WZ +PzgAsbPMaPM8CmO2LPTO/kJD9gK/VI3OVq/60WqIBgP1yHDMfAobfrkyVNVF +Q7edR4fMjMIr6ovb+hpo+G34WeU1cwqVFu6zG2Q08FMNNposopCqVAc/n0OD +a05o0X0WhaRm7pU8G3uo8GTM9ycpvLfXecp0nj1YTpQf69RZkmwky9a3h89B +Y+IRNoWmhS5QoeVDg418JUFRmHbWfdrhMh+8Km6+TbGjMJ3RHpvvyocbIWEh +RjwK3Rv298p4fLA1MXxyRme7kOZdB635MDt2g+oSn8I9fa3h8fp8aBG9lb+k +KVxoduhjXSMPVryT60UKKCyxyXXqruVBVYFDwqDOiYqLwXOreJD1b2rYLAcK +HfnawOQzPNBTkk9/0plpKCJUR3kQG6b2tlqm+z9V/3AmkQcaU/HtMp2dPSy9 +/aJ5sPEu08HRkULNtY6z50N48B9dbhPY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05778919618762812}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05778919618762812}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lAkcxnGM1qklZWhL6J13Zt6sGe+MGEvk92sTUYpsJaJcuijNkEOE +RqbbNjpWWDa0arIko9qsmhRq6zQuJbqdQ7t2MhW55lZssrN/POd7Pv89rAjJ +xp0Genp6frr9X03cEl0I9McdZfKflXDBP7okVedi/df11qeUECW47jGpc0JZ +YH11mhJ6+r1SRvQJlCpCYz5EKWFwt3hMyyBwOi3dv9RRCZ9D77xtNCJQ8/nu +o/G2SvjGN6Q5x5TAh0mB5rRZJfiR+blLlxAoNwtQlZRUgNrkFmMQCeSHxb2j +b5dB1GRb4sEdBLZXhxvvXl8KDz7FyiOkBHqMR1s62SpA5Fib2l9C4OL31eL7 +pufhwf6pONcGAg18XYwXFZ+DqG7tKu5rAkv/adpe6FQI6pjNNw4wWHiPOV7v +7VIA6yZu0zKShbPkraPJqjzouvU4Y5knC9sjXlpk+OVAjvR5x8VIFsZYd9YL +12SDcVDks6QMFp7wPL/hqn4W5O4rquhTsDAEnd+8OC0Hd2nTUdafLGSMPU0x +Up6E0UcKtwktCwdW9s+Ya4+BRGiYy/+KxO2eWnldggy+ztk6zOWS6NZXHI6S +I1AjDP62zovExuy2LunIYch4vGHXol0kbjq3uPdlVQqElg1LmSdJpPO33hg9 +kQTTOQvdJJdIXHXHoKpGnQB30kVTp9Uk9pb+3Z8ujYfM8um8te9JbPLpzn/j +EwcpT26JWmazUWbXcUj4TgwC45nEKls2PjgcvLxduQ9GMgZzBb5snGNPrnPO +2gMvJttr4qPZyHr8F5v8uBMaL0f8sVnORkZr1k1+YiQciUveVFjJRgHT7nq3 +dzhs/e7Y5IVmNk6lW/TSQ2GALu6HfAbYWF6kyGvZHwLerj1ffjfmoKntwaFP +siAwX7+Ye5jHQSv9mY/K8U0wVDy5tGcdB3cX9zIzUwOhb6CFtojh4Cl+rY+r +OAAmktaaaU5z8JE9s8lLux5YhvWTEiUHNUuju4wL1sJ8hSpjRwsHFxQfcH91 +fQ3MS9veMzTAweXOtqNbelaDYMtUwPcmXAx+GM+tzVsFoTFY4Cjg4p673eW+ +QSvBP88k/bg/F223NXlBkwdE1bXuK5Jwceyr6tJtmW5wglzhFJDNxebxZsP3 +e12g6fiveo1XuSisUQnN20TQ/uWk+EIrF2mbThfRj47Qe81aZfmBiwGrO4WZ +PzgAsbPMaPM8CmO2LPTO/kJD9gK/VI3OVq/60WqIBgP1yHDMfAobfrkyVNVF +Q7edR4fMjMIr6ovb+hpo+G34WeU1cwqVFu6zG2Q08FMNNposopCqVAc/n0OD +a05o0X0WhaRm7pU8G3uo8GTM9ycpvLfXecp0nj1YTpQf69RZkmwky9a3h89B +Y+IRNoWmhS5QoeVDg418JUFRmHbWfdrhMh+8Km6+TbGjMJ3RHpvvyocbIWEh +RjwK3Rv298p4fLA1MXxyRme7kOZdB635MDt2g+oSn8I9fa3h8fp8aBG9lb+k +KVxoduhjXSMPVryT60UKKCyxyXXqruVBVYFDwqDOiYqLwXOreJD1b2rYLAcK +HfnawOQzPNBTkk9/0plpKCJUR3kQG6b2tlqm+z9V/3AmkQcaU/HtMp2dPSy9 +/aJ5sPEu08HRkULNtY6z50N48B9dbhPY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05778919618762812}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.1}, {0., 0.05778919618762812}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.992491534120336*^9, + 3.99249154479797*^9}, 3.9924916269939213`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"0caf9d0d-77d1-401b-af5b-bbcaefd8c215"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.1", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.1", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.9924915531606197`*^9, 3.992491564182877*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}]\\) is not a list of numbers with dimensions \\!\\(\ +\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 35, 1, 25981793935799656168, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.99249156572959*^9}, + CellLabel-> + "During evaluation of \ +In[35]:=",ExpressionUUID->"5d859565-58a7-4818-ae28-8ca83298de2e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "lstol", + "\"The line search decreased the step size to within tolerance specified \ +by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \ +decrease in the merit function. You may need more than \ +\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \ +meet these tolerances.\"", 2, 35, 2, 25981793935799656168, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9924915658032923`*^9}, + CellLabel-> + "During evaluation of \ +In[35]:=",ExpressionUUID->"28f560cd-cc7b-4e52-b73e-50ba227ff820"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.6301619274273098`"}], ",", + RowBox[{"b0", "\[Rule]", "0.5570869002955608`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992491565807701*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"a45a3d42-dad9-4027-884f-a66e5676fb0c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.63"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.992491569333385*^9, + 3.992491572301095*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.63`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.9924915743230467`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"8cacf199-1cac-4870-9dc0-c274628ed6f0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.5571"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.992491576148643*^9, + 3.992491581341236*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.5571`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9, + 3.99249158199061*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"02d7e93b-1c0b-4079-a05d-c527c8b8510f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[38]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFmGk8le/XxSVJhTJGlDOfc2cK/VTUvXcplCZTZqVSKEQZk2QOZcxMKjSI +pCKRlEQZKg1EcsxFiowhnvO8+r+6PuvFfre+69prUw+7Gtnz8/Hx7V/Ax/f/ +LzX05EI+Pgou/Zly5EdkJlyB7s+g/j9dwXJ5UOrwPz19sfFoUtr/9Np9sjc9 +GiiontLZQlfIgOXbvP9cWkjFH49LKk0VkmHx/bviSzWpaEg51f5NKwEe7hnX +rjxJRdmDRwq6imPAdDdnwvM6FUMLfm9iF0fCkpp1IbEfqXg18rtr9bYwcHfd +s7pvKQ0Nta7REzcHwa94iMjcQsMXTSJNC+UDwHaVfLiZKw3pzwRedYqfhaBG +4ehdOTS8mzu5e5OTJ5TNNTlda6ahsYXNhZk37nDLOn+fuigdz06v27ZX2BXC +5d2rq3ToaHdf5HNguSP4mQuvKPWg42xUS3FRqj0wXzw58j2Pjk8lF1of/GYH +nTfJqLPf6Bits3hq5pcNGJV9fqovxcBpPf2RpQ/NoXidRYC0AQNPXb45tdXD +BJRp91fqn2Og5ctJM0eOIVhsXf34wQMGOksHCRhY7Ybkr7bKQX0M/ORl5S1Q +pgd1XyI0jGWYqDwQn1k6pAMPBOq22exloroEX6HpOYSCPC6rLoCJOmZyznev +a4NtwFLJ0yVMFGVTjSjvNYG/ZE2c3BATV+9AIrJfHUodhXrZCiy8U/z4a3Cp +KjB3CW51MWWhv0XFKkuttZCd+8VNJpyFxjeuMO6NM2GlfZJGVSkL+58ue2t4 +mgZg6Dh38zcLS9jFavpRa8C3dEXmMJWNEp+XV9imy4LTvnrd0+ZsXKWhfJ7L +lgJnO5uXFpFs1KBNO1UWicGRTy1N+JSN8+1jAZQSERD1chiwG2UjV8hAikwQ +gvqEhs99TA6qr9WbGEwUAODq1udYc3D83LJPznN8kHvpjpF9HAfz7sUUXWTN +kpSS7vzwlxxUEPls2pk+Se4TVRPvm+bg8nsHynqCRsnYTmODm8oEnn9qfSrM +dJiskbaTcjxIoNKTtB8WpwbJIp/A70evEGhf4rKT/aiPLDT3iXlZQ+Cxu6Wj +4kLdZIdP/Oz8PIEyrSJpt7GDTK+trb/wnYKeN7izBy6kQqRPHH+9PBXNrtvI +Ga9MBNv5/Wx7Qypqy58qDTkSBwINoilpYVSs2GxW3Oh6Ge5dvLsluIyKBp8+ +MrOOXARSDt6X/aZihMXO2j3sECi88Mp4G4OGlF1HzFNSLwCrWXnJ2QM0NOH6 +Lu8KPwenziQsM4ygITlq4Ox13Ruu9v2e9aigYSNFjrMh9AwUKWP7jz805Gyy +qc6QdIPk8uilMxw6bhRtC43dfhICtZ45VVjTsWByA9c/4Tjsv9Rd+i6GjocT +dxztyDkCCx/NTqpV09Hg2ny7v+UhSL2/lNn1l449m86vclSzAoGJlVdV1zFQ +e3Gw7IqzB8CdWLRb9SgD9TaUELrlRlCl1t9/LpmB4cYGzx+r7YMp0Qp3uQYG +ykSI7nw3vBPU286sOzHPwL5md33msx0Av9dqm2swUf7I75oHlG2wruXT+oTj +TCQTzuzxWkeCYKLHaoV0JtbyMbvt5DdBYZqksV4TE5tqytoaXq4H25j4Mqog +C4edVM9JGarBb4vFEgZaLExeKVDs36IER6dcLapcWNh+ozfp1TwbvoU8bhrK +YmFaTu6+CQoDFK34Uh59ZKFpXtiOiNcUsF60ZW+9EBupEs89/afkwD3Y5Y/a +FjZGUI/d6tNdCSdbEkL63Hh+bi+Mu2IhAQ5yaQZ7stkYSJ8b0NmwAjbmZtka +tvDmxTxzgwWXwdCitEPZwhwMqpI8NesvCKFaEYa6WznYck31fdpDfvhT7B0d +4sXBbbk0buivOfIITY/PK4+D3PrYZI3av+Tjw0sPlXRwMMPgiqST1zg57PWi +QFeSwMnF/xTSW0dIJT/LdeG6BIY+ljINHx4iN9eOzB3zJXCmWurhmonvpNqP +c+UJBQT++LJ4a+vrHlLfMVS3q5vAw96yveVkJ9m9bKR0ppWCXuHSDU61adBg +EzKttIKKXR8dX+RIJYF6y1x6iQ4Vr9Qkh6bujAdrkcABZV8q1nDJ8i+90cB/ +YiDlXwEVcUPQRYfQCGCMbMhjdVHRw3HRnpsqoRA7dXFjwkoa6voftJ86FggR +j4pfC++iITuvcAffF384rtey86MfDZcodeUafvCBWMu5Hdz7NIw2l47odfcA +zcQl2Tt6eTwMroC4ATfIilqTnyhHxyXbSh/LZjlDSJ6MzNb9dPS7/izL+7oD +9P2Z7NkeRMf3/4nSLVKPQkJZm/Klx3QciRalMGTsoOJudovKTzq+av2jWxtm +DXnmXirlNAZyxzOGvsSYgaSyat91MwbufqDlOhhvDFNE/XxXBAMN9rgu41rt +B84t5yvHKxn4NNZzVFHBAHrbfqhM/mGgV7BveESJLoT0WJZ8YvL8nB3V93yB +Dri7vCubsuTpBelt+ZcAWimKNI/LTAzIzwh8Y6YFiy9Ha7S/ZOI+LDzf8PI/ +KKR/yc38y8RP6RoJbSvV4WPnYr9SJRa6/pXMJFEFtlO1G2QOs7BFM359mTQB +W6V30oISWEgOWyhtEmQClWtwbHMNC/VSU9cdT6HCXkVjltYsC2lFBmVrtFfD +RCbox6qycVuGCQY4ycBg/Lo+JXs2qjTV2sRrS4ITORv2IYmNuQ9+y34dXgGN +T8tlXr9ho/O0q+qtA8LgX3GBuZCPg72Jrw8XBy2G2/2KCYkaHLQcKhGduboQ +kus68qWcOCj4cjB0iyYfCLR4E78yOTh84cDNR8PT5E/hSUFKEy+vh1NOpgZN +kJQqn0OJiwlMHG7/HHLnD/lNpfnpSi2eP51dDVR0f5OBrsTS7ycJTLMwVShX +HCDd1QKaZq8R+PV1SaXkk15ylnv+xIdPBFqunsitXt1FJoxEUUdGCHSwEp1w +duKSocohhRs/UtD6Z7xUjVs6/Hrr79m+hIpJinrqS1OSIP3lp2buZipmTn40 +aKyMh/B8bQmv01T0dRKXrDKOgbtWS/Sf3KLibuu7K7LkI0Haer2MdRsVvRJ+ +rJEsCQX+h4Nrt4jRMCRDvCv5XSCUM2Zuf9KhYUBmmFt66HnoWjf9XcqThqPF +R9o2uPlCREKI05U8Xp7HNGtrDHmA9y6XsNPfaLjpwLHtpyzcIXvM3r9Hko7h +i0Z6xUxcQPBotQv/Ljp+PXdg/aiyI9xnBk77+9FxZRirl0/WHr6SdbVaRXR0 ++PSli+NrB/vvuKmb9tKxZEg/TmuTDcwtYXvyyzPw87XzdmUUc+hV2f7A2pCB +rh1Z9y0WmoB4bkWkVDADt3MVC39W7ofKM9W5Ik8YWDc4sd6nzABIa4bK058M +nLx0ld6+QQ84He4ekgpMlDbRBnNPHYgr3TN/x4SJK3S2bpekImzvC2FkhTGR +/SDaDme0QH1xA51TwcSeoH7VIzs1wWLorLzNKBNT3L16o/3V4RUzvHCYycLg +LdfCb0yrwMNHlLAqKxYadmcY/cwlwN1W7M2eyyx87NCelevHhPTrI/XnK1lY +cZrBlFhEA13SVnxknIV2KRv5WzpXw0Ylzmglh421fz/9SFsgC3fc/KXf2bKx +Os4jw6FQEn6+VcpNjGVjHquiv2K/GCS/fjMu8JKNGyql9BoERODVqvGwor9s +LPieJee9VAi0KvweVShxsP2psO2UrAD8NJV4anOEgyoDOwbZKXzwqUis4nYy +Bz8W1vL/vDhDCh52tjSp4+BYT9qiWNFJ8rGD6SZyAYGrkrO+zUuNkhvDrwR3 +aBDYI7M+/u7Eb5KhUx3NOUZgq/HWKIX6ATLO9EJ7YRqB64XV9mtr9pGf02f/ +1TUSOOrlWucb20W65C95+GOAwLkPS9J0P3DJJ/+tiJ6aIjBr7b7bNAEuaU6+ +VWx+R8H6S+1DozXpMBd+9uEjQSo+Qw/JprYkaNLa6uGxiYo9ynN9Pv/iIfNc +8k25U1RcqGHVJhQSA3wfZa4m51AxuOJexJRDJMTEFjVONPN4yCuZCZwNhSex +8tliory8trkvaSAYBKbWq1c9Qd5+7TDU/PnbechiRj4udqdhIaP5V9xzXwhV +ez3reouGDL2TOraKnpCaTfFZ2kbDzOotmh2x7pB7a8nxSDE6bvc/PJZzzwX0 +KuVWdevSkaKjuq/5jCNIg94ieR86fjxhd9TLwh4C+HQSxe7Rkew3p/7LswMZ +wvzg90461gWGlkbH28CtrrmUHBkGfslRXjXmaA6N9xpTNu1l4C/3VY/+aZsA +pafkfUEAA/n/UKSsx/aDsJXbPW4xA+FXxM7hpbvhRPpz5awfvPm/azdJ+eiB +71f/jw/kmPimKMi/4L4O0A4KU4MNmbicG1c5uhfhr/6DnP+CmcjgrpL33KsN +tVWDaQ1PmGgyrXa9LUoTVIz2mG0eZqLG279tVUXqUKlXuyuKxsK4N1t/B1qo +ws/zEj3J5iz07dT31RomIDJwfLVGJM//w0NJnx8zoTVoewD1KQvFVr8lOrRp +8KLmSHj9HxaG+T/7maS5Br64p9eaM9kYL84SCtsrCxGHcgquWbHx9PIb+m8H +JeGuzI7/vC+z8aKgvuTZC2Lg/9aw53olG031HcJdbURgoFZlU8QEG8XkVvj/ +3SsEQQTzlRHBwfizq7eImwuAtFz+ywWHOBjy4GCkfx0fkBTb8LArHNQymimv +b54h46M4wb9qONhF7y/YbTpJBmtXMcXnOGiiEyaVvXuU7Hk4drxqHYEXq47/ +UuUMkxNK8U21hwnc41p6vHL1IHm9f0F3RDKBkY9Ms808+siqaS09/ToCPcmP +lo71XaTVMv1/9v0E9ukl8+cLdZI34/e2nBkn0CXAI2dSk0vWN7/f4TdLYI79 +w+WtNzrI57pnHFlvKfi61tDwxGg6hPb6fKAuomKMQud+v39J8HN8ourZBip+ +nBqRkJJPgNu9r0acXaioenGS3Z0RA2tjst4szqYiNSd44kx0JOy+O0Js/0zF +yxP8aRcVwiCR7xH3rDDPvxp37W2oQUDzVjFSAhpWrjKi31oUAPNXjSmL3Who +mSf/UG7AFwT4Bne059KwWFnw9qNdnnDn/d8R0y80TLiYFG1W4A43A63avi3n +9c8TmQeb213A4dcrV+MddFRN2MqfkOwIr+tuRzh50VFN9NueWR97MOqcm/XL +p+O6mwuOyVfbgZ9D3bgal46bD+6opD23gX+NA4qT0gwsfSKU3H3ZHLYNS4jc +2s1AR8G8okhzE2AFPTwz48/AxksFX/eKGoL63hqNXY8Y6LP61pIFGrshcHNM +vth3Bq4VvPRhPEUPaG0CwQtXMVG4kbU/460ODNwfvD+8j4mD9e+MJI8hmEzv +PBYQyETxhAQ+N29tkKDNmFFKmfhPa86gp0ATkgWKx/J+MZEO3f8kG9Sh3Pz7 +ylYKC2v+1NocvKgKQr1RcQvNWPhbaO2EqtRaSE7or8m5yMI+qmKBcjMTvMeG +LNzLWJhR9TE8yIwGAVHHdLRGWOi2NuCLod0aWJt44EE2nY2ct1yaqYcsTDc/ +9l1qyUb+AwvPvFgiBcJb3s9+j2KjRYNJoHCqGJwyutI2UsHrq0Mm08wIEZi9 +Wic2McZGnxMeGOQmBJyDPo3pbA7G9Vz+e8xLAO7886k1tuXgcc/1c109fPDn +QLDzRDwHN8gkXlw+P0O2UgVTtF9x0HEllM54T5IDjGk5v1kOaqoUVaxzGCW1 +DLIt/lMlsFTseXsdOUx+o06PytgR2OJW3jOkO0jeWfeidzKRQOlUkSHOlT7y +CdF6IvQ1gZVjnGusgS7SSKufmt1LICwWuHGV3klmvhiaLRolsEncIihzP5es +EnRzejJNoELLRtnvnzrIz7fUqeQcgc/boktXuXeQE290hfY2UvDkXJITLMmA +NxJ/u8wEqGg+ZrDmiGgy+H4wHOzRpOL0tQrKGcUEKJD9Jp3kzOuzihfQ9k4M +oMvRQ3CDilEOGeY11yPhzqbYZqdPVLzf8ewLRS0MBDYumC9cRsOF49mjYypB +ICS4wcWepOHJ7dKyTSsCQKV9g4nqKRqa5pSKeM35wvb+swMSPB4Mrhr+drP0 +BHWHYwVnW2io+WGHWHa5O9xyDb4ixONh0sNPbum4C3iHpKdGbqdjWdw9esgd +R6CJWzXEetLxueeTPYYR9lD+3rqw6C4dRUILjpe+twMVoUXPD3TQ0fntzmjB +FhvgVHPHFHg8rPGc0jl1zRz8Yop1Owx4fhcQe915zATuNKm/ovJ40PYTp5jJ +GcIrvT/j/g8ZeHZbTusavd1wKcrLeVc/b79Pv3bI644eeLbWWCnKMjFh8ExV +zjcd2GtlNc3i8bB+GaO30A1hgfGVVzkXmKgkffNq6CVt2Piev3jnYyY+z7/3 +beaZJq9fOVV1DzHxtBLd1aBVHbTsvOf4eDxkmMGYwzVVSEx6/WPjARZyJ++5 +VLDXQmYGV74jnIVfXt6WdexjQu3dF69Sn/D+AzHJE/b2NOD+6qe4DfPmrVrc +qz3XQNPNB7fe0Hj7zYFS36ZwWSiKf8ElLXh5z66TrZeRgs37kg5ReTzsfLuP +cThXDAYkNpjJ8njwvJb0MDVLBEKWrZpT5PFwdGZjcGugEEz73Gh6zuIg4xec +oIcJwJjLoTd+Nhy8I3Eh5cYIH+x2X8lV5vFgOn8rv1p8ljz38wz9cDUHn9iL +FvZHTJLpKVIr789wUHJI8u0iz1HymLSfkYsKgW3F3feYu4ZJo/R8ga2HCGzM +2r4i3WqQVDGlHVfh8WBs1nCGltNH/vec8M+pJbDo/o4e6b9dZMN7zfVVPQT6 +jWQPctQ6SVnLLcub/hCoXSDDumDDJcnMSr8vfwnUeaRQK/y7gzTEQA2bfwQm +R01cGY7oIC3FukUV5gn8/kL0hLlFBzllfXbL3LP/3S//D4llVqI= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGMgSDNQr9cqz/1CURZzJra97ujUv21xFlCYi +plTO7Y5f1U+19yxjP+Q9H+n5U3yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziOv3MB9K7M1g== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmGk8le/XxSVJhTJGlDOfc2cK/VTUvXcplCZTZqVSKEQZk2QOZcxMKjSI +pCKRlEQZKg1EcsxFiowhnvO8+r+6PuvFfre+69prUw+7Gtnz8/Hx7V/Ax/f/ +LzX05EI+Pgou/Zly5EdkJlyB7s+g/j9dwXJ5UOrwPz19sfFoUtr/9Np9sjc9 +GiiontLZQlfIgOXbvP9cWkjFH49LKk0VkmHx/bviSzWpaEg51f5NKwEe7hnX +rjxJRdmDRwq6imPAdDdnwvM6FUMLfm9iF0fCkpp1IbEfqXg18rtr9bYwcHfd +s7pvKQ0Nta7REzcHwa94iMjcQsMXTSJNC+UDwHaVfLiZKw3pzwRedYqfhaBG +4ehdOTS8mzu5e5OTJ5TNNTlda6ahsYXNhZk37nDLOn+fuigdz06v27ZX2BXC +5d2rq3ToaHdf5HNguSP4mQuvKPWg42xUS3FRqj0wXzw58j2Pjk8lF1of/GYH +nTfJqLPf6Bits3hq5pcNGJV9fqovxcBpPf2RpQ/NoXidRYC0AQNPXb45tdXD +BJRp91fqn2Og5ctJM0eOIVhsXf34wQMGOksHCRhY7Ybkr7bKQX0M/ORl5S1Q +pgd1XyI0jGWYqDwQn1k6pAMPBOq22exloroEX6HpOYSCPC6rLoCJOmZyznev +a4NtwFLJ0yVMFGVTjSjvNYG/ZE2c3BATV+9AIrJfHUodhXrZCiy8U/z4a3Cp +KjB3CW51MWWhv0XFKkuttZCd+8VNJpyFxjeuMO6NM2GlfZJGVSkL+58ue2t4 +mgZg6Dh38zcLS9jFavpRa8C3dEXmMJWNEp+XV9imy4LTvnrd0+ZsXKWhfJ7L +lgJnO5uXFpFs1KBNO1UWicGRTy1N+JSN8+1jAZQSERD1chiwG2UjV8hAikwQ +gvqEhs99TA6qr9WbGEwUAODq1udYc3D83LJPznN8kHvpjpF9HAfz7sUUXWTN +kpSS7vzwlxxUEPls2pk+Se4TVRPvm+bg8nsHynqCRsnYTmODm8oEnn9qfSrM +dJiskbaTcjxIoNKTtB8WpwbJIp/A70evEGhf4rKT/aiPLDT3iXlZQ+Cxu6Wj +4kLdZIdP/Oz8PIEyrSJpt7GDTK+trb/wnYKeN7izBy6kQqRPHH+9PBXNrtvI +Ga9MBNv5/Wx7Qypqy58qDTkSBwINoilpYVSs2GxW3Oh6Ge5dvLsluIyKBp8+ +MrOOXARSDt6X/aZihMXO2j3sECi88Mp4G4OGlF1HzFNSLwCrWXnJ2QM0NOH6 +Lu8KPwenziQsM4ygITlq4Ox13Ruu9v2e9aigYSNFjrMh9AwUKWP7jz805Gyy +qc6QdIPk8uilMxw6bhRtC43dfhICtZ45VVjTsWByA9c/4Tjsv9Rd+i6GjocT +dxztyDkCCx/NTqpV09Hg2ny7v+UhSL2/lNn1l449m86vclSzAoGJlVdV1zFQ +e3Gw7IqzB8CdWLRb9SgD9TaUELrlRlCl1t9/LpmB4cYGzx+r7YMp0Qp3uQYG +ykSI7nw3vBPU286sOzHPwL5md33msx0Av9dqm2swUf7I75oHlG2wruXT+oTj +TCQTzuzxWkeCYKLHaoV0JtbyMbvt5DdBYZqksV4TE5tqytoaXq4H25j4Mqog +C4edVM9JGarBb4vFEgZaLExeKVDs36IER6dcLapcWNh+ozfp1TwbvoU8bhrK +YmFaTu6+CQoDFK34Uh59ZKFpXtiOiNcUsF60ZW+9EBupEs89/afkwD3Y5Y/a +FjZGUI/d6tNdCSdbEkL63Hh+bi+Mu2IhAQ5yaQZ7stkYSJ8b0NmwAjbmZtka +tvDmxTxzgwWXwdCitEPZwhwMqpI8NesvCKFaEYa6WznYck31fdpDfvhT7B0d +4sXBbbk0buivOfIITY/PK4+D3PrYZI3av+Tjw0sPlXRwMMPgiqST1zg57PWi +QFeSwMnF/xTSW0dIJT/LdeG6BIY+ljINHx4iN9eOzB3zJXCmWurhmonvpNqP +c+UJBQT++LJ4a+vrHlLfMVS3q5vAw96yveVkJ9m9bKR0ppWCXuHSDU61adBg +EzKttIKKXR8dX+RIJYF6y1x6iQ4Vr9Qkh6bujAdrkcABZV8q1nDJ8i+90cB/ +YiDlXwEVcUPQRYfQCGCMbMhjdVHRw3HRnpsqoRA7dXFjwkoa6voftJ86FggR +j4pfC++iITuvcAffF384rtey86MfDZcodeUafvCBWMu5Hdz7NIw2l47odfcA +zcQl2Tt6eTwMroC4ATfIilqTnyhHxyXbSh/LZjlDSJ6MzNb9dPS7/izL+7oD +9P2Z7NkeRMf3/4nSLVKPQkJZm/Klx3QciRalMGTsoOJudovKTzq+av2jWxtm +DXnmXirlNAZyxzOGvsSYgaSyat91MwbufqDlOhhvDFNE/XxXBAMN9rgu41rt +B84t5yvHKxn4NNZzVFHBAHrbfqhM/mGgV7BveESJLoT0WJZ8YvL8nB3V93yB +Dri7vCubsuTpBelt+ZcAWimKNI/LTAzIzwh8Y6YFiy9Ha7S/ZOI+LDzf8PI/ +KKR/yc38y8RP6RoJbSvV4WPnYr9SJRa6/pXMJFEFtlO1G2QOs7BFM359mTQB +W6V30oISWEgOWyhtEmQClWtwbHMNC/VSU9cdT6HCXkVjltYsC2lFBmVrtFfD +RCbox6qycVuGCQY4ycBg/Lo+JXs2qjTV2sRrS4ITORv2IYmNuQ9+y34dXgGN +T8tlXr9ho/O0q+qtA8LgX3GBuZCPg72Jrw8XBy2G2/2KCYkaHLQcKhGduboQ +kus68qWcOCj4cjB0iyYfCLR4E78yOTh84cDNR8PT5E/hSUFKEy+vh1NOpgZN +kJQqn0OJiwlMHG7/HHLnD/lNpfnpSi2eP51dDVR0f5OBrsTS7ycJTLMwVShX +HCDd1QKaZq8R+PV1SaXkk15ylnv+xIdPBFqunsitXt1FJoxEUUdGCHSwEp1w +duKSocohhRs/UtD6Z7xUjVs6/Hrr79m+hIpJinrqS1OSIP3lp2buZipmTn40 +aKyMh/B8bQmv01T0dRKXrDKOgbtWS/Sf3KLibuu7K7LkI0Haer2MdRsVvRJ+ +rJEsCQX+h4Nrt4jRMCRDvCv5XSCUM2Zuf9KhYUBmmFt66HnoWjf9XcqThqPF +R9o2uPlCREKI05U8Xp7HNGtrDHmA9y6XsNPfaLjpwLHtpyzcIXvM3r9Hko7h +i0Z6xUxcQPBotQv/Ljp+PXdg/aiyI9xnBk77+9FxZRirl0/WHr6SdbVaRXR0 ++PSli+NrB/vvuKmb9tKxZEg/TmuTDcwtYXvyyzPw87XzdmUUc+hV2f7A2pCB +rh1Z9y0WmoB4bkWkVDADt3MVC39W7ofKM9W5Ik8YWDc4sd6nzABIa4bK058M +nLx0ld6+QQ84He4ekgpMlDbRBnNPHYgr3TN/x4SJK3S2bpekImzvC2FkhTGR +/SDaDme0QH1xA51TwcSeoH7VIzs1wWLorLzNKBNT3L16o/3V4RUzvHCYycLg +LdfCb0yrwMNHlLAqKxYadmcY/cwlwN1W7M2eyyx87NCelevHhPTrI/XnK1lY +cZrBlFhEA13SVnxknIV2KRv5WzpXw0Ylzmglh421fz/9SFsgC3fc/KXf2bKx +Os4jw6FQEn6+VcpNjGVjHquiv2K/GCS/fjMu8JKNGyql9BoERODVqvGwor9s +LPieJee9VAi0KvweVShxsP2psO2UrAD8NJV4anOEgyoDOwbZKXzwqUis4nYy +Bz8W1vL/vDhDCh52tjSp4+BYT9qiWNFJ8rGD6SZyAYGrkrO+zUuNkhvDrwR3 +aBDYI7M+/u7Eb5KhUx3NOUZgq/HWKIX6ATLO9EJ7YRqB64XV9mtr9pGf02f/ +1TUSOOrlWucb20W65C95+GOAwLkPS9J0P3DJJ/+tiJ6aIjBr7b7bNAEuaU6+ +VWx+R8H6S+1DozXpMBd+9uEjQSo+Qw/JprYkaNLa6uGxiYo9ynN9Pv/iIfNc +8k25U1RcqGHVJhQSA3wfZa4m51AxuOJexJRDJMTEFjVONPN4yCuZCZwNhSex +8tliory8trkvaSAYBKbWq1c9Qd5+7TDU/PnbechiRj4udqdhIaP5V9xzXwhV +ez3reouGDL2TOraKnpCaTfFZ2kbDzOotmh2x7pB7a8nxSDE6bvc/PJZzzwX0 +KuVWdevSkaKjuq/5jCNIg94ieR86fjxhd9TLwh4C+HQSxe7Rkew3p/7LswMZ +wvzg90461gWGlkbH28CtrrmUHBkGfslRXjXmaA6N9xpTNu1l4C/3VY/+aZsA +pafkfUEAA/n/UKSsx/aDsJXbPW4xA+FXxM7hpbvhRPpz5awfvPm/azdJ+eiB +71f/jw/kmPimKMi/4L4O0A4KU4MNmbicG1c5uhfhr/6DnP+CmcjgrpL33KsN +tVWDaQ1PmGgyrXa9LUoTVIz2mG0eZqLG279tVUXqUKlXuyuKxsK4N1t/B1qo +ws/zEj3J5iz07dT31RomIDJwfLVGJM//w0NJnx8zoTVoewD1KQvFVr8lOrRp +8KLmSHj9HxaG+T/7maS5Br64p9eaM9kYL84SCtsrCxGHcgquWbHx9PIb+m8H +JeGuzI7/vC+z8aKgvuTZC2Lg/9aw53olG031HcJdbURgoFZlU8QEG8XkVvj/ +3SsEQQTzlRHBwfizq7eImwuAtFz+ywWHOBjy4GCkfx0fkBTb8LArHNQymimv +b54h46M4wb9qONhF7y/YbTpJBmtXMcXnOGiiEyaVvXuU7Hk4drxqHYEXq47/ +UuUMkxNK8U21hwnc41p6vHL1IHm9f0F3RDKBkY9Ms808+siqaS09/ToCPcmP +lo71XaTVMv1/9v0E9ukl8+cLdZI34/e2nBkn0CXAI2dSk0vWN7/f4TdLYI79 +w+WtNzrI57pnHFlvKfi61tDwxGg6hPb6fKAuomKMQud+v39J8HN8ourZBip+ +nBqRkJJPgNu9r0acXaioenGS3Z0RA2tjst4szqYiNSd44kx0JOy+O0Js/0zF +yxP8aRcVwiCR7xH3rDDPvxp37W2oQUDzVjFSAhpWrjKi31oUAPNXjSmL3Who +mSf/UG7AFwT4Bne059KwWFnw9qNdnnDn/d8R0y80TLiYFG1W4A43A63avi3n +9c8TmQeb213A4dcrV+MddFRN2MqfkOwIr+tuRzh50VFN9NueWR97MOqcm/XL +p+O6mwuOyVfbgZ9D3bgal46bD+6opD23gX+NA4qT0gwsfSKU3H3ZHLYNS4jc +2s1AR8G8okhzE2AFPTwz48/AxksFX/eKGoL63hqNXY8Y6LP61pIFGrshcHNM +vth3Bq4VvPRhPEUPaG0CwQtXMVG4kbU/460ODNwfvD+8j4mD9e+MJI8hmEzv +PBYQyETxhAQ+N29tkKDNmFFKmfhPa86gp0ATkgWKx/J+MZEO3f8kG9Sh3Pz7 +ylYKC2v+1NocvKgKQr1RcQvNWPhbaO2EqtRaSE7or8m5yMI+qmKBcjMTvMeG +LNzLWJhR9TE8yIwGAVHHdLRGWOi2NuCLod0aWJt44EE2nY2ct1yaqYcsTDc/ +9l1qyUb+AwvPvFgiBcJb3s9+j2KjRYNJoHCqGJwyutI2UsHrq0Mm08wIEZi9 +Wic2McZGnxMeGOQmBJyDPo3pbA7G9Vz+e8xLAO7886k1tuXgcc/1c109fPDn +QLDzRDwHN8gkXlw+P0O2UgVTtF9x0HEllM54T5IDjGk5v1kOaqoUVaxzGCW1 +DLIt/lMlsFTseXsdOUx+o06PytgR2OJW3jOkO0jeWfeidzKRQOlUkSHOlT7y +CdF6IvQ1gZVjnGusgS7SSKufmt1LICwWuHGV3klmvhiaLRolsEncIihzP5es +EnRzejJNoELLRtnvnzrIz7fUqeQcgc/boktXuXeQE290hfY2UvDkXJITLMmA +NxJ/u8wEqGg+ZrDmiGgy+H4wHOzRpOL0tQrKGcUEKJD9Jp3kzOuzihfQ9k4M +oMvRQ3CDilEOGeY11yPhzqbYZqdPVLzf8ewLRS0MBDYumC9cRsOF49mjYypB +ICS4wcWepOHJ7dKyTSsCQKV9g4nqKRqa5pSKeM35wvb+swMSPB4Mrhr+drP0 +BHWHYwVnW2io+WGHWHa5O9xyDb4ixONh0sNPbum4C3iHpKdGbqdjWdw9esgd +R6CJWzXEetLxueeTPYYR9lD+3rqw6C4dRUILjpe+twMVoUXPD3TQ0fntzmjB +FhvgVHPHFHg8rPGc0jl1zRz8Yop1Owx4fhcQe915zATuNKm/ovJ40PYTp5jJ +GcIrvT/j/g8ZeHZbTusavd1wKcrLeVc/b79Pv3bI644eeLbWWCnKMjFh8ExV +zjcd2GtlNc3i8bB+GaO30A1hgfGVVzkXmKgkffNq6CVt2Piev3jnYyY+z7/3 +beaZJq9fOVV1DzHxtBLd1aBVHbTsvOf4eDxkmMGYwzVVSEx6/WPjARZyJ++5 +VLDXQmYGV74jnIVfXt6WdexjQu3dF69Sn/D+AzHJE/b2NOD+6qe4DfPmrVrc +qz3XQNPNB7fe0Hj7zYFS36ZwWSiKf8ElLXh5z66TrZeRgs37kg5ReTzsfLuP +cThXDAYkNpjJ8njwvJb0MDVLBEKWrZpT5PFwdGZjcGugEEz73Gh6zuIg4xec +oIcJwJjLoTd+Nhy8I3Eh5cYIH+x2X8lV5vFgOn8rv1p8ljz38wz9cDUHn9iL +FvZHTJLpKVIr789wUHJI8u0iz1HymLSfkYsKgW3F3feYu4ZJo/R8ga2HCGzM +2r4i3WqQVDGlHVfh8WBs1nCGltNH/vec8M+pJbDo/o4e6b9dZMN7zfVVPQT6 +jWQPctQ6SVnLLcub/hCoXSDDumDDJcnMSr8vfwnUeaRQK/y7gzTEQA2bfwQm +R01cGY7oIC3FukUV5gn8/kL0hLlFBzllfXbL3LP/3S//D4llVqI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.02983059568803629}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk01V8XB3BJUkkZI8qdh0yhv4r67V0yFA2mzJVEKERmksyhjJlJhUQk +FUlJSZShkiKSS4YiRcaQnvu8Ouuzzjp77b2/bw75uKuhHS8PD4/+Eh6e/5+z +Vv47F5+ScOWPNNvv0dmw6aDUTc9mEqqk9XZQZbNg+rW2wIEWEp5eTHGCFVnw +TNvDkfGGhK8aDAxOTWSCGfFGrv0tCZsudY9O1GdCuEJY6bY2Elr9SBSvd8uE +r6vGK+c7SegdKdHs1JABmQ0NTRe+kdDrBmfh8IV0WLPb5/elpWT8/rCixkQ2 +FV6L/ukz5SOj2aTeRluhVAgf8H1PXkbGONneQwF/U2Ax0v/+A34yPkVPsdau +FPj5JtCrewUZU+R0VFampUCzddic/Foy9rU5Ps8TT4Fo3wTeJhkyml63ljZa +lwzL794WWalGRgPSme4v6kng995gpJ/ruWvVJA+5JPgxNV37dCsZ22bHRcVl +kqBVfZen53Yy9issDvr+TYTMFx/aOTvImD3TptdSkwgqHYuZFZpkvFKfGp6+ +NxGO/DvEtDMgo4bMmcow2wS4v39Ko+Y0GaWO2pb0lcdBidQXiRRnbj9yF/BI +YRzcGng57uxCRqWLM8yvWXGQfS71pvQZMi5VtewSCIuDyGINUe+zZPRzEhGr +NYoDq9XBwwp+ZKznEI8/DcQCX7NQWkYEGat3mJa3uF4GE33WtNd1MoaX/NrO +LI8GdDlxDG6QMcYhy6z+ejRsist5vTyXjOS80GmP2GjgaZO8mppHxtDqO1Gz +DtFw23KF7qMCMupb3V6bIxMNvKeG0/6WkBG3hlx0CI+COxdv7wytIqPehzZ6 +ju1FWFG/OSy+jYxXo7+51u2OgMLt8e1OH8h4t+fpJ5JyBOjfHmfv+UjGy9O8 +GRdlIyAuvqxlup07T1HFfPBCOEhYbZG06iKjd9L3jWIV4UAb31rE6COjp+Oy +/TcVw4GQhndVv8gYZb63YT8zDNxd928YXElBA/Vr1OQdIcC3bcm/0lUUXDqV +OzGpGALJPA84/oIUzFa9bWdNDoFH8TK5wkIUXGF9V0yPPwR4749s2ilMwbAs +kb7Ut8EQP3txW9I6CmoHHrWbtQ+G0gsvjXbTKEjaZ2uWln4BfiZCVPZOCj5v +Xd26VCYIBPi3utgRFDy9R0KqdW0QUHwUDeWBgjXrDakFy4LAxGrD+kdIwdsO +o+0fv5yHx7T5Wx80KRiUHeGWGX4eoh6UvxLcR0FmUakWz6dAYLQrrPA/TEFj +jt+avshzcGS9TKSpKwWpT/le9or4g2L3VmOlMxQ0yatc7b3oB/+uGpGWu1HQ +okjmvvSwH+TQox+Wu1OwlNb+M+GZH/Rtnvsm7kXBiXLbrq1ufnBSp2NvWwB3 +fvm+fIP3vnDGI2mVQRQFiQk9Z+/rPhDSIhi7L4/bb/6M/nYnL9gz5D8smk9B +vasGv9wsvICPZ0Srm+tyBf5bD/Z5QbjyqwXXAgrSdE5rHpHzgqikMKcrRdz+ +49o1VEc9Id5iUYtzl4KxZhJRA+6ecHXw14JnNQVbSNKsreEeULXY6nStnYJG +5tYX5l+7g4qDfYl/BwXV3msJ5z52h8J3f8ZNPlEw6WJKrGmJO6TnknxXdnHz +rNup1hPvDj77XCLOfqHg9sP2e86Yu4Na8opcrQFuXiNrIWHYDcoUsPv7bwqy +tlvXZYm5QYFV8UEVISr6z23efUDQFQpcQ68IrKHijGeA9MopF7gZbNn1hWv/ +U9lH27tdIL9gxcloYSruCTw+mXfHBXIn7QL7xagYuWx8QNjYBXJiNhYnS1Nx +xe7Kh1I5zpD6OHblPIuK24S6wuP3nIZIGfe6Wk0q2txd/TH4sSP4hGWmR++h +YlXCHWpYoSM4/HzpaqRFRaWkXbxJqY6gUyO9/qs2FUmaSgfbPRyB/0SdC+8+ +Kn4+d3jLhIIjhBVJSu46RMWA609zfK47QLD6U6dqKyqWzGzlBCadhAAzwbWV +nlRciOkoL0u3A4qIZXO8FxWfeT3abxBlB68ab0U5eVNRWejL/gVfO5AAnWUy +vlRsO2VzwtvcDu7Sg+cCA6i4LoIxwCNlB4O/Z/r3hFDx3X9CVPP0E3Do0tfK +t3FUPJ6sdaInzxbozx/Zfiui4hOxpVZHv9jA43dWpWW3qbg6vORk5TsbMOxd +XAgopuLmm0vsZepsIIhHM1n4DhWJITPy3yIb+Ew0NqiXUdHhw6c+lp8NJFV1 +KVx6SMXxWCESTdIGlj5YmFGuo6LetX/dgRbHoPcmEeP/hYqxmstn539ag6LA +smeHe6jo/GZvLH+HNQQ4NE4pc6i446hWDeWZNUiyzY5+66ViY3B4ZWyiNRwq +dFMxGaBixahugvp2a6i+nduh+IOKLzt/azdEWEH63ZX0vj9U7N9+fr2jsiUY +Vn18oitOwzkd3fGV982AVceZlJWg4UavWc0z18zgb8uw3AzXlY8EUr9eNoOC +vsW0PEkafspTWD/paAaLK5hevDI0/HjtvE0VyQyKzLwVH1NoyJnKGv0UZwp8 +0+uuKm2mocbyUKm1/oehfLN5kIQeDc9cvjm7y9MYAuLKtXu49uUTftVrbwy7 +x0RXF+jT0JG/qCzazBha7rSkbT9Aw5/u6x/81TCGAcU996wMaOjak3PXfKkx +iCkoDV43paH+PXXXkUQjcGcv01c6QUOdrRVs7ceGoEC5u073HA0tXsyYOrIM +oLBV5SU5kNtPgAjJVNoAGCH3Pea5brlU8vmAkAGQ+ivelQTRkPc3Sdxq8hCI +5FdHi4fScA9HrvRHzSGYZTf964uiod5+11Ucy0NQqzw0dC6VhpFGes8eKh8E +810bHt67R0NniRA+PUt9eKnzeyrwPg39d+d1btTRB5UD9ar7HnDn3VCwYomq +Pghaut3hlNMQfkbtHVupDzUedfmrH9GwcWR6i2+VHrAKnK+crKHhk3ivCTlZ +PZgVqnaXbqahZJTQ3rdjeyH18xGFkEEafvC29OGr0oFLMd7O+4Zo6J157Zh3 +oQ4E74grFv5Gw038l95PpenAqcxnCjnfufn92bRd3FcHCCua4pMfNJy5dJXa +vVUHBrq+K8785r4P9YuMqtAGlS6Pzaf+0XCw3V2X/lQLGj9FqRpJ0lFhODG7 +clQTvDrrLeWk6Jg04lGb90UTKF18oUvX01GwhXEo640m+H0ObLsnTcfXZSGB +JXc1gdXj7ikmS0cJYw0w89KEsH6Lig90Osrkxgw+W6IJ8GuThpkq17a/6u+R +dsM9vsbd1gfoqCLKU2pyDuGApeUc4yAdt6yiDZS6IQzfHbk7xvVI01tDMXsE +ylFBcqgBHddwEmomDiAkVO7/V2hMx7Wau/aIkRHcXd5WzVpw6y/J7Cq+BLC5 +48OWpJN0JJI89ntvJqCkiMNoDKKjpqm08+3rGrDE6MrLvAt0lJe4eTX8kgYY +z+21Dwqmo0hSEo+bjwb80b2X918oHWmc9TJeBzRgz2AYLSeCjsx7sTY4rw6d +JDmK52U6BhVnBb82VQf+ZM8Nspl0bOChf7WR2Q5HglaKna2goxCTbEh6pwbb +3vGW731Ix2fFd77MP1UDUcq8KamSjn/VF/X6S9SgoXYko/kRHY3nlK93xaiB +yvJmKquajv0hQ0q2e9Vg+eVY1e4XdDyIpeebX/wHpRliRjqtdGytr+pqfrEF +eCs2JkiP0nGDFrKjh1S4/0en2q9cn5Wnuup1qkAqX/lk0U86UuHrX7FmFVA0 +3G+6Y4yOqm/+dNWWqYD5qL+M9QQd09y9B2IDVaCU+ik/+w8dP2SqJnWtU4Ej +cYlVZH4GjjkpnRM3UIZKR4EBpiwDC8sffg6tVAJ1G59FHhIDs0xh0uGaEjw2 ++7auk+v63w3WRy8qQY1Ow74YCgMTXu/6FWyuBC/pkaVjdAaG7rwWeWNOEdp6 +lwdUyjPQ9Y9YNoGK8Mt8uaieOgNT1/GVB3bIA30f/y4XEwYGmlevt1DfBMkp +r75vO8xAzswdl2rmJhAYiElYasrAXwKbppXEN8GP86L9qWYM9OvV9VMfY8P9 +B6SIWksGGnzNMvyRz4Y9ZI1myeMM7FBL3FIlwYYTs67mtS4M7L4xkPLyHxNy +8z+5SUYy0OjGFdqdKTpkZ3Fkerj+9OKWlOMgHVKThurzLjJwkCxXotBOh+jg +qQ2q0dz6Y6MpHx/Swf2I8Ov9lxn40KE7Jz+ADrsk9lJCkhhIjJnLb+enw5ew +h62jOQzMyMs/OE2iwTq7FNXaSgYOPVn1xuAsBRpuP3+Z/oiBwsJip+zsKOAz +OWruXsXdb21bZIgpBTpD9gSRn3DvN7xh92hQIPP6eNP5GgZWn6XRRZdRgMzR +s99Rz0Cd9PTNJ9PIIGfJk/agjYEmRRFaUa9IAAaOizd/MbCCWa6sG7MROD+H +SG5j3PqWHe51XhshKMZeU32cgW6bgj4Z2GyE5/W2kU2/GRgR+PRHitpG0CaO +iIxPMdAmbRtvR+8GOCBnxFBfYCClTK9qo8YGsFq280CTABPJos+8Amelwa9y +bfYYmYmiH9dUH8mUgtab9wpeU5hYdLjSrzVSCjYlH76XS2Ui6w2HYuIpBZ/c +MxvM6ExMFGEIRByQgm3yrIkaFhMb/nz4nrFECqazQTdeiYm7s4wxyEkS3ENd +fivvZGIU2b5gUHsdOB1s0j5rxsT1qgrnOUxxKEt8ziHMmWjCbJRqkhSHufaH +fistmMh7eKnH8xXiEHUsr+SaJRPPrrmh+2ZEDArdAiXeHmFiXYJnlkOpGIwk +bh6Ut2OiYmuDdaKGGJzuSAobdGOiandpwhVzUXC2sX5hHs01Zc6ppkwYdhxM +OUaOYeLeNwdpx/OFQXDnu4VvXJs3GwcLpgvDbUmt/3wuM/Eiv66Y/wVh+PFG +Pj85nrsPRvVQ9SFhcCIWIt6nMDH/3i+pz2NrwUE6Q29/LhODqYvDmlvXgu2H +jlZ8wsR/3ZNBpIrVMCy61VSqmole11Lup+eshjOGV7rGuRYdNZ6jR62GwDcG +/ddruPPrOkS6Wq+G1Fevp/heMHFrjbhOM99qaHnyWPLVayY6z7kqFRwWhG35 +OUcMOrj5CXvlh/KvAiFvh2GbCSZyBPTEiSQBCFu1flFukokn5reFdgYLwMLV +RuFprn1PeWKImwAMNyhuj5pmorD02sA/BwTg5fqpiLI/TCz5liPts1IAAqsv +0JfysHAg+dXx8pDlMLos41iuIAtDasXOLATyQ1NS88dBOgtVNulMjyTzwZzv +jdZnDBbSfsIpagQfsI76tmQyWZjQf/mPvTcfhLDpLw3ZLEz037BTxIwP1KsD +HlTLs7D7ieCRWSk+uDUkl5SsykKL0Qqh+atLIVw9ykB7Fws7rim9y7jPC8DR +bsqzYuHUuVUfnBd5YNLl2OsAaxYWil5IuzHOA4V/fRuMjrDwpNeWxb5+HpCQ +Ln6x5BgLw+4djQ5s5IEfJqJPrG1ZqDisNcJM44HUxp5icScW8r8YCd+pxgO/ +y31iw7xZuDufwgn/uUjkXyo0tEtgYdGduLKLjAVC330dRyGRhSb/CorrRBaI +34dDnae53iqZfHHNv3mCIB2JjLjCQnXD+cdN7fPEhzLh6lupLGwrbeD9cXGe +4OvwYf/MZuHYhcM3H4zNEbYUHR7vIhZymuJTVRv+EKSKr8WRL1gou/qjSW/m +DHHuhwf1eB0LH9kJlQ5FzRCdZP40jZcsdFwHlfM+M0RiDCv0Zz0L+6hDJfom +MwT/cWcL40YWTvZnLIsXmiF+CM7wk1q59cbSTqeHTBMPj688VtHDwiy9K2JO +3lPEQSFlkcE5Fq65c7iqP2SCyEwTX3d3noVio2JvlnlNEMO0OemABRaqKZZV +b3aYIEI1aukiiyw01owQz9WfIB46mGwnlrBxfWrOl3/iEwSp1vdY8nI2Jo91 +fwwr/E2MeT8v0RZj48zyv7KZneNEfK+R3k0FNp5/YnUmwmSMsJcIMHRRZGNX ++dc79H1jhLpervl/SmysFH7W3UiMEf33J0/WbmbjxdqTP5VYY8S2yCuhPaps +7Jfcknh7+hfxRbH9yTp1Nh53dtVT1P5FyAdYbI7UZmP4Q3GTyLFRol7CRtzx +KBvlH2V8Nz8zQhhmFvPtOsbGlpw9azMtR4gv5LkJSRs2drg97h/VHiGm5RNb +G46zcb9r5cmaDSMETbMulmXPxk6jXTGyTcNEsCt75bfTbMwwN5F9LDdM7GgY +X7T3Y+N8nfj9jdPfiDLf4G8nrrDRrsJlL/PBIKFoQjmpmMxGI9NmD0reIFG4 ++fnADNcS6atHWVcGietDS75GpbIx+oFJrqnnIJFgcqG7NIONWwSVD2moDRLu +ykGtC9fY+PlVRY3YowFC+fu5x0klbPz+afmuzlf9RKmZb9yLejba366cEBH4 +Svz3jB2Y18DGsrta/RJ/+ohH7M5T4a/YWDPJusYY7iNq59R1dBvZ6EW0WTg2 +9REfMxf+NrawccLbtdEvvo9Y4Jw/9f4DGy02TOfXbegjdB3Dtfu+cvfrIzXw +mOglmt+pbantZ2PAeO4IS7mXMFQfIucOsBGW8924Su0lLFfp/rUbYuOgTipv +sUAv4VK84v73YTYuvl+Rof2eQySNx5DHx9noYCk07ezEIaQsdq5p/c1GjRJJ +xgVrDpH9fHShbIKNrSLmIdmHOMTNxAMdHlNsdAnyzJtR4xCP/lsbOzvLxpxN +B29R+DgEkV0T8OkPGzUfyDYI/uohavndnB7NsVG2Y5vUtw89RFP7O62ABTbm +2d1f03mjhzDAYFXrv2xMjZm+MhbVQ3wsUCETi2x81hVbud69h7AQ/iok+4+N +354LnTIz7yF6fBMX/nEt2bk64xb2EP8D2Ec48Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.02983059568803629}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk01V8XB3BJUkkZI8qdh0yhv4r67V0yFA2mzJVEKERmksyhjJlJhUQk +FUlJSZShkiKSS4YiRcaQnvu8Ouuzzjp77b2/bw75uKuhHS8PD4/+Eh6e/5+z +Vv47F5+ScOWPNNvv0dmw6aDUTc9mEqqk9XZQZbNg+rW2wIEWEp5eTHGCFVnw +TNvDkfGGhK8aDAxOTWSCGfFGrv0tCZsudY9O1GdCuEJY6bY2Elr9SBSvd8uE +r6vGK+c7SegdKdHs1JABmQ0NTRe+kdDrBmfh8IV0WLPb5/elpWT8/rCixkQ2 +FV6L/ukz5SOj2aTeRluhVAgf8H1PXkbGONneQwF/U2Ax0v/+A34yPkVPsdau +FPj5JtCrewUZU+R0VFampUCzddic/Foy9rU5Ps8TT4Fo3wTeJhkyml63ljZa +lwzL794WWalGRgPSme4v6kng995gpJ/ruWvVJA+5JPgxNV37dCsZ22bHRcVl +kqBVfZen53Yy9issDvr+TYTMFx/aOTvImD3TptdSkwgqHYuZFZpkvFKfGp6+ +NxGO/DvEtDMgo4bMmcow2wS4v39Ko+Y0GaWO2pb0lcdBidQXiRRnbj9yF/BI +YRzcGng57uxCRqWLM8yvWXGQfS71pvQZMi5VtewSCIuDyGINUe+zZPRzEhGr +NYoDq9XBwwp+ZKznEI8/DcQCX7NQWkYEGat3mJa3uF4GE33WtNd1MoaX/NrO +LI8GdDlxDG6QMcYhy6z+ejRsist5vTyXjOS80GmP2GjgaZO8mppHxtDqO1Gz +DtFw23KF7qMCMupb3V6bIxMNvKeG0/6WkBG3hlx0CI+COxdv7wytIqPehzZ6 +ju1FWFG/OSy+jYxXo7+51u2OgMLt8e1OH8h4t+fpJ5JyBOjfHmfv+UjGy9O8 +GRdlIyAuvqxlup07T1HFfPBCOEhYbZG06iKjd9L3jWIV4UAb31rE6COjp+Oy +/TcVw4GQhndVv8gYZb63YT8zDNxd928YXElBA/Vr1OQdIcC3bcm/0lUUXDqV +OzGpGALJPA84/oIUzFa9bWdNDoFH8TK5wkIUXGF9V0yPPwR4749s2ilMwbAs +kb7Ut8EQP3txW9I6CmoHHrWbtQ+G0gsvjXbTKEjaZ2uWln4BfiZCVPZOCj5v +Xd26VCYIBPi3utgRFDy9R0KqdW0QUHwUDeWBgjXrDakFy4LAxGrD+kdIwdsO +o+0fv5yHx7T5Wx80KRiUHeGWGX4eoh6UvxLcR0FmUakWz6dAYLQrrPA/TEFj +jt+avshzcGS9TKSpKwWpT/le9or4g2L3VmOlMxQ0yatc7b3oB/+uGpGWu1HQ +okjmvvSwH+TQox+Wu1OwlNb+M+GZH/Rtnvsm7kXBiXLbrq1ufnBSp2NvWwB3 +fvm+fIP3vnDGI2mVQRQFiQk9Z+/rPhDSIhi7L4/bb/6M/nYnL9gz5D8smk9B +vasGv9wsvICPZ0Srm+tyBf5bD/Z5QbjyqwXXAgrSdE5rHpHzgqikMKcrRdz+ +49o1VEc9Id5iUYtzl4KxZhJRA+6ecHXw14JnNQVbSNKsreEeULXY6nStnYJG +5tYX5l+7g4qDfYl/BwXV3msJ5z52h8J3f8ZNPlEw6WJKrGmJO6TnknxXdnHz +rNup1hPvDj77XCLOfqHg9sP2e86Yu4Na8opcrQFuXiNrIWHYDcoUsPv7bwqy +tlvXZYm5QYFV8UEVISr6z23efUDQFQpcQ68IrKHijGeA9MopF7gZbNn1hWv/ +U9lH27tdIL9gxcloYSruCTw+mXfHBXIn7QL7xagYuWx8QNjYBXJiNhYnS1Nx +xe7Kh1I5zpD6OHblPIuK24S6wuP3nIZIGfe6Wk0q2txd/TH4sSP4hGWmR++h +YlXCHWpYoSM4/HzpaqRFRaWkXbxJqY6gUyO9/qs2FUmaSgfbPRyB/0SdC+8+ +Kn4+d3jLhIIjhBVJSu46RMWA609zfK47QLD6U6dqKyqWzGzlBCadhAAzwbWV +nlRciOkoL0u3A4qIZXO8FxWfeT3abxBlB68ab0U5eVNRWejL/gVfO5AAnWUy +vlRsO2VzwtvcDu7Sg+cCA6i4LoIxwCNlB4O/Z/r3hFDx3X9CVPP0E3Do0tfK +t3FUPJ6sdaInzxbozx/Zfiui4hOxpVZHv9jA43dWpWW3qbg6vORk5TsbMOxd +XAgopuLmm0vsZepsIIhHM1n4DhWJITPy3yIb+Ew0NqiXUdHhw6c+lp8NJFV1 +KVx6SMXxWCESTdIGlj5YmFGuo6LetX/dgRbHoPcmEeP/hYqxmstn539ag6LA +smeHe6jo/GZvLH+HNQQ4NE4pc6i446hWDeWZNUiyzY5+66ViY3B4ZWyiNRwq +dFMxGaBixahugvp2a6i+nduh+IOKLzt/azdEWEH63ZX0vj9U7N9+fr2jsiUY +Vn18oitOwzkd3fGV982AVceZlJWg4UavWc0z18zgb8uw3AzXlY8EUr9eNoOC +vsW0PEkafspTWD/paAaLK5hevDI0/HjtvE0VyQyKzLwVH1NoyJnKGv0UZwp8 +0+uuKm2mocbyUKm1/oehfLN5kIQeDc9cvjm7y9MYAuLKtXu49uUTftVrbwy7 +x0RXF+jT0JG/qCzazBha7rSkbT9Aw5/u6x/81TCGAcU996wMaOjak3PXfKkx +iCkoDV43paH+PXXXkUQjcGcv01c6QUOdrRVs7ceGoEC5u073HA0tXsyYOrIM +oLBV5SU5kNtPgAjJVNoAGCH3Pea5brlU8vmAkAGQ+ivelQTRkPc3Sdxq8hCI +5FdHi4fScA9HrvRHzSGYZTf964uiod5+11Ucy0NQqzw0dC6VhpFGes8eKh8E +810bHt67R0NniRA+PUt9eKnzeyrwPg39d+d1btTRB5UD9ar7HnDn3VCwYomq +Pghaut3hlNMQfkbtHVupDzUedfmrH9GwcWR6i2+VHrAKnK+crKHhk3ivCTlZ +PZgVqnaXbqahZJTQ3rdjeyH18xGFkEEafvC29OGr0oFLMd7O+4Zo6J157Zh3 +oQ4E74grFv5Gw038l95PpenAqcxnCjnfufn92bRd3FcHCCua4pMfNJy5dJXa +vVUHBrq+K8785r4P9YuMqtAGlS6Pzaf+0XCw3V2X/lQLGj9FqRpJ0lFhODG7 +clQTvDrrLeWk6Jg04lGb90UTKF18oUvX01GwhXEo640m+H0ObLsnTcfXZSGB +JXc1gdXj7ikmS0cJYw0w89KEsH6Lig90Osrkxgw+W6IJ8GuThpkq17a/6u+R +dsM9vsbd1gfoqCLKU2pyDuGApeUc4yAdt6yiDZS6IQzfHbk7xvVI01tDMXsE +ylFBcqgBHddwEmomDiAkVO7/V2hMx7Wau/aIkRHcXd5WzVpw6y/J7Cq+BLC5 +48OWpJN0JJI89ntvJqCkiMNoDKKjpqm08+3rGrDE6MrLvAt0lJe4eTX8kgYY +z+21Dwqmo0hSEo+bjwb80b2X918oHWmc9TJeBzRgz2AYLSeCjsx7sTY4rw6d +JDmK52U6BhVnBb82VQf+ZM8Nspl0bOChf7WR2Q5HglaKna2goxCTbEh6pwbb +3vGW731Ix2fFd77MP1UDUcq8KamSjn/VF/X6S9SgoXYko/kRHY3nlK93xaiB +yvJmKquajv0hQ0q2e9Vg+eVY1e4XdDyIpeebX/wHpRliRjqtdGytr+pqfrEF +eCs2JkiP0nGDFrKjh1S4/0en2q9cn5Wnuup1qkAqX/lk0U86UuHrX7FmFVA0 +3G+6Y4yOqm/+dNWWqYD5qL+M9QQd09y9B2IDVaCU+ik/+w8dP2SqJnWtU4Ej +cYlVZH4GjjkpnRM3UIZKR4EBpiwDC8sffg6tVAJ1G59FHhIDs0xh0uGaEjw2 ++7auk+v63w3WRy8qQY1Ow74YCgMTXu/6FWyuBC/pkaVjdAaG7rwWeWNOEdp6 +lwdUyjPQ9Y9YNoGK8Mt8uaieOgNT1/GVB3bIA30f/y4XEwYGmlevt1DfBMkp +r75vO8xAzswdl2rmJhAYiElYasrAXwKbppXEN8GP86L9qWYM9OvV9VMfY8P9 +B6SIWksGGnzNMvyRz4Y9ZI1myeMM7FBL3FIlwYYTs67mtS4M7L4xkPLyHxNy +8z+5SUYy0OjGFdqdKTpkZ3Fkerj+9OKWlOMgHVKThurzLjJwkCxXotBOh+jg +qQ2q0dz6Y6MpHx/Swf2I8Ov9lxn40KE7Jz+ADrsk9lJCkhhIjJnLb+enw5ew +h62jOQzMyMs/OE2iwTq7FNXaSgYOPVn1xuAsBRpuP3+Z/oiBwsJip+zsKOAz +OWruXsXdb21bZIgpBTpD9gSRn3DvN7xh92hQIPP6eNP5GgZWn6XRRZdRgMzR +s99Rz0Cd9PTNJ9PIIGfJk/agjYEmRRFaUa9IAAaOizd/MbCCWa6sG7MROD+H +SG5j3PqWHe51XhshKMZeU32cgW6bgj4Z2GyE5/W2kU2/GRgR+PRHitpG0CaO +iIxPMdAmbRtvR+8GOCBnxFBfYCClTK9qo8YGsFq280CTABPJos+8Amelwa9y +bfYYmYmiH9dUH8mUgtab9wpeU5hYdLjSrzVSCjYlH76XS2Ui6w2HYuIpBZ/c +MxvM6ExMFGEIRByQgm3yrIkaFhMb/nz4nrFECqazQTdeiYm7s4wxyEkS3ENd +fivvZGIU2b5gUHsdOB1s0j5rxsT1qgrnOUxxKEt8ziHMmWjCbJRqkhSHufaH +fistmMh7eKnH8xXiEHUsr+SaJRPPrrmh+2ZEDArdAiXeHmFiXYJnlkOpGIwk +bh6Ut2OiYmuDdaKGGJzuSAobdGOiandpwhVzUXC2sX5hHs01Zc6ppkwYdhxM +OUaOYeLeNwdpx/OFQXDnu4VvXJs3GwcLpgvDbUmt/3wuM/Eiv66Y/wVh+PFG +Pj85nrsPRvVQ9SFhcCIWIt6nMDH/3i+pz2NrwUE6Q29/LhODqYvDmlvXgu2H +jlZ8wsR/3ZNBpIrVMCy61VSqmole11Lup+eshjOGV7rGuRYdNZ6jR62GwDcG +/ddruPPrOkS6Wq+G1Fevp/heMHFrjbhOM99qaHnyWPLVayY6z7kqFRwWhG35 +OUcMOrj5CXvlh/KvAiFvh2GbCSZyBPTEiSQBCFu1flFukokn5reFdgYLwMLV +RuFprn1PeWKImwAMNyhuj5pmorD02sA/BwTg5fqpiLI/TCz5liPts1IAAqsv +0JfysHAg+dXx8pDlMLos41iuIAtDasXOLATyQ1NS88dBOgtVNulMjyTzwZzv +jdZnDBbSfsIpagQfsI76tmQyWZjQf/mPvTcfhLDpLw3ZLEz037BTxIwP1KsD +HlTLs7D7ieCRWSk+uDUkl5SsykKL0Qqh+atLIVw9ykB7Fws7rim9y7jPC8DR +bsqzYuHUuVUfnBd5YNLl2OsAaxYWil5IuzHOA4V/fRuMjrDwpNeWxb5+HpCQ +Ln6x5BgLw+4djQ5s5IEfJqJPrG1ZqDisNcJM44HUxp5icScW8r8YCd+pxgO/ +y31iw7xZuDufwgn/uUjkXyo0tEtgYdGduLKLjAVC330dRyGRhSb/CorrRBaI +34dDnae53iqZfHHNv3mCIB2JjLjCQnXD+cdN7fPEhzLh6lupLGwrbeD9cXGe +4OvwYf/MZuHYhcM3H4zNEbYUHR7vIhZymuJTVRv+EKSKr8WRL1gou/qjSW/m +DHHuhwf1eB0LH9kJlQ5FzRCdZP40jZcsdFwHlfM+M0RiDCv0Zz0L+6hDJfom +MwT/cWcL40YWTvZnLIsXmiF+CM7wk1q59cbSTqeHTBMPj688VtHDwiy9K2JO +3lPEQSFlkcE5Fq65c7iqP2SCyEwTX3d3noVio2JvlnlNEMO0OemABRaqKZZV +b3aYIEI1aukiiyw01owQz9WfIB46mGwnlrBxfWrOl3/iEwSp1vdY8nI2Jo91 +fwwr/E2MeT8v0RZj48zyv7KZneNEfK+R3k0FNp5/YnUmwmSMsJcIMHRRZGNX ++dc79H1jhLpervl/SmysFH7W3UiMEf33J0/WbmbjxdqTP5VYY8S2yCuhPaps +7Jfcknh7+hfxRbH9yTp1Nh53dtVT1P5FyAdYbI7UZmP4Q3GTyLFRol7CRtzx +KBvlH2V8Nz8zQhhmFvPtOsbGlpw9azMtR4gv5LkJSRs2drg97h/VHiGm5RNb +G46zcb9r5cmaDSMETbMulmXPxk6jXTGyTcNEsCt75bfTbMwwN5F9LDdM7GgY +X7T3Y+N8nfj9jdPfiDLf4G8nrrDRrsJlL/PBIKFoQjmpmMxGI9NmD0reIFG4 ++fnADNcS6atHWVcGietDS75GpbIx+oFJrqnnIJFgcqG7NIONWwSVD2moDRLu +ykGtC9fY+PlVRY3YowFC+fu5x0klbPz+afmuzlf9RKmZb9yLejba366cEBH4 +Svz3jB2Y18DGsrta/RJ/+ohH7M5T4a/YWDPJusYY7iNq59R1dBvZ6EW0WTg2 +9REfMxf+NrawccLbtdEvvo9Y4Jw/9f4DGy02TOfXbegjdB3Dtfu+cvfrIzXw +mOglmt+pbantZ2PAeO4IS7mXMFQfIucOsBGW8924Su0lLFfp/rUbYuOgTipv +sUAv4VK84v73YTYuvl+Rof2eQySNx5DHx9noYCk07ezEIaQsdq5p/c1GjRJJ +xgVrDpH9fHShbIKNrSLmIdmHOMTNxAMdHlNsdAnyzJtR4xCP/lsbOzvLxpxN +B29R+DgEkV0T8OkPGzUfyDYI/uohavndnB7NsVG2Y5vUtw89RFP7O62ABTbm +2d1f03mjhzDAYFXrv2xMjZm+MhbVQ3wsUCETi2x81hVbud69h7AQ/iok+4+N +354LnTIz7yF6fBMX/nEt2bk64xb2EP8D2Ec48Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFmGk8le/XxSVJhTJGlDOfc2cK/VTUvXcplCZTZqVSKEQZk2QOZcxMKjSI +pCKRlEQZKg1EcsxFiowhnvO8+r+6PuvFfre+69prUw+7Gtnz8/Hx7V/Ax/f/ +LzX05EI+Pgou/Zly5EdkJlyB7s+g/j9dwXJ5UOrwPz19sfFoUtr/9Np9sjc9 +GiiontLZQlfIgOXbvP9cWkjFH49LKk0VkmHx/bviSzWpaEg51f5NKwEe7hnX +rjxJRdmDRwq6imPAdDdnwvM6FUMLfm9iF0fCkpp1IbEfqXg18rtr9bYwcHfd +s7pvKQ0Nta7REzcHwa94iMjcQsMXTSJNC+UDwHaVfLiZKw3pzwRedYqfhaBG +4ehdOTS8mzu5e5OTJ5TNNTlda6ahsYXNhZk37nDLOn+fuigdz06v27ZX2BXC +5d2rq3ToaHdf5HNguSP4mQuvKPWg42xUS3FRqj0wXzw58j2Pjk8lF1of/GYH +nTfJqLPf6Bits3hq5pcNGJV9fqovxcBpPf2RpQ/NoXidRYC0AQNPXb45tdXD +BJRp91fqn2Og5ctJM0eOIVhsXf34wQMGOksHCRhY7Ybkr7bKQX0M/ORl5S1Q +pgd1XyI0jGWYqDwQn1k6pAMPBOq22exloroEX6HpOYSCPC6rLoCJOmZyznev +a4NtwFLJ0yVMFGVTjSjvNYG/ZE2c3BATV+9AIrJfHUodhXrZCiy8U/z4a3Cp +KjB3CW51MWWhv0XFKkuttZCd+8VNJpyFxjeuMO6NM2GlfZJGVSkL+58ue2t4 +mgZg6Dh38zcLS9jFavpRa8C3dEXmMJWNEp+XV9imy4LTvnrd0+ZsXKWhfJ7L +lgJnO5uXFpFs1KBNO1UWicGRTy1N+JSN8+1jAZQSERD1chiwG2UjV8hAikwQ +gvqEhs99TA6qr9WbGEwUAODq1udYc3D83LJPznN8kHvpjpF9HAfz7sUUXWTN +kpSS7vzwlxxUEPls2pk+Se4TVRPvm+bg8nsHynqCRsnYTmODm8oEnn9qfSrM +dJiskbaTcjxIoNKTtB8WpwbJIp/A70evEGhf4rKT/aiPLDT3iXlZQ+Cxu6Wj +4kLdZIdP/Oz8PIEyrSJpt7GDTK+trb/wnYKeN7izBy6kQqRPHH+9PBXNrtvI +Ga9MBNv5/Wx7Qypqy58qDTkSBwINoilpYVSs2GxW3Oh6Ge5dvLsluIyKBp8+ +MrOOXARSDt6X/aZihMXO2j3sECi88Mp4G4OGlF1HzFNSLwCrWXnJ2QM0NOH6 +Lu8KPwenziQsM4ygITlq4Ox13Ruu9v2e9aigYSNFjrMh9AwUKWP7jz805Gyy +qc6QdIPk8uilMxw6bhRtC43dfhICtZ45VVjTsWByA9c/4Tjsv9Rd+i6GjocT +dxztyDkCCx/NTqpV09Hg2ny7v+UhSL2/lNn1l449m86vclSzAoGJlVdV1zFQ +e3Gw7IqzB8CdWLRb9SgD9TaUELrlRlCl1t9/LpmB4cYGzx+r7YMp0Qp3uQYG +ykSI7nw3vBPU286sOzHPwL5md33msx0Av9dqm2swUf7I75oHlG2wruXT+oTj +TCQTzuzxWkeCYKLHaoV0JtbyMbvt5DdBYZqksV4TE5tqytoaXq4H25j4Mqog +C4edVM9JGarBb4vFEgZaLExeKVDs36IER6dcLapcWNh+ozfp1TwbvoU8bhrK +YmFaTu6+CQoDFK34Uh59ZKFpXtiOiNcUsF60ZW+9EBupEs89/afkwD3Y5Y/a +FjZGUI/d6tNdCSdbEkL63Hh+bi+Mu2IhAQ5yaQZ7stkYSJ8b0NmwAjbmZtka +tvDmxTxzgwWXwdCitEPZwhwMqpI8NesvCKFaEYa6WznYck31fdpDfvhT7B0d +4sXBbbk0buivOfIITY/PK4+D3PrYZI3av+Tjw0sPlXRwMMPgiqST1zg57PWi +QFeSwMnF/xTSW0dIJT/LdeG6BIY+ljINHx4iN9eOzB3zJXCmWurhmonvpNqP +c+UJBQT++LJ4a+vrHlLfMVS3q5vAw96yveVkJ9m9bKR0ppWCXuHSDU61adBg +EzKttIKKXR8dX+RIJYF6y1x6iQ4Vr9Qkh6bujAdrkcABZV8q1nDJ8i+90cB/ +YiDlXwEVcUPQRYfQCGCMbMhjdVHRw3HRnpsqoRA7dXFjwkoa6voftJ86FggR +j4pfC++iITuvcAffF384rtey86MfDZcodeUafvCBWMu5Hdz7NIw2l47odfcA +zcQl2Tt6eTwMroC4ATfIilqTnyhHxyXbSh/LZjlDSJ6MzNb9dPS7/izL+7oD +9P2Z7NkeRMf3/4nSLVKPQkJZm/Klx3QciRalMGTsoOJudovKTzq+av2jWxtm +DXnmXirlNAZyxzOGvsSYgaSyat91MwbufqDlOhhvDFNE/XxXBAMN9rgu41rt +B84t5yvHKxn4NNZzVFHBAHrbfqhM/mGgV7BveESJLoT0WJZ8YvL8nB3V93yB +Dri7vCubsuTpBelt+ZcAWimKNI/LTAzIzwh8Y6YFiy9Ha7S/ZOI+LDzf8PI/ +KKR/yc38y8RP6RoJbSvV4WPnYr9SJRa6/pXMJFEFtlO1G2QOs7BFM359mTQB +W6V30oISWEgOWyhtEmQClWtwbHMNC/VSU9cdT6HCXkVjltYsC2lFBmVrtFfD +RCbox6qycVuGCQY4ycBg/Lo+JXs2qjTV2sRrS4ITORv2IYmNuQ9+y34dXgGN +T8tlXr9ho/O0q+qtA8LgX3GBuZCPg72Jrw8XBy2G2/2KCYkaHLQcKhGduboQ +kus68qWcOCj4cjB0iyYfCLR4E78yOTh84cDNR8PT5E/hSUFKEy+vh1NOpgZN +kJQqn0OJiwlMHG7/HHLnD/lNpfnpSi2eP51dDVR0f5OBrsTS7ycJTLMwVShX +HCDd1QKaZq8R+PV1SaXkk15ylnv+xIdPBFqunsitXt1FJoxEUUdGCHSwEp1w +duKSocohhRs/UtD6Z7xUjVs6/Hrr79m+hIpJinrqS1OSIP3lp2buZipmTn40 +aKyMh/B8bQmv01T0dRKXrDKOgbtWS/Sf3KLibuu7K7LkI0Haer2MdRsVvRJ+ +rJEsCQX+h4Nrt4jRMCRDvCv5XSCUM2Zuf9KhYUBmmFt66HnoWjf9XcqThqPF +R9o2uPlCREKI05U8Xp7HNGtrDHmA9y6XsNPfaLjpwLHtpyzcIXvM3r9Hko7h +i0Z6xUxcQPBotQv/Ljp+PXdg/aiyI9xnBk77+9FxZRirl0/WHr6SdbVaRXR0 ++PSli+NrB/vvuKmb9tKxZEg/TmuTDcwtYXvyyzPw87XzdmUUc+hV2f7A2pCB +rh1Z9y0WmoB4bkWkVDADt3MVC39W7ofKM9W5Ik8YWDc4sd6nzABIa4bK058M +nLx0ld6+QQ84He4ekgpMlDbRBnNPHYgr3TN/x4SJK3S2bpekImzvC2FkhTGR +/SDaDme0QH1xA51TwcSeoH7VIzs1wWLorLzNKBNT3L16o/3V4RUzvHCYycLg +LdfCb0yrwMNHlLAqKxYadmcY/cwlwN1W7M2eyyx87NCelevHhPTrI/XnK1lY +cZrBlFhEA13SVnxknIV2KRv5WzpXw0Ylzmglh421fz/9SFsgC3fc/KXf2bKx +Os4jw6FQEn6+VcpNjGVjHquiv2K/GCS/fjMu8JKNGyql9BoERODVqvGwor9s +LPieJee9VAi0KvweVShxsP2psO2UrAD8NJV4anOEgyoDOwbZKXzwqUis4nYy +Bz8W1vL/vDhDCh52tjSp4+BYT9qiWNFJ8rGD6SZyAYGrkrO+zUuNkhvDrwR3 +aBDYI7M+/u7Eb5KhUx3NOUZgq/HWKIX6ATLO9EJ7YRqB64XV9mtr9pGf02f/ +1TUSOOrlWucb20W65C95+GOAwLkPS9J0P3DJJ/+tiJ6aIjBr7b7bNAEuaU6+ +VWx+R8H6S+1DozXpMBd+9uEjQSo+Qw/JprYkaNLa6uGxiYo9ynN9Pv/iIfNc +8k25U1RcqGHVJhQSA3wfZa4m51AxuOJexJRDJMTEFjVONPN4yCuZCZwNhSex +8tliory8trkvaSAYBKbWq1c9Qd5+7TDU/PnbechiRj4udqdhIaP5V9xzXwhV +ez3reouGDL2TOraKnpCaTfFZ2kbDzOotmh2x7pB7a8nxSDE6bvc/PJZzzwX0 +KuVWdevSkaKjuq/5jCNIg94ieR86fjxhd9TLwh4C+HQSxe7Rkew3p/7LswMZ +wvzg90461gWGlkbH28CtrrmUHBkGfslRXjXmaA6N9xpTNu1l4C/3VY/+aZsA +pafkfUEAA/n/UKSsx/aDsJXbPW4xA+FXxM7hpbvhRPpz5awfvPm/azdJ+eiB +71f/jw/kmPimKMi/4L4O0A4KU4MNmbicG1c5uhfhr/6DnP+CmcjgrpL33KsN +tVWDaQ1PmGgyrXa9LUoTVIz2mG0eZqLG279tVUXqUKlXuyuKxsK4N1t/B1qo +ws/zEj3J5iz07dT31RomIDJwfLVGJM//w0NJnx8zoTVoewD1KQvFVr8lOrRp +8KLmSHj9HxaG+T/7maS5Br64p9eaM9kYL84SCtsrCxGHcgquWbHx9PIb+m8H +JeGuzI7/vC+z8aKgvuTZC2Lg/9aw53olG031HcJdbURgoFZlU8QEG8XkVvj/ +3SsEQQTzlRHBwfizq7eImwuAtFz+ywWHOBjy4GCkfx0fkBTb8LArHNQymimv +b54h46M4wb9qONhF7y/YbTpJBmtXMcXnOGiiEyaVvXuU7Hk4drxqHYEXq47/ +UuUMkxNK8U21hwnc41p6vHL1IHm9f0F3RDKBkY9Ms808+siqaS09/ToCPcmP +lo71XaTVMv1/9v0E9ukl8+cLdZI34/e2nBkn0CXAI2dSk0vWN7/f4TdLYI79 +w+WtNzrI57pnHFlvKfi61tDwxGg6hPb6fKAuomKMQud+v39J8HN8ourZBip+ +nBqRkJJPgNu9r0acXaioenGS3Z0RA2tjst4szqYiNSd44kx0JOy+O0Js/0zF +yxP8aRcVwiCR7xH3rDDPvxp37W2oQUDzVjFSAhpWrjKi31oUAPNXjSmL3Who +mSf/UG7AFwT4Bne059KwWFnw9qNdnnDn/d8R0y80TLiYFG1W4A43A63avi3n +9c8TmQeb213A4dcrV+MddFRN2MqfkOwIr+tuRzh50VFN9NueWR97MOqcm/XL +p+O6mwuOyVfbgZ9D3bgal46bD+6opD23gX+NA4qT0gwsfSKU3H3ZHLYNS4jc +2s1AR8G8okhzE2AFPTwz48/AxksFX/eKGoL63hqNXY8Y6LP61pIFGrshcHNM +vth3Bq4VvPRhPEUPaG0CwQtXMVG4kbU/460ODNwfvD+8j4mD9e+MJI8hmEzv +PBYQyETxhAQ+N29tkKDNmFFKmfhPa86gp0ATkgWKx/J+MZEO3f8kG9Sh3Pz7 +ylYKC2v+1NocvKgKQr1RcQvNWPhbaO2EqtRaSE7or8m5yMI+qmKBcjMTvMeG +LNzLWJhR9TE8yIwGAVHHdLRGWOi2NuCLod0aWJt44EE2nY2ct1yaqYcsTDc/ +9l1qyUb+AwvPvFgiBcJb3s9+j2KjRYNJoHCqGJwyutI2UsHrq0Mm08wIEZi9 +Wic2McZGnxMeGOQmBJyDPo3pbA7G9Vz+e8xLAO7886k1tuXgcc/1c109fPDn +QLDzRDwHN8gkXlw+P0O2UgVTtF9x0HEllM54T5IDjGk5v1kOaqoUVaxzGCW1 +DLIt/lMlsFTseXsdOUx+o06PytgR2OJW3jOkO0jeWfeidzKRQOlUkSHOlT7y +CdF6IvQ1gZVjnGusgS7SSKufmt1LICwWuHGV3klmvhiaLRolsEncIihzP5es +EnRzejJNoELLRtnvnzrIz7fUqeQcgc/boktXuXeQE290hfY2UvDkXJITLMmA +NxJ/u8wEqGg+ZrDmiGgy+H4wHOzRpOL0tQrKGcUEKJD9Jp3kzOuzihfQ9k4M +oMvRQ3CDilEOGeY11yPhzqbYZqdPVLzf8ewLRS0MBDYumC9cRsOF49mjYypB +ICS4wcWepOHJ7dKyTSsCQKV9g4nqKRqa5pSKeM35wvb+swMSPB4Mrhr+drP0 +BHWHYwVnW2io+WGHWHa5O9xyDb4ixONh0sNPbum4C3iHpKdGbqdjWdw9esgd +R6CJWzXEetLxueeTPYYR9lD+3rqw6C4dRUILjpe+twMVoUXPD3TQ0fntzmjB +FhvgVHPHFHg8rPGc0jl1zRz8Yop1Owx4fhcQe915zATuNKm/ovJ40PYTp5jJ +GcIrvT/j/g8ZeHZbTusavd1wKcrLeVc/b79Pv3bI644eeLbWWCnKMjFh8ExV +zjcd2GtlNc3i8bB+GaO30A1hgfGVVzkXmKgkffNq6CVt2Piev3jnYyY+z7/3 +beaZJq9fOVV1DzHxtBLd1aBVHbTsvOf4eDxkmMGYwzVVSEx6/WPjARZyJ++5 +VLDXQmYGV74jnIVfXt6WdexjQu3dF69Sn/D+AzHJE/b2NOD+6qe4DfPmrVrc +qz3XQNPNB7fe0Hj7zYFS36ZwWSiKf8ElLXh5z66TrZeRgs37kg5ReTzsfLuP +cThXDAYkNpjJ8njwvJb0MDVLBEKWrZpT5PFwdGZjcGugEEz73Gh6zuIg4xec +oIcJwJjLoTd+Nhy8I3Eh5cYIH+x2X8lV5vFgOn8rv1p8ljz38wz9cDUHn9iL +FvZHTJLpKVIr789wUHJI8u0iz1HymLSfkYsKgW3F3feYu4ZJo/R8ga2HCGzM +2r4i3WqQVDGlHVfh8WBs1nCGltNH/vec8M+pJbDo/o4e6b9dZMN7zfVVPQT6 +jWQPctQ6SVnLLcub/hCoXSDDumDDJcnMSr8vfwnUeaRQK/y7gzTEQA2bfwQm +R01cGY7oIC3FukUV5gn8/kL0hLlFBzllfXbL3LP/3S//D4llVqI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.02983059568803629}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk01V8XB3BJUkkZI8qdh0yhv4r67V0yFA2mzJVEKERmksyhjJlJhUQk +FUlJSZShkiKSS4YiRcaQnvu8Ouuzzjp77b2/bw75uKuhHS8PD4/+Eh6e/5+z +Vv47F5+ScOWPNNvv0dmw6aDUTc9mEqqk9XZQZbNg+rW2wIEWEp5eTHGCFVnw +TNvDkfGGhK8aDAxOTWSCGfFGrv0tCZsudY9O1GdCuEJY6bY2Elr9SBSvd8uE +r6vGK+c7SegdKdHs1JABmQ0NTRe+kdDrBmfh8IV0WLPb5/elpWT8/rCixkQ2 +FV6L/ukz5SOj2aTeRluhVAgf8H1PXkbGONneQwF/U2Ax0v/+A34yPkVPsdau +FPj5JtCrewUZU+R0VFampUCzddic/Foy9rU5Ps8TT4Fo3wTeJhkyml63ljZa +lwzL794WWalGRgPSme4v6kng995gpJ/ruWvVJA+5JPgxNV37dCsZ22bHRcVl +kqBVfZen53Yy9issDvr+TYTMFx/aOTvImD3TptdSkwgqHYuZFZpkvFKfGp6+ +NxGO/DvEtDMgo4bMmcow2wS4v39Ko+Y0GaWO2pb0lcdBidQXiRRnbj9yF/BI +YRzcGng57uxCRqWLM8yvWXGQfS71pvQZMi5VtewSCIuDyGINUe+zZPRzEhGr +NYoDq9XBwwp+ZKznEI8/DcQCX7NQWkYEGat3mJa3uF4GE33WtNd1MoaX/NrO +LI8GdDlxDG6QMcYhy6z+ejRsist5vTyXjOS80GmP2GjgaZO8mppHxtDqO1Gz +DtFw23KF7qMCMupb3V6bIxMNvKeG0/6WkBG3hlx0CI+COxdv7wytIqPehzZ6 +ju1FWFG/OSy+jYxXo7+51u2OgMLt8e1OH8h4t+fpJ5JyBOjfHmfv+UjGy9O8 +GRdlIyAuvqxlup07T1HFfPBCOEhYbZG06iKjd9L3jWIV4UAb31rE6COjp+Oy +/TcVw4GQhndVv8gYZb63YT8zDNxd928YXElBA/Vr1OQdIcC3bcm/0lUUXDqV +OzGpGALJPA84/oIUzFa9bWdNDoFH8TK5wkIUXGF9V0yPPwR4749s2ilMwbAs +kb7Ut8EQP3txW9I6CmoHHrWbtQ+G0gsvjXbTKEjaZ2uWln4BfiZCVPZOCj5v +Xd26VCYIBPi3utgRFDy9R0KqdW0QUHwUDeWBgjXrDakFy4LAxGrD+kdIwdsO +o+0fv5yHx7T5Wx80KRiUHeGWGX4eoh6UvxLcR0FmUakWz6dAYLQrrPA/TEFj +jt+avshzcGS9TKSpKwWpT/le9or4g2L3VmOlMxQ0yatc7b3oB/+uGpGWu1HQ +okjmvvSwH+TQox+Wu1OwlNb+M+GZH/Rtnvsm7kXBiXLbrq1ufnBSp2NvWwB3 +fvm+fIP3vnDGI2mVQRQFiQk9Z+/rPhDSIhi7L4/bb/6M/nYnL9gz5D8smk9B +vasGv9wsvICPZ0Srm+tyBf5bD/Z5QbjyqwXXAgrSdE5rHpHzgqikMKcrRdz+ +49o1VEc9Id5iUYtzl4KxZhJRA+6ecHXw14JnNQVbSNKsreEeULXY6nStnYJG +5tYX5l+7g4qDfYl/BwXV3msJ5z52h8J3f8ZNPlEw6WJKrGmJO6TnknxXdnHz +rNup1hPvDj77XCLOfqHg9sP2e86Yu4Na8opcrQFuXiNrIWHYDcoUsPv7bwqy +tlvXZYm5QYFV8UEVISr6z23efUDQFQpcQ68IrKHijGeA9MopF7gZbNn1hWv/ +U9lH27tdIL9gxcloYSruCTw+mXfHBXIn7QL7xagYuWx8QNjYBXJiNhYnS1Nx +xe7Kh1I5zpD6OHblPIuK24S6wuP3nIZIGfe6Wk0q2txd/TH4sSP4hGWmR++h +YlXCHWpYoSM4/HzpaqRFRaWkXbxJqY6gUyO9/qs2FUmaSgfbPRyB/0SdC+8+ +Kn4+d3jLhIIjhBVJSu46RMWA609zfK47QLD6U6dqKyqWzGzlBCadhAAzwbWV +nlRciOkoL0u3A4qIZXO8FxWfeT3abxBlB68ab0U5eVNRWejL/gVfO5AAnWUy +vlRsO2VzwtvcDu7Sg+cCA6i4LoIxwCNlB4O/Z/r3hFDx3X9CVPP0E3Do0tfK +t3FUPJ6sdaInzxbozx/Zfiui4hOxpVZHv9jA43dWpWW3qbg6vORk5TsbMOxd +XAgopuLmm0vsZepsIIhHM1n4DhWJITPy3yIb+Ew0NqiXUdHhw6c+lp8NJFV1 +KVx6SMXxWCESTdIGlj5YmFGuo6LetX/dgRbHoPcmEeP/hYqxmstn539ag6LA +smeHe6jo/GZvLH+HNQQ4NE4pc6i446hWDeWZNUiyzY5+66ViY3B4ZWyiNRwq +dFMxGaBixahugvp2a6i+nduh+IOKLzt/azdEWEH63ZX0vj9U7N9+fr2jsiUY +Vn18oitOwzkd3fGV982AVceZlJWg4UavWc0z18zgb8uw3AzXlY8EUr9eNoOC +vsW0PEkafspTWD/paAaLK5hevDI0/HjtvE0VyQyKzLwVH1NoyJnKGv0UZwp8 +0+uuKm2mocbyUKm1/oehfLN5kIQeDc9cvjm7y9MYAuLKtXu49uUTftVrbwy7 +x0RXF+jT0JG/qCzazBha7rSkbT9Aw5/u6x/81TCGAcU996wMaOjak3PXfKkx +iCkoDV43paH+PXXXkUQjcGcv01c6QUOdrRVs7ceGoEC5u073HA0tXsyYOrIM +oLBV5SU5kNtPgAjJVNoAGCH3Pea5brlU8vmAkAGQ+ivelQTRkPc3Sdxq8hCI +5FdHi4fScA9HrvRHzSGYZTf964uiod5+11Ucy0NQqzw0dC6VhpFGes8eKh8E +810bHt67R0NniRA+PUt9eKnzeyrwPg39d+d1btTRB5UD9ar7HnDn3VCwYomq +Pghaut3hlNMQfkbtHVupDzUedfmrH9GwcWR6i2+VHrAKnK+crKHhk3ivCTlZ +PZgVqnaXbqahZJTQ3rdjeyH18xGFkEEafvC29OGr0oFLMd7O+4Zo6J157Zh3 +oQ4E74grFv5Gw038l95PpenAqcxnCjnfufn92bRd3FcHCCua4pMfNJy5dJXa +vVUHBrq+K8785r4P9YuMqtAGlS6Pzaf+0XCw3V2X/lQLGj9FqRpJ0lFhODG7 +clQTvDrrLeWk6Jg04lGb90UTKF18oUvX01GwhXEo640m+H0ObLsnTcfXZSGB +JXc1gdXj7ikmS0cJYw0w89KEsH6Lig90Osrkxgw+W6IJ8GuThpkq17a/6u+R +dsM9vsbd1gfoqCLKU2pyDuGApeUc4yAdt6yiDZS6IQzfHbk7xvVI01tDMXsE +ylFBcqgBHddwEmomDiAkVO7/V2hMx7Wau/aIkRHcXd5WzVpw6y/J7Cq+BLC5 +48OWpJN0JJI89ntvJqCkiMNoDKKjpqm08+3rGrDE6MrLvAt0lJe4eTX8kgYY +z+21Dwqmo0hSEo+bjwb80b2X918oHWmc9TJeBzRgz2AYLSeCjsx7sTY4rw6d +JDmK52U6BhVnBb82VQf+ZM8Nspl0bOChf7WR2Q5HglaKna2goxCTbEh6pwbb +3vGW731Ix2fFd77MP1UDUcq8KamSjn/VF/X6S9SgoXYko/kRHY3nlK93xaiB +yvJmKquajv0hQ0q2e9Vg+eVY1e4XdDyIpeebX/wHpRliRjqtdGytr+pqfrEF +eCs2JkiP0nGDFrKjh1S4/0en2q9cn5Wnuup1qkAqX/lk0U86UuHrX7FmFVA0 +3G+6Y4yOqm/+dNWWqYD5qL+M9QQd09y9B2IDVaCU+ik/+w8dP2SqJnWtU4Ej +cYlVZH4GjjkpnRM3UIZKR4EBpiwDC8sffg6tVAJ1G59FHhIDs0xh0uGaEjw2 ++7auk+v63w3WRy8qQY1Ow74YCgMTXu/6FWyuBC/pkaVjdAaG7rwWeWNOEdp6 +lwdUyjPQ9Y9YNoGK8Mt8uaieOgNT1/GVB3bIA30f/y4XEwYGmlevt1DfBMkp +r75vO8xAzswdl2rmJhAYiElYasrAXwKbppXEN8GP86L9qWYM9OvV9VMfY8P9 +B6SIWksGGnzNMvyRz4Y9ZI1myeMM7FBL3FIlwYYTs67mtS4M7L4xkPLyHxNy +8z+5SUYy0OjGFdqdKTpkZ3Fkerj+9OKWlOMgHVKThurzLjJwkCxXotBOh+jg +qQ2q0dz6Y6MpHx/Swf2I8Ov9lxn40KE7Jz+ADrsk9lJCkhhIjJnLb+enw5ew +h62jOQzMyMs/OE2iwTq7FNXaSgYOPVn1xuAsBRpuP3+Z/oiBwsJip+zsKOAz +OWruXsXdb21bZIgpBTpD9gSRn3DvN7xh92hQIPP6eNP5GgZWn6XRRZdRgMzR +s99Rz0Cd9PTNJ9PIIGfJk/agjYEmRRFaUa9IAAaOizd/MbCCWa6sG7MROD+H +SG5j3PqWHe51XhshKMZeU32cgW6bgj4Z2GyE5/W2kU2/GRgR+PRHitpG0CaO +iIxPMdAmbRtvR+8GOCBnxFBfYCClTK9qo8YGsFq280CTABPJos+8Amelwa9y +bfYYmYmiH9dUH8mUgtab9wpeU5hYdLjSrzVSCjYlH76XS2Ui6w2HYuIpBZ/c +MxvM6ExMFGEIRByQgm3yrIkaFhMb/nz4nrFECqazQTdeiYm7s4wxyEkS3ENd +fivvZGIU2b5gUHsdOB1s0j5rxsT1qgrnOUxxKEt8ziHMmWjCbJRqkhSHufaH +fistmMh7eKnH8xXiEHUsr+SaJRPPrrmh+2ZEDArdAiXeHmFiXYJnlkOpGIwk +bh6Ut2OiYmuDdaKGGJzuSAobdGOiandpwhVzUXC2sX5hHs01Zc6ppkwYdhxM +OUaOYeLeNwdpx/OFQXDnu4VvXJs3GwcLpgvDbUmt/3wuM/Eiv66Y/wVh+PFG +Pj85nrsPRvVQ9SFhcCIWIt6nMDH/3i+pz2NrwUE6Q29/LhODqYvDmlvXgu2H +jlZ8wsR/3ZNBpIrVMCy61VSqmole11Lup+eshjOGV7rGuRYdNZ6jR62GwDcG +/ddruPPrOkS6Wq+G1Fevp/heMHFrjbhOM99qaHnyWPLVayY6z7kqFRwWhG35 +OUcMOrj5CXvlh/KvAiFvh2GbCSZyBPTEiSQBCFu1flFukokn5reFdgYLwMLV +RuFprn1PeWKImwAMNyhuj5pmorD02sA/BwTg5fqpiLI/TCz5liPts1IAAqsv +0JfysHAg+dXx8pDlMLos41iuIAtDasXOLATyQ1NS88dBOgtVNulMjyTzwZzv +jdZnDBbSfsIpagQfsI76tmQyWZjQf/mPvTcfhLDpLw3ZLEz037BTxIwP1KsD +HlTLs7D7ieCRWSk+uDUkl5SsykKL0Qqh+atLIVw9ykB7Fws7rim9y7jPC8DR +bsqzYuHUuVUfnBd5YNLl2OsAaxYWil5IuzHOA4V/fRuMjrDwpNeWxb5+HpCQ +Ln6x5BgLw+4djQ5s5IEfJqJPrG1ZqDisNcJM44HUxp5icScW8r8YCd+pxgO/ +y31iw7xZuDufwgn/uUjkXyo0tEtgYdGduLKLjAVC330dRyGRhSb/CorrRBaI +34dDnae53iqZfHHNv3mCIB2JjLjCQnXD+cdN7fPEhzLh6lupLGwrbeD9cXGe +4OvwYf/MZuHYhcM3H4zNEbYUHR7vIhZymuJTVRv+EKSKr8WRL1gou/qjSW/m +DHHuhwf1eB0LH9kJlQ5FzRCdZP40jZcsdFwHlfM+M0RiDCv0Zz0L+6hDJfom +MwT/cWcL40YWTvZnLIsXmiF+CM7wk1q59cbSTqeHTBMPj688VtHDwiy9K2JO +3lPEQSFlkcE5Fq65c7iqP2SCyEwTX3d3noVio2JvlnlNEMO0OemABRaqKZZV +b3aYIEI1aukiiyw01owQz9WfIB46mGwnlrBxfWrOl3/iEwSp1vdY8nI2Jo91 +fwwr/E2MeT8v0RZj48zyv7KZneNEfK+R3k0FNp5/YnUmwmSMsJcIMHRRZGNX ++dc79H1jhLpervl/SmysFH7W3UiMEf33J0/WbmbjxdqTP5VYY8S2yCuhPaps +7Jfcknh7+hfxRbH9yTp1Nh53dtVT1P5FyAdYbI7UZmP4Q3GTyLFRol7CRtzx +KBvlH2V8Nz8zQhhmFvPtOsbGlpw9azMtR4gv5LkJSRs2drg97h/VHiGm5RNb +G46zcb9r5cmaDSMETbMulmXPxk6jXTGyTcNEsCt75bfTbMwwN5F9LDdM7GgY +X7T3Y+N8nfj9jdPfiDLf4G8nrrDRrsJlL/PBIKFoQjmpmMxGI9NmD0reIFG4 ++fnADNcS6atHWVcGietDS75GpbIx+oFJrqnnIJFgcqG7NIONWwSVD2moDRLu +ykGtC9fY+PlVRY3YowFC+fu5x0klbPz+afmuzlf9RKmZb9yLejba366cEBH4 +Svz3jB2Y18DGsrta/RJ/+ohH7M5T4a/YWDPJusYY7iNq59R1dBvZ6EW0WTg2 +9REfMxf+NrawccLbtdEvvo9Y4Jw/9f4DGy02TOfXbegjdB3Dtfu+cvfrIzXw +mOglmt+pbantZ2PAeO4IS7mXMFQfIucOsBGW8924Su0lLFfp/rUbYuOgTipv +sUAv4VK84v73YTYuvl+Rof2eQySNx5DHx9noYCk07ezEIaQsdq5p/c1GjRJJ +xgVrDpH9fHShbIKNrSLmIdmHOMTNxAMdHlNsdAnyzJtR4xCP/lsbOzvLxpxN +B29R+DgEkV0T8OkPGzUfyDYI/uohavndnB7NsVG2Y5vUtw89RFP7O62ABTbm +2d1f03mjhzDAYFXrv2xMjZm+MhbVQ3wsUCETi2x81hVbud69h7AQ/iok+4+N +354LnTIz7yF6fBMX/nEt2bk64xb2EP8D2Ec48Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.02983059568803629}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964359553013*^9, 3.9919653448206234`*^9, + 3.992491583797826*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"1bf00400-23ef-4275-9276-57a434c5e027"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[39]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzns0lAkcxnGM1qklZWhL6J13Zt6sGe+MGEvk92sTUYpsJaJcuijNkEOE +RqbbNjpWWDa0arIko9qsmhRq6zQuJbqdQ7t2MhW55lZssrN/POd7Pv89rAjJ +xp0Genp6frr9X03cEl0I9McdZfKflXDBP7okVedi/df11qeUECW47jGpc0JZ +YH11mhJ6+r1SRvQJlCpCYz5EKWFwt3hMyyBwOi3dv9RRCZ9D77xtNCJQ8/nu +o/G2SvjGN6Q5x5TAh0mB5rRZJfiR+blLlxAoNwtQlZRUgNrkFmMQCeSHxb2j +b5dB1GRb4sEdBLZXhxvvXl8KDz7FyiOkBHqMR1s62SpA5Fib2l9C4OL31eL7 +pufhwf6pONcGAg18XYwXFZ+DqG7tKu5rAkv/adpe6FQI6pjNNw4wWHiPOV7v +7VIA6yZu0zKShbPkraPJqjzouvU4Y5knC9sjXlpk+OVAjvR5x8VIFsZYd9YL +12SDcVDks6QMFp7wPL/hqn4W5O4rquhTsDAEnd+8OC0Hd2nTUdafLGSMPU0x +Up6E0UcKtwktCwdW9s+Ya4+BRGiYy/+KxO2eWnldggy+ztk6zOWS6NZXHI6S +I1AjDP62zovExuy2LunIYch4vGHXol0kbjq3uPdlVQqElg1LmSdJpPO33hg9 +kQTTOQvdJJdIXHXHoKpGnQB30kVTp9Uk9pb+3Z8ujYfM8um8te9JbPLpzn/j +EwcpT26JWmazUWbXcUj4TgwC45nEKls2PjgcvLxduQ9GMgZzBb5snGNPrnPO +2gMvJttr4qPZyHr8F5v8uBMaL0f8sVnORkZr1k1+YiQciUveVFjJRgHT7nq3 +dzhs/e7Y5IVmNk6lW/TSQ2GALu6HfAbYWF6kyGvZHwLerj1ffjfmoKntwaFP +siAwX7+Ye5jHQSv9mY/K8U0wVDy5tGcdB3cX9zIzUwOhb6CFtojh4Cl+rY+r +OAAmktaaaU5z8JE9s8lLux5YhvWTEiUHNUuju4wL1sJ8hSpjRwsHFxQfcH91 +fQ3MS9veMzTAweXOtqNbelaDYMtUwPcmXAx+GM+tzVsFoTFY4Cjg4p673eW+ +QSvBP88k/bg/F223NXlBkwdE1bXuK5Jwceyr6tJtmW5wglzhFJDNxebxZsP3 +e12g6fiveo1XuSisUQnN20TQ/uWk+EIrF2mbThfRj47Qe81aZfmBiwGrO4WZ +PzgAsbPMaPM8CmO2LPTO/kJD9gK/VI3OVq/60WqIBgP1yHDMfAobfrkyVNVF +Q7edR4fMjMIr6ovb+hpo+G34WeU1cwqVFu6zG2Q08FMNNposopCqVAc/n0OD +a05o0X0WhaRm7pU8G3uo8GTM9ycpvLfXecp0nj1YTpQf69RZkmwky9a3h89B +Y+IRNoWmhS5QoeVDg418JUFRmHbWfdrhMh+8Km6+TbGjMJ3RHpvvyocbIWEh +RjwK3Rv298p4fLA1MXxyRme7kOZdB635MDt2g+oSn8I9fa3h8fp8aBG9lb+k +KVxoduhjXSMPVryT60UKKCyxyXXqruVBVYFDwqDOiYqLwXOreJD1b2rYLAcK +HfnawOQzPNBTkk9/0plpKCJUR3kQG6b2tlqm+z9V/3AmkQcaU/HtMp2dPSy9 +/aJ5sPEu08HRkULNtY6z50N48B9dbhPY + "]]}, + 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:eJwVzns0lAkcxnGM1qklZWhL6J13Zt6sGe+MGEvk92sTUYpsJaJcuijNkEOE +RqbbNjpWWDa0arIko9qsmhRq6zQuJbqdQ7t2MhW55lZssrN/POd7Pv89rAjJ +xp0Genp6frr9X03cEl0I9McdZfKflXDBP7okVedi/df11qeUECW47jGpc0JZ +YH11mhJ6+r1SRvQJlCpCYz5EKWFwt3hMyyBwOi3dv9RRCZ9D77xtNCJQ8/nu +o/G2SvjGN6Q5x5TAh0mB5rRZJfiR+blLlxAoNwtQlZRUgNrkFmMQCeSHxb2j +b5dB1GRb4sEdBLZXhxvvXl8KDz7FyiOkBHqMR1s62SpA5Fib2l9C4OL31eL7 +pufhwf6pONcGAg18XYwXFZ+DqG7tKu5rAkv/adpe6FQI6pjNNw4wWHiPOV7v +7VIA6yZu0zKShbPkraPJqjzouvU4Y5knC9sjXlpk+OVAjvR5x8VIFsZYd9YL +12SDcVDks6QMFp7wPL/hqn4W5O4rquhTsDAEnd+8OC0Hd2nTUdafLGSMPU0x +Up6E0UcKtwktCwdW9s+Ya4+BRGiYy/+KxO2eWnldggy+ztk6zOWS6NZXHI6S +I1AjDP62zovExuy2LunIYch4vGHXol0kbjq3uPdlVQqElg1LmSdJpPO33hg9 +kQTTOQvdJJdIXHXHoKpGnQB30kVTp9Uk9pb+3Z8ujYfM8um8te9JbPLpzn/j +EwcpT26JWmazUWbXcUj4TgwC45nEKls2PjgcvLxduQ9GMgZzBb5snGNPrnPO +2gMvJttr4qPZyHr8F5v8uBMaL0f8sVnORkZr1k1+YiQciUveVFjJRgHT7nq3 +dzhs/e7Y5IVmNk6lW/TSQ2GALu6HfAbYWF6kyGvZHwLerj1ffjfmoKntwaFP +siAwX7+Ye5jHQSv9mY/K8U0wVDy5tGcdB3cX9zIzUwOhb6CFtojh4Cl+rY+r +OAAmktaaaU5z8JE9s8lLux5YhvWTEiUHNUuju4wL1sJ8hSpjRwsHFxQfcH91 +fQ3MS9veMzTAweXOtqNbelaDYMtUwPcmXAx+GM+tzVsFoTFY4Cjg4p673eW+ +QSvBP88k/bg/F223NXlBkwdE1bXuK5Jwceyr6tJtmW5wglzhFJDNxebxZsP3 +e12g6fiveo1XuSisUQnN20TQ/uWk+EIrF2mbThfRj47Qe81aZfmBiwGrO4WZ +PzgAsbPMaPM8CmO2LPTO/kJD9gK/VI3OVq/60WqIBgP1yHDMfAobfrkyVNVF +Q7edR4fMjMIr6ovb+hpo+G34WeU1cwqVFu6zG2Q08FMNNposopCqVAc/n0OD +a05o0X0WhaRm7pU8G3uo8GTM9ycpvLfXecp0nj1YTpQf69RZkmwky9a3h89B +Y+IRNoWmhS5QoeVDg418JUFRmHbWfdrhMh+8Km6+TbGjMJ3RHpvvyocbIWEh +RjwK3Rv298p4fLA1MXxyRme7kOZdB635MDt2g+oSn8I9fa3h8fp8aBG9lb+k +KVxoduhjXSMPVryT60UKKCyxyXXqruVBVYFDwqDOiYqLwXOreJD1b2rYLAcK +HfnawOQzPNBTkk9/0plpKCJUR3kQG6b2tlqm+z9V/3AmkQcaU/HtMp2dPSy9 +/aJ5sPEu08HRkULNtY6z50N48B9dbhPY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05778919618762812}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05778919618762812}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzns0lAkcxnGM1qklZWhL6J13Zt6sGe+MGEvk92sTUYpsJaJcuijNkEOE +RqbbNjpWWDa0arIko9qsmhRq6zQuJbqdQ7t2MhW55lZssrN/POd7Pv89rAjJ +xp0Genp6frr9X03cEl0I9McdZfKflXDBP7okVedi/df11qeUECW47jGpc0JZ +YH11mhJ6+r1SRvQJlCpCYz5EKWFwt3hMyyBwOi3dv9RRCZ9D77xtNCJQ8/nu +o/G2SvjGN6Q5x5TAh0mB5rRZJfiR+blLlxAoNwtQlZRUgNrkFmMQCeSHxb2j +b5dB1GRb4sEdBLZXhxvvXl8KDz7FyiOkBHqMR1s62SpA5Fib2l9C4OL31eL7 +pufhwf6pONcGAg18XYwXFZ+DqG7tKu5rAkv/adpe6FQI6pjNNw4wWHiPOV7v +7VIA6yZu0zKShbPkraPJqjzouvU4Y5knC9sjXlpk+OVAjvR5x8VIFsZYd9YL +12SDcVDks6QMFp7wPL/hqn4W5O4rquhTsDAEnd+8OC0Hd2nTUdafLGSMPU0x +Up6E0UcKtwktCwdW9s+Ya4+BRGiYy/+KxO2eWnldggy+ztk6zOWS6NZXHI6S +I1AjDP62zovExuy2LunIYch4vGHXol0kbjq3uPdlVQqElg1LmSdJpPO33hg9 +kQTTOQvdJJdIXHXHoKpGnQB30kVTp9Uk9pb+3Z8ujYfM8um8te9JbPLpzn/j +EwcpT26JWmazUWbXcUj4TgwC45nEKls2PjgcvLxduQ9GMgZzBb5snGNPrnPO +2gMvJttr4qPZyHr8F5v8uBMaL0f8sVnORkZr1k1+YiQciUveVFjJRgHT7nq3 +dzhs/e7Y5IVmNk6lW/TSQ2GALu6HfAbYWF6kyGvZHwLerj1ffjfmoKntwaFP +siAwX7+Ye5jHQSv9mY/K8U0wVDy5tGcdB3cX9zIzUwOhb6CFtojh4Cl+rY+r +OAAmktaaaU5z8JE9s8lLux5YhvWTEiUHNUuju4wL1sJ8hSpjRwsHFxQfcH91 +fQ3MS9veMzTAweXOtqNbelaDYMtUwPcmXAx+GM+tzVsFoTFY4Cjg4p673eW+ +QSvBP88k/bg/F223NXlBkwdE1bXuK5Jwceyr6tJtmW5wglzhFJDNxebxZsP3 +e12g6fiveo1XuSisUQnN20TQ/uWk+EIrF2mbThfRj47Qe81aZfmBiwGrO4WZ +PzgAsbPMaPM8CmO2LPTO/kJD9gK/VI3OVq/60WqIBgP1yHDMfAobfrkyVNVF +Q7edR4fMjMIr6ovb+hpo+G34WeU1cwqVFu6zG2Q08FMNNposopCqVAc/n0OD +a05o0X0WhaRm7pU8G3uo8GTM9ycpvLfXecp0nj1YTpQf69RZkmwky9a3h89B +Y+IRNoWmhS5QoeVDg418JUFRmHbWfdrhMh+8Km6+TbGjMJ3RHpvvyocbIWEh +RjwK3Rv298p4fLA1MXxyRme7kOZdB635MDt2g+oSn8I9fa3h8fp8aBG9lb+k +KVxoduhjXSMPVryT60UKKCyxyXXqruVBVYFDwqDOiYqLwXOreJD1b2rYLAcK +HfnawOQzPNBTkk9/0plpKCJUR3kQG6b2tlqm+z9V/3AmkQcaU/HtMp2dPSy9 +/aJ5sPEu08HRkULNtY6z50N48B9dbhPY + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05778919618762812}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFmGk8le/XxSVJhTJGlDOfc2cK/VTUvXcplCZTZqVSKEQZk2QOZcxMKjSI +pCKRlEQZKg1EcsxFiowhnvO8+r+6PuvFfre+69prUw+7Gtnz8/Hx7V/Ax/f/ +LzX05EI+Pgou/Zly5EdkJlyB7s+g/j9dwXJ5UOrwPz19sfFoUtr/9Np9sjc9 +GiiontLZQlfIgOXbvP9cWkjFH49LKk0VkmHx/bviSzWpaEg51f5NKwEe7hnX +rjxJRdmDRwq6imPAdDdnwvM6FUMLfm9iF0fCkpp1IbEfqXg18rtr9bYwcHfd +s7pvKQ0Nta7REzcHwa94iMjcQsMXTSJNC+UDwHaVfLiZKw3pzwRedYqfhaBG +4ehdOTS8mzu5e5OTJ5TNNTlda6ahsYXNhZk37nDLOn+fuigdz06v27ZX2BXC +5d2rq3ToaHdf5HNguSP4mQuvKPWg42xUS3FRqj0wXzw58j2Pjk8lF1of/GYH +nTfJqLPf6Bits3hq5pcNGJV9fqovxcBpPf2RpQ/NoXidRYC0AQNPXb45tdXD +BJRp91fqn2Og5ctJM0eOIVhsXf34wQMGOksHCRhY7Ybkr7bKQX0M/ORl5S1Q +pgd1XyI0jGWYqDwQn1k6pAMPBOq22exloroEX6HpOYSCPC6rLoCJOmZyznev +a4NtwFLJ0yVMFGVTjSjvNYG/ZE2c3BATV+9AIrJfHUodhXrZCiy8U/z4a3Cp +KjB3CW51MWWhv0XFKkuttZCd+8VNJpyFxjeuMO6NM2GlfZJGVSkL+58ue2t4 +mgZg6Dh38zcLS9jFavpRa8C3dEXmMJWNEp+XV9imy4LTvnrd0+ZsXKWhfJ7L +lgJnO5uXFpFs1KBNO1UWicGRTy1N+JSN8+1jAZQSERD1chiwG2UjV8hAikwQ +gvqEhs99TA6qr9WbGEwUAODq1udYc3D83LJPznN8kHvpjpF9HAfz7sUUXWTN +kpSS7vzwlxxUEPls2pk+Se4TVRPvm+bg8nsHynqCRsnYTmODm8oEnn9qfSrM +dJiskbaTcjxIoNKTtB8WpwbJIp/A70evEGhf4rKT/aiPLDT3iXlZQ+Cxu6Wj +4kLdZIdP/Oz8PIEyrSJpt7GDTK+trb/wnYKeN7izBy6kQqRPHH+9PBXNrtvI +Ga9MBNv5/Wx7Qypqy58qDTkSBwINoilpYVSs2GxW3Oh6Ge5dvLsluIyKBp8+ +MrOOXARSDt6X/aZihMXO2j3sECi88Mp4G4OGlF1HzFNSLwCrWXnJ2QM0NOH6 +Lu8KPwenziQsM4ygITlq4Ox13Ruu9v2e9aigYSNFjrMh9AwUKWP7jz805Gyy +qc6QdIPk8uilMxw6bhRtC43dfhICtZ45VVjTsWByA9c/4Tjsv9Rd+i6GjocT +dxztyDkCCx/NTqpV09Hg2ny7v+UhSL2/lNn1l449m86vclSzAoGJlVdV1zFQ +e3Gw7IqzB8CdWLRb9SgD9TaUELrlRlCl1t9/LpmB4cYGzx+r7YMp0Qp3uQYG +ykSI7nw3vBPU286sOzHPwL5md33msx0Av9dqm2swUf7I75oHlG2wruXT+oTj +TCQTzuzxWkeCYKLHaoV0JtbyMbvt5DdBYZqksV4TE5tqytoaXq4H25j4Mqog +C4edVM9JGarBb4vFEgZaLExeKVDs36IER6dcLapcWNh+ozfp1TwbvoU8bhrK +YmFaTu6+CQoDFK34Uh59ZKFpXtiOiNcUsF60ZW+9EBupEs89/afkwD3Y5Y/a +FjZGUI/d6tNdCSdbEkL63Hh+bi+Mu2IhAQ5yaQZ7stkYSJ8b0NmwAjbmZtka +tvDmxTxzgwWXwdCitEPZwhwMqpI8NesvCKFaEYa6WznYck31fdpDfvhT7B0d +4sXBbbk0buivOfIITY/PK4+D3PrYZI3av+Tjw0sPlXRwMMPgiqST1zg57PWi +QFeSwMnF/xTSW0dIJT/LdeG6BIY+ljINHx4iN9eOzB3zJXCmWurhmonvpNqP +c+UJBQT++LJ4a+vrHlLfMVS3q5vAw96yveVkJ9m9bKR0ppWCXuHSDU61adBg +EzKttIKKXR8dX+RIJYF6y1x6iQ4Vr9Qkh6bujAdrkcABZV8q1nDJ8i+90cB/ +YiDlXwEVcUPQRYfQCGCMbMhjdVHRw3HRnpsqoRA7dXFjwkoa6voftJ86FggR +j4pfC++iITuvcAffF384rtey86MfDZcodeUafvCBWMu5Hdz7NIw2l47odfcA +zcQl2Tt6eTwMroC4ATfIilqTnyhHxyXbSh/LZjlDSJ6MzNb9dPS7/izL+7oD +9P2Z7NkeRMf3/4nSLVKPQkJZm/Klx3QciRalMGTsoOJudovKTzq+av2jWxtm +DXnmXirlNAZyxzOGvsSYgaSyat91MwbufqDlOhhvDFNE/XxXBAMN9rgu41rt +B84t5yvHKxn4NNZzVFHBAHrbfqhM/mGgV7BveESJLoT0WJZ8YvL8nB3V93yB +Dri7vCubsuTpBelt+ZcAWimKNI/LTAzIzwh8Y6YFiy9Ha7S/ZOI+LDzf8PI/ +KKR/yc38y8RP6RoJbSvV4WPnYr9SJRa6/pXMJFEFtlO1G2QOs7BFM359mTQB +W6V30oISWEgOWyhtEmQClWtwbHMNC/VSU9cdT6HCXkVjltYsC2lFBmVrtFfD +RCbox6qycVuGCQY4ycBg/Lo+JXs2qjTV2sRrS4ITORv2IYmNuQ9+y34dXgGN +T8tlXr9ho/O0q+qtA8LgX3GBuZCPg72Jrw8XBy2G2/2KCYkaHLQcKhGduboQ +kus68qWcOCj4cjB0iyYfCLR4E78yOTh84cDNR8PT5E/hSUFKEy+vh1NOpgZN +kJQqn0OJiwlMHG7/HHLnD/lNpfnpSi2eP51dDVR0f5OBrsTS7ycJTLMwVShX +HCDd1QKaZq8R+PV1SaXkk15ylnv+xIdPBFqunsitXt1FJoxEUUdGCHSwEp1w +duKSocohhRs/UtD6Z7xUjVs6/Hrr79m+hIpJinrqS1OSIP3lp2buZipmTn40 +aKyMh/B8bQmv01T0dRKXrDKOgbtWS/Sf3KLibuu7K7LkI0Haer2MdRsVvRJ+ +rJEsCQX+h4Nrt4jRMCRDvCv5XSCUM2Zuf9KhYUBmmFt66HnoWjf9XcqThqPF +R9o2uPlCREKI05U8Xp7HNGtrDHmA9y6XsNPfaLjpwLHtpyzcIXvM3r9Hko7h +i0Z6xUxcQPBotQv/Ljp+PXdg/aiyI9xnBk77+9FxZRirl0/WHr6SdbVaRXR0 ++PSli+NrB/vvuKmb9tKxZEg/TmuTDcwtYXvyyzPw87XzdmUUc+hV2f7A2pCB +rh1Z9y0WmoB4bkWkVDADt3MVC39W7ofKM9W5Ik8YWDc4sd6nzABIa4bK058M +nLx0ld6+QQ84He4ekgpMlDbRBnNPHYgr3TN/x4SJK3S2bpekImzvC2FkhTGR +/SDaDme0QH1xA51TwcSeoH7VIzs1wWLorLzNKBNT3L16o/3V4RUzvHCYycLg +LdfCb0yrwMNHlLAqKxYadmcY/cwlwN1W7M2eyyx87NCelevHhPTrI/XnK1lY +cZrBlFhEA13SVnxknIV2KRv5WzpXw0Ylzmglh421fz/9SFsgC3fc/KXf2bKx +Os4jw6FQEn6+VcpNjGVjHquiv2K/GCS/fjMu8JKNGyql9BoERODVqvGwor9s +LPieJee9VAi0KvweVShxsP2psO2UrAD8NJV4anOEgyoDOwbZKXzwqUis4nYy +Bz8W1vL/vDhDCh52tjSp4+BYT9qiWNFJ8rGD6SZyAYGrkrO+zUuNkhvDrwR3 +aBDYI7M+/u7Eb5KhUx3NOUZgq/HWKIX6ATLO9EJ7YRqB64XV9mtr9pGf02f/ +1TUSOOrlWucb20W65C95+GOAwLkPS9J0P3DJJ/+tiJ6aIjBr7b7bNAEuaU6+ +VWx+R8H6S+1DozXpMBd+9uEjQSo+Qw/JprYkaNLa6uGxiYo9ynN9Pv/iIfNc +8k25U1RcqGHVJhQSA3wfZa4m51AxuOJexJRDJMTEFjVONPN4yCuZCZwNhSex +8tliory8trkvaSAYBKbWq1c9Qd5+7TDU/PnbechiRj4udqdhIaP5V9xzXwhV +ez3reouGDL2TOraKnpCaTfFZ2kbDzOotmh2x7pB7a8nxSDE6bvc/PJZzzwX0 +KuVWdevSkaKjuq/5jCNIg94ieR86fjxhd9TLwh4C+HQSxe7Rkew3p/7LswMZ +wvzg90461gWGlkbH28CtrrmUHBkGfslRXjXmaA6N9xpTNu1l4C/3VY/+aZsA +pafkfUEAA/n/UKSsx/aDsJXbPW4xA+FXxM7hpbvhRPpz5awfvPm/azdJ+eiB +71f/jw/kmPimKMi/4L4O0A4KU4MNmbicG1c5uhfhr/6DnP+CmcjgrpL33KsN +tVWDaQ1PmGgyrXa9LUoTVIz2mG0eZqLG279tVUXqUKlXuyuKxsK4N1t/B1qo +ws/zEj3J5iz07dT31RomIDJwfLVGJM//w0NJnx8zoTVoewD1KQvFVr8lOrRp +8KLmSHj9HxaG+T/7maS5Br64p9eaM9kYL84SCtsrCxGHcgquWbHx9PIb+m8H +JeGuzI7/vC+z8aKgvuTZC2Lg/9aw53olG031HcJdbURgoFZlU8QEG8XkVvj/ +3SsEQQTzlRHBwfizq7eImwuAtFz+ywWHOBjy4GCkfx0fkBTb8LArHNQymimv +b54h46M4wb9qONhF7y/YbTpJBmtXMcXnOGiiEyaVvXuU7Hk4drxqHYEXq47/ +UuUMkxNK8U21hwnc41p6vHL1IHm9f0F3RDKBkY9Ms808+siqaS09/ToCPcmP +lo71XaTVMv1/9v0E9ukl8+cLdZI34/e2nBkn0CXAI2dSk0vWN7/f4TdLYI79 +w+WtNzrI57pnHFlvKfi61tDwxGg6hPb6fKAuomKMQud+v39J8HN8ourZBip+ +nBqRkJJPgNu9r0acXaioenGS3Z0RA2tjst4szqYiNSd44kx0JOy+O0Js/0zF +yxP8aRcVwiCR7xH3rDDPvxp37W2oQUDzVjFSAhpWrjKi31oUAPNXjSmL3Who +mSf/UG7AFwT4Bne059KwWFnw9qNdnnDn/d8R0y80TLiYFG1W4A43A63avi3n +9c8TmQeb213A4dcrV+MddFRN2MqfkOwIr+tuRzh50VFN9NueWR97MOqcm/XL +p+O6mwuOyVfbgZ9D3bgal46bD+6opD23gX+NA4qT0gwsfSKU3H3ZHLYNS4jc +2s1AR8G8okhzE2AFPTwz48/AxksFX/eKGoL63hqNXY8Y6LP61pIFGrshcHNM +vth3Bq4VvPRhPEUPaG0CwQtXMVG4kbU/460ODNwfvD+8j4mD9e+MJI8hmEzv +PBYQyETxhAQ+N29tkKDNmFFKmfhPa86gp0ATkgWKx/J+MZEO3f8kG9Sh3Pz7 +ylYKC2v+1NocvKgKQr1RcQvNWPhbaO2EqtRaSE7or8m5yMI+qmKBcjMTvMeG +LNzLWJhR9TE8yIwGAVHHdLRGWOi2NuCLod0aWJt44EE2nY2ct1yaqYcsTDc/ +9l1qyUb+AwvPvFgiBcJb3s9+j2KjRYNJoHCqGJwyutI2UsHrq0Mm08wIEZi9 +Wic2McZGnxMeGOQmBJyDPo3pbA7G9Vz+e8xLAO7886k1tuXgcc/1c109fPDn +QLDzRDwHN8gkXlw+P0O2UgVTtF9x0HEllM54T5IDjGk5v1kOaqoUVaxzGCW1 +DLIt/lMlsFTseXsdOUx+o06PytgR2OJW3jOkO0jeWfeidzKRQOlUkSHOlT7y +CdF6IvQ1gZVjnGusgS7SSKufmt1LICwWuHGV3klmvhiaLRolsEncIihzP5es +EnRzejJNoELLRtnvnzrIz7fUqeQcgc/boktXuXeQE290hfY2UvDkXJITLMmA +NxJ/u8wEqGg+ZrDmiGgy+H4wHOzRpOL0tQrKGcUEKJD9Jp3kzOuzihfQ9k4M +oMvRQ3CDilEOGeY11yPhzqbYZqdPVLzf8ewLRS0MBDYumC9cRsOF49mjYypB +ICS4wcWepOHJ7dKyTSsCQKV9g4nqKRqa5pSKeM35wvb+swMSPB4Mrhr+drP0 +BHWHYwVnW2io+WGHWHa5O9xyDb4ixONh0sNPbum4C3iHpKdGbqdjWdw9esgd +R6CJWzXEetLxueeTPYYR9lD+3rqw6C4dRUILjpe+twMVoUXPD3TQ0fntzmjB +FhvgVHPHFHg8rPGc0jl1zRz8Yop1Owx4fhcQe915zATuNKm/ovJ40PYTp5jJ +GcIrvT/j/g8ZeHZbTusavd1wKcrLeVc/b79Pv3bI644eeLbWWCnKMjFh8ExV +zjcd2GtlNc3i8bB+GaO30A1hgfGVVzkXmKgkffNq6CVt2Piev3jnYyY+z7/3 +beaZJq9fOVV1DzHxtBLd1aBVHbTsvOf4eDxkmMGYwzVVSEx6/WPjARZyJ++5 +VLDXQmYGV74jnIVfXt6WdexjQu3dF69Sn/D+AzHJE/b2NOD+6qe4DfPmrVrc +qz3XQNPNB7fe0Hj7zYFS36ZwWSiKf8ElLXh5z66TrZeRgs37kg5ReTzsfLuP +cThXDAYkNpjJ8njwvJb0MDVLBEKWrZpT5PFwdGZjcGugEEz73Gh6zuIg4xec +oIcJwJjLoTd+Nhy8I3Eh5cYIH+x2X8lV5vFgOn8rv1p8ljz38wz9cDUHn9iL +FvZHTJLpKVIr789wUHJI8u0iz1HymLSfkYsKgW3F3feYu4ZJo/R8ga2HCGzM +2r4i3WqQVDGlHVfh8WBs1nCGltNH/vec8M+pJbDo/o4e6b9dZMN7zfVVPQT6 +jWQPctQ6SVnLLcub/hCoXSDDumDDJcnMSr8vfwnUeaRQK/y7gzTEQA2bfwQm +R01cGY7oIC3FukUV5gn8/kL0hLlFBzllfXbL3LP/3S//D4llVqI= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGMgSDNQr9cqz/1CURZzJra97ujUv21xFlCYi +plTO7Y5f1U+19yxjP+Q9H+n5U3yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziOv3MB9K7M1g== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmGk8le/XxSVJhTJGlDOfc2cK/VTUvXcplCZTZqVSKEQZk2QOZcxMKjSI +pCKRlEQZKg1EcsxFiowhnvO8+r+6PuvFfre+69prUw+7Gtnz8/Hx7V/Ax/f/ +LzX05EI+Pgou/Zly5EdkJlyB7s+g/j9dwXJ5UOrwPz19sfFoUtr/9Np9sjc9 +GiiontLZQlfIgOXbvP9cWkjFH49LKk0VkmHx/bviSzWpaEg51f5NKwEe7hnX +rjxJRdmDRwq6imPAdDdnwvM6FUMLfm9iF0fCkpp1IbEfqXg18rtr9bYwcHfd +s7pvKQ0Nta7REzcHwa94iMjcQsMXTSJNC+UDwHaVfLiZKw3pzwRedYqfhaBG +4ehdOTS8mzu5e5OTJ5TNNTlda6ahsYXNhZk37nDLOn+fuigdz06v27ZX2BXC +5d2rq3ToaHdf5HNguSP4mQuvKPWg42xUS3FRqj0wXzw58j2Pjk8lF1of/GYH +nTfJqLPf6Bits3hq5pcNGJV9fqovxcBpPf2RpQ/NoXidRYC0AQNPXb45tdXD +BJRp91fqn2Og5ctJM0eOIVhsXf34wQMGOksHCRhY7Ybkr7bKQX0M/ORl5S1Q +pgd1XyI0jGWYqDwQn1k6pAMPBOq22exloroEX6HpOYSCPC6rLoCJOmZyznev +a4NtwFLJ0yVMFGVTjSjvNYG/ZE2c3BATV+9AIrJfHUodhXrZCiy8U/z4a3Cp +KjB3CW51MWWhv0XFKkuttZCd+8VNJpyFxjeuMO6NM2GlfZJGVSkL+58ue2t4 +mgZg6Dh38zcLS9jFavpRa8C3dEXmMJWNEp+XV9imy4LTvnrd0+ZsXKWhfJ7L +lgJnO5uXFpFs1KBNO1UWicGRTy1N+JSN8+1jAZQSERD1chiwG2UjV8hAikwQ +gvqEhs99TA6qr9WbGEwUAODq1udYc3D83LJPznN8kHvpjpF9HAfz7sUUXWTN +kpSS7vzwlxxUEPls2pk+Se4TVRPvm+bg8nsHynqCRsnYTmODm8oEnn9qfSrM +dJiskbaTcjxIoNKTtB8WpwbJIp/A70evEGhf4rKT/aiPLDT3iXlZQ+Cxu6Wj +4kLdZIdP/Oz8PIEyrSJpt7GDTK+trb/wnYKeN7izBy6kQqRPHH+9PBXNrtvI +Ga9MBNv5/Wx7Qypqy58qDTkSBwINoilpYVSs2GxW3Oh6Ge5dvLsluIyKBp8+ +MrOOXARSDt6X/aZihMXO2j3sECi88Mp4G4OGlF1HzFNSLwCrWXnJ2QM0NOH6 +Lu8KPwenziQsM4ygITlq4Ox13Ruu9v2e9aigYSNFjrMh9AwUKWP7jz805Gyy +qc6QdIPk8uilMxw6bhRtC43dfhICtZ45VVjTsWByA9c/4Tjsv9Rd+i6GjocT +dxztyDkCCx/NTqpV09Hg2ny7v+UhSL2/lNn1l449m86vclSzAoGJlVdV1zFQ +e3Gw7IqzB8CdWLRb9SgD9TaUELrlRlCl1t9/LpmB4cYGzx+r7YMp0Qp3uQYG +ykSI7nw3vBPU286sOzHPwL5md33msx0Av9dqm2swUf7I75oHlG2wruXT+oTj +TCQTzuzxWkeCYKLHaoV0JtbyMbvt5DdBYZqksV4TE5tqytoaXq4H25j4Mqog +C4edVM9JGarBb4vFEgZaLExeKVDs36IER6dcLapcWNh+ozfp1TwbvoU8bhrK +YmFaTu6+CQoDFK34Uh59ZKFpXtiOiNcUsF60ZW+9EBupEs89/afkwD3Y5Y/a +FjZGUI/d6tNdCSdbEkL63Hh+bi+Mu2IhAQ5yaQZ7stkYSJ8b0NmwAjbmZtka +tvDmxTxzgwWXwdCitEPZwhwMqpI8NesvCKFaEYa6WznYck31fdpDfvhT7B0d +4sXBbbk0buivOfIITY/PK4+D3PrYZI3av+Tjw0sPlXRwMMPgiqST1zg57PWi +QFeSwMnF/xTSW0dIJT/LdeG6BIY+ljINHx4iN9eOzB3zJXCmWurhmonvpNqP +c+UJBQT++LJ4a+vrHlLfMVS3q5vAw96yveVkJ9m9bKR0ppWCXuHSDU61adBg +EzKttIKKXR8dX+RIJYF6y1x6iQ4Vr9Qkh6bujAdrkcABZV8q1nDJ8i+90cB/ +YiDlXwEVcUPQRYfQCGCMbMhjdVHRw3HRnpsqoRA7dXFjwkoa6voftJ86FggR +j4pfC++iITuvcAffF384rtey86MfDZcodeUafvCBWMu5Hdz7NIw2l47odfcA +zcQl2Tt6eTwMroC4ATfIilqTnyhHxyXbSh/LZjlDSJ6MzNb9dPS7/izL+7oD +9P2Z7NkeRMf3/4nSLVKPQkJZm/Klx3QciRalMGTsoOJudovKTzq+av2jWxtm +DXnmXirlNAZyxzOGvsSYgaSyat91MwbufqDlOhhvDFNE/XxXBAMN9rgu41rt +B84t5yvHKxn4NNZzVFHBAHrbfqhM/mGgV7BveESJLoT0WJZ8YvL8nB3V93yB +Dri7vCubsuTpBelt+ZcAWimKNI/LTAzIzwh8Y6YFiy9Ha7S/ZOI+LDzf8PI/ +KKR/yc38y8RP6RoJbSvV4WPnYr9SJRa6/pXMJFEFtlO1G2QOs7BFM359mTQB +W6V30oISWEgOWyhtEmQClWtwbHMNC/VSU9cdT6HCXkVjltYsC2lFBmVrtFfD +RCbox6qycVuGCQY4ycBg/Lo+JXs2qjTV2sRrS4ITORv2IYmNuQ9+y34dXgGN +T8tlXr9ho/O0q+qtA8LgX3GBuZCPg72Jrw8XBy2G2/2KCYkaHLQcKhGduboQ +kus68qWcOCj4cjB0iyYfCLR4E78yOTh84cDNR8PT5E/hSUFKEy+vh1NOpgZN +kJQqn0OJiwlMHG7/HHLnD/lNpfnpSi2eP51dDVR0f5OBrsTS7ycJTLMwVShX +HCDd1QKaZq8R+PV1SaXkk15ylnv+xIdPBFqunsitXt1FJoxEUUdGCHSwEp1w +duKSocohhRs/UtD6Z7xUjVs6/Hrr79m+hIpJinrqS1OSIP3lp2buZipmTn40 +aKyMh/B8bQmv01T0dRKXrDKOgbtWS/Sf3KLibuu7K7LkI0Haer2MdRsVvRJ+ +rJEsCQX+h4Nrt4jRMCRDvCv5XSCUM2Zuf9KhYUBmmFt66HnoWjf9XcqThqPF +R9o2uPlCREKI05U8Xp7HNGtrDHmA9y6XsNPfaLjpwLHtpyzcIXvM3r9Hko7h +i0Z6xUxcQPBotQv/Ljp+PXdg/aiyI9xnBk77+9FxZRirl0/WHr6SdbVaRXR0 ++PSli+NrB/vvuKmb9tKxZEg/TmuTDcwtYXvyyzPw87XzdmUUc+hV2f7A2pCB +rh1Z9y0WmoB4bkWkVDADt3MVC39W7ofKM9W5Ik8YWDc4sd6nzABIa4bK058M +nLx0ld6+QQ84He4ekgpMlDbRBnNPHYgr3TN/x4SJK3S2bpekImzvC2FkhTGR +/SDaDme0QH1xA51TwcSeoH7VIzs1wWLorLzNKBNT3L16o/3V4RUzvHCYycLg +LdfCb0yrwMNHlLAqKxYadmcY/cwlwN1W7M2eyyx87NCelevHhPTrI/XnK1lY +cZrBlFhEA13SVnxknIV2KRv5WzpXw0Ylzmglh421fz/9SFsgC3fc/KXf2bKx +Os4jw6FQEn6+VcpNjGVjHquiv2K/GCS/fjMu8JKNGyql9BoERODVqvGwor9s +LPieJee9VAi0KvweVShxsP2psO2UrAD8NJV4anOEgyoDOwbZKXzwqUis4nYy +Bz8W1vL/vDhDCh52tjSp4+BYT9qiWNFJ8rGD6SZyAYGrkrO+zUuNkhvDrwR3 +aBDYI7M+/u7Eb5KhUx3NOUZgq/HWKIX6ATLO9EJ7YRqB64XV9mtr9pGf02f/ +1TUSOOrlWucb20W65C95+GOAwLkPS9J0P3DJJ/+tiJ6aIjBr7b7bNAEuaU6+ +VWx+R8H6S+1DozXpMBd+9uEjQSo+Qw/JprYkaNLa6uGxiYo9ynN9Pv/iIfNc +8k25U1RcqGHVJhQSA3wfZa4m51AxuOJexJRDJMTEFjVONPN4yCuZCZwNhSex +8tliory8trkvaSAYBKbWq1c9Qd5+7TDU/PnbechiRj4udqdhIaP5V9xzXwhV +ez3reouGDL2TOraKnpCaTfFZ2kbDzOotmh2x7pB7a8nxSDE6bvc/PJZzzwX0 +KuVWdevSkaKjuq/5jCNIg94ieR86fjxhd9TLwh4C+HQSxe7Rkew3p/7LswMZ +wvzg90461gWGlkbH28CtrrmUHBkGfslRXjXmaA6N9xpTNu1l4C/3VY/+aZsA +pafkfUEAA/n/UKSsx/aDsJXbPW4xA+FXxM7hpbvhRPpz5awfvPm/azdJ+eiB +71f/jw/kmPimKMi/4L4O0A4KU4MNmbicG1c5uhfhr/6DnP+CmcjgrpL33KsN +tVWDaQ1PmGgyrXa9LUoTVIz2mG0eZqLG279tVUXqUKlXuyuKxsK4N1t/B1qo +ws/zEj3J5iz07dT31RomIDJwfLVGJM//w0NJnx8zoTVoewD1KQvFVr8lOrRp +8KLmSHj9HxaG+T/7maS5Br64p9eaM9kYL84SCtsrCxGHcgquWbHx9PIb+m8H +JeGuzI7/vC+z8aKgvuTZC2Lg/9aw53olG031HcJdbURgoFZlU8QEG8XkVvj/ +3SsEQQTzlRHBwfizq7eImwuAtFz+ywWHOBjy4GCkfx0fkBTb8LArHNQymimv +b54h46M4wb9qONhF7y/YbTpJBmtXMcXnOGiiEyaVvXuU7Hk4drxqHYEXq47/ +UuUMkxNK8U21hwnc41p6vHL1IHm9f0F3RDKBkY9Ms808+siqaS09/ToCPcmP +lo71XaTVMv1/9v0E9ukl8+cLdZI34/e2nBkn0CXAI2dSk0vWN7/f4TdLYI79 +w+WtNzrI57pnHFlvKfi61tDwxGg6hPb6fKAuomKMQud+v39J8HN8ourZBip+ +nBqRkJJPgNu9r0acXaioenGS3Z0RA2tjst4szqYiNSd44kx0JOy+O0Js/0zF +yxP8aRcVwiCR7xH3rDDPvxp37W2oQUDzVjFSAhpWrjKi31oUAPNXjSmL3Who +mSf/UG7AFwT4Bne059KwWFnw9qNdnnDn/d8R0y80TLiYFG1W4A43A63avi3n +9c8TmQeb213A4dcrV+MddFRN2MqfkOwIr+tuRzh50VFN9NueWR97MOqcm/XL +p+O6mwuOyVfbgZ9D3bgal46bD+6opD23gX+NA4qT0gwsfSKU3H3ZHLYNS4jc +2s1AR8G8okhzE2AFPTwz48/AxksFX/eKGoL63hqNXY8Y6LP61pIFGrshcHNM +vth3Bq4VvPRhPEUPaG0CwQtXMVG4kbU/460ODNwfvD+8j4mD9e+MJI8hmEzv +PBYQyETxhAQ+N29tkKDNmFFKmfhPa86gp0ATkgWKx/J+MZEO3f8kG9Sh3Pz7 +ylYKC2v+1NocvKgKQr1RcQvNWPhbaO2EqtRaSE7or8m5yMI+qmKBcjMTvMeG +LNzLWJhR9TE8yIwGAVHHdLRGWOi2NuCLod0aWJt44EE2nY2ct1yaqYcsTDc/ +9l1qyUb+AwvPvFgiBcJb3s9+j2KjRYNJoHCqGJwyutI2UsHrq0Mm08wIEZi9 +Wic2McZGnxMeGOQmBJyDPo3pbA7G9Vz+e8xLAO7886k1tuXgcc/1c109fPDn +QLDzRDwHN8gkXlw+P0O2UgVTtF9x0HEllM54T5IDjGk5v1kOaqoUVaxzGCW1 +DLIt/lMlsFTseXsdOUx+o06PytgR2OJW3jOkO0jeWfeidzKRQOlUkSHOlT7y +CdF6IvQ1gZVjnGusgS7SSKufmt1LICwWuHGV3klmvhiaLRolsEncIihzP5es +EnRzejJNoELLRtnvnzrIz7fUqeQcgc/boktXuXeQE290hfY2UvDkXJITLMmA +NxJ/u8wEqGg+ZrDmiGgy+H4wHOzRpOL0tQrKGcUEKJD9Jp3kzOuzihfQ9k4M +oMvRQ3CDilEOGeY11yPhzqbYZqdPVLzf8ewLRS0MBDYumC9cRsOF49mjYypB +ICS4wcWepOHJ7dKyTSsCQKV9g4nqKRqa5pSKeM35wvb+swMSPB4Mrhr+drP0 +BHWHYwVnW2io+WGHWHa5O9xyDb4ixONh0sNPbum4C3iHpKdGbqdjWdw9esgd +R6CJWzXEetLxueeTPYYR9lD+3rqw6C4dRUILjpe+twMVoUXPD3TQ0fntzmjB +FhvgVHPHFHg8rPGc0jl1zRz8Yop1Owx4fhcQe915zATuNKm/ovJ40PYTp5jJ +GcIrvT/j/g8ZeHZbTusavd1wKcrLeVc/b79Pv3bI644eeLbWWCnKMjFh8ExV +zjcd2GtlNc3i8bB+GaO30A1hgfGVVzkXmKgkffNq6CVt2Piev3jnYyY+z7/3 +beaZJq9fOVV1DzHxtBLd1aBVHbTsvOf4eDxkmMGYwzVVSEx6/WPjARZyJ++5 +VLDXQmYGV74jnIVfXt6WdexjQu3dF69Sn/D+AzHJE/b2NOD+6qe4DfPmrVrc +qz3XQNPNB7fe0Hj7zYFS36ZwWSiKf8ElLXh5z66TrZeRgs37kg5ReTzsfLuP +cThXDAYkNpjJ8njwvJb0MDVLBEKWrZpT5PFwdGZjcGugEEz73Gh6zuIg4xec +oIcJwJjLoTd+Nhy8I3Eh5cYIH+x2X8lV5vFgOn8rv1p8ljz38wz9cDUHn9iL +FvZHTJLpKVIr789wUHJI8u0iz1HymLSfkYsKgW3F3feYu4ZJo/R8ga2HCGzM +2r4i3WqQVDGlHVfh8WBs1nCGltNH/vec8M+pJbDo/o4e6b9dZMN7zfVVPQT6 +jWQPctQ6SVnLLcub/hCoXSDDumDDJcnMSr8vfwnUeaRQK/y7gzTEQA2bfwQm +R01cGY7oIC3FukUV5gn8/kL0hLlFBzllfXbL3LP/3S//D4llVqI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.02983059568803629}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk01V8XB3BJUkkZI8qdh0yhv4r67V0yFA2mzJVEKERmksyhjJlJhUQk +FUlJSZShkiKSS4YiRcaQnvu8Ouuzzjp77b2/bw75uKuhHS8PD4/+Eh6e/5+z +Vv47F5+ScOWPNNvv0dmw6aDUTc9mEqqk9XZQZbNg+rW2wIEWEp5eTHGCFVnw +TNvDkfGGhK8aDAxOTWSCGfFGrv0tCZsudY9O1GdCuEJY6bY2Elr9SBSvd8uE +r6vGK+c7SegdKdHs1JABmQ0NTRe+kdDrBmfh8IV0WLPb5/elpWT8/rCixkQ2 +FV6L/ukz5SOj2aTeRluhVAgf8H1PXkbGONneQwF/U2Ax0v/+A34yPkVPsdau +FPj5JtCrewUZU+R0VFampUCzddic/Foy9rU5Ps8TT4Fo3wTeJhkyml63ljZa +lwzL794WWalGRgPSme4v6kng995gpJ/ruWvVJA+5JPgxNV37dCsZ22bHRcVl +kqBVfZen53Yy9issDvr+TYTMFx/aOTvImD3TptdSkwgqHYuZFZpkvFKfGp6+ +NxGO/DvEtDMgo4bMmcow2wS4v39Ko+Y0GaWO2pb0lcdBidQXiRRnbj9yF/BI +YRzcGng57uxCRqWLM8yvWXGQfS71pvQZMi5VtewSCIuDyGINUe+zZPRzEhGr +NYoDq9XBwwp+ZKznEI8/DcQCX7NQWkYEGat3mJa3uF4GE33WtNd1MoaX/NrO +LI8GdDlxDG6QMcYhy6z+ejRsist5vTyXjOS80GmP2GjgaZO8mppHxtDqO1Gz +DtFw23KF7qMCMupb3V6bIxMNvKeG0/6WkBG3hlx0CI+COxdv7wytIqPehzZ6 +ju1FWFG/OSy+jYxXo7+51u2OgMLt8e1OH8h4t+fpJ5JyBOjfHmfv+UjGy9O8 +GRdlIyAuvqxlup07T1HFfPBCOEhYbZG06iKjd9L3jWIV4UAb31rE6COjp+Oy +/TcVw4GQhndVv8gYZb63YT8zDNxd928YXElBA/Vr1OQdIcC3bcm/0lUUXDqV +OzGpGALJPA84/oIUzFa9bWdNDoFH8TK5wkIUXGF9V0yPPwR4749s2ilMwbAs +kb7Ut8EQP3txW9I6CmoHHrWbtQ+G0gsvjXbTKEjaZ2uWln4BfiZCVPZOCj5v +Xd26VCYIBPi3utgRFDy9R0KqdW0QUHwUDeWBgjXrDakFy4LAxGrD+kdIwdsO +o+0fv5yHx7T5Wx80KRiUHeGWGX4eoh6UvxLcR0FmUakWz6dAYLQrrPA/TEFj +jt+avshzcGS9TKSpKwWpT/le9or4g2L3VmOlMxQ0yatc7b3oB/+uGpGWu1HQ +okjmvvSwH+TQox+Wu1OwlNb+M+GZH/Rtnvsm7kXBiXLbrq1ufnBSp2NvWwB3 +fvm+fIP3vnDGI2mVQRQFiQk9Z+/rPhDSIhi7L4/bb/6M/nYnL9gz5D8smk9B +vasGv9wsvICPZ0Srm+tyBf5bD/Z5QbjyqwXXAgrSdE5rHpHzgqikMKcrRdz+ +49o1VEc9Id5iUYtzl4KxZhJRA+6ecHXw14JnNQVbSNKsreEeULXY6nStnYJG +5tYX5l+7g4qDfYl/BwXV3msJ5z52h8J3f8ZNPlEw6WJKrGmJO6TnknxXdnHz +rNup1hPvDj77XCLOfqHg9sP2e86Yu4Na8opcrQFuXiNrIWHYDcoUsPv7bwqy +tlvXZYm5QYFV8UEVISr6z23efUDQFQpcQ68IrKHijGeA9MopF7gZbNn1hWv/ +U9lH27tdIL9gxcloYSruCTw+mXfHBXIn7QL7xagYuWx8QNjYBXJiNhYnS1Nx +xe7Kh1I5zpD6OHblPIuK24S6wuP3nIZIGfe6Wk0q2txd/TH4sSP4hGWmR++h +YlXCHWpYoSM4/HzpaqRFRaWkXbxJqY6gUyO9/qs2FUmaSgfbPRyB/0SdC+8+ +Kn4+d3jLhIIjhBVJSu46RMWA609zfK47QLD6U6dqKyqWzGzlBCadhAAzwbWV +nlRciOkoL0u3A4qIZXO8FxWfeT3abxBlB68ab0U5eVNRWejL/gVfO5AAnWUy +vlRsO2VzwtvcDu7Sg+cCA6i4LoIxwCNlB4O/Z/r3hFDx3X9CVPP0E3Do0tfK +t3FUPJ6sdaInzxbozx/Zfiui4hOxpVZHv9jA43dWpWW3qbg6vORk5TsbMOxd +XAgopuLmm0vsZepsIIhHM1n4DhWJITPy3yIb+Ew0NqiXUdHhw6c+lp8NJFV1 +KVx6SMXxWCESTdIGlj5YmFGuo6LetX/dgRbHoPcmEeP/hYqxmstn539ag6LA +smeHe6jo/GZvLH+HNQQ4NE4pc6i446hWDeWZNUiyzY5+66ViY3B4ZWyiNRwq +dFMxGaBixahugvp2a6i+nduh+IOKLzt/azdEWEH63ZX0vj9U7N9+fr2jsiUY +Vn18oitOwzkd3fGV982AVceZlJWg4UavWc0z18zgb8uw3AzXlY8EUr9eNoOC +vsW0PEkafspTWD/paAaLK5hevDI0/HjtvE0VyQyKzLwVH1NoyJnKGv0UZwp8 +0+uuKm2mocbyUKm1/oehfLN5kIQeDc9cvjm7y9MYAuLKtXu49uUTftVrbwy7 +x0RXF+jT0JG/qCzazBha7rSkbT9Aw5/u6x/81TCGAcU996wMaOjak3PXfKkx +iCkoDV43paH+PXXXkUQjcGcv01c6QUOdrRVs7ceGoEC5u073HA0tXsyYOrIM +oLBV5SU5kNtPgAjJVNoAGCH3Pea5brlU8vmAkAGQ+ivelQTRkPc3Sdxq8hCI +5FdHi4fScA9HrvRHzSGYZTf964uiod5+11Ucy0NQqzw0dC6VhpFGes8eKh8E +810bHt67R0NniRA+PUt9eKnzeyrwPg39d+d1btTRB5UD9ar7HnDn3VCwYomq +Pghaut3hlNMQfkbtHVupDzUedfmrH9GwcWR6i2+VHrAKnK+crKHhk3ivCTlZ +PZgVqnaXbqahZJTQ3rdjeyH18xGFkEEafvC29OGr0oFLMd7O+4Zo6J157Zh3 +oQ4E74grFv5Gw038l95PpenAqcxnCjnfufn92bRd3FcHCCua4pMfNJy5dJXa +vVUHBrq+K8785r4P9YuMqtAGlS6Pzaf+0XCw3V2X/lQLGj9FqRpJ0lFhODG7 +clQTvDrrLeWk6Jg04lGb90UTKF18oUvX01GwhXEo640m+H0ObLsnTcfXZSGB +JXc1gdXj7ikmS0cJYw0w89KEsH6Lig90Osrkxgw+W6IJ8GuThpkq17a/6u+R +dsM9vsbd1gfoqCLKU2pyDuGApeUc4yAdt6yiDZS6IQzfHbk7xvVI01tDMXsE +ylFBcqgBHddwEmomDiAkVO7/V2hMx7Wau/aIkRHcXd5WzVpw6y/J7Cq+BLC5 +48OWpJN0JJI89ntvJqCkiMNoDKKjpqm08+3rGrDE6MrLvAt0lJe4eTX8kgYY +z+21Dwqmo0hSEo+bjwb80b2X918oHWmc9TJeBzRgz2AYLSeCjsx7sTY4rw6d +JDmK52U6BhVnBb82VQf+ZM8Nspl0bOChf7WR2Q5HglaKna2goxCTbEh6pwbb +3vGW731Ix2fFd77MP1UDUcq8KamSjn/VF/X6S9SgoXYko/kRHY3nlK93xaiB +yvJmKquajv0hQ0q2e9Vg+eVY1e4XdDyIpeebX/wHpRliRjqtdGytr+pqfrEF +eCs2JkiP0nGDFrKjh1S4/0en2q9cn5Wnuup1qkAqX/lk0U86UuHrX7FmFVA0 +3G+6Y4yOqm/+dNWWqYD5qL+M9QQd09y9B2IDVaCU+ik/+w8dP2SqJnWtU4Ej +cYlVZH4GjjkpnRM3UIZKR4EBpiwDC8sffg6tVAJ1G59FHhIDs0xh0uGaEjw2 ++7auk+v63w3WRy8qQY1Ow74YCgMTXu/6FWyuBC/pkaVjdAaG7rwWeWNOEdp6 +lwdUyjPQ9Y9YNoGK8Mt8uaieOgNT1/GVB3bIA30f/y4XEwYGmlevt1DfBMkp +r75vO8xAzswdl2rmJhAYiElYasrAXwKbppXEN8GP86L9qWYM9OvV9VMfY8P9 +B6SIWksGGnzNMvyRz4Y9ZI1myeMM7FBL3FIlwYYTs67mtS4M7L4xkPLyHxNy +8z+5SUYy0OjGFdqdKTpkZ3Fkerj+9OKWlOMgHVKThurzLjJwkCxXotBOh+jg +qQ2q0dz6Y6MpHx/Swf2I8Ov9lxn40KE7Jz+ADrsk9lJCkhhIjJnLb+enw5ew +h62jOQzMyMs/OE2iwTq7FNXaSgYOPVn1xuAsBRpuP3+Z/oiBwsJip+zsKOAz +OWruXsXdb21bZIgpBTpD9gSRn3DvN7xh92hQIPP6eNP5GgZWn6XRRZdRgMzR +s99Rz0Cd9PTNJ9PIIGfJk/agjYEmRRFaUa9IAAaOizd/MbCCWa6sG7MROD+H +SG5j3PqWHe51XhshKMZeU32cgW6bgj4Z2GyE5/W2kU2/GRgR+PRHitpG0CaO +iIxPMdAmbRtvR+8GOCBnxFBfYCClTK9qo8YGsFq280CTABPJos+8Amelwa9y +bfYYmYmiH9dUH8mUgtab9wpeU5hYdLjSrzVSCjYlH76XS2Ui6w2HYuIpBZ/c +MxvM6ExMFGEIRByQgm3yrIkaFhMb/nz4nrFECqazQTdeiYm7s4wxyEkS3ENd +fivvZGIU2b5gUHsdOB1s0j5rxsT1qgrnOUxxKEt8ziHMmWjCbJRqkhSHufaH +fistmMh7eKnH8xXiEHUsr+SaJRPPrrmh+2ZEDArdAiXeHmFiXYJnlkOpGIwk +bh6Ut2OiYmuDdaKGGJzuSAobdGOiandpwhVzUXC2sX5hHs01Zc6ppkwYdhxM +OUaOYeLeNwdpx/OFQXDnu4VvXJs3GwcLpgvDbUmt/3wuM/Eiv66Y/wVh+PFG +Pj85nrsPRvVQ9SFhcCIWIt6nMDH/3i+pz2NrwUE6Q29/LhODqYvDmlvXgu2H +jlZ8wsR/3ZNBpIrVMCy61VSqmole11Lup+eshjOGV7rGuRYdNZ6jR62GwDcG +/ddruPPrOkS6Wq+G1Fevp/heMHFrjbhOM99qaHnyWPLVayY6z7kqFRwWhG35 +OUcMOrj5CXvlh/KvAiFvh2GbCSZyBPTEiSQBCFu1flFukokn5reFdgYLwMLV +RuFprn1PeWKImwAMNyhuj5pmorD02sA/BwTg5fqpiLI/TCz5liPts1IAAqsv +0JfysHAg+dXx8pDlMLos41iuIAtDasXOLATyQ1NS88dBOgtVNulMjyTzwZzv +jdZnDBbSfsIpagQfsI76tmQyWZjQf/mPvTcfhLDpLw3ZLEz037BTxIwP1KsD +HlTLs7D7ieCRWSk+uDUkl5SsykKL0Qqh+atLIVw9ykB7Fws7rim9y7jPC8DR +bsqzYuHUuVUfnBd5YNLl2OsAaxYWil5IuzHOA4V/fRuMjrDwpNeWxb5+HpCQ +Ln6x5BgLw+4djQ5s5IEfJqJPrG1ZqDisNcJM44HUxp5icScW8r8YCd+pxgO/ +y31iw7xZuDufwgn/uUjkXyo0tEtgYdGduLKLjAVC330dRyGRhSb/CorrRBaI +34dDnae53iqZfHHNv3mCIB2JjLjCQnXD+cdN7fPEhzLh6lupLGwrbeD9cXGe +4OvwYf/MZuHYhcM3H4zNEbYUHR7vIhZymuJTVRv+EKSKr8WRL1gou/qjSW/m +DHHuhwf1eB0LH9kJlQ5FzRCdZP40jZcsdFwHlfM+M0RiDCv0Zz0L+6hDJfom +MwT/cWcL40YWTvZnLIsXmiF+CM7wk1q59cbSTqeHTBMPj688VtHDwiy9K2JO +3lPEQSFlkcE5Fq65c7iqP2SCyEwTX3d3noVio2JvlnlNEMO0OemABRaqKZZV +b3aYIEI1aukiiyw01owQz9WfIB46mGwnlrBxfWrOl3/iEwSp1vdY8nI2Jo91 +fwwr/E2MeT8v0RZj48zyv7KZneNEfK+R3k0FNp5/YnUmwmSMsJcIMHRRZGNX ++dc79H1jhLpervl/SmysFH7W3UiMEf33J0/WbmbjxdqTP5VYY8S2yCuhPaps +7Jfcknh7+hfxRbH9yTp1Nh53dtVT1P5FyAdYbI7UZmP4Q3GTyLFRol7CRtzx +KBvlH2V8Nz8zQhhmFvPtOsbGlpw9azMtR4gv5LkJSRs2drg97h/VHiGm5RNb +G46zcb9r5cmaDSMETbMulmXPxk6jXTGyTcNEsCt75bfTbMwwN5F9LDdM7GgY +X7T3Y+N8nfj9jdPfiDLf4G8nrrDRrsJlL/PBIKFoQjmpmMxGI9NmD0reIFG4 ++fnADNcS6atHWVcGietDS75GpbIx+oFJrqnnIJFgcqG7NIONWwSVD2moDRLu +ykGtC9fY+PlVRY3YowFC+fu5x0klbPz+afmuzlf9RKmZb9yLejba366cEBH4 +Svz3jB2Y18DGsrta/RJ/+ohH7M5T4a/YWDPJusYY7iNq59R1dBvZ6EW0WTg2 +9REfMxf+NrawccLbtdEvvo9Y4Jw/9f4DGy02TOfXbegjdB3Dtfu+cvfrIzXw +mOglmt+pbantZ2PAeO4IS7mXMFQfIucOsBGW8924Su0lLFfp/rUbYuOgTipv +sUAv4VK84v73YTYuvl+Rof2eQySNx5DHx9noYCk07ezEIaQsdq5p/c1GjRJJ +xgVrDpH9fHShbIKNrSLmIdmHOMTNxAMdHlNsdAnyzJtR4xCP/lsbOzvLxpxN +B29R+DgEkV0T8OkPGzUfyDYI/uohavndnB7NsVG2Y5vUtw89RFP7O62ABTbm +2d1f03mjhzDAYFXrv2xMjZm+MhbVQ3wsUCETi2x81hVbud69h7AQ/iok+4+N +354LnTIz7yF6fBMX/nEt2bk64xb2EP8D2Ec48Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.02983059568803629}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk01V8XB3BJUkkZI8qdh0yhv4r67V0yFA2mzJVEKERmksyhjJlJhUQk +FUlJSZShkiKSS4YiRcaQnvu8Ouuzzjp77b2/bw75uKuhHS8PD4/+Eh6e/5+z +Vv47F5+ScOWPNNvv0dmw6aDUTc9mEqqk9XZQZbNg+rW2wIEWEp5eTHGCFVnw +TNvDkfGGhK8aDAxOTWSCGfFGrv0tCZsudY9O1GdCuEJY6bY2Elr9SBSvd8uE +r6vGK+c7SegdKdHs1JABmQ0NTRe+kdDrBmfh8IV0WLPb5/elpWT8/rCixkQ2 +FV6L/ukz5SOj2aTeRluhVAgf8H1PXkbGONneQwF/U2Ax0v/+A34yPkVPsdau +FPj5JtCrewUZU+R0VFampUCzddic/Foy9rU5Ps8TT4Fo3wTeJhkyml63ljZa +lwzL794WWalGRgPSme4v6kng995gpJ/ruWvVJA+5JPgxNV37dCsZ22bHRcVl +kqBVfZen53Yy9issDvr+TYTMFx/aOTvImD3TptdSkwgqHYuZFZpkvFKfGp6+ +NxGO/DvEtDMgo4bMmcow2wS4v39Ko+Y0GaWO2pb0lcdBidQXiRRnbj9yF/BI +YRzcGng57uxCRqWLM8yvWXGQfS71pvQZMi5VtewSCIuDyGINUe+zZPRzEhGr +NYoDq9XBwwp+ZKznEI8/DcQCX7NQWkYEGat3mJa3uF4GE33WtNd1MoaX/NrO +LI8GdDlxDG6QMcYhy6z+ejRsist5vTyXjOS80GmP2GjgaZO8mppHxtDqO1Gz +DtFw23KF7qMCMupb3V6bIxMNvKeG0/6WkBG3hlx0CI+COxdv7wytIqPehzZ6 +ju1FWFG/OSy+jYxXo7+51u2OgMLt8e1OH8h4t+fpJ5JyBOjfHmfv+UjGy9O8 +GRdlIyAuvqxlup07T1HFfPBCOEhYbZG06iKjd9L3jWIV4UAb31rE6COjp+Oy +/TcVw4GQhndVv8gYZb63YT8zDNxd928YXElBA/Vr1OQdIcC3bcm/0lUUXDqV +OzGpGALJPA84/oIUzFa9bWdNDoFH8TK5wkIUXGF9V0yPPwR4749s2ilMwbAs +kb7Ut8EQP3txW9I6CmoHHrWbtQ+G0gsvjXbTKEjaZ2uWln4BfiZCVPZOCj5v +Xd26VCYIBPi3utgRFDy9R0KqdW0QUHwUDeWBgjXrDakFy4LAxGrD+kdIwdsO +o+0fv5yHx7T5Wx80KRiUHeGWGX4eoh6UvxLcR0FmUakWz6dAYLQrrPA/TEFj +jt+avshzcGS9TKSpKwWpT/le9or4g2L3VmOlMxQ0yatc7b3oB/+uGpGWu1HQ +okjmvvSwH+TQox+Wu1OwlNb+M+GZH/Rtnvsm7kXBiXLbrq1ufnBSp2NvWwB3 +fvm+fIP3vnDGI2mVQRQFiQk9Z+/rPhDSIhi7L4/bb/6M/nYnL9gz5D8smk9B +vasGv9wsvICPZ0Srm+tyBf5bD/Z5QbjyqwXXAgrSdE5rHpHzgqikMKcrRdz+ +49o1VEc9Id5iUYtzl4KxZhJRA+6ecHXw14JnNQVbSNKsreEeULXY6nStnYJG +5tYX5l+7g4qDfYl/BwXV3msJ5z52h8J3f8ZNPlEw6WJKrGmJO6TnknxXdnHz +rNup1hPvDj77XCLOfqHg9sP2e86Yu4Na8opcrQFuXiNrIWHYDcoUsPv7bwqy +tlvXZYm5QYFV8UEVISr6z23efUDQFQpcQ68IrKHijGeA9MopF7gZbNn1hWv/ +U9lH27tdIL9gxcloYSruCTw+mXfHBXIn7QL7xagYuWx8QNjYBXJiNhYnS1Nx +xe7Kh1I5zpD6OHblPIuK24S6wuP3nIZIGfe6Wk0q2txd/TH4sSP4hGWmR++h +YlXCHWpYoSM4/HzpaqRFRaWkXbxJqY6gUyO9/qs2FUmaSgfbPRyB/0SdC+8+ +Kn4+d3jLhIIjhBVJSu46RMWA609zfK47QLD6U6dqKyqWzGzlBCadhAAzwbWV +nlRciOkoL0u3A4qIZXO8FxWfeT3abxBlB68ab0U5eVNRWejL/gVfO5AAnWUy +vlRsO2VzwtvcDu7Sg+cCA6i4LoIxwCNlB4O/Z/r3hFDx3X9CVPP0E3Do0tfK +t3FUPJ6sdaInzxbozx/Zfiui4hOxpVZHv9jA43dWpWW3qbg6vORk5TsbMOxd +XAgopuLmm0vsZepsIIhHM1n4DhWJITPy3yIb+Ew0NqiXUdHhw6c+lp8NJFV1 +KVx6SMXxWCESTdIGlj5YmFGuo6LetX/dgRbHoPcmEeP/hYqxmstn539ag6LA +smeHe6jo/GZvLH+HNQQ4NE4pc6i446hWDeWZNUiyzY5+66ViY3B4ZWyiNRwq +dFMxGaBixahugvp2a6i+nduh+IOKLzt/azdEWEH63ZX0vj9U7N9+fr2jsiUY +Vn18oitOwzkd3fGV982AVceZlJWg4UavWc0z18zgb8uw3AzXlY8EUr9eNoOC +vsW0PEkafspTWD/paAaLK5hevDI0/HjtvE0VyQyKzLwVH1NoyJnKGv0UZwp8 +0+uuKm2mocbyUKm1/oehfLN5kIQeDc9cvjm7y9MYAuLKtXu49uUTftVrbwy7 +x0RXF+jT0JG/qCzazBha7rSkbT9Aw5/u6x/81TCGAcU996wMaOjak3PXfKkx +iCkoDV43paH+PXXXkUQjcGcv01c6QUOdrRVs7ceGoEC5u073HA0tXsyYOrIM +oLBV5SU5kNtPgAjJVNoAGCH3Pea5brlU8vmAkAGQ+ivelQTRkPc3Sdxq8hCI +5FdHi4fScA9HrvRHzSGYZTf964uiod5+11Ucy0NQqzw0dC6VhpFGes8eKh8E +810bHt67R0NniRA+PUt9eKnzeyrwPg39d+d1btTRB5UD9ar7HnDn3VCwYomq +Pghaut3hlNMQfkbtHVupDzUedfmrH9GwcWR6i2+VHrAKnK+crKHhk3ivCTlZ +PZgVqnaXbqahZJTQ3rdjeyH18xGFkEEafvC29OGr0oFLMd7O+4Zo6J157Zh3 +oQ4E74grFv5Gw038l95PpenAqcxnCjnfufn92bRd3FcHCCua4pMfNJy5dJXa +vVUHBrq+K8785r4P9YuMqtAGlS6Pzaf+0XCw3V2X/lQLGj9FqRpJ0lFhODG7 +clQTvDrrLeWk6Jg04lGb90UTKF18oUvX01GwhXEo640m+H0ObLsnTcfXZSGB +JXc1gdXj7ikmS0cJYw0w89KEsH6Lig90Osrkxgw+W6IJ8GuThpkq17a/6u+R +dsM9vsbd1gfoqCLKU2pyDuGApeUc4yAdt6yiDZS6IQzfHbk7xvVI01tDMXsE +ylFBcqgBHddwEmomDiAkVO7/V2hMx7Wau/aIkRHcXd5WzVpw6y/J7Cq+BLC5 +48OWpJN0JJI89ntvJqCkiMNoDKKjpqm08+3rGrDE6MrLvAt0lJe4eTX8kgYY +z+21Dwqmo0hSEo+bjwb80b2X918oHWmc9TJeBzRgz2AYLSeCjsx7sTY4rw6d +JDmK52U6BhVnBb82VQf+ZM8Nspl0bOChf7WR2Q5HglaKna2goxCTbEh6pwbb +3vGW731Ix2fFd77MP1UDUcq8KamSjn/VF/X6S9SgoXYko/kRHY3nlK93xaiB +yvJmKquajv0hQ0q2e9Vg+eVY1e4XdDyIpeebX/wHpRliRjqtdGytr+pqfrEF +eCs2JkiP0nGDFrKjh1S4/0en2q9cn5Wnuup1qkAqX/lk0U86UuHrX7FmFVA0 +3G+6Y4yOqm/+dNWWqYD5qL+M9QQd09y9B2IDVaCU+ik/+w8dP2SqJnWtU4Ej +cYlVZH4GjjkpnRM3UIZKR4EBpiwDC8sffg6tVAJ1G59FHhIDs0xh0uGaEjw2 ++7auk+v63w3WRy8qQY1Ow74YCgMTXu/6FWyuBC/pkaVjdAaG7rwWeWNOEdp6 +lwdUyjPQ9Y9YNoGK8Mt8uaieOgNT1/GVB3bIA30f/y4XEwYGmlevt1DfBMkp +r75vO8xAzswdl2rmJhAYiElYasrAXwKbppXEN8GP86L9qWYM9OvV9VMfY8P9 +B6SIWksGGnzNMvyRz4Y9ZI1myeMM7FBL3FIlwYYTs67mtS4M7L4xkPLyHxNy +8z+5SUYy0OjGFdqdKTpkZ3Fkerj+9OKWlOMgHVKThurzLjJwkCxXotBOh+jg +qQ2q0dz6Y6MpHx/Swf2I8Ov9lxn40KE7Jz+ADrsk9lJCkhhIjJnLb+enw5ew +h62jOQzMyMs/OE2iwTq7FNXaSgYOPVn1xuAsBRpuP3+Z/oiBwsJip+zsKOAz +OWruXsXdb21bZIgpBTpD9gSRn3DvN7xh92hQIPP6eNP5GgZWn6XRRZdRgMzR +s99Rz0Cd9PTNJ9PIIGfJk/agjYEmRRFaUa9IAAaOizd/MbCCWa6sG7MROD+H +SG5j3PqWHe51XhshKMZeU32cgW6bgj4Z2GyE5/W2kU2/GRgR+PRHitpG0CaO +iIxPMdAmbRtvR+8GOCBnxFBfYCClTK9qo8YGsFq280CTABPJos+8Amelwa9y +bfYYmYmiH9dUH8mUgtab9wpeU5hYdLjSrzVSCjYlH76XS2Ui6w2HYuIpBZ/c +MxvM6ExMFGEIRByQgm3yrIkaFhMb/nz4nrFECqazQTdeiYm7s4wxyEkS3ENd +fivvZGIU2b5gUHsdOB1s0j5rxsT1qgrnOUxxKEt8ziHMmWjCbJRqkhSHufaH +fistmMh7eKnH8xXiEHUsr+SaJRPPrrmh+2ZEDArdAiXeHmFiXYJnlkOpGIwk +bh6Ut2OiYmuDdaKGGJzuSAobdGOiandpwhVzUXC2sX5hHs01Zc6ppkwYdhxM +OUaOYeLeNwdpx/OFQXDnu4VvXJs3GwcLpgvDbUmt/3wuM/Eiv66Y/wVh+PFG +Pj85nrsPRvVQ9SFhcCIWIt6nMDH/3i+pz2NrwUE6Q29/LhODqYvDmlvXgu2H +jlZ8wsR/3ZNBpIrVMCy61VSqmole11Lup+eshjOGV7rGuRYdNZ6jR62GwDcG +/ddruPPrOkS6Wq+G1Fevp/heMHFrjbhOM99qaHnyWPLVayY6z7kqFRwWhG35 +OUcMOrj5CXvlh/KvAiFvh2GbCSZyBPTEiSQBCFu1flFukokn5reFdgYLwMLV +RuFprn1PeWKImwAMNyhuj5pmorD02sA/BwTg5fqpiLI/TCz5liPts1IAAqsv +0JfysHAg+dXx8pDlMLos41iuIAtDasXOLATyQ1NS88dBOgtVNulMjyTzwZzv +jdZnDBbSfsIpagQfsI76tmQyWZjQf/mPvTcfhLDpLw3ZLEz037BTxIwP1KsD +HlTLs7D7ieCRWSk+uDUkl5SsykKL0Qqh+atLIVw9ykB7Fws7rim9y7jPC8DR +bsqzYuHUuVUfnBd5YNLl2OsAaxYWil5IuzHOA4V/fRuMjrDwpNeWxb5+HpCQ +Ln6x5BgLw+4djQ5s5IEfJqJPrG1ZqDisNcJM44HUxp5icScW8r8YCd+pxgO/ +y31iw7xZuDufwgn/uUjkXyo0tEtgYdGduLKLjAVC330dRyGRhSb/CorrRBaI +34dDnae53iqZfHHNv3mCIB2JjLjCQnXD+cdN7fPEhzLh6lupLGwrbeD9cXGe +4OvwYf/MZuHYhcM3H4zNEbYUHR7vIhZymuJTVRv+EKSKr8WRL1gou/qjSW/m +DHHuhwf1eB0LH9kJlQ5FzRCdZP40jZcsdFwHlfM+M0RiDCv0Zz0L+6hDJfom +MwT/cWcL40YWTvZnLIsXmiF+CM7wk1q59cbSTqeHTBMPj688VtHDwiy9K2JO +3lPEQSFlkcE5Fq65c7iqP2SCyEwTX3d3noVio2JvlnlNEMO0OemABRaqKZZV +b3aYIEI1aukiiyw01owQz9WfIB46mGwnlrBxfWrOl3/iEwSp1vdY8nI2Jo91 +fwwr/E2MeT8v0RZj48zyv7KZneNEfK+R3k0FNp5/YnUmwmSMsJcIMHRRZGNX ++dc79H1jhLpervl/SmysFH7W3UiMEf33J0/WbmbjxdqTP5VYY8S2yCuhPaps +7Jfcknh7+hfxRbH9yTp1Nh53dtVT1P5FyAdYbI7UZmP4Q3GTyLFRol7CRtzx +KBvlH2V8Nz8zQhhmFvPtOsbGlpw9azMtR4gv5LkJSRs2drg97h/VHiGm5RNb +G46zcb9r5cmaDSMETbMulmXPxk6jXTGyTcNEsCt75bfTbMwwN5F9LDdM7GgY +X7T3Y+N8nfj9jdPfiDLf4G8nrrDRrsJlL/PBIKFoQjmpmMxGI9NmD0reIFG4 ++fnADNcS6atHWVcGietDS75GpbIx+oFJrqnnIJFgcqG7NIONWwSVD2moDRLu +ykGtC9fY+PlVRY3YowFC+fu5x0klbPz+afmuzlf9RKmZb9yLejba366cEBH4 +Svz3jB2Y18DGsrta/RJ/+ohH7M5T4a/YWDPJusYY7iNq59R1dBvZ6EW0WTg2 +9REfMxf+NrawccLbtdEvvo9Y4Jw/9f4DGy02TOfXbegjdB3Dtfu+cvfrIzXw +mOglmt+pbantZ2PAeO4IS7mXMFQfIucOsBGW8924Su0lLFfp/rUbYuOgTipv +sUAv4VK84v73YTYuvl+Rof2eQySNx5DHx9noYCk07ezEIaQsdq5p/c1GjRJJ +xgVrDpH9fHShbIKNrSLmIdmHOMTNxAMdHlNsdAnyzJtR4xCP/lsbOzvLxpxN +B29R+DgEkV0T8OkPGzUfyDYI/uohavndnB7NsVG2Y5vUtw89RFP7O62ABTbm +2d1f03mjhzDAYFXrv2xMjZm+MhbVQ3wsUCETi2x81hVbud69h7AQ/iok+4+N +354LnTIz7yF6fBMX/nEt2bk64xb2EP8D2Ec48Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFmGk8le/XxSVJhTJGlDOfc2cK/VTUvXcplCZTZqVSKEQZk2QOZcxMKjSI +pCKRlEQZKg1EcsxFiowhnvO8+r+6PuvFfre+69prUw+7Gtnz8/Hx7V/Ax/f/ +LzX05EI+Pgou/Zly5EdkJlyB7s+g/j9dwXJ5UOrwPz19sfFoUtr/9Np9sjc9 +GiiontLZQlfIgOXbvP9cWkjFH49LKk0VkmHx/bviSzWpaEg51f5NKwEe7hnX +rjxJRdmDRwq6imPAdDdnwvM6FUMLfm9iF0fCkpp1IbEfqXg18rtr9bYwcHfd +s7pvKQ0Nta7REzcHwa94iMjcQsMXTSJNC+UDwHaVfLiZKw3pzwRedYqfhaBG +4ehdOTS8mzu5e5OTJ5TNNTlda6ahsYXNhZk37nDLOn+fuigdz06v27ZX2BXC +5d2rq3ToaHdf5HNguSP4mQuvKPWg42xUS3FRqj0wXzw58j2Pjk8lF1of/GYH +nTfJqLPf6Bits3hq5pcNGJV9fqovxcBpPf2RpQ/NoXidRYC0AQNPXb45tdXD +BJRp91fqn2Og5ctJM0eOIVhsXf34wQMGOksHCRhY7Ybkr7bKQX0M/ORl5S1Q +pgd1XyI0jGWYqDwQn1k6pAMPBOq22exloroEX6HpOYSCPC6rLoCJOmZyznev +a4NtwFLJ0yVMFGVTjSjvNYG/ZE2c3BATV+9AIrJfHUodhXrZCiy8U/z4a3Cp +KjB3CW51MWWhv0XFKkuttZCd+8VNJpyFxjeuMO6NM2GlfZJGVSkL+58ue2t4 +mgZg6Dh38zcLS9jFavpRa8C3dEXmMJWNEp+XV9imy4LTvnrd0+ZsXKWhfJ7L +lgJnO5uXFpFs1KBNO1UWicGRTy1N+JSN8+1jAZQSERD1chiwG2UjV8hAikwQ +gvqEhs99TA6qr9WbGEwUAODq1udYc3D83LJPznN8kHvpjpF9HAfz7sUUXWTN +kpSS7vzwlxxUEPls2pk+Se4TVRPvm+bg8nsHynqCRsnYTmODm8oEnn9qfSrM +dJiskbaTcjxIoNKTtB8WpwbJIp/A70evEGhf4rKT/aiPLDT3iXlZQ+Cxu6Wj +4kLdZIdP/Oz8PIEyrSJpt7GDTK+trb/wnYKeN7izBy6kQqRPHH+9PBXNrtvI +Ga9MBNv5/Wx7Qypqy58qDTkSBwINoilpYVSs2GxW3Oh6Ge5dvLsluIyKBp8+ +MrOOXARSDt6X/aZihMXO2j3sECi88Mp4G4OGlF1HzFNSLwCrWXnJ2QM0NOH6 +Lu8KPwenziQsM4ygITlq4Ox13Ruu9v2e9aigYSNFjrMh9AwUKWP7jz805Gyy +qc6QdIPk8uilMxw6bhRtC43dfhICtZ45VVjTsWByA9c/4Tjsv9Rd+i6GjocT +dxztyDkCCx/NTqpV09Hg2ny7v+UhSL2/lNn1l449m86vclSzAoGJlVdV1zFQ +e3Gw7IqzB8CdWLRb9SgD9TaUELrlRlCl1t9/LpmB4cYGzx+r7YMp0Qp3uQYG +ykSI7nw3vBPU286sOzHPwL5md33msx0Av9dqm2swUf7I75oHlG2wruXT+oTj +TCQTzuzxWkeCYKLHaoV0JtbyMbvt5DdBYZqksV4TE5tqytoaXq4H25j4Mqog +C4edVM9JGarBb4vFEgZaLExeKVDs36IER6dcLapcWNh+ozfp1TwbvoU8bhrK +YmFaTu6+CQoDFK34Uh59ZKFpXtiOiNcUsF60ZW+9EBupEs89/afkwD3Y5Y/a +FjZGUI/d6tNdCSdbEkL63Hh+bi+Mu2IhAQ5yaQZ7stkYSJ8b0NmwAjbmZtka +tvDmxTxzgwWXwdCitEPZwhwMqpI8NesvCKFaEYa6WznYck31fdpDfvhT7B0d +4sXBbbk0buivOfIITY/PK4+D3PrYZI3av+Tjw0sPlXRwMMPgiqST1zg57PWi +QFeSwMnF/xTSW0dIJT/LdeG6BIY+ljINHx4iN9eOzB3zJXCmWurhmonvpNqP +c+UJBQT++LJ4a+vrHlLfMVS3q5vAw96yveVkJ9m9bKR0ppWCXuHSDU61adBg +EzKttIKKXR8dX+RIJYF6y1x6iQ4Vr9Qkh6bujAdrkcABZV8q1nDJ8i+90cB/ +YiDlXwEVcUPQRYfQCGCMbMhjdVHRw3HRnpsqoRA7dXFjwkoa6voftJ86FggR +j4pfC++iITuvcAffF384rtey86MfDZcodeUafvCBWMu5Hdz7NIw2l47odfcA +zcQl2Tt6eTwMroC4ATfIilqTnyhHxyXbSh/LZjlDSJ6MzNb9dPS7/izL+7oD +9P2Z7NkeRMf3/4nSLVKPQkJZm/Klx3QciRalMGTsoOJudovKTzq+av2jWxtm +DXnmXirlNAZyxzOGvsSYgaSyat91MwbufqDlOhhvDFNE/XxXBAMN9rgu41rt +B84t5yvHKxn4NNZzVFHBAHrbfqhM/mGgV7BveESJLoT0WJZ8YvL8nB3V93yB +Dri7vCubsuTpBelt+ZcAWimKNI/LTAzIzwh8Y6YFiy9Ha7S/ZOI+LDzf8PI/ +KKR/yc38y8RP6RoJbSvV4WPnYr9SJRa6/pXMJFEFtlO1G2QOs7BFM359mTQB +W6V30oISWEgOWyhtEmQClWtwbHMNC/VSU9cdT6HCXkVjltYsC2lFBmVrtFfD +RCbox6qycVuGCQY4ycBg/Lo+JXs2qjTV2sRrS4ITORv2IYmNuQ9+y34dXgGN +T8tlXr9ho/O0q+qtA8LgX3GBuZCPg72Jrw8XBy2G2/2KCYkaHLQcKhGduboQ +kus68qWcOCj4cjB0iyYfCLR4E78yOTh84cDNR8PT5E/hSUFKEy+vh1NOpgZN +kJQqn0OJiwlMHG7/HHLnD/lNpfnpSi2eP51dDVR0f5OBrsTS7ycJTLMwVShX +HCDd1QKaZq8R+PV1SaXkk15ylnv+xIdPBFqunsitXt1FJoxEUUdGCHSwEp1w +duKSocohhRs/UtD6Z7xUjVs6/Hrr79m+hIpJinrqS1OSIP3lp2buZipmTn40 +aKyMh/B8bQmv01T0dRKXrDKOgbtWS/Sf3KLibuu7K7LkI0Haer2MdRsVvRJ+ +rJEsCQX+h4Nrt4jRMCRDvCv5XSCUM2Zuf9KhYUBmmFt66HnoWjf9XcqThqPF +R9o2uPlCREKI05U8Xp7HNGtrDHmA9y6XsNPfaLjpwLHtpyzcIXvM3r9Hko7h +i0Z6xUxcQPBotQv/Ljp+PXdg/aiyI9xnBk77+9FxZRirl0/WHr6SdbVaRXR0 ++PSli+NrB/vvuKmb9tKxZEg/TmuTDcwtYXvyyzPw87XzdmUUc+hV2f7A2pCB +rh1Z9y0WmoB4bkWkVDADt3MVC39W7ofKM9W5Ik8YWDc4sd6nzABIa4bK058M +nLx0ld6+QQ84He4ekgpMlDbRBnNPHYgr3TN/x4SJK3S2bpekImzvC2FkhTGR +/SDaDme0QH1xA51TwcSeoH7VIzs1wWLorLzNKBNT3L16o/3V4RUzvHCYycLg +LdfCb0yrwMNHlLAqKxYadmcY/cwlwN1W7M2eyyx87NCelevHhPTrI/XnK1lY +cZrBlFhEA13SVnxknIV2KRv5WzpXw0Ylzmglh421fz/9SFsgC3fc/KXf2bKx +Os4jw6FQEn6+VcpNjGVjHquiv2K/GCS/fjMu8JKNGyql9BoERODVqvGwor9s +LPieJee9VAi0KvweVShxsP2psO2UrAD8NJV4anOEgyoDOwbZKXzwqUis4nYy +Bz8W1vL/vDhDCh52tjSp4+BYT9qiWNFJ8rGD6SZyAYGrkrO+zUuNkhvDrwR3 +aBDYI7M+/u7Eb5KhUx3NOUZgq/HWKIX6ATLO9EJ7YRqB64XV9mtr9pGf02f/ +1TUSOOrlWucb20W65C95+GOAwLkPS9J0P3DJJ/+tiJ6aIjBr7b7bNAEuaU6+ +VWx+R8H6S+1DozXpMBd+9uEjQSo+Qw/JprYkaNLa6uGxiYo9ynN9Pv/iIfNc +8k25U1RcqGHVJhQSA3wfZa4m51AxuOJexJRDJMTEFjVONPN4yCuZCZwNhSex +8tliory8trkvaSAYBKbWq1c9Qd5+7TDU/PnbechiRj4udqdhIaP5V9xzXwhV +ez3reouGDL2TOraKnpCaTfFZ2kbDzOotmh2x7pB7a8nxSDE6bvc/PJZzzwX0 +KuVWdevSkaKjuq/5jCNIg94ieR86fjxhd9TLwh4C+HQSxe7Rkew3p/7LswMZ +wvzg90461gWGlkbH28CtrrmUHBkGfslRXjXmaA6N9xpTNu1l4C/3VY/+aZsA +pafkfUEAA/n/UKSsx/aDsJXbPW4xA+FXxM7hpbvhRPpz5awfvPm/azdJ+eiB +71f/jw/kmPimKMi/4L4O0A4KU4MNmbicG1c5uhfhr/6DnP+CmcjgrpL33KsN +tVWDaQ1PmGgyrXa9LUoTVIz2mG0eZqLG279tVUXqUKlXuyuKxsK4N1t/B1qo +ws/zEj3J5iz07dT31RomIDJwfLVGJM//w0NJnx8zoTVoewD1KQvFVr8lOrRp +8KLmSHj9HxaG+T/7maS5Br64p9eaM9kYL84SCtsrCxGHcgquWbHx9PIb+m8H +JeGuzI7/vC+z8aKgvuTZC2Lg/9aw53olG031HcJdbURgoFZlU8QEG8XkVvj/ +3SsEQQTzlRHBwfizq7eImwuAtFz+ywWHOBjy4GCkfx0fkBTb8LArHNQymimv +b54h46M4wb9qONhF7y/YbTpJBmtXMcXnOGiiEyaVvXuU7Hk4drxqHYEXq47/ +UuUMkxNK8U21hwnc41p6vHL1IHm9f0F3RDKBkY9Ms808+siqaS09/ToCPcmP +lo71XaTVMv1/9v0E9ukl8+cLdZI34/e2nBkn0CXAI2dSk0vWN7/f4TdLYI79 +w+WtNzrI57pnHFlvKfi61tDwxGg6hPb6fKAuomKMQud+v39J8HN8ourZBip+ +nBqRkJJPgNu9r0acXaioenGS3Z0RA2tjst4szqYiNSd44kx0JOy+O0Js/0zF +yxP8aRcVwiCR7xH3rDDPvxp37W2oQUDzVjFSAhpWrjKi31oUAPNXjSmL3Who +mSf/UG7AFwT4Bne059KwWFnw9qNdnnDn/d8R0y80TLiYFG1W4A43A63avi3n +9c8TmQeb213A4dcrV+MddFRN2MqfkOwIr+tuRzh50VFN9NueWR97MOqcm/XL +p+O6mwuOyVfbgZ9D3bgal46bD+6opD23gX+NA4qT0gwsfSKU3H3ZHLYNS4jc +2s1AR8G8okhzE2AFPTwz48/AxksFX/eKGoL63hqNXY8Y6LP61pIFGrshcHNM +vth3Bq4VvPRhPEUPaG0CwQtXMVG4kbU/460ODNwfvD+8j4mD9e+MJI8hmEzv +PBYQyETxhAQ+N29tkKDNmFFKmfhPa86gp0ATkgWKx/J+MZEO3f8kG9Sh3Pz7 +ylYKC2v+1NocvKgKQr1RcQvNWPhbaO2EqtRaSE7or8m5yMI+qmKBcjMTvMeG +LNzLWJhR9TE8yIwGAVHHdLRGWOi2NuCLod0aWJt44EE2nY2ct1yaqYcsTDc/ +9l1qyUb+AwvPvFgiBcJb3s9+j2KjRYNJoHCqGJwyutI2UsHrq0Mm08wIEZi9 +Wic2McZGnxMeGOQmBJyDPo3pbA7G9Vz+e8xLAO7886k1tuXgcc/1c109fPDn +QLDzRDwHN8gkXlw+P0O2UgVTtF9x0HEllM54T5IDjGk5v1kOaqoUVaxzGCW1 +DLIt/lMlsFTseXsdOUx+o06PytgR2OJW3jOkO0jeWfeidzKRQOlUkSHOlT7y +CdF6IvQ1gZVjnGusgS7SSKufmt1LICwWuHGV3klmvhiaLRolsEncIihzP5es +EnRzejJNoELLRtnvnzrIz7fUqeQcgc/boktXuXeQE290hfY2UvDkXJITLMmA +NxJ/u8wEqGg+ZrDmiGgy+H4wHOzRpOL0tQrKGcUEKJD9Jp3kzOuzihfQ9k4M +oMvRQ3CDilEOGeY11yPhzqbYZqdPVLzf8ewLRS0MBDYumC9cRsOF49mjYypB +ICS4wcWepOHJ7dKyTSsCQKV9g4nqKRqa5pSKeM35wvb+swMSPB4Mrhr+drP0 +BHWHYwVnW2io+WGHWHa5O9xyDb4ixONh0sNPbum4C3iHpKdGbqdjWdw9esgd +R6CJWzXEetLxueeTPYYR9lD+3rqw6C4dRUILjpe+twMVoUXPD3TQ0fntzmjB +FhvgVHPHFHg8rPGc0jl1zRz8Yop1Owx4fhcQe915zATuNKm/ovJ40PYTp5jJ +GcIrvT/j/g8ZeHZbTusavd1wKcrLeVc/b79Pv3bI644eeLbWWCnKMjFh8ExV +zjcd2GtlNc3i8bB+GaO30A1hgfGVVzkXmKgkffNq6CVt2Piev3jnYyY+z7/3 +beaZJq9fOVV1DzHxtBLd1aBVHbTsvOf4eDxkmMGYwzVVSEx6/WPjARZyJ++5 +VLDXQmYGV74jnIVfXt6WdexjQu3dF69Sn/D+AzHJE/b2NOD+6qe4DfPmrVrc +qz3XQNPNB7fe0Hj7zYFS36ZwWSiKf8ElLXh5z66TrZeRgs37kg5ReTzsfLuP +cThXDAYkNpjJ8njwvJb0MDVLBEKWrZpT5PFwdGZjcGugEEz73Gh6zuIg4xec +oIcJwJjLoTd+Nhy8I3Eh5cYIH+x2X8lV5vFgOn8rv1p8ljz38wz9cDUHn9iL +FvZHTJLpKVIr789wUHJI8u0iz1HymLSfkYsKgW3F3feYu4ZJo/R8ga2HCGzM +2r4i3WqQVDGlHVfh8WBs1nCGltNH/vec8M+pJbDo/o4e6b9dZMN7zfVVPQT6 +jWQPctQ6SVnLLcub/hCoXSDDumDDJcnMSr8vfwnUeaRQK/y7gzTEQA2bfwQm +R01cGY7oIC3FukUV5gn8/kL0hLlFBzllfXbL3LP/3S//D4llVqI= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.02983059568803629}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1mk01V8XB3BJUkkZI8qdh0yhv4r67V0yFA2mzJVEKERmksyhjJlJhUQk +FUlJSZShkiKSS4YiRcaQnvu8Ouuzzjp77b2/bw75uKuhHS8PD4/+Eh6e/5+z +Vv47F5+ScOWPNNvv0dmw6aDUTc9mEqqk9XZQZbNg+rW2wIEWEp5eTHGCFVnw +TNvDkfGGhK8aDAxOTWSCGfFGrv0tCZsudY9O1GdCuEJY6bY2Elr9SBSvd8uE +r6vGK+c7SegdKdHs1JABmQ0NTRe+kdDrBmfh8IV0WLPb5/elpWT8/rCixkQ2 +FV6L/ukz5SOj2aTeRluhVAgf8H1PXkbGONneQwF/U2Ax0v/+A34yPkVPsdau +FPj5JtCrewUZU+R0VFampUCzddic/Foy9rU5Ps8TT4Fo3wTeJhkyml63ljZa +lwzL794WWalGRgPSme4v6kng995gpJ/ruWvVJA+5JPgxNV37dCsZ22bHRcVl +kqBVfZen53Yy9issDvr+TYTMFx/aOTvImD3TptdSkwgqHYuZFZpkvFKfGp6+ +NxGO/DvEtDMgo4bMmcow2wS4v39Ko+Y0GaWO2pb0lcdBidQXiRRnbj9yF/BI +YRzcGng57uxCRqWLM8yvWXGQfS71pvQZMi5VtewSCIuDyGINUe+zZPRzEhGr +NYoDq9XBwwp+ZKznEI8/DcQCX7NQWkYEGat3mJa3uF4GE33WtNd1MoaX/NrO +LI8GdDlxDG6QMcYhy6z+ejRsist5vTyXjOS80GmP2GjgaZO8mppHxtDqO1Gz +DtFw23KF7qMCMupb3V6bIxMNvKeG0/6WkBG3hlx0CI+COxdv7wytIqPehzZ6 +ju1FWFG/OSy+jYxXo7+51u2OgMLt8e1OH8h4t+fpJ5JyBOjfHmfv+UjGy9O8 +GRdlIyAuvqxlup07T1HFfPBCOEhYbZG06iKjd9L3jWIV4UAb31rE6COjp+Oy +/TcVw4GQhndVv8gYZb63YT8zDNxd928YXElBA/Vr1OQdIcC3bcm/0lUUXDqV +OzGpGALJPA84/oIUzFa9bWdNDoFH8TK5wkIUXGF9V0yPPwR4749s2ilMwbAs +kb7Ut8EQP3txW9I6CmoHHrWbtQ+G0gsvjXbTKEjaZ2uWln4BfiZCVPZOCj5v +Xd26VCYIBPi3utgRFDy9R0KqdW0QUHwUDeWBgjXrDakFy4LAxGrD+kdIwdsO +o+0fv5yHx7T5Wx80KRiUHeGWGX4eoh6UvxLcR0FmUakWz6dAYLQrrPA/TEFj +jt+avshzcGS9TKSpKwWpT/le9or4g2L3VmOlMxQ0yatc7b3oB/+uGpGWu1HQ +okjmvvSwH+TQox+Wu1OwlNb+M+GZH/Rtnvsm7kXBiXLbrq1ufnBSp2NvWwB3 +fvm+fIP3vnDGI2mVQRQFiQk9Z+/rPhDSIhi7L4/bb/6M/nYnL9gz5D8smk9B +vasGv9wsvICPZ0Srm+tyBf5bD/Z5QbjyqwXXAgrSdE5rHpHzgqikMKcrRdz+ +49o1VEc9Id5iUYtzl4KxZhJRA+6ecHXw14JnNQVbSNKsreEeULXY6nStnYJG +5tYX5l+7g4qDfYl/BwXV3msJ5z52h8J3f8ZNPlEw6WJKrGmJO6TnknxXdnHz +rNup1hPvDj77XCLOfqHg9sP2e86Yu4Na8opcrQFuXiNrIWHYDcoUsPv7bwqy +tlvXZYm5QYFV8UEVISr6z23efUDQFQpcQ68IrKHijGeA9MopF7gZbNn1hWv/ +U9lH27tdIL9gxcloYSruCTw+mXfHBXIn7QL7xagYuWx8QNjYBXJiNhYnS1Nx +xe7Kh1I5zpD6OHblPIuK24S6wuP3nIZIGfe6Wk0q2txd/TH4sSP4hGWmR++h +YlXCHWpYoSM4/HzpaqRFRaWkXbxJqY6gUyO9/qs2FUmaSgfbPRyB/0SdC+8+ +Kn4+d3jLhIIjhBVJSu46RMWA609zfK47QLD6U6dqKyqWzGzlBCadhAAzwbWV +nlRciOkoL0u3A4qIZXO8FxWfeT3abxBlB68ab0U5eVNRWejL/gVfO5AAnWUy +vlRsO2VzwtvcDu7Sg+cCA6i4LoIxwCNlB4O/Z/r3hFDx3X9CVPP0E3Do0tfK +t3FUPJ6sdaInzxbozx/Zfiui4hOxpVZHv9jA43dWpWW3qbg6vORk5TsbMOxd +XAgopuLmm0vsZepsIIhHM1n4DhWJITPy3yIb+Ew0NqiXUdHhw6c+lp8NJFV1 +KVx6SMXxWCESTdIGlj5YmFGuo6LetX/dgRbHoPcmEeP/hYqxmstn539ag6LA +smeHe6jo/GZvLH+HNQQ4NE4pc6i446hWDeWZNUiyzY5+66ViY3B4ZWyiNRwq +dFMxGaBixahugvp2a6i+nduh+IOKLzt/azdEWEH63ZX0vj9U7N9+fr2jsiUY +Vn18oitOwzkd3fGV982AVceZlJWg4UavWc0z18zgb8uw3AzXlY8EUr9eNoOC +vsW0PEkafspTWD/paAaLK5hevDI0/HjtvE0VyQyKzLwVH1NoyJnKGv0UZwp8 +0+uuKm2mocbyUKm1/oehfLN5kIQeDc9cvjm7y9MYAuLKtXu49uUTftVrbwy7 +x0RXF+jT0JG/qCzazBha7rSkbT9Aw5/u6x/81TCGAcU996wMaOjak3PXfKkx +iCkoDV43paH+PXXXkUQjcGcv01c6QUOdrRVs7ceGoEC5u073HA0tXsyYOrIM +oLBV5SU5kNtPgAjJVNoAGCH3Pea5brlU8vmAkAGQ+ivelQTRkPc3Sdxq8hCI +5FdHi4fScA9HrvRHzSGYZTf964uiod5+11Ucy0NQqzw0dC6VhpFGes8eKh8E +810bHt67R0NniRA+PUt9eKnzeyrwPg39d+d1btTRB5UD9ar7HnDn3VCwYomq +Pghaut3hlNMQfkbtHVupDzUedfmrH9GwcWR6i2+VHrAKnK+crKHhk3ivCTlZ +PZgVqnaXbqahZJTQ3rdjeyH18xGFkEEafvC29OGr0oFLMd7O+4Zo6J157Zh3 +oQ4E74grFv5Gw038l95PpenAqcxnCjnfufn92bRd3FcHCCua4pMfNJy5dJXa +vVUHBrq+K8785r4P9YuMqtAGlS6Pzaf+0XCw3V2X/lQLGj9FqRpJ0lFhODG7 +clQTvDrrLeWk6Jg04lGb90UTKF18oUvX01GwhXEo640m+H0ObLsnTcfXZSGB +JXc1gdXj7ikmS0cJYw0w89KEsH6Lig90Osrkxgw+W6IJ8GuThpkq17a/6u+R +dsM9vsbd1gfoqCLKU2pyDuGApeUc4yAdt6yiDZS6IQzfHbk7xvVI01tDMXsE +ylFBcqgBHddwEmomDiAkVO7/V2hMx7Wau/aIkRHcXd5WzVpw6y/J7Cq+BLC5 +48OWpJN0JJI89ntvJqCkiMNoDKKjpqm08+3rGrDE6MrLvAt0lJe4eTX8kgYY +z+21Dwqmo0hSEo+bjwb80b2X918oHWmc9TJeBzRgz2AYLSeCjsx7sTY4rw6d +JDmK52U6BhVnBb82VQf+ZM8Nspl0bOChf7WR2Q5HglaKna2goxCTbEh6pwbb +3vGW731Ix2fFd77MP1UDUcq8KamSjn/VF/X6S9SgoXYko/kRHY3nlK93xaiB +yvJmKquajv0hQ0q2e9Vg+eVY1e4XdDyIpeebX/wHpRliRjqtdGytr+pqfrEF +eCs2JkiP0nGDFrKjh1S4/0en2q9cn5Wnuup1qkAqX/lk0U86UuHrX7FmFVA0 +3G+6Y4yOqm/+dNWWqYD5qL+M9QQd09y9B2IDVaCU+ik/+w8dP2SqJnWtU4Ej +cYlVZH4GjjkpnRM3UIZKR4EBpiwDC8sffg6tVAJ1G59FHhIDs0xh0uGaEjw2 ++7auk+v63w3WRy8qQY1Ow74YCgMTXu/6FWyuBC/pkaVjdAaG7rwWeWNOEdp6 +lwdUyjPQ9Y9YNoGK8Mt8uaieOgNT1/GVB3bIA30f/y4XEwYGmlevt1DfBMkp +r75vO8xAzswdl2rmJhAYiElYasrAXwKbppXEN8GP86L9qWYM9OvV9VMfY8P9 +B6SIWksGGnzNMvyRz4Y9ZI1myeMM7FBL3FIlwYYTs67mtS4M7L4xkPLyHxNy +8z+5SUYy0OjGFdqdKTpkZ3Fkerj+9OKWlOMgHVKThurzLjJwkCxXotBOh+jg +qQ2q0dz6Y6MpHx/Swf2I8Ov9lxn40KE7Jz+ADrsk9lJCkhhIjJnLb+enw5ew +h62jOQzMyMs/OE2iwTq7FNXaSgYOPVn1xuAsBRpuP3+Z/oiBwsJip+zsKOAz +OWruXsXdb21bZIgpBTpD9gSRn3DvN7xh92hQIPP6eNP5GgZWn6XRRZdRgMzR +s99Rz0Cd9PTNJ9PIIGfJk/agjYEmRRFaUa9IAAaOizd/MbCCWa6sG7MROD+H +SG5j3PqWHe51XhshKMZeU32cgW6bgj4Z2GyE5/W2kU2/GRgR+PRHitpG0CaO +iIxPMdAmbRtvR+8GOCBnxFBfYCClTK9qo8YGsFq280CTABPJos+8Amelwa9y +bfYYmYmiH9dUH8mUgtab9wpeU5hYdLjSrzVSCjYlH76XS2Ui6w2HYuIpBZ/c +MxvM6ExMFGEIRByQgm3yrIkaFhMb/nz4nrFECqazQTdeiYm7s4wxyEkS3ENd +fivvZGIU2b5gUHsdOB1s0j5rxsT1qgrnOUxxKEt8ziHMmWjCbJRqkhSHufaH +fistmMh7eKnH8xXiEHUsr+SaJRPPrrmh+2ZEDArdAiXeHmFiXYJnlkOpGIwk +bh6Ut2OiYmuDdaKGGJzuSAobdGOiandpwhVzUXC2sX5hHs01Zc6ppkwYdhxM +OUaOYeLeNwdpx/OFQXDnu4VvXJs3GwcLpgvDbUmt/3wuM/Eiv66Y/wVh+PFG +Pj85nrsPRvVQ9SFhcCIWIt6nMDH/3i+pz2NrwUE6Q29/LhODqYvDmlvXgu2H +jlZ8wsR/3ZNBpIrVMCy61VSqmole11Lup+eshjOGV7rGuRYdNZ6jR62GwDcG +/ddruPPrOkS6Wq+G1Fevp/heMHFrjbhOM99qaHnyWPLVayY6z7kqFRwWhG35 +OUcMOrj5CXvlh/KvAiFvh2GbCSZyBPTEiSQBCFu1flFukokn5reFdgYLwMLV +RuFprn1PeWKImwAMNyhuj5pmorD02sA/BwTg5fqpiLI/TCz5liPts1IAAqsv +0JfysHAg+dXx8pDlMLos41iuIAtDasXOLATyQ1NS88dBOgtVNulMjyTzwZzv +jdZnDBbSfsIpagQfsI76tmQyWZjQf/mPvTcfhLDpLw3ZLEz037BTxIwP1KsD +HlTLs7D7ieCRWSk+uDUkl5SsykKL0Qqh+atLIVw9ykB7Fws7rim9y7jPC8DR +bsqzYuHUuVUfnBd5YNLl2OsAaxYWil5IuzHOA4V/fRuMjrDwpNeWxb5+HpCQ +Ln6x5BgLw+4djQ5s5IEfJqJPrG1ZqDisNcJM44HUxp5icScW8r8YCd+pxgO/ +y31iw7xZuDufwgn/uUjkXyo0tEtgYdGduLKLjAVC330dRyGRhSb/CorrRBaI +34dDnae53iqZfHHNv3mCIB2JjLjCQnXD+cdN7fPEhzLh6lupLGwrbeD9cXGe +4OvwYf/MZuHYhcM3H4zNEbYUHR7vIhZymuJTVRv+EKSKr8WRL1gou/qjSW/m +DHHuhwf1eB0LH9kJlQ5FzRCdZP40jZcsdFwHlfM+M0RiDCv0Zz0L+6hDJfom +MwT/cWcL40YWTvZnLIsXmiF+CM7wk1q59cbSTqeHTBMPj688VtHDwiy9K2JO +3lPEQSFlkcE5Fq65c7iqP2SCyEwTX3d3noVio2JvlnlNEMO0OemABRaqKZZV +b3aYIEI1aukiiyw01owQz9WfIB46mGwnlrBxfWrOl3/iEwSp1vdY8nI2Jo91 +fwwr/E2MeT8v0RZj48zyv7KZneNEfK+R3k0FNp5/YnUmwmSMsJcIMHRRZGNX ++dc79H1jhLpervl/SmysFH7W3UiMEf33J0/WbmbjxdqTP5VYY8S2yCuhPaps +7Jfcknh7+hfxRbH9yTp1Nh53dtVT1P5FyAdYbI7UZmP4Q3GTyLFRol7CRtzx +KBvlH2V8Nz8zQhhmFvPtOsbGlpw9azMtR4gv5LkJSRs2drg97h/VHiGm5RNb +G46zcb9r5cmaDSMETbMulmXPxk6jXTGyTcNEsCt75bfTbMwwN5F9LDdM7GgY +X7T3Y+N8nfj9jdPfiDLf4G8nrrDRrsJlL/PBIKFoQjmpmMxGI9NmD0reIFG4 ++fnADNcS6atHWVcGietDS75GpbIx+oFJrqnnIJFgcqG7NIONWwSVD2moDRLu +ykGtC9fY+PlVRY3YowFC+fu5x0klbPz+afmuzlf9RKmZb9yLejba366cEBH4 +Svz3jB2Y18DGsrta/RJ/+ohH7M5T4a/YWDPJusYY7iNq59R1dBvZ6EW0WTg2 +9REfMxf+NrawccLbtdEvvo9Y4Jw/9f4DGy02TOfXbegjdB3Dtfu+cvfrIzXw +mOglmt+pbantZ2PAeO4IS7mXMFQfIucOsBGW8924Su0lLFfp/rUbYuOgTipv +sUAv4VK84v73YTYuvl+Rof2eQySNx5DHx9noYCk07ezEIaQsdq5p/c1GjRJJ +xgVrDpH9fHShbIKNrSLmIdmHOMTNxAMdHlNsdAnyzJtR4xCP/lsbOzvLxpxN +B29R+DgEkV0T8OkPGzUfyDYI/uohavndnB7NsVG2Y5vUtw89RFP7O62ABTbm +2d1f03mjhzDAYFXrv2xMjZm+MhbVQ3wsUCETi2x81hVbud69h7AQ/iok+4+N +354LnTIz7yF6fBMX/nEt2bk64xb2EP8D2Ec48Q== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.1}, {0., 0.05778919618762812}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9, + 3.9924915872339687`*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"a7efd44b-d7f9-4069-9910-ae5dc8463031"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = 1, $CellContext`yv$$ = + 1.213, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99249166254876*^9, 3.992491671711657*^9}}, + CellLabel->"In[50]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03k01ovTAPCESEl2D57vYl+yly3MkOxZkpJUiCwlyfLc0CJCukSKbFnC +I6RFpewpRAo3oWsvpUVyVfSr1Pu8f8yZ8zlz5pw5c2Zon5CtfsuXLVs2yon/ +z8r9MjzLlknh89t+X8Unx8HY/Kj+fxyzlaPEfg2Ng2P1QMArLikU8Anpnuwd +h8ik9KePuKXQJaaKr6plHNpN+LLO8EmhW9K2to2F4+BbOq8qKiSF5/jCNGz3 +jkNhZKeTEiGFf+fwmMuNjgGDwcp1MJFCyyqbseVDoyD1mFlSeUwKP5Y46SgX +DsPPVepVd+qk0GTcXeH8uZfQo/5RM2VBCh8UFFXJnxuE63cW5FgGDOSrj/eL +OPQCwvoDJFaHM7Du9o5t4yefw6bdStE1dxioXSB/JfJ4H/C0ZnqoLDCQW8w7 +29akB67WBxvZ6Eqj+N2InC2zT2AXmXYmKkwab+hb5VZeeAxzkoyXO25I4yu3 +j3DgehtEzmy7snxGGq8k2AyiyENYqT4y1rxOBq1M2SfgWAuc/N3JUAmUQa86 +y75XRQ3AbcLdXlwhg9uOpKnzHLwHLLfPMx8+yGB1QvpMc9tt6OG2EB1TksWc +eD7Tk+03QU92ouK1vyym7DGUNx6/BtGdU+YXSmQxisj9lmB9FXom1tvteCuL +/zSd75j9UwLi/QZPp5WYOKVrPHg4uAjMPIuc5PcxsS7+8iURrXwId9y+KbSE +iSe/EV1/fmZByotQ/aBJJo4kano/n84AaSFV552vmJgwCaTmywwos5kItHnN +xLmsHW3nuzKgqd4xX+kNE/0/ltw6ei0DZovUeV6/Y6KBelxoY1gGOB9607dr +jon8desTJJdngAjfzuAtf5j4k7apmVU8D1mGWKLNJPDg3YMfviWlQXdBA996 +gkCTs8nmGdFpsIzP6IABSaC4eHmp8aE0CHiho2tGE5iIp6PYrmlgfES+xV6R +QDufz5e/E2kwUrliZL8Gge7F+03eHjoHcuRT0XxTAn+t5l8wGE+Bal6PuJV7 +CHywh/tg80Iy6PP1n//JsUDJX88kXiVDE79j8ae9BC5fFfon5mkyPFtl8aDP +m8BVZprsiJJkmBVW+5PtR2B+550Vkq7JoEH8iFILJrD5ltaIcM0ZqNLPOWIf +Q2Dr+qUE9rEkuOr/r3dKDoHpjXc0925MgH8zGfUZuQRW1r09d1MlAQTa3cVy +8gg0Ovn+vohEAgQpDLaXXSZw3R1NM67/ToPa5HP1lmICd/plTqawT0OFx9Nv +8xUEZvzujvSUPA1VW1rOuNcTqNHwWiuRKx5u6JXdlB8hcJ5XT+j9Uiw4a/ai +4iiBLjbhVW9mY2FO5UeP0hiBG++3q8+Ox4I24TirOkHgs1VQLdcaC9f5F9S0 +pwhcvZLruVRiLFSPbi4xmSHwm9YXbV3RWKhKfJPp9ovAvFTxhTG9k1A+rBCT +KEvigGDadKPaMcg77FDLYpJYY3RM+pnoMTjHGz7vT5C4u1417vOvGIjUehhg +Q5HY85av3a8nBizjvN1WKpB4OcCjjYiIgXG1y5pn1Um84Hht972H0SARJTmZ +akyi2rOYZUbBURAvJWCV6U4if27t0u9ZFlDDC105O0k05DpmFfgvC+rzXzsV +eJA4V8l7ZqqNBfNyjTvLPUn04dLoEMxngbfG4eA6LxKtsnc0qDqwwMxi4MJY +AIndSyvsY65FwvcDxa+VjpLoF6v8WC8mAg42G8fWZpOYVMcOsbIOg12yircq +ckjc9k/32gqDMLA7KvQ6P5dEa6GgcYZKGKjqTVnG55PYFuw6yVwZBm/LUvhd +ikhc1Sh54u6TI7A3deLch3KSc/TGIXKuR2Dr7oTLzHskxjuN3i0PCgXDn331 +cQMkCt46OrMxIgSy5NlyRwZJFNE3ShX3DIEF+5gzXkMk3t0sXLx8UwjczlPa +YfoviYrNMtMSwiGgbRY9vzBK4nAS7aFUfQhUYhVUg96QGGa7sqD/YzBI8rEy +nb+S+CnQzXdNxEGIXpl6b81KClvmJE+JNATC8fXDa9M4DudbIZBXGgin9qoE +CgtQWF29JtvwXCAk32lliK2i8LGhwLkKn0C45L0YxRCkcFeLt9ZhgUC4fd/L +VEGYwoB679URuwNgNlCv1YhB4XV1GFha6w9eXUNPfFUphJrt3F8rfCG1VSFq +lOP4Xa1MnhxfqK87rLJdjUKujnf19BlfkKjkP22tTuH3LRIep/194clZQzM1 +DQr9Jrx/zyj4gv6WSzc+a1OY9EZw+YbifbC6d8fFKEMKFzvGbHzKfKD2xcCe +NGsKLzsfsJB57gX3fHl1RW0olJ/IqRF/5AV1X/R4MzkuXqdjyrzjBQ3C6ZW5 +thQ23CwOds3ygtYt9t/L7Cm8qzMvvMvTC561Nac3OlE47mM1m9u3F97eKX/0 +YQeFb4vKOufE94BYZpTa5gAK2aw/Qu5THgDzbNdmjtPuW6/qeeoBQY4vYowC +KVQJ94lzr/WAByu0ezSCKOytCb5enOwBh1hvwiQOUnjTbnCPiK4HPHZ3bpwO +odDH4OLxrfE7IUZGyTmZRaHGZhD+ssEdXhf2RfQkULjFy4a7tcsN2n2+Glkn +UvjPDxH7jntuUKEg+buJYzvsoobL3OBwuWdCdRKF71JtbDTj3ODX9enMlGQK +9W7st401cQOx5qVa+1QKL/zNDb03t4HVqOqPjosUHtJic7eVuUIF49TxlhIK +u3wdGxtqXcD7SKK/RSmF3E8MxZ6zXUDqyd/OjzjmifjIWsxygcSYLLnHZZx5 +n3pvCPrLBXzHq9p7yikcLOswXDByAWbp4JrxKgrLcvdwX252hjRtjYKl2xRm +JRT61F51Apb1ULNxG4WTWMlysHUA9+CR3zUc95l5/Tih4wCGGROmGu0Unirp +29DBcIAfY+/qyQ4KN+yUzUr7YA/HI/9Xy9NJYZHEAWvBFHtIKJW+8aybwpxo +kfLCF3aQyb270KefwtUJnesehdvC3ebJk8mvKXS0c7jcNW0FB2IeTwlOceYJ +6Xo79I8VUEbXbdI5ng+uEf3RaAXJt2LWXnpD4ciY2FD4BSvYUypZWDpN4be7 +OzfaWVgB39ktzS0fOf2L62X3F20G9+33lxa+UGgSVJs/f9ASfs6kRe3joVFk +38rh1foWECAUfHSK443x3JvYihbQr2P7lx8vjeq8PObO4hZQHckV6b+Cxg+u +Ot1Pv5qDz7IjoQf4aVwys2mMuG0OXaKuAWGraVRm1zIP6ZtDjrH49jgxGq9+ +fpBZaYlglJStc0WBxvb39+8VCplCLys8QUaRxuk4dS/lRRPY7+80nMHxqSep +B1rHTOCCFe/peCUa8bvXgQ3VJvCZJ3TIT4VGuYkcM0FHEyiNtTmhso7GL59e +voxI3wjC0Yvd1/Ro3MI0a6pTMob3wW4B9yxozFat/FGXaADbvoq8Mt5EY8qM +kKveEQNoiurd1chxzSKp2expABcS7Z1aLWlsJYqVhHUNAIvM9butaCysokzz +RvUhs1+DZ8KOxheLHWvRUB8sN64o5HOl0XKJe8T253oo4K8d3L6PRkLi3YW5 +27qw3jOM3ctxkIjSrZkSXXh8XYtl50uj7qVd/gsXdGF+e7mEmR+NqcdVD+pG +6IJlababoj+NwzYtxfb6uvDePOb5lyAaQ1l5S9/rdEAv2rwn7QiNfOJbRL88 +1YaOT0/au2JpHDOtMDLV1gQx9jEdi1M0BkyZxg5LaIKXl1befY4/3BJaSF3S +gB//nA8tj6PxWEkxveGJBqy7t1M24TSNr+wFc2P8NSDt1HSo+RkaT0f+lnp/ +ZR24S3Iz76XR2GadTT1UV4d3aBxWWsDZr5xn3lKYCvCnP1uuXEjjGVa4NXu3 +CqhO+pwv59h9nKnvZ60CQbFnb1YW0Th0+/BFpowKfHow8vnmFRpX9d/wOf5Q +GeYtThxsYtO4Lz6gcE5SGX5ZPvIbvE7j/HwFk+hRBCFbR/eVLTRWjvnlc4XJ +g8f+SdNTHOdv31a/30ceSuLC5X9ynGRiMvfSRR4Mm3JmZx7QmH6jKOSDtjz4 +6E3H9z7k1KuTom99loO7zJM3szpoJKfv5/eHyIHn/E0BpR4ac0QGrglH0VCe +K95oMUYju35glUIACemCjFudHJd3Nlpr2JEQdUKW7TxOI8Ou4b+t60hw2Cef +vmeCxu33pRS/zBEwp6bjF/WKxs2hgXLx0QQY1TkI3npLo9HvlLS+i0zoGorb +TX+msfOR1if/MRmosUvcWs4xSfp86n4oA3kNydZaczTGNCrp2l+VgUOF6Tqm +/9HoZ4FqGeEyIBJQwLvzC40fa6LBcbUM7Fqsu5a2SGND29dcT5QGy8CmYsnv +NG6imDN2ytKgOfwg6zLHTnLMNS5rpGFZ8+PYqv/RaFE4GVwywoCShAG3xz9p +vCJbv84vigEp31/aOf2iUbXJPlfIhwGRQaMwwDFN2qv12TLAxnFKdWqJ84/n +ArZmMxig0zJNHPhNY2++XEsBFwOkdT+KznO8wipuseG9FHCXzPIf/UNjwU+B +13N9UjAjPr/0h+Pb4Bi8sU4K/g9fPPbu + "]]}, + 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:eJwV03k01ovTAPCESEl2D57vYl+yly3MkOxZkpJUiCwlyfLc0CJCukSKbFnC +I6RFpewpRAo3oWsvpUVyVfSr1Pu8f8yZ8zlz5pw5c2Zon5CtfsuXLVs2yon/ +z8r9MjzLlknh89t+X8Unx8HY/Kj+fxyzlaPEfg2Ng2P1QMArLikU8Anpnuwd +h8ik9KePuKXQJaaKr6plHNpN+LLO8EmhW9K2to2F4+BbOq8qKiSF5/jCNGz3 +jkNhZKeTEiGFf+fwmMuNjgGDwcp1MJFCyyqbseVDoyD1mFlSeUwKP5Y46SgX +DsPPVepVd+qk0GTcXeH8uZfQo/5RM2VBCh8UFFXJnxuE63cW5FgGDOSrj/eL +OPQCwvoDJFaHM7Du9o5t4yefw6bdStE1dxioXSB/JfJ4H/C0ZnqoLDCQW8w7 +29akB67WBxvZ6Eqj+N2InC2zT2AXmXYmKkwab+hb5VZeeAxzkoyXO25I4yu3 +j3DgehtEzmy7snxGGq8k2AyiyENYqT4y1rxOBq1M2SfgWAuc/N3JUAmUQa86 +y75XRQ3AbcLdXlwhg9uOpKnzHLwHLLfPMx8+yGB1QvpMc9tt6OG2EB1TksWc +eD7Tk+03QU92ouK1vyym7DGUNx6/BtGdU+YXSmQxisj9lmB9FXom1tvteCuL +/zSd75j9UwLi/QZPp5WYOKVrPHg4uAjMPIuc5PcxsS7+8iURrXwId9y+KbSE +iSe/EV1/fmZByotQ/aBJJo4kano/n84AaSFV552vmJgwCaTmywwos5kItHnN +xLmsHW3nuzKgqd4xX+kNE/0/ltw6ei0DZovUeV6/Y6KBelxoY1gGOB9607dr +jon8desTJJdngAjfzuAtf5j4k7apmVU8D1mGWKLNJPDg3YMfviWlQXdBA996 +gkCTs8nmGdFpsIzP6IABSaC4eHmp8aE0CHiho2tGE5iIp6PYrmlgfES+xV6R +QDufz5e/E2kwUrliZL8Gge7F+03eHjoHcuRT0XxTAn+t5l8wGE+Bal6PuJV7 +CHywh/tg80Iy6PP1n//JsUDJX88kXiVDE79j8ae9BC5fFfon5mkyPFtl8aDP +m8BVZprsiJJkmBVW+5PtR2B+550Vkq7JoEH8iFILJrD5ltaIcM0ZqNLPOWIf +Q2Dr+qUE9rEkuOr/r3dKDoHpjXc0925MgH8zGfUZuQRW1r09d1MlAQTa3cVy +8gg0Ovn+vohEAgQpDLaXXSZw3R1NM67/ToPa5HP1lmICd/plTqawT0OFx9Nv +8xUEZvzujvSUPA1VW1rOuNcTqNHwWiuRKx5u6JXdlB8hcJ5XT+j9Uiw4a/ai +4iiBLjbhVW9mY2FO5UeP0hiBG++3q8+Ox4I24TirOkHgs1VQLdcaC9f5F9S0 +pwhcvZLruVRiLFSPbi4xmSHwm9YXbV3RWKhKfJPp9ovAvFTxhTG9k1A+rBCT +KEvigGDadKPaMcg77FDLYpJYY3RM+pnoMTjHGz7vT5C4u1417vOvGIjUehhg +Q5HY85av3a8nBizjvN1WKpB4OcCjjYiIgXG1y5pn1Um84Hht972H0SARJTmZ +akyi2rOYZUbBURAvJWCV6U4if27t0u9ZFlDDC105O0k05DpmFfgvC+rzXzsV +eJA4V8l7ZqqNBfNyjTvLPUn04dLoEMxngbfG4eA6LxKtsnc0qDqwwMxi4MJY +AIndSyvsY65FwvcDxa+VjpLoF6v8WC8mAg42G8fWZpOYVMcOsbIOg12yircq +ckjc9k/32gqDMLA7KvQ6P5dEa6GgcYZKGKjqTVnG55PYFuw6yVwZBm/LUvhd +ikhc1Sh54u6TI7A3deLch3KSc/TGIXKuR2Dr7oTLzHskxjuN3i0PCgXDn331 +cQMkCt46OrMxIgSy5NlyRwZJFNE3ShX3DIEF+5gzXkMk3t0sXLx8UwjczlPa +YfoviYrNMtMSwiGgbRY9vzBK4nAS7aFUfQhUYhVUg96QGGa7sqD/YzBI8rEy +nb+S+CnQzXdNxEGIXpl6b81KClvmJE+JNATC8fXDa9M4DudbIZBXGgin9qoE +CgtQWF29JtvwXCAk32lliK2i8LGhwLkKn0C45L0YxRCkcFeLt9ZhgUC4fd/L +VEGYwoB679URuwNgNlCv1YhB4XV1GFha6w9eXUNPfFUphJrt3F8rfCG1VSFq +lOP4Xa1MnhxfqK87rLJdjUKujnf19BlfkKjkP22tTuH3LRIep/194clZQzM1 +DQr9Jrx/zyj4gv6WSzc+a1OY9EZw+YbifbC6d8fFKEMKFzvGbHzKfKD2xcCe +NGsKLzsfsJB57gX3fHl1RW0olJ/IqRF/5AV1X/R4MzkuXqdjyrzjBQ3C6ZW5 +thQ23CwOds3ygtYt9t/L7Cm8qzMvvMvTC561Nac3OlE47mM1m9u3F97eKX/0 +YQeFb4vKOufE94BYZpTa5gAK2aw/Qu5THgDzbNdmjtPuW6/qeeoBQY4vYowC +KVQJ94lzr/WAByu0ezSCKOytCb5enOwBh1hvwiQOUnjTbnCPiK4HPHZ3bpwO +odDH4OLxrfE7IUZGyTmZRaHGZhD+ssEdXhf2RfQkULjFy4a7tcsN2n2+Glkn +UvjPDxH7jntuUKEg+buJYzvsoobL3OBwuWdCdRKF71JtbDTj3ODX9enMlGQK +9W7st401cQOx5qVa+1QKL/zNDb03t4HVqOqPjosUHtJic7eVuUIF49TxlhIK +u3wdGxtqXcD7SKK/RSmF3E8MxZ6zXUDqyd/OjzjmifjIWsxygcSYLLnHZZx5 +n3pvCPrLBXzHq9p7yikcLOswXDByAWbp4JrxKgrLcvdwX252hjRtjYKl2xRm +JRT61F51Apb1ULNxG4WTWMlysHUA9+CR3zUc95l5/Tih4wCGGROmGu0Unirp +29DBcIAfY+/qyQ4KN+yUzUr7YA/HI/9Xy9NJYZHEAWvBFHtIKJW+8aybwpxo +kfLCF3aQyb270KefwtUJnesehdvC3ebJk8mvKXS0c7jcNW0FB2IeTwlOceYJ +6Xo79I8VUEbXbdI5ng+uEf3RaAXJt2LWXnpD4ciY2FD4BSvYUypZWDpN4be7 +OzfaWVgB39ktzS0fOf2L62X3F20G9+33lxa+UGgSVJs/f9ASfs6kRe3joVFk +38rh1foWECAUfHSK443x3JvYihbQr2P7lx8vjeq8PObO4hZQHckV6b+Cxg+u +Ot1Pv5qDz7IjoQf4aVwys2mMuG0OXaKuAWGraVRm1zIP6ZtDjrH49jgxGq9+ +fpBZaYlglJStc0WBxvb39+8VCplCLys8QUaRxuk4dS/lRRPY7+80nMHxqSep +B1rHTOCCFe/peCUa8bvXgQ3VJvCZJ3TIT4VGuYkcM0FHEyiNtTmhso7GL59e +voxI3wjC0Yvd1/Ro3MI0a6pTMob3wW4B9yxozFat/FGXaADbvoq8Mt5EY8qM +kKveEQNoiurd1chxzSKp2expABcS7Z1aLWlsJYqVhHUNAIvM9butaCysokzz +RvUhs1+DZ8KOxheLHWvRUB8sN64o5HOl0XKJe8T253oo4K8d3L6PRkLi3YW5 +27qw3jOM3ctxkIjSrZkSXXh8XYtl50uj7qVd/gsXdGF+e7mEmR+NqcdVD+pG +6IJlababoj+NwzYtxfb6uvDePOb5lyAaQ1l5S9/rdEAv2rwn7QiNfOJbRL88 +1YaOT0/au2JpHDOtMDLV1gQx9jEdi1M0BkyZxg5LaIKXl1befY4/3BJaSF3S +gB//nA8tj6PxWEkxveGJBqy7t1M24TSNr+wFc2P8NSDt1HSo+RkaT0f+lnp/ +ZR24S3Iz76XR2GadTT1UV4d3aBxWWsDZr5xn3lKYCvCnP1uuXEjjGVa4NXu3 +CqhO+pwv59h9nKnvZ60CQbFnb1YW0Th0+/BFpowKfHow8vnmFRpX9d/wOf5Q +GeYtThxsYtO4Lz6gcE5SGX5ZPvIbvE7j/HwFk+hRBCFbR/eVLTRWjvnlc4XJ +g8f+SdNTHOdv31a/30ceSuLC5X9ynGRiMvfSRR4Mm3JmZx7QmH6jKOSDtjz4 +6E3H9z7k1KuTom99loO7zJM3szpoJKfv5/eHyIHn/E0BpR4ac0QGrglH0VCe +K95oMUYju35glUIACemCjFudHJd3Nlpr2JEQdUKW7TxOI8Ou4b+t60hw2Cef +vmeCxu33pRS/zBEwp6bjF/WKxs2hgXLx0QQY1TkI3npLo9HvlLS+i0zoGorb +TX+msfOR1if/MRmosUvcWs4xSfp86n4oA3kNydZaczTGNCrp2l+VgUOF6Tqm +/9HoZ4FqGeEyIBJQwLvzC40fa6LBcbUM7Fqsu5a2SGND29dcT5QGy8CmYsnv +NG6imDN2ytKgOfwg6zLHTnLMNS5rpGFZ8+PYqv/RaFE4GVwywoCShAG3xz9p +vCJbv84vigEp31/aOf2iUbXJPlfIhwGRQaMwwDFN2qv12TLAxnFKdWqJ84/n +ArZmMxig0zJNHPhNY2++XEsBFwOkdT+KznO8wipuseG9FHCXzPIf/UNjwU+B +13N9UjAjPr/0h+Pb4Bi8sU4K/g9fPPbu + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.49811314455912487`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.49811314455912487`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k01ovTAPCESEl2D57vYl+yly3MkOxZkpJUiCwlyfLc0CJCukSKbFnC +I6RFpewpRAo3oWsvpUVyVfSr1Pu8f8yZ8zlz5pw5c2Zon5CtfsuXLVs2yon/ +z8r9MjzLlknh89t+X8Unx8HY/Kj+fxyzlaPEfg2Ng2P1QMArLikU8Anpnuwd +h8ik9KePuKXQJaaKr6plHNpN+LLO8EmhW9K2to2F4+BbOq8qKiSF5/jCNGz3 +jkNhZKeTEiGFf+fwmMuNjgGDwcp1MJFCyyqbseVDoyD1mFlSeUwKP5Y46SgX +DsPPVepVd+qk0GTcXeH8uZfQo/5RM2VBCh8UFFXJnxuE63cW5FgGDOSrj/eL +OPQCwvoDJFaHM7Du9o5t4yefw6bdStE1dxioXSB/JfJ4H/C0ZnqoLDCQW8w7 +29akB67WBxvZ6Eqj+N2InC2zT2AXmXYmKkwab+hb5VZeeAxzkoyXO25I4yu3 +j3DgehtEzmy7snxGGq8k2AyiyENYqT4y1rxOBq1M2SfgWAuc/N3JUAmUQa86 +y75XRQ3AbcLdXlwhg9uOpKnzHLwHLLfPMx8+yGB1QvpMc9tt6OG2EB1TksWc +eD7Tk+03QU92ouK1vyym7DGUNx6/BtGdU+YXSmQxisj9lmB9FXom1tvteCuL +/zSd75j9UwLi/QZPp5WYOKVrPHg4uAjMPIuc5PcxsS7+8iURrXwId9y+KbSE +iSe/EV1/fmZByotQ/aBJJo4kano/n84AaSFV552vmJgwCaTmywwos5kItHnN +xLmsHW3nuzKgqd4xX+kNE/0/ltw6ei0DZovUeV6/Y6KBelxoY1gGOB9607dr +jon8desTJJdngAjfzuAtf5j4k7apmVU8D1mGWKLNJPDg3YMfviWlQXdBA996 +gkCTs8nmGdFpsIzP6IABSaC4eHmp8aE0CHiho2tGE5iIp6PYrmlgfES+xV6R +QDufz5e/E2kwUrliZL8Gge7F+03eHjoHcuRT0XxTAn+t5l8wGE+Bal6PuJV7 +CHywh/tg80Iy6PP1n//JsUDJX88kXiVDE79j8ae9BC5fFfon5mkyPFtl8aDP +m8BVZprsiJJkmBVW+5PtR2B+550Vkq7JoEH8iFILJrD5ltaIcM0ZqNLPOWIf +Q2Dr+qUE9rEkuOr/r3dKDoHpjXc0925MgH8zGfUZuQRW1r09d1MlAQTa3cVy +8gg0Ovn+vohEAgQpDLaXXSZw3R1NM67/ToPa5HP1lmICd/plTqawT0OFx9Nv +8xUEZvzujvSUPA1VW1rOuNcTqNHwWiuRKx5u6JXdlB8hcJ5XT+j9Uiw4a/ai +4iiBLjbhVW9mY2FO5UeP0hiBG++3q8+Ox4I24TirOkHgs1VQLdcaC9f5F9S0 +pwhcvZLruVRiLFSPbi4xmSHwm9YXbV3RWKhKfJPp9ovAvFTxhTG9k1A+rBCT +KEvigGDadKPaMcg77FDLYpJYY3RM+pnoMTjHGz7vT5C4u1417vOvGIjUehhg +Q5HY85av3a8nBizjvN1WKpB4OcCjjYiIgXG1y5pn1Um84Hht972H0SARJTmZ +akyi2rOYZUbBURAvJWCV6U4if27t0u9ZFlDDC105O0k05DpmFfgvC+rzXzsV +eJA4V8l7ZqqNBfNyjTvLPUn04dLoEMxngbfG4eA6LxKtsnc0qDqwwMxi4MJY +AIndSyvsY65FwvcDxa+VjpLoF6v8WC8mAg42G8fWZpOYVMcOsbIOg12yircq +ckjc9k/32gqDMLA7KvQ6P5dEa6GgcYZKGKjqTVnG55PYFuw6yVwZBm/LUvhd +ikhc1Sh54u6TI7A3deLch3KSc/TGIXKuR2Dr7oTLzHskxjuN3i0PCgXDn331 +cQMkCt46OrMxIgSy5NlyRwZJFNE3ShX3DIEF+5gzXkMk3t0sXLx8UwjczlPa +YfoviYrNMtMSwiGgbRY9vzBK4nAS7aFUfQhUYhVUg96QGGa7sqD/YzBI8rEy +nb+S+CnQzXdNxEGIXpl6b81KClvmJE+JNATC8fXDa9M4DudbIZBXGgin9qoE +CgtQWF29JtvwXCAk32lliK2i8LGhwLkKn0C45L0YxRCkcFeLt9ZhgUC4fd/L +VEGYwoB679URuwNgNlCv1YhB4XV1GFha6w9eXUNPfFUphJrt3F8rfCG1VSFq +lOP4Xa1MnhxfqK87rLJdjUKujnf19BlfkKjkP22tTuH3LRIep/194clZQzM1 +DQr9Jrx/zyj4gv6WSzc+a1OY9EZw+YbifbC6d8fFKEMKFzvGbHzKfKD2xcCe +NGsKLzsfsJB57gX3fHl1RW0olJ/IqRF/5AV1X/R4MzkuXqdjyrzjBQ3C6ZW5 +thQ23CwOds3ygtYt9t/L7Cm8qzMvvMvTC561Nac3OlE47mM1m9u3F97eKX/0 +YQeFb4vKOufE94BYZpTa5gAK2aw/Qu5THgDzbNdmjtPuW6/qeeoBQY4vYowC +KVQJ94lzr/WAByu0ezSCKOytCb5enOwBh1hvwiQOUnjTbnCPiK4HPHZ3bpwO +odDH4OLxrfE7IUZGyTmZRaHGZhD+ssEdXhf2RfQkULjFy4a7tcsN2n2+Glkn +UvjPDxH7jntuUKEg+buJYzvsoobL3OBwuWdCdRKF71JtbDTj3ODX9enMlGQK +9W7st401cQOx5qVa+1QKL/zNDb03t4HVqOqPjosUHtJic7eVuUIF49TxlhIK +u3wdGxtqXcD7SKK/RSmF3E8MxZ6zXUDqyd/OjzjmifjIWsxygcSYLLnHZZx5 +n3pvCPrLBXzHq9p7yikcLOswXDByAWbp4JrxKgrLcvdwX252hjRtjYKl2xRm +JRT61F51Apb1ULNxG4WTWMlysHUA9+CR3zUc95l5/Tih4wCGGROmGu0Unirp +29DBcIAfY+/qyQ4KN+yUzUr7YA/HI/9Xy9NJYZHEAWvBFHtIKJW+8aybwpxo +kfLCF3aQyb270KefwtUJnesehdvC3ebJk8mvKXS0c7jcNW0FB2IeTwlOceYJ +6Xo79I8VUEbXbdI5ng+uEf3RaAXJt2LWXnpD4ciY2FD4BSvYUypZWDpN4be7 +OzfaWVgB39ktzS0fOf2L62X3F20G9+33lxa+UGgSVJs/f9ASfs6kRe3joVFk +38rh1foWECAUfHSK443x3JvYihbQr2P7lx8vjeq8PObO4hZQHckV6b+Cxg+u +Ot1Pv5qDz7IjoQf4aVwys2mMuG0OXaKuAWGraVRm1zIP6ZtDjrH49jgxGq9+ +fpBZaYlglJStc0WBxvb39+8VCplCLys8QUaRxuk4dS/lRRPY7+80nMHxqSep +B1rHTOCCFe/peCUa8bvXgQ3VJvCZJ3TIT4VGuYkcM0FHEyiNtTmhso7GL59e +voxI3wjC0Yvd1/Ro3MI0a6pTMob3wW4B9yxozFat/FGXaADbvoq8Mt5EY8qM +kKveEQNoiurd1chxzSKp2expABcS7Z1aLWlsJYqVhHUNAIvM9butaCysokzz +RvUhs1+DZ8KOxheLHWvRUB8sN64o5HOl0XKJe8T253oo4K8d3L6PRkLi3YW5 +27qw3jOM3ctxkIjSrZkSXXh8XYtl50uj7qVd/gsXdGF+e7mEmR+NqcdVD+pG +6IJlababoj+NwzYtxfb6uvDePOb5lyAaQ1l5S9/rdEAv2rwn7QiNfOJbRL88 +1YaOT0/au2JpHDOtMDLV1gQx9jEdi1M0BkyZxg5LaIKXl1befY4/3BJaSF3S +gB//nA8tj6PxWEkxveGJBqy7t1M24TSNr+wFc2P8NSDt1HSo+RkaT0f+lnp/ +ZR24S3Iz76XR2GadTT1UV4d3aBxWWsDZr5xn3lKYCvCnP1uuXEjjGVa4NXu3 +CqhO+pwv59h9nKnvZ60CQbFnb1YW0Th0+/BFpowKfHow8vnmFRpX9d/wOf5Q +GeYtThxsYtO4Lz6gcE5SGX5ZPvIbvE7j/HwFk+hRBCFbR/eVLTRWjvnlc4XJ +g8f+SdNTHOdv31a/30ceSuLC5X9ynGRiMvfSRR4Mm3JmZx7QmH6jKOSDtjz4 +6E3H9z7k1KuTom99loO7zJM3szpoJKfv5/eHyIHn/E0BpR4ac0QGrglH0VCe +K95oMUYju35glUIACemCjFudHJd3Nlpr2JEQdUKW7TxOI8Ou4b+t60hw2Cef +vmeCxu33pRS/zBEwp6bjF/WKxs2hgXLx0QQY1TkI3npLo9HvlLS+i0zoGorb +TX+msfOR1if/MRmosUvcWs4xSfp86n4oA3kNydZaczTGNCrp2l+VgUOF6Tqm +/9HoZ4FqGeEyIBJQwLvzC40fa6LBcbUM7Fqsu5a2SGND29dcT5QGy8CmYsnv +NG6imDN2ytKgOfwg6zLHTnLMNS5rpGFZ8+PYqv/RaFE4GVwywoCShAG3xz9p +vCJbv84vigEp31/aOf2iUbXJPlfIhwGRQaMwwDFN2qv12TLAxnFKdWqJ84/n +ArZmMxig0zJNHPhNY2++XEsBFwOkdT+KznO8wipuseG9FHCXzPIf/UNjwU+B +13N9UjAjPr/0h+Pb4Bi8sU4K/g9fPPbu + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.49811314455912487`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.49811314455912487`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.9924916550188293`*^9, + 3.992491663903727*^9}, 3.992491818388338*^9}, + CellLabel->"Out[50]=",ExpressionUUID->"6302c7f2-b469-457c-9438-e4fe9b680d23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}, { + 3.992491674450038*^9, 3.992491679928996*^9}, {3.992491737948614*^9, + 3.9924917421009083`*^9}}, + CellLabel->"In[47]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.016880639668697586`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.04264735749458315`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.016880639668697586`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.04264735749458315`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"29909.64340946388`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"29\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]]}], \\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.016880639668697586`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.04264735749458315`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{\\\"7.31529510459173`*^6\\\", \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\")\\\"}]}]}], \\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) is not a list of numbers with \ +dimensions \\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 47, 9, 25981793935799656168, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992491743623657*^9}, + CellLabel-> + "During evaluation of \ +In[47]:=",ExpressionUUID->"d340695a-eaec-43ee-a696-d103075eeffa"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "jsing", + "\"Encountered a singular Jacobian at the point \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"3.909551867711781`*^14\\\", \\\",\\\", RowBox[{\\\"-\\\", \ +\\\"9.620021783730301`*^14\\\"}]}], \\\"}\\\"}]\\). Try perturbing the \ +initial point(s).\"", 2, 47, 10, 25981793935799656168, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9, + 3.992491743697617*^9}, + CellLabel-> + "During evaluation of \ +In[47]:=",ExpressionUUID->"198ae7ff-08d3-4962-9ced-2b44d8c1fa17"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "3.909551867711781`*^14"}], ",", + RowBox[{"bb0", "\[Rule]", + RowBox[{"-", "9.620021783730301`*^14"}]}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9, + 3.99249174370149*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"7ecef4be-d466-466d-a4ac-38c68d32eedf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, + 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, + 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, + 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, + 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, + 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, + 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, + 137, 112, 88, 65, 42, 191, 164, 138, 113, 89, 66, 43, 192, + 165, 139, 114, 90, 67, 44, 193, 166, 140, 115, 91, 68, 45, 194, + 167, 141, 116, 92, 69, 46, 195, 168, 142, 117, 93, 70, 47, + 196, 169, 143, 118, 94, 71, 48, 197, 170, 144, 119, 95, 72, 49, + 198, 171, 145, 120, 96, 73, 199, 172, 146, 121, 97, 200, 173, + 147, 122, 201, 174, 148, 202, 175, 203, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 13}, {0., 1.01270012148501}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}}, + CellLabel->"Out[45]=",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, + 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, + 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, + 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, + 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, + 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, + 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, + 42, 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, + 44, 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, + 46, 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, + 48, 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, + 199, 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, + 76, 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, + 102, 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, + 129, 104, 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, + 157, 131, 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, + 186, 159, 133, 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, + 39, 188, 161, 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, + 64, 41, 190, 163, 137, 112, 88, 65, 42, 191, 164, 138, 113, + 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, 193, 166, 140, + 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, 195, 168, + 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, 197, + 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 0.9838824269554479}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[51]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.675, $CellContext`xmax$$ = + 9.040000000000001, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.82, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {105.10417287785269`, 110.72917287785269`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {194.01979787785268`, 199.64479787785268`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9, + 3.9924917564279413`*^9, 3.992491822858212*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"4e59eca5-c825-44cd-b9f0-42bc02702add"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"86162b62-9f26-4fee-bbcc-17fb5cb8b767"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 71, "Output",ExpressionUUID->"4058715c-86d6-40c0-b854-49a6a1901929"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2581, 75, 149, "Output",ExpressionUUID->"4264b1a8-015f-42c9-85ea-c84c5d073fe1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8989, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10672, 334, 2780, 81, 149, "Output",ExpressionUUID->"d72666f8-dbb5-44b4-803f-b520f0337c8b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13489, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15335, 475, 3718, 109, 158, "Output",ExpressionUUID->"6e2e9955-2236-43a7-8c72-eaaf64c34aee"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19090, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21173, 650, 4787, 138, 193, "Output",ExpressionUUID->"ea1519f7-b1be-4314-a6a0-61efeb89acb8"] +}, Open ]], +Cell[25975, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26148, 797, 396, 6, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26547, 805, 305, 5, 33, "Output",ExpressionUUID->"534d12da-81c9-4bb2-8ca2-e35cfdd7c08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26889, 815, 327, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27219, 823, 303, 5, 33, "Output",ExpressionUUID->"fb8d496f-f7a1-4310-9c00-e2c725b489b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27559, 833, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27738, 838, 275, 4, 33, "Output",ExpressionUUID->"b7d5cc73-90f8-4b17-b648-874223338997"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28050, 847, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28311, 856, 288, 4, 33, "Output",ExpressionUUID->"6e601fc6-604a-4066-806b-68cfc7afcd13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28636, 865, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28771, 869, 277, 4, 33, "Output",ExpressionUUID->"30e420d9-455d-4f0d-b04c-acb30d57f1af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29085, 878, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29365, 886, 290, 4, 33, "Output",ExpressionUUID->"ca444931-de2f-4e67-99e4-e3bd8edfba01"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29692, 895, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29953, 904, 288, 4, 33, "Output",ExpressionUUID->"225e7e5e-fa3f-4067-a151-32961d618dbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30278, 913, 372, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30653, 921, 154, 2, 33, "Output",ExpressionUUID->"29dbd62b-94ce-4416-bf34-75ad12db4506"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30844, 928, 381, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31228, 936, 154, 2, 33, "Output",ExpressionUUID->"d2928301-36e4-4a12-98f8-360575a3660a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31419, 943, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31551, 947, 273, 4, 33, "Output",ExpressionUUID->"72094384-b983-41bf-9bd7-2e327eb1e663"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31861, 956, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31993, 960, 270, 4, 33, "Output",ExpressionUUID->"88cd1898-4cbf-4a2c-9c64-a4bd19fa9a63"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32300, 969, 2018, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34321, 1022, 11395, 233, 260, "Output",ExpressionUUID->"70810c33-6da3-459c-894f-4e17ce5d3f72"] +}, Open ]], +Cell[45731, 1258, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[45884, 1265, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[48163, 1326, 5393, 79, 117, "Message",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], +Cell[53559, 1407, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53935, 1419, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[56106, 1479, 4376, 63, 114, "Message",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], +Cell[60485, 1544, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60819, 1556, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[61124, 1563, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61364, 1571, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[61674, 1578, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61946, 1587, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[64470, 1652, 107321, 2284, 236, "Output",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[171828, 3941, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[171992, 3946, 138703, 2809, 236, "Output",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], +Cell[CellGroupData[{ +Cell[310732, 6760, 2556, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[313291, 6833, 3535, 68, 411, "Output",ExpressionUUID->"f63d4ebf-a9ef-44ed-91af-2660732158ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[316863, 6906, 968, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[317834, 6935, 17711, 338, 234, "Output",ExpressionUUID->"1b8b3a78-a0bd-45d3-bd96-36802f91f8de"] +}, Open ]], +Cell[CellGroupData[{ +Cell[335582, 7278, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[337948, 7341, 5452, 79, 115, "Message",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], +Cell[343403, 7422, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343754, 7433, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[343983, 7439, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344195, 7446, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[344450, 7452, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[344664, 7459, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[345648, 7487, 111871, 2376, 236, "Output",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], +Cell[CellGroupData[{ +Cell[457556, 9868, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[457722, 9873, 157319, 3132, 236, "Output",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[615078, 13010, 2579, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[617660, 13084, 3589, 69, 419, "Output",ExpressionUUID->"4ecd72d2-1ace-4ff2-8e88-c0632f9a0e98"] +}, Open ]], +Cell[621264, 13156, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[621527, 13164, 843, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[622373, 13189, 11328, 233, 253, "Output",ExpressionUUID->"0caf9d0d-77d1-401b-af5b-bbcaefd8c215"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633738, 13427, 2230, 58, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[635971, 13487, 729, 14, 26, "Message",ExpressionUUID->"5d859565-58a7-4818-ae28-8ca83298de2e"], +Cell[636703, 13503, 644, 13, 26, "Message",ExpressionUUID->"28f560cd-cc7b-4e52-b73e-50ba227ff820"], +Cell[637350, 13518, 342, 7, 33, "Output",ExpressionUUID->"a45a3d42-dad9-4027-884f-a66e5676fb0c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[637729, 13530, 299, 5, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[638031, 13537, 204, 3, 33, "Output",ExpressionUUID->"8cacf199-1cac-4870-9dc0-c274628ed6f0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[638272, 13545, 300, 5, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[638575, 13552, 205, 3, 33, "Output",ExpressionUUID->"02d7e93b-1c0b-4079-a05d-c527c8b8510f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[638817, 13560, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[641380, 13626, 74181, 1585, 229, "Output",ExpressionUUID->"1bf00400-23ef-4275-9276-57a434c5e027"] +}, Open ]], +Cell[CellGroupData[{ +Cell[715598, 15216, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[715766, 15221, 84796, 1775, 234, "Output",ExpressionUUID->"a7efd44b-d7f9-4069-9910-ae5dc8463031"] +}, Open ]], +Cell[CellGroupData[{ +Cell[800599, 17001, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[803130, 17074, 3491, 66, 420, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[806658, 17145, 915, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[807576, 17172, 20103, 377, 255, "Output",ExpressionUUID->"6302c7f2-b469-457c-9438-e4fe9b680d23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[827716, 17554, 2431, 62, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[830150, 17618, 5966, 86, 137, "Message",ExpressionUUID->"d340695a-eaec-43ee-a696-d103075eeffa"], +Cell[836119, 17706, 675, 14, 26, "Message",ExpressionUUID->"198ae7ff-08d3-4962-9ced-2b44d8c1fa17"], +Cell[836797, 17722, 367, 8, 34, "Output",ExpressionUUID->"7ecef4be-d466-466d-a4ac-38c68d32eedf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[837201, 17735, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[837455, 17741, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[837671, 17748, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[837926, 17754, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[838140, 17761, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[840987, 17835, 49805, 1052, 236, "Output",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[890829, 18892, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[891036, 18898, 88691, 1711, 236, "Output",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[979764, 20614, 2581, 72, 95, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[982348, 20688, 3593, 68, 429, "Output",ExpressionUUID->"4e59eca5-c825-44cd-b9f0-42bc02702add"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/rename.zsh b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/156-84_h_Pu240_10-11/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw1.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw1.nb new file mode 100644 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw1.nb @@ -0,0 +1,9365 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399390, 9355] +NotebookOptionsPosition[ 375168, 8989] +NotebookOutlinePosition[ 375597, 9006] +CellTagsIndexPosition[ 375554, 9003] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "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->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw2.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw2.nb new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw2.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw2.nb new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw1.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw1.nb new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw2.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw2.nb new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_фитирование.nb b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_фитирование.nb new file mode 100644 index 0000000..a56b060 --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/h_158-82_h_Pu240_12-13_фитирование.nb @@ -0,0 +1,21243 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 1014723, 21235] +NotebookOptionsPosition[ 1003077, 21028] +NotebookOutlinePosition[ 1003484, 21045] +CellTagsIndexPosition[ 1003441, 21042] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992518077111146*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"10cf49ec-f86f-4cd7-be57-4cfbf349055f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.992518077435083*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"fcab6762-7382-4e3e-becf-478d37ed6771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.992518077465766*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"ebfa0188-4c83-4367-8579-929fa7607643"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.992518077492413*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"41869698-3073-4b06-8267-0fbb58f28415"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9925180775198717`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"ae915d50-b6f6-4133-936a-44dd228a9222"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.9925180775503283`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"dcd8a109-4809-48df-8cc7-829108877606"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.9925180775854473`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"1b441782-d66f-4e89-9200-0eb8ce695b45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "158"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.992517910737123*^9, + 3.9925179119736557`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["158"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9925180776149406`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"5af9b2a3-9d42-461b-b987-bea43a4f1015"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9925180776210003`*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"58f9864a-2404-41dd-9aed-9da0416f2525"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.54525`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.9925180776518908`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"89c6665f-af57-4083-ad4e-99ebe8fa7079"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992518077681613*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"1e50c605-caec-4842-9ec9-4335061b73a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.27109940387026`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992518077716159*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"f6724732-8888-4b3f-997e-a9fd3dfdd112"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["5.0395985234915885`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.992518077748867*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"ffc5de5b-da0f-4eeb-9fde-30431e5caca8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "1.054"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9925180400654488`*^9, 3.992518050801903*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["1.054`"], "Output", + CellChangeTimes->{3.992518077780126*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"fc7ecfb5-95c8-41f6-996a-daae90ed3c78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.459"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992518055586501*^9, 3.992518061405044*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.459`"], "Output", + CellChangeTimes->{3.992518077810524*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"b42f0de1-771f-485a-96a9-f5765b5344ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.992518077842483*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"f2307381-e751-426c-8a27-2bca0cca415b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.992518077872974*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"4ff1044e-911e-4ada-ba83-da5d0b933170"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13.2"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992518089147852*^9, 3.9925181105614223`*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nk01O/3AHAfSdFG0WKZDTPzHkLJVrg3FUrK0jelsi+R7Ft2RSVps0uS +LIWYSopKkWxZKlpQqCTbzCBbRL/5/fGce17n3D/ufe4591yqvae5k6CAgMAP +/vv/GH6qZYmAAAlNX+1qcUzmgaV9v0njfyS81lzTsYpvVeOFhMRFJJyhv79V +kcSDbzLKFGIJCVOhznkV3ztfxmuZryRhxCKbykcJPBBdYuKaI0PC20K//Cev +8CAl8U2jkTYJT0h6x0EcD9gl9fFXfUholV0+ORbOAyNPUdvTfiSUoFU/ieL7 +m/Lezb4BJDzv+1JanO/Vxa0fDwST8HC87UvlMB74Fn0krz/Nz9/rGeIUwgON +u333M6+SkOEt6PMykAfPsgU+FrJJSF4nSmJ58aAuSYtUyyWhX/Wjs+U2PFiw +XSWUPErCpvNJfZp8ayj1DzqNk1D7U1nXI2se5FQnPFo8RcKSlzGJ7GM8iORx +9+6aJ+EQp5Jx6wgPtHbnhtQsI+MiRb3LHpY8KPgr3lHNJGO7qpLSk308uOQw +nPDCnoyR+/XVJrbxQCpczfasIxkndN54H+Y7NzVEycSZjGf1lbUrt/LrbV72 +utOVjC1hdLuz2jwY0lSamvQio1zDvuXimjwwWH7ykFIEGb1D9E6v2syD+VKu +TNp1Mj6U4gQUM3jgLjye69NOxiVBVetsxXnweNphweYjGeOi09sSxXggOPjh +oMlnMqYXn/9Vv4oHqW/KlzC/kPHf5wxJlZU8qLkS5fr1Bxn7zI+F/hblgYy0 ++Eaj32TUDhwROCrEg/516ztXilCwqU5g650pLqQoadr1MSiY79wxtLKDC8sL +t6Y0Mim46ms1jf6ZC5GEXjOboOCS3513dT5xwY2+SztMkYL2tLu3XT5wQY9i +Ib5WhYLy4Ru1Hr3jQv8azypDDQo2b/ENVG7kwpa5PGrhTgpmUe9+SKrgwruG +td+97ShYlHXMXjqNC3lqKtYn7Cl4Zul091AKF4JvGHY6OlAw/qK0U3kyF+S9 +g95bOlFQNl8rziKRCwHrO6t1XSkoaC+uGHqZCzIuN26LeFPQ54ufVGYMF1yE +5J1uRVLQO0mjmOzNhXm9TQNvb1Jw4l+pwuhOLoSanv70OouCNuM6Ymd2cGHW +rq224hYFXbdgj4Q+F2ai/XNzblMwp7ecoQ5cmGgstw/Kp2BBkJfJcW0uDB3U +/0ouoeDTgET91I1c+Oxh8d6jkoKRG1KDNkhyoTTT/9nyrxT0672k69/LAUGN +q+pjfHtXCo1+7uaAaXNR8YduCvrXSkZu+8oBztyPrMxeCj58b60x38EB+mHz +GNU+/v81fB7waeNA6hqVfQeGKSjcpdpKr+VA6PmBnut/KGjy3KS/sIADO32O +LFJcS8XFYpRuIS8OjE/EVdPWUXE07eKmsZMcyAp8FiW1nooSZk1zXSc48DdU +VkBUiopXpVTGilw4UHqu5++ALBWf5tgY6NhwQP6Gw1SeAhU1m3+/XbWPA4vr +TwzS1KmoW18jGc3iQK1saKvUASrW/1246dE9AhRdvZWceCoOp/2sU9MdAWFD +lnRGLRWvjLeKJEcPQzfT7J6MEA3LaxUflF4fgkvhGx5E6NLQ9Mc8vrk1CKpF +MjqlITT0s3b3l/MYAOua3Ymvn9Dw/sGCql3Sv8DRdL1N+RgNc5lKqxxe/oSj +pdSScBU57Pk2wm5n9cHGi03edFc5dDVw07+f/h1Gtz0ov5kvh5pJOvqynb2g +97GqdbJPDt/f3Wc6rtUNTn0+h5RJ8rjGQmXunmAXhDdaO2sdlUdjwa2nY3I+ +gaf8SL98sjySAkmKGQXtMHL8tjq3RR73qxGNbr/fwZGYJJHY5Qq46fWfx/nn +WiBbkjAVNlDAcE+FiwKijdAVNi39v2gFvBZ+xu/Oi9eQ9Zb3KLJKASONygpN +papBNyW2+tKsAo6yxWOMrCqhSd36gIcWHeusksuGxp/AFqP2Q6o+dDy63v6r +0YNSYNaT2lf70tFsx3uj/26XgoyR6/5JvnOEY/+9SiiFRUYLuyr86ShX1aN1 +3L8U3hsy1XaeouNM9fh2Re1S8DYMXXEoko7134/0J1c/hGID+eqIS3Sckjji +3v3lATB2+Sm2FvDd0R70n/J9CGa3jdQU0tFoabCcKOU+tEirFVcU0TF7ZuCQ +7Or7EDA+pppXTMcldim7HabYUHPTUyPsAR3/WbWed3/BBttZt+2KFXT+PjOs +8LBgQ3qJneW5BjpuJfZ6LBUugeVS+8/AAB03WxwVll4oBJVlp1rkB+moYD/e +ljxQCOZ/szeIDvH7k5zXpLUVQmr3VEn7MB1PNpAzXO4UgvztzC+uPDpOP99R +XWhRCDpKXPXEKTo2LnUUEL9XACf04gcGhBj4eF/80LITd6HR/o3JNSoDC/bv +kC8TzwcTEO25QGNgiQqjx3ghD95K7/Y6I8dA+v0ZpbGhPPjQXnvNT4GBQY6p +B9xq8qDXoPrTQYKBEdoR1yWD8mCKVW4nvYmBVQrcQwbfc4H2O88/Bxk40/7L +tKYqB4LPnL5RZsNA6eHVqT8KsqHpZ9yTTFsGbmlaMSKZkQ0ko6S2s3YMPFyi +e9EiPhuql98RsXRgoFrP5aujntmwLLnZf9qZgcan9NrY6tmQcWf9Pi0PBoo9 +Pnhkx6tbUNlcvFAeykBZ2e6C4P4sEFzfZfM8jYHB5NVL5FMyYYEqy81KZ6DL +i4E/myIyYVbRJjT6OgMvLDu23twlE37Dj1TjGwzM/Z6UU6+ZCX0uw+86svj1 +y+kkxHfcgLrHczum8hn40lC34ATlBly0lGGqlDGQ9tzMkvr0OqxNOTaa9Z6B +TQZW699S08DnYmlNShsDORprVhxdngYtUcvSLrUz0OFm1Zc/U6lw1r18e+hH +Bn5RK2t3a0qF6e2SCZadDExTkb9JCUqFzyNN6iu/MzA2XSKi9X0KpOnrhISM +MXDS+JlbV2IyyHClhA+KMfFtB/XOe6NEMHLVcdQRZ6JV01eZJK1E8O07Vk1b +zcS6q277HZmJ0NiZFc5bw8RAt6I65tJECKqjT59fx0Rit+asUX0CtGdtHnhK +YuL+yk5G954EiLPY00jdyMSZ+cIZqcPXYPbJqUuc3Uws/XUvnJNyBWLI7M2/ +9jAxwDH4e3DsFRA72/+x15iJG8uGcyVCrgDDwoLcbsLEZSGttJPWV+AAR4ld +YcbEkcvtn9gKV6CY2vvu3GEmdvpq1Uy4Xwb7CwaSNFcm0vo3GmZXxUPjkTUZ +B88zcWpdEnWh6AIIuJ1+aBzLREgbyZBNvgDqQWONeIGJm7dO+JlGXICsxNY/ +rItM1Go4OMczuwABzXGW/y4zcX7VWK7ETCxQQWjNnRQmsn37K/sNYyGINhn7 +J4+JPeuudulPngP64MfAjNdMfFjm1JV/JgYUw8Q2RNUy0VHDf4WzTwyoiu+p +cKpj4t8XlWOb7GJAW/v5X+UGJro7hOaN68XA3tjbUVVNTDQ8VZW6di4afAmv +uP42Jj57IxzS4x8NL11Fbqp+58/LTihzo/8ZsBraVluzwMTCxLjZ5NQoqHS9 +cO/ZPyaesz1D0o+NArnBz4mlAgTKiTREzp6KgpFf/g45ggSKVZu1XTsSBRE/ +SwSihQlc/KQv0JYcBTm9ctt2rCTwRar2Bue7kcD5uIxdJUugkFTtq8z4CIh8 +1ZVWqUOgKX3L27LdoVBaPyGap0tg/uMznnc3h8JA84rQeD0C35qWlRVLh4Lp +Z7A+igSW7dz53xgnBCic27TZHQTOzwkNmieEwMu17oXqxgReuX5JK+JbMH8+ +f58VHSbwLNq3Ssadgggx2d70AAJJQwWr9cQCwfq5R01YIIHVP54ufjMfADpu +L+/YBhFYF12a6zwcADOvHLzpwQT6926rbKgNAK/AAsEHYQQ2jRaK6YUHgH23 +pkJDNIGnuyRNP/D8YWeRudv0NQLNPcZzvL76gYjR+QmLEgLZ+24ZiPT6gEEv +l7SHTeAT7Z4Pt1t9IDrof7vxPoGrhs9f2/vCBwTu0jKVHhIoKpHkUJ/pAzMi +zw0XPyYw3F9gzXFrHxh4M5ZeVkng1jj2Nt1eb6jbf2T7hhaCf28E2XA4XhBj +qXype4TAbmeTwfFjHnDN30a/hkNgzDhbZv8uD8hKuDJ1l0ug8QezbS+UPKCi +ddzaf5TAsN+us51zJ2HU8LHK8gkCLwjEvlpIPwlWWvhOe47A8p9SdYNf3EF1 +g7lEkggLjTtkd3z3OAGdnf7pxnQWSgyb6xP1x0FSIHnxXgYLd3dlrCy9fxxM +Fcq89jJZ2M7SU7C4fhzqPKcMTFgszI0rHWj2OA6lQoG/9ymzMOqLesvDtcch +Xjlor7kG3+ICAZvcXABPBy8cMmDhbNuNiGCyM4Tkp7seNmRhl8KTYPdlzlDW +VNF+2IiFednHUrymnWDjurkCqz0svDFDnShudQKpohDLo/v4Ns8KEIxygokP +oWybgyysnPySN9XvCCpzGdK2liwMyb+lvqjdEdwoz8/aHmJhdXbdL0qVI3xz +mz9qZ8XCo9tTgi5fd4SWf2EiDtYsFJ7/dlPTzBFEFDL9HGxY+EWSk/FGzxF2 +7qnscbBloZdvyA4vJUeoSFx45GjPwrZUNbPhJY4wWU6iOjmwsCH2XHrVpAOo +9uhddHJkYcfsA7M7PxzAXchm2smJheGMEZeb7xwgn4iwd3ZmIftUQEveCwf4 +P0ZMg8g= + "]]}, + 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:eJwV1nk01O/3AHAfSdFG0WKZDTPzHkLJVrg3FUrK0jelsi+R7Ft2RSVps0uS +LIWYSopKkWxZKlpQqCTbzCBbRL/5/fGce17n3D/ufe4591yqvae5k6CAgMAP +/vv/GH6qZYmAAAlNX+1qcUzmgaV9v0njfyS81lzTsYpvVeOFhMRFJJyhv79V +kcSDbzLKFGIJCVOhznkV3ztfxmuZryRhxCKbykcJPBBdYuKaI0PC20K//Cev +8CAl8U2jkTYJT0h6x0EcD9gl9fFXfUholV0+ORbOAyNPUdvTfiSUoFU/ieL7 +m/Lezb4BJDzv+1JanO/Vxa0fDwST8HC87UvlMB74Fn0krz/Nz9/rGeIUwgON +u333M6+SkOEt6PMykAfPsgU+FrJJSF4nSmJ58aAuSYtUyyWhX/Wjs+U2PFiw +XSWUPErCpvNJfZp8ayj1DzqNk1D7U1nXI2se5FQnPFo8RcKSlzGJ7GM8iORx +9+6aJ+EQp5Jx6wgPtHbnhtQsI+MiRb3LHpY8KPgr3lHNJGO7qpLSk308uOQw +nPDCnoyR+/XVJrbxQCpczfasIxkndN54H+Y7NzVEycSZjGf1lbUrt/LrbV72 +utOVjC1hdLuz2jwY0lSamvQio1zDvuXimjwwWH7ykFIEGb1D9E6v2syD+VKu +TNp1Mj6U4gQUM3jgLjye69NOxiVBVetsxXnweNphweYjGeOi09sSxXggOPjh +oMlnMqYXn/9Vv4oHqW/KlzC/kPHf5wxJlZU8qLkS5fr1Bxn7zI+F/hblgYy0 ++Eaj32TUDhwROCrEg/516ztXilCwqU5g650pLqQoadr1MSiY79wxtLKDC8sL +t6Y0Mim46ms1jf6ZC5GEXjOboOCS3513dT5xwY2+SztMkYL2tLu3XT5wQY9i +Ib5WhYLy4Ru1Hr3jQv8azypDDQo2b/ENVG7kwpa5PGrhTgpmUe9+SKrgwruG +td+97ShYlHXMXjqNC3lqKtYn7Cl4Zul091AKF4JvGHY6OlAw/qK0U3kyF+S9 +g95bOlFQNl8rziKRCwHrO6t1XSkoaC+uGHqZCzIuN26LeFPQ54ufVGYMF1yE +5J1uRVLQO0mjmOzNhXm9TQNvb1Jw4l+pwuhOLoSanv70OouCNuM6Ymd2cGHW +rq224hYFXbdgj4Q+F2ai/XNzblMwp7ecoQ5cmGgstw/Kp2BBkJfJcW0uDB3U +/0ouoeDTgET91I1c+Oxh8d6jkoKRG1KDNkhyoTTT/9nyrxT0672k69/LAUGN +q+pjfHtXCo1+7uaAaXNR8YduCvrXSkZu+8oBztyPrMxeCj58b60x38EB+mHz +GNU+/v81fB7waeNA6hqVfQeGKSjcpdpKr+VA6PmBnut/KGjy3KS/sIADO32O +LFJcS8XFYpRuIS8OjE/EVdPWUXE07eKmsZMcyAp8FiW1nooSZk1zXSc48DdU +VkBUiopXpVTGilw4UHqu5++ALBWf5tgY6NhwQP6Gw1SeAhU1m3+/XbWPA4vr +TwzS1KmoW18jGc3iQK1saKvUASrW/1246dE9AhRdvZWceCoOp/2sU9MdAWFD +lnRGLRWvjLeKJEcPQzfT7J6MEA3LaxUflF4fgkvhGx5E6NLQ9Mc8vrk1CKpF +MjqlITT0s3b3l/MYAOua3Ymvn9Dw/sGCql3Sv8DRdL1N+RgNc5lKqxxe/oSj +pdSScBU57Pk2wm5n9cHGi03edFc5dDVw07+f/h1Gtz0ov5kvh5pJOvqynb2g +97GqdbJPDt/f3Wc6rtUNTn0+h5RJ8rjGQmXunmAXhDdaO2sdlUdjwa2nY3I+ +gaf8SL98sjySAkmKGQXtMHL8tjq3RR73qxGNbr/fwZGYJJHY5Qq46fWfx/nn +WiBbkjAVNlDAcE+FiwKijdAVNi39v2gFvBZ+xu/Oi9eQ9Zb3KLJKASONygpN +papBNyW2+tKsAo6yxWOMrCqhSd36gIcWHeusksuGxp/AFqP2Q6o+dDy63v6r +0YNSYNaT2lf70tFsx3uj/26XgoyR6/5JvnOEY/+9SiiFRUYLuyr86ShX1aN1 +3L8U3hsy1XaeouNM9fh2Re1S8DYMXXEoko7134/0J1c/hGID+eqIS3Sckjji +3v3lATB2+Sm2FvDd0R70n/J9CGa3jdQU0tFoabCcKOU+tEirFVcU0TF7ZuCQ +7Or7EDA+pppXTMcldim7HabYUHPTUyPsAR3/WbWed3/BBttZt+2KFXT+PjOs +8LBgQ3qJneW5BjpuJfZ6LBUugeVS+8/AAB03WxwVll4oBJVlp1rkB+moYD/e +ljxQCOZ/szeIDvH7k5zXpLUVQmr3VEn7MB1PNpAzXO4UgvztzC+uPDpOP99R +XWhRCDpKXPXEKTo2LnUUEL9XACf04gcGhBj4eF/80LITd6HR/o3JNSoDC/bv +kC8TzwcTEO25QGNgiQqjx3ghD95K7/Y6I8dA+v0ZpbGhPPjQXnvNT4GBQY6p +B9xq8qDXoPrTQYKBEdoR1yWD8mCKVW4nvYmBVQrcQwbfc4H2O88/Bxk40/7L +tKYqB4LPnL5RZsNA6eHVqT8KsqHpZ9yTTFsGbmlaMSKZkQ0ko6S2s3YMPFyi +e9EiPhuql98RsXRgoFrP5aujntmwLLnZf9qZgcan9NrY6tmQcWf9Pi0PBoo9 +Pnhkx6tbUNlcvFAeykBZ2e6C4P4sEFzfZfM8jYHB5NVL5FMyYYEqy81KZ6DL +i4E/myIyYVbRJjT6OgMvLDu23twlE37Dj1TjGwzM/Z6UU6+ZCX0uw+86svj1 +y+kkxHfcgLrHczum8hn40lC34ATlBly0lGGqlDGQ9tzMkvr0OqxNOTaa9Z6B +TQZW699S08DnYmlNShsDORprVhxdngYtUcvSLrUz0OFm1Zc/U6lw1r18e+hH +Bn5RK2t3a0qF6e2SCZadDExTkb9JCUqFzyNN6iu/MzA2XSKi9X0KpOnrhISM +MXDS+JlbV2IyyHClhA+KMfFtB/XOe6NEMHLVcdQRZ6JV01eZJK1E8O07Vk1b +zcS6q277HZmJ0NiZFc5bw8RAt6I65tJECKqjT59fx0Rit+asUX0CtGdtHnhK +YuL+yk5G954EiLPY00jdyMSZ+cIZqcPXYPbJqUuc3Uws/XUvnJNyBWLI7M2/ +9jAxwDH4e3DsFRA72/+x15iJG8uGcyVCrgDDwoLcbsLEZSGttJPWV+AAR4ld +YcbEkcvtn9gKV6CY2vvu3GEmdvpq1Uy4Xwb7CwaSNFcm0vo3GmZXxUPjkTUZ +B88zcWpdEnWh6AIIuJ1+aBzLREgbyZBNvgDqQWONeIGJm7dO+JlGXICsxNY/ +rItM1Go4OMczuwABzXGW/y4zcX7VWK7ETCxQQWjNnRQmsn37K/sNYyGINhn7 +J4+JPeuudulPngP64MfAjNdMfFjm1JV/JgYUw8Q2RNUy0VHDf4WzTwyoiu+p +cKpj4t8XlWOb7GJAW/v5X+UGJro7hOaN68XA3tjbUVVNTDQ8VZW6di4afAmv +uP42Jj57IxzS4x8NL11Fbqp+58/LTihzo/8ZsBraVluzwMTCxLjZ5NQoqHS9 +cO/ZPyaesz1D0o+NArnBz4mlAgTKiTREzp6KgpFf/g45ggSKVZu1XTsSBRE/ +SwSihQlc/KQv0JYcBTm9ctt2rCTwRar2Bue7kcD5uIxdJUugkFTtq8z4CIh8 +1ZVWqUOgKX3L27LdoVBaPyGap0tg/uMznnc3h8JA84rQeD0C35qWlRVLh4Lp +Z7A+igSW7dz53xgnBCic27TZHQTOzwkNmieEwMu17oXqxgReuX5JK+JbMH8+ +f58VHSbwLNq3Ssadgggx2d70AAJJQwWr9cQCwfq5R01YIIHVP54ufjMfADpu +L+/YBhFYF12a6zwcADOvHLzpwQT6926rbKgNAK/AAsEHYQQ2jRaK6YUHgH23 +pkJDNIGnuyRNP/D8YWeRudv0NQLNPcZzvL76gYjR+QmLEgLZ+24ZiPT6gEEv +l7SHTeAT7Z4Pt1t9IDrof7vxPoGrhs9f2/vCBwTu0jKVHhIoKpHkUJ/pAzMi +zw0XPyYw3F9gzXFrHxh4M5ZeVkng1jj2Nt1eb6jbf2T7hhaCf28E2XA4XhBj +qXype4TAbmeTwfFjHnDN30a/hkNgzDhbZv8uD8hKuDJ1l0ug8QezbS+UPKCi +ddzaf5TAsN+us51zJ2HU8LHK8gkCLwjEvlpIPwlWWvhOe47A8p9SdYNf3EF1 +g7lEkggLjTtkd3z3OAGdnf7pxnQWSgyb6xP1x0FSIHnxXgYLd3dlrCy9fxxM +Fcq89jJZ2M7SU7C4fhzqPKcMTFgszI0rHWj2OA6lQoG/9ymzMOqLesvDtcch +Xjlor7kG3+ICAZvcXABPBy8cMmDhbNuNiGCyM4Tkp7seNmRhl8KTYPdlzlDW +VNF+2IiFednHUrymnWDjurkCqz0svDFDnShudQKpohDLo/v4Ns8KEIxygokP +oWybgyysnPySN9XvCCpzGdK2liwMyb+lvqjdEdwoz8/aHmJhdXbdL0qVI3xz +mz9qZ8XCo9tTgi5fd4SWf2EiDtYsFJ7/dlPTzBFEFDL9HGxY+EWSk/FGzxF2 +7qnscbBloZdvyA4vJUeoSFx45GjPwrZUNbPhJY4wWU6iOjmwsCH2XHrVpAOo +9uhddHJkYcfsA7M7PxzAXchm2smJheGMEZeb7xwgn4iwd3ZmIftUQEveCwf4 +P0ZMg8g= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13.2}, {0., 0.9871086148033132}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13.2}, {0., 0.9871086148033132}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nk01O/3AHAfSdFG0WKZDTPzHkLJVrg3FUrK0jelsi+R7Ft2RSVps0uS +LIWYSopKkWxZKlpQqCTbzCBbRL/5/fGce17n3D/ufe4591yqvae5k6CAgMAP +/vv/GH6qZYmAAAlNX+1qcUzmgaV9v0njfyS81lzTsYpvVeOFhMRFJJyhv79V +kcSDbzLKFGIJCVOhznkV3ztfxmuZryRhxCKbykcJPBBdYuKaI0PC20K//Cev +8CAl8U2jkTYJT0h6x0EcD9gl9fFXfUholV0+ORbOAyNPUdvTfiSUoFU/ieL7 +m/Lezb4BJDzv+1JanO/Vxa0fDwST8HC87UvlMB74Fn0krz/Nz9/rGeIUwgON +u333M6+SkOEt6PMykAfPsgU+FrJJSF4nSmJ58aAuSYtUyyWhX/Wjs+U2PFiw +XSWUPErCpvNJfZp8ayj1DzqNk1D7U1nXI2se5FQnPFo8RcKSlzGJ7GM8iORx +9+6aJ+EQp5Jx6wgPtHbnhtQsI+MiRb3LHpY8KPgr3lHNJGO7qpLSk308uOQw +nPDCnoyR+/XVJrbxQCpczfasIxkndN54H+Y7NzVEycSZjGf1lbUrt/LrbV72 +utOVjC1hdLuz2jwY0lSamvQio1zDvuXimjwwWH7ykFIEGb1D9E6v2syD+VKu +TNp1Mj6U4gQUM3jgLjye69NOxiVBVetsxXnweNphweYjGeOi09sSxXggOPjh +oMlnMqYXn/9Vv4oHqW/KlzC/kPHf5wxJlZU8qLkS5fr1Bxn7zI+F/hblgYy0 ++Eaj32TUDhwROCrEg/516ztXilCwqU5g650pLqQoadr1MSiY79wxtLKDC8sL +t6Y0Mim46ms1jf6ZC5GEXjOboOCS3513dT5xwY2+SztMkYL2tLu3XT5wQY9i +Ib5WhYLy4Ru1Hr3jQv8azypDDQo2b/ENVG7kwpa5PGrhTgpmUe9+SKrgwruG +td+97ShYlHXMXjqNC3lqKtYn7Cl4Zul091AKF4JvGHY6OlAw/qK0U3kyF+S9 +g95bOlFQNl8rziKRCwHrO6t1XSkoaC+uGHqZCzIuN26LeFPQ54ufVGYMF1yE +5J1uRVLQO0mjmOzNhXm9TQNvb1Jw4l+pwuhOLoSanv70OouCNuM6Ymd2cGHW +rq224hYFXbdgj4Q+F2ai/XNzblMwp7ecoQ5cmGgstw/Kp2BBkJfJcW0uDB3U +/0ouoeDTgET91I1c+Oxh8d6jkoKRG1KDNkhyoTTT/9nyrxT0672k69/LAUGN +q+pjfHtXCo1+7uaAaXNR8YduCvrXSkZu+8oBztyPrMxeCj58b60x38EB+mHz +GNU+/v81fB7waeNA6hqVfQeGKSjcpdpKr+VA6PmBnut/KGjy3KS/sIADO32O +LFJcS8XFYpRuIS8OjE/EVdPWUXE07eKmsZMcyAp8FiW1nooSZk1zXSc48DdU +VkBUiopXpVTGilw4UHqu5++ALBWf5tgY6NhwQP6Gw1SeAhU1m3+/XbWPA4vr +TwzS1KmoW18jGc3iQK1saKvUASrW/1246dE9AhRdvZWceCoOp/2sU9MdAWFD +lnRGLRWvjLeKJEcPQzfT7J6MEA3LaxUflF4fgkvhGx5E6NLQ9Mc8vrk1CKpF +MjqlITT0s3b3l/MYAOua3Ymvn9Dw/sGCql3Sv8DRdL1N+RgNc5lKqxxe/oSj +pdSScBU57Pk2wm5n9cHGi03edFc5dDVw07+f/h1Gtz0ov5kvh5pJOvqynb2g +97GqdbJPDt/f3Wc6rtUNTn0+h5RJ8rjGQmXunmAXhDdaO2sdlUdjwa2nY3I+ +gaf8SL98sjySAkmKGQXtMHL8tjq3RR73qxGNbr/fwZGYJJHY5Qq46fWfx/nn +WiBbkjAVNlDAcE+FiwKijdAVNi39v2gFvBZ+xu/Oi9eQ9Zb3KLJKASONygpN +papBNyW2+tKsAo6yxWOMrCqhSd36gIcWHeusksuGxp/AFqP2Q6o+dDy63v6r +0YNSYNaT2lf70tFsx3uj/26XgoyR6/5JvnOEY/+9SiiFRUYLuyr86ShX1aN1 +3L8U3hsy1XaeouNM9fh2Re1S8DYMXXEoko7134/0J1c/hGID+eqIS3Sckjji +3v3lATB2+Sm2FvDd0R70n/J9CGa3jdQU0tFoabCcKOU+tEirFVcU0TF7ZuCQ +7Or7EDA+pppXTMcldim7HabYUHPTUyPsAR3/WbWed3/BBttZt+2KFXT+PjOs +8LBgQ3qJneW5BjpuJfZ6LBUugeVS+8/AAB03WxwVll4oBJVlp1rkB+moYD/e +ljxQCOZ/szeIDvH7k5zXpLUVQmr3VEn7MB1PNpAzXO4UgvztzC+uPDpOP99R +XWhRCDpKXPXEKTo2LnUUEL9XACf04gcGhBj4eF/80LITd6HR/o3JNSoDC/bv +kC8TzwcTEO25QGNgiQqjx3ghD95K7/Y6I8dA+v0ZpbGhPPjQXnvNT4GBQY6p +B9xq8qDXoPrTQYKBEdoR1yWD8mCKVW4nvYmBVQrcQwbfc4H2O88/Bxk40/7L +tKYqB4LPnL5RZsNA6eHVqT8KsqHpZ9yTTFsGbmlaMSKZkQ0ko6S2s3YMPFyi +e9EiPhuql98RsXRgoFrP5aujntmwLLnZf9qZgcan9NrY6tmQcWf9Pi0PBoo9 +Pnhkx6tbUNlcvFAeykBZ2e6C4P4sEFzfZfM8jYHB5NVL5FMyYYEqy81KZ6DL +i4E/myIyYVbRJjT6OgMvLDu23twlE37Dj1TjGwzM/Z6UU6+ZCX0uw+86svj1 +y+kkxHfcgLrHczum8hn40lC34ATlBly0lGGqlDGQ9tzMkvr0OqxNOTaa9Z6B +TQZW699S08DnYmlNShsDORprVhxdngYtUcvSLrUz0OFm1Zc/U6lw1r18e+hH +Bn5RK2t3a0qF6e2SCZadDExTkb9JCUqFzyNN6iu/MzA2XSKi9X0KpOnrhISM +MXDS+JlbV2IyyHClhA+KMfFtB/XOe6NEMHLVcdQRZ6JV01eZJK1E8O07Vk1b +zcS6q277HZmJ0NiZFc5bw8RAt6I65tJECKqjT59fx0Rit+asUX0CtGdtHnhK +YuL+yk5G954EiLPY00jdyMSZ+cIZqcPXYPbJqUuc3Uws/XUvnJNyBWLI7M2/ +9jAxwDH4e3DsFRA72/+x15iJG8uGcyVCrgDDwoLcbsLEZSGttJPWV+AAR4ld +YcbEkcvtn9gKV6CY2vvu3GEmdvpq1Uy4Xwb7CwaSNFcm0vo3GmZXxUPjkTUZ +B88zcWpdEnWh6AIIuJ1+aBzLREgbyZBNvgDqQWONeIGJm7dO+JlGXICsxNY/ +rItM1Go4OMczuwABzXGW/y4zcX7VWK7ETCxQQWjNnRQmsn37K/sNYyGINhn7 +J4+JPeuudulPngP64MfAjNdMfFjm1JV/JgYUw8Q2RNUy0VHDf4WzTwyoiu+p +cKpj4t8XlWOb7GJAW/v5X+UGJro7hOaN68XA3tjbUVVNTDQ8VZW6di4afAmv +uP42Jj57IxzS4x8NL11Fbqp+58/LTihzo/8ZsBraVluzwMTCxLjZ5NQoqHS9 +cO/ZPyaesz1D0o+NArnBz4mlAgTKiTREzp6KgpFf/g45ggSKVZu1XTsSBRE/ +SwSihQlc/KQv0JYcBTm9ctt2rCTwRar2Bue7kcD5uIxdJUugkFTtq8z4CIh8 +1ZVWqUOgKX3L27LdoVBaPyGap0tg/uMznnc3h8JA84rQeD0C35qWlRVLh4Lp +Z7A+igSW7dz53xgnBCic27TZHQTOzwkNmieEwMu17oXqxgReuX5JK+JbMH8+ +f58VHSbwLNq3Ssadgggx2d70AAJJQwWr9cQCwfq5R01YIIHVP54ufjMfADpu +L+/YBhFYF12a6zwcADOvHLzpwQT6926rbKgNAK/AAsEHYQQ2jRaK6YUHgH23 +pkJDNIGnuyRNP/D8YWeRudv0NQLNPcZzvL76gYjR+QmLEgLZ+24ZiPT6gEEv +l7SHTeAT7Z4Pt1t9IDrof7vxPoGrhs9f2/vCBwTu0jKVHhIoKpHkUJ/pAzMi +zw0XPyYw3F9gzXFrHxh4M5ZeVkng1jj2Nt1eb6jbf2T7hhaCf28E2XA4XhBj +qXype4TAbmeTwfFjHnDN30a/hkNgzDhbZv8uD8hKuDJ1l0ug8QezbS+UPKCi +ddzaf5TAsN+us51zJ2HU8LHK8gkCLwjEvlpIPwlWWvhOe47A8p9SdYNf3EF1 +g7lEkggLjTtkd3z3OAGdnf7pxnQWSgyb6xP1x0FSIHnxXgYLd3dlrCy9fxxM +Fcq89jJZ2M7SU7C4fhzqPKcMTFgszI0rHWj2OA6lQoG/9ymzMOqLesvDtcch +Xjlor7kG3+ICAZvcXABPBy8cMmDhbNuNiGCyM4Tkp7seNmRhl8KTYPdlzlDW +VNF+2IiFednHUrymnWDjurkCqz0svDFDnShudQKpohDLo/v4Ns8KEIxygokP +oWybgyysnPySN9XvCCpzGdK2liwMyb+lvqjdEdwoz8/aHmJhdXbdL0qVI3xz +mz9qZ8XCo9tTgi5fd4SWf2EiDtYsFJ7/dlPTzBFEFDL9HGxY+EWSk/FGzxF2 +7qnscbBloZdvyA4vJUeoSFx45GjPwrZUNbPhJY4wWU6iOjmwsCH2XHrVpAOo +9uhddHJkYcfsA7M7PxzAXchm2smJheGMEZeb7xwgn4iwd3ZmIftUQEveCwf4 +P0ZMg8g= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13.2}, {0., 0.9871086148033132}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.5, 13.2}, {0., 0.9871086148033132}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.992518078086115*^9, 3.99251811127212*^9}}, + CellLabel->"Out[22]=",ExpressionUUID->"5a93b47b-d87c-4c05-aa2b-d17bd1e4b26b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\ +\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \\\", \\\"R1\\\"}], \\\"]\ +\\\"}]}], RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 20, 1, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9}, + CellLabel-> + "During evaluation of \ +In[20]:=",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.2800677099442378`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"5391.436356051909`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.2800677099442378`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.2988729554791925`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"67848.64114184062`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"35\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ +is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ +\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \ +\\\",\\\", \\\"b0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"1.`\\\", \\\",\\\", \\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 380, + 164, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9}, + CellLabel-> + "During evaluation of \ +In[380]:=",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 12}, {0., 0.8911371422921853}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, + 3.991965174909437*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI +sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY +WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I +mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 +HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W +QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 +doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s +EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 +XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm +l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo +cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I +T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig +lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E +WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 +hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq ++rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe +ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK +XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m +QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX +U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV +UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp +KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ +od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN +L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ +Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa +VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo +brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw +ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI +zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX +3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u +ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF +XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb +xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 +PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd +iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 +M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV +VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v +mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ +mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy +HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW +aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh +M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I +1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D +nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G +jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete +avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi +hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE +5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH +9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv +ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm +imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z +9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH +XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf +SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv +71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy +2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ +YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ +cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y +v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv +w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW +4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT +32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac +OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN +rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X +nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ +ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx ++N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz +UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM +XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg +3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA +ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ +AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj +BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei +OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u +EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 +ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB +fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh +0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX +L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P +e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ +f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs +x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW +2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 +ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj +E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 +m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf +rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz +hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm +vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai +hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN +TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f +MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h +hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z +Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o +5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 +xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt +S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk +GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 +TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ +8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ +/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS +CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q +kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl +4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 +JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 +kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M +fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu +5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G +1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p +q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s +8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT +u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx +WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 +M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm +w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ +sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC +Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w +1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ +uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA +fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E +O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO +AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC +90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 +5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC +gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm +kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod +Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV +YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O +FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR +qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ +SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ +lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e +HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 +Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz +P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm +eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F +q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk +LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G +xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw +6d9tC3dVGfgfYapo5w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp +ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +/8EvVhqqdA== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI +FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T +c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb +poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b +hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN +pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL +3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd +0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR +TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 +2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA +iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h +JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD +GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ ++FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF +cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs +53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw +jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR +XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX +6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB +XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA +4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 +DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 +Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd +EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH +tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 +MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS +nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z +8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K +4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv +9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ +HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t +xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ ++kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ +epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq ++6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw +MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ +odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 +IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe +OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ +7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx +p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH +PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 +PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY +Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 +dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ +Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 +pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn +x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 +zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 +h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR +EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR +2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI +PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS +lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI +jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U +rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM +FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X +71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W +xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 +lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw +f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm +yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc +YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv +NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg +6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K +gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu +GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst +i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ +if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om +TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye +2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V +uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx +f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 +S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q +Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP +Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG +FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 +oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe +/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL +xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K +SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 +l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC +3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ +qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg +pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr +Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 +gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk +I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d +2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO +b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc +YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY +Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P +PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ +oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl +XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c +7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 +XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv +6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo +nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC +1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 +YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 +1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J +2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN +dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y +aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT +HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC +pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG +y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m +6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV +5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw +lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t +bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 +pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 +qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F +2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq +MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP +g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ +BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS +OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W +4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F +6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t +JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d +fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 +HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta +CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy +fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj +l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD +PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 +zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf +gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk +QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i +X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf +BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG +suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe +J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 +9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt +c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR +P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw +WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA +3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle +WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw +7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 +lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK +84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi +t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi +ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA +e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf +n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi +s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l +sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 +R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj +r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 +28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg +3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz +8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn +F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs +otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW +/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H +1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 +2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX +Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu +JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr +X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE +xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX +b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz +9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 +Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 +PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY +qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY +lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX +fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH +x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 +kmnLTOSSOsM4cpjN+h9wgfLj + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ +JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ +DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz +RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD +Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT +icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd +KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT +iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX +SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs +ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP +KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC +knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ +qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii +l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik +B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV +ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 +HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ +9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj +f1iXUS3onbM8+P//9RzO/QdxUvrI + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK +JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f +PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY +gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt +Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R +n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY +E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy +xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ +jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u +QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz +p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL +KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 +n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 +1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO +4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 +RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr +Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY +tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R +fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 +ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt +CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 +QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 +m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj +NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 +S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 +kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog +r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH +5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 +Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 +D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y +1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 +rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ +ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG +6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW ++DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD +pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO +BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 +y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu +RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN +3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 +jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk +ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS +cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl +YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol +kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG +RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH +bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ +uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc +nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 +WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 +06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z +QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk +vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 +9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 +9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 +fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj +ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC +8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k +AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p +sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP +myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL +WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW +SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ +qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI +i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl +AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ +eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf +joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H +35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC +ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn +DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm +gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r +29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw +xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H +/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd +E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 +bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR +UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE +wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 +iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 +viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr +8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y +/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX +mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l +7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 +H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW +cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD +3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s +eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g +r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc +V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT +F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba +XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN +nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf +XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 +lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo +LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM +0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 +G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae +q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg +KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 +0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ +P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB +QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF +k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk +oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj +HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V +VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g +hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 +M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 +qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R +Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI +Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m +Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ +8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR +bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj +vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI +jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F +Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo +wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ +Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c +pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s +uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl +chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 +MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b +N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq +8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 +G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm +RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM +V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK +fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN +4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 +BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G +2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO +LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 +Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm +hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 +POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v +k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG +XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt +HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC +blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh +hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj +p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez +g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK +C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S +hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M +3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 +6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO +2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY +oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY +WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz +UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu +ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv +GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD +DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 +x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI +DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK +VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ +31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y +6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP +/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl +O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ +2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D +uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET +R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq +mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z +7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR +XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO +KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be +foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 +Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL +L0t12az/AVUz8uM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 10}, {0., 0.9853735520528359}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, + 3.991965177487829*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.825, $CellContext`xmax$$ = + 13.32, $CellContext`xmin$$ = 7.5200000000000005`, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 2.0999999999999996`, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {106.61830673621087`, 112.24330673621087`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {195.5339317362109, 201.1589317362109}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.992488885528324*^9, 3.992489807907427*^9, 3.992518363743903*^9, { + 3.9925184390759993`*^9, 3.992518457017561*^9}}, + CellLabel->"Out[24]=",ExpressionUUID->"992f477c-9052-4ef7-92d4-085924fdc871"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.992518576055093*^9, + 3.992518580753345*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV12c8lu0bB3Cr9JRK22OP+7quxlNZIes4srKezFBJZhEhyqoUbuEmkTIj +ERlFEkmRJCIle0RIiHTTgzSM//V/cX7Oz/fFOY/f+eKUsPcwdeLi4OBYotv/ ++9TqaSU5OTFUr1slwE5mw8RM7zBTXgwnpQrbRGkrU7XXOvaIoe6xbSJGSWzo +ikyc8FcSw4eHi4wLEtiw8aBaepWaGJZu91I5cZ0NUaOXeQ/oiuFdR//x6its +COAT7HA+KoYXI1yXxC6xwcICvdPCxHDvbLCCgwMbvn22vig1JIaL0bq5rSJs +sA9n/jQQFkduFaVHwy3foLe5M323jji2OG753hP4DV4JbJBN9xbHjf86bbHe +/A0O7NrssyJNHB1L0lhd2ROgs48zc+GNOAbHJqtxiUzA2zAXEP4ljmWWTYOl +wV9h+mZStKyUBO6drxLTGxiH8MKi2nZjCRxf81HcXnAcKmJiizzPSWCKkcvI +uMEYBGWxV+3JksDfUwH96PYFHj2WM7rcIoHUv6dH5OxGISwRtZvm6fmayxK3 +moxAvc8eRtZ2SayOtJaXXD8MyeF3ve5YSmKemtlHqB6ClS6D3ilBkhhv1sUh +4/sJxnS4bcQKJdHsx9JuZ45BcJ6e+J3cLYl9J+PPmkn3g0Vq5aVMXims/+Sa +YifQC60Bq33a5aVwT3rZBjv+bpgkGaJLNlIo8snKoFWvAwLeSxaWRElh51DG +nU/2rZClO/afw2MpdP9LwWeo+T0cm/knW2VQClPX/M3O/t4I4alWGulrGPi8 +lL3+ke5rMNlkGDuvxECDV5rnRm1rIIJF1Q8fZ+CM1aB3XFYVGMtd8vwZx8Dc +oFczVr/KoTQvvYGrkoHFL0SFFb+XQETjPeoJ7bDILg6irwSs2WVMj+cMlGn5 +6C9RXwLcss3qvVUMHImV3aBzuwSMn3AWl7xk4OPrkfpqpiXwtc4+xbmegRys +xz8/lj4C8WGG27s2BibWpdTWsYohUix3dfJXBqpit9bwkSJItL2kpzXBQFdi +2x4nwyLIvm0ZyqZN2GyPmVItgmqp5QsabAb2uCef3iZaBL8ph4mvUwzc+GCv +idTgA3CWFnmj9oOBi5+fzsq6PKDzExs+yEGguuVLYWXuQuBw8OfetpnAkN/S +hUN38qE3cc1wE+2TxODN2sh8KHuXWeuzhcCNL3q/PvPKB0/ldxE1AgRKtqcy +hzAfBtZJ8dsKETg+dDpoy8c8eFHVKJwgTuBZ3Vt31wnnQbCouMKyHQQ+bItn +Lc/OAZ6eWudBINCk02O0aDILOgqXLsQjgR/2zrtYd2dBTqhSnME+AoXIC6WC +L7PAQCavokSDQKMjGv4t8VlwLfzKepY2gSu9ovbuhCyQUDR/JmtA4L71lnrM +uDugfn1wLdOCwIREDrDRzwTfA/Ol5CkCtXgyDee+pQNTkyO/ifZr5y85x/rS +IUaJ55afO4H2w2rnOxrTIUeSL6zBg8Cf4qq2k/np0PNDyNLdi8CRdIr37cl0 +UL2lMlfiSyCZpGls03ELOKYCFLWDCTw1LaJ8fSIV+IYDd7Bpz/lWxfa+SwWB +nmCxhBACr68UOg5FqSBTw+IdYxJ4fk+CkrlPKtgnJndGhdHnW0j0KONMhRos +922LIlA8QvHGYZGbEBH767FDAoH+NZUvg08kQxR5u18wkcBZ9+zVz/STIfqp +Lm8LbZNcjifrdiXDteEEC0wmcNu1tM51s0mQvFdhVjiVvl/1L4X2zCTIG/SS +7cgg8Izb1UbZnERokJm4p1tAYH5uMO8kdwI01sa1LdH2OVcUHT4eD++OqMyX +FhLYpOeZq9IcDy2hLAOiiMBHbl802Gnx0NO9dZzzEYGJvva5wSrxMB7kRD19 +Qu//inv4Qf8bsKrl4+2drwjMkouU5Oe9DrqXTXK6aPvvEvPY+V8cMJVrCkJq +CSzCqSqbvjhYzMh92l1HYIlXrOxCcRxMeZ9pD20gMPbguxDKPg7aNq3862MT +nd9d2fekqq/BzUN7PKN7CKxSqD+jHxMLXatzfPZ+IPDJqlTN+guxsKla8MJn +2j/HCoQOu8ZC9HYOlnIfgTxDgXlFOrFw6U9D5kg/gXbhAUkKizHgmGrbqT5M +oIrjSAzLMwb+GYxUn5yk659hPTDyMhoUWc/G46cIlOJbNvM+Mxo05L7Fq38n +sHEyYEdPSDRYhh6YvPIfgQV9zBQ9rWgI3rYu/Z9ZAhsy6lKSaq9A1+l4zpO/ +CYTYOtnR91HA5Lpd85mHRKXVzcPMPyy4mt/sGbWMRNcpYq9EPwuSzblE5JeT +aPzQIbC7mgWF2Q5nQ3hJHOF9fT6VxYIefZKUXEli8mvRdE8hFkjH5YcdW0ui +p8+C+y6NCOiVKtXv+ZvEoV/1nA6ZYdDrxtoeI0hiMZa1SYeHQV+JzUodIRJn +WgbWC58Kg4/7eRuKhEnc0RFno68YBgOuVnoRYiROO+kIcL+9DJ+Lf+9XIkis +nmwOaVwIhQlN0I6XJpGfe/WeJW8mTERtIAxlSOSr4CjWsmbCt/ZRHi5ZEuMK +C+TuaDGBfSKm5pQciR8ONbc/2MSEqchBTW0FEvuk598ulIXATGuIxowKiTV6 +Bw4Z84TAH4fXYLqfRJONeee23w8ChcYTi39oLxVvHutPCgJPed6KLF0S5+7z +mOZeDoIRHh3lX3okro3Kb/C1DYKWrJfy6YYk5vXa63JuCoK80cptbBMSY3/e +lS4NugSHXUs2sKxJ7LxUI23SEgg3Ws1b5I6SqOu0usb7QSC8V5mJ6aN975Dp +myfRgaDDJ7dG5hiJsy289wsNAkH2/oMVXXYk1nO3LYO6C7ByMn+BOEHiikM5 +Be9qzkO5V8boi9O0K7ISG7sC4GvAcLe/F4lelLJIZlkACIdsbZTxJjHX4od/ +WmIAXIgreHD7DJ2HV0Zi3IcCAB+V+wf5klj01KL74gd/qJ1tWbXvAokFNdwX +iVE/aPbjlq4KJ9HGNvG0sIAvcAXpSPpFkHjeva9aa94HZCMiNkqzSKyVmdO/ +MuAD15PW/roVSWLvdMCZwFwfsCgXqr4YTeLYYI1Tn6oP9P6RM4frJJ5LODzr +4XIWvgQ6+lXeIvHg7/wVHN3eMHrOid87nURVIReweeENI37Hc6jbJO4s77rS +mesNn72cu2IySIxhMRYEz3nDwHE3JYcsEt89Hvk9KOoNnQfO/OTNJ/FpqHCA +pasX1Ioy/UxKSXTPH7cS3XIaXgmF8i9/TOKpZYmrcrlOQ43A5Zxy2oJZpY4G +bE+oXh/eJfWEztPNVZkdrzyhcnmU0o+nJArncobw+HhCKTvuZ/ILOr8K588Y +lXhAVmWm3+dGEvfZUc1VzqfgY4/HZNRbEv9tfhhZuf8UCMypHN/zjsTLCVfJ +AfIUsHa3mV1uoutJGLpED7uBZzrP7q0tJCrv6hSNc3QD1WCnYddOEtu/+KaI +uLhCqzZlOj1I4q3KRjOMdAE+++nXKZ/o+sYdnDnj7gI6gc9Ba4hev5HcXG/i +AmWlljtvfCZxMM3kcJOAC6RR4SsUR0l0enTW3DjHGU7+NVYZMEGii3zCNO/b +E8D5Nm8H1xyJbyzd1bz/OQ7SEYIdZbSt6w2Pqq87DrbarEseP0n8aSnwY9sP +J6iscGnv/UW/J+79i3ZVThBQsPXi43kS5SltRxMLJ5i5mt3ixkWhqu9A/+pw +RxgxzfDvXE3hvfFRiRVcDrBp7XpG9BoKC3bsdk0dtwetN0HvtNZSmMYj2Xag +1R4yNe2kHvJT6LfPLWRZlj3Yyou/jdpAYd18X2ulnj10b0oT1/ibQrXvQVe1 +E+2gsSup7h6DwvrVvP816tqCwqM2Y0uCwj7+e/5Le2wh/eraHk6S9gkrhf1S +tuCtEzphQVFoNH5oeMf8MRB85LmOczuFa0n7ySMux+DE1f1HDu6msIhbd5mL +gQ1w6cyyF/ZSuOu51MVlO63BTULaL0eZwqG2m7/s+Kyhff4kp5kKhVaWot5D +X49ATvHAhhxVCvfW6r8wzz8CRhKNSqZA4Tq3fqeJHUfg5nxGcLYWvZ6zqvxb +ucOgWGy82ciIwldztsa6R63APURP+wft6tnBE2H7rCDbTONMqjGFU6H254YJ +K9g8I9fy1YTCDepn+BfZlvBDfkt0uDmFedhlnBpsCaWlfcuqD1FY+6U1wrfQ +AuTLT87KO1IYkr0245noQXBjOTB6afPG72i9ufwg3DlsbRbiRGGS1Ub+RLY5 +bPzzb1HzcQo5X6Yp9leaw7SKzCl3FwozTIP57tuaw8OKuc933enx4Vl3d+aa +gcwLZpugPz2/ZM75JUNTsJGRUHxPm7/4RKGmgilE3a5ICg2g0LbhSmammCl8 +CfphM3WOwiMLGoal/5lAmobz2KtACsM9Zvikkk2Ar8Zg0ZNJ4YJIrMziN2MY +qV2/te4qfb/ja6VfmhjBRsVC1vkYCok82YwX241g312DbzKxFPL0PRqa5DaC +m2HMhzevUfi+wmOqp/QAmOn+UPW6QeF3Z0WOYdEDUFXfbSKSQuG54VjdxDlD +SG5MP+edTeGliZI+rgZ94LJeUSF8l8JFYldUY54+nPzqsfiK9vspkr88Uh+U +V0KQQC6F5aETc0v/6sOH/X2XK/IpNKc/R7JteiD88u9rvEUU2ogLb9owqgtp +T67lpDyl8EZ5Z9xDYj8s1/s9pvWMwu3Kjqr3Vu4H9y67HWzaRSpFPK8mdUB9 +TroAKynU22zsbFauA/3yTcXDVRQ2/2VU0G+sA+IPVj3fXUufl1NZJzFEGzKy +me0v31M4+r2z+PaiJnxZL1V7qZnCo3JvI8M+a8Luiy9K1VoolHxz4q+rDZrw +zHIx4XErhY2CqQZcCZrQucLvcH4HhXZhrSZnZTSBz9W1/1ovhR1Hb6u4uGmA +z27TMbsvFBpf5nc5/QvhWcpUt+gYhTjx8ajaEAL3iqsNH2g7u7zgJd8ixAy8 +yT/4lcL7TX+PGd5GyI/VdtdjUyjTtH9qQh9hYFppWnqGwjD3SaJAB4Cy7Rz6 +Rvvxwk/tpyIA7o1n2/JmKSyBNycXZtThz52HJYw5CtUXpEvE7qjDZot//AR+ +0/V8zsvRzqMO1tUNzu2087PWzAX3qUHmLpdD1/7QeazbOOBQqgbSvNnKfAsU +Ljv4hlnhrAa+3lo76mkH8ac836OhBpX9n4QuL1KY++XueL+QGvAYBvFpLtHv +q0+39umsKhiUiS0s0b64JLWhvkkV/geSw0Af + "]]}, + 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:eJwV12c8lu0bB3Cr9JRK22OP+7quxlNZIes4srKezFBJZhEhyqoUbuEmkTIj +ERlFEkmRJCIle0RIiHTTgzSM//V/cX7Oz/fFOY/f+eKUsPcwdeLi4OBYotv/ ++9TqaSU5OTFUr1slwE5mw8RM7zBTXgwnpQrbRGkrU7XXOvaIoe6xbSJGSWzo +ikyc8FcSw4eHi4wLEtiw8aBaepWaGJZu91I5cZ0NUaOXeQ/oiuFdR//x6its +COAT7HA+KoYXI1yXxC6xwcICvdPCxHDvbLCCgwMbvn22vig1JIaL0bq5rSJs +sA9n/jQQFkduFaVHwy3foLe5M323jji2OG753hP4DV4JbJBN9xbHjf86bbHe +/A0O7NrssyJNHB1L0lhd2ROgs48zc+GNOAbHJqtxiUzA2zAXEP4ljmWWTYOl +wV9h+mZStKyUBO6drxLTGxiH8MKi2nZjCRxf81HcXnAcKmJiizzPSWCKkcvI +uMEYBGWxV+3JksDfUwH96PYFHj2WM7rcIoHUv6dH5OxGISwRtZvm6fmayxK3 +moxAvc8eRtZ2SayOtJaXXD8MyeF3ve5YSmKemtlHqB6ClS6D3ilBkhhv1sUh +4/sJxnS4bcQKJdHsx9JuZ45BcJ6e+J3cLYl9J+PPmkn3g0Vq5aVMXims/+Sa +YifQC60Bq33a5aVwT3rZBjv+bpgkGaJLNlIo8snKoFWvAwLeSxaWRElh51DG +nU/2rZClO/afw2MpdP9LwWeo+T0cm/knW2VQClPX/M3O/t4I4alWGulrGPi8 +lL3+ke5rMNlkGDuvxECDV5rnRm1rIIJF1Q8fZ+CM1aB3XFYVGMtd8vwZx8Dc +oFczVr/KoTQvvYGrkoHFL0SFFb+XQETjPeoJ7bDILg6irwSs2WVMj+cMlGn5 +6C9RXwLcss3qvVUMHImV3aBzuwSMn3AWl7xk4OPrkfpqpiXwtc4+xbmegRys +xz8/lj4C8WGG27s2BibWpdTWsYohUix3dfJXBqpit9bwkSJItL2kpzXBQFdi +2x4nwyLIvm0ZyqZN2GyPmVItgmqp5QsabAb2uCef3iZaBL8ph4mvUwzc+GCv +idTgA3CWFnmj9oOBi5+fzsq6PKDzExs+yEGguuVLYWXuQuBw8OfetpnAkN/S +hUN38qE3cc1wE+2TxODN2sh8KHuXWeuzhcCNL3q/PvPKB0/ldxE1AgRKtqcy +hzAfBtZJ8dsKETg+dDpoy8c8eFHVKJwgTuBZ3Vt31wnnQbCouMKyHQQ+bItn +Lc/OAZ6eWudBINCk02O0aDILOgqXLsQjgR/2zrtYd2dBTqhSnME+AoXIC6WC +L7PAQCavokSDQKMjGv4t8VlwLfzKepY2gSu9ovbuhCyQUDR/JmtA4L71lnrM +uDugfn1wLdOCwIREDrDRzwTfA/Ol5CkCtXgyDee+pQNTkyO/ifZr5y85x/rS +IUaJ55afO4H2w2rnOxrTIUeSL6zBg8Cf4qq2k/np0PNDyNLdi8CRdIr37cl0 +UL2lMlfiSyCZpGls03ELOKYCFLWDCTw1LaJ8fSIV+IYDd7Bpz/lWxfa+SwWB +nmCxhBACr68UOg5FqSBTw+IdYxJ4fk+CkrlPKtgnJndGhdHnW0j0KONMhRos +922LIlA8QvHGYZGbEBH767FDAoH+NZUvg08kQxR5u18wkcBZ9+zVz/STIfqp +Lm8LbZNcjifrdiXDteEEC0wmcNu1tM51s0mQvFdhVjiVvl/1L4X2zCTIG/SS +7cgg8Izb1UbZnERokJm4p1tAYH5uMO8kdwI01sa1LdH2OVcUHT4eD++OqMyX +FhLYpOeZq9IcDy2hLAOiiMBHbl802Gnx0NO9dZzzEYGJvva5wSrxMB7kRD19 +Qu//inv4Qf8bsKrl4+2drwjMkouU5Oe9DrqXTXK6aPvvEvPY+V8cMJVrCkJq +CSzCqSqbvjhYzMh92l1HYIlXrOxCcRxMeZ9pD20gMPbguxDKPg7aNq3862MT +nd9d2fekqq/BzUN7PKN7CKxSqD+jHxMLXatzfPZ+IPDJqlTN+guxsKla8MJn +2j/HCoQOu8ZC9HYOlnIfgTxDgXlFOrFw6U9D5kg/gXbhAUkKizHgmGrbqT5M +oIrjSAzLMwb+GYxUn5yk659hPTDyMhoUWc/G46cIlOJbNvM+Mxo05L7Fq38n +sHEyYEdPSDRYhh6YvPIfgQV9zBQ9rWgI3rYu/Z9ZAhsy6lKSaq9A1+l4zpO/ +CYTYOtnR91HA5Lpd85mHRKXVzcPMPyy4mt/sGbWMRNcpYq9EPwuSzblE5JeT +aPzQIbC7mgWF2Q5nQ3hJHOF9fT6VxYIefZKUXEli8mvRdE8hFkjH5YcdW0ui +p8+C+y6NCOiVKtXv+ZvEoV/1nA6ZYdDrxtoeI0hiMZa1SYeHQV+JzUodIRJn +WgbWC58Kg4/7eRuKhEnc0RFno68YBgOuVnoRYiROO+kIcL+9DJ+Lf+9XIkis +nmwOaVwIhQlN0I6XJpGfe/WeJW8mTERtIAxlSOSr4CjWsmbCt/ZRHi5ZEuMK +C+TuaDGBfSKm5pQciR8ONbc/2MSEqchBTW0FEvuk598ulIXATGuIxowKiTV6 +Bw4Z84TAH4fXYLqfRJONeee23w8ChcYTi39oLxVvHutPCgJPed6KLF0S5+7z +mOZeDoIRHh3lX3okro3Kb/C1DYKWrJfy6YYk5vXa63JuCoK80cptbBMSY3/e +lS4NugSHXUs2sKxJ7LxUI23SEgg3Ws1b5I6SqOu0usb7QSC8V5mJ6aN975Dp +myfRgaDDJ7dG5hiJsy289wsNAkH2/oMVXXYk1nO3LYO6C7ByMn+BOEHiikM5 +Be9qzkO5V8boi9O0K7ISG7sC4GvAcLe/F4lelLJIZlkACIdsbZTxJjHX4od/ +WmIAXIgreHD7DJ2HV0Zi3IcCAB+V+wf5klj01KL74gd/qJ1tWbXvAokFNdwX +iVE/aPbjlq4KJ9HGNvG0sIAvcAXpSPpFkHjeva9aa94HZCMiNkqzSKyVmdO/ +MuAD15PW/roVSWLvdMCZwFwfsCgXqr4YTeLYYI1Tn6oP9P6RM4frJJ5LODzr +4XIWvgQ6+lXeIvHg7/wVHN3eMHrOid87nURVIReweeENI37Hc6jbJO4s77rS +mesNn72cu2IySIxhMRYEz3nDwHE3JYcsEt89Hvk9KOoNnQfO/OTNJ/FpqHCA +pasX1Ioy/UxKSXTPH7cS3XIaXgmF8i9/TOKpZYmrcrlOQ43A5Zxy2oJZpY4G +bE+oXh/eJfWEztPNVZkdrzyhcnmU0o+nJArncobw+HhCKTvuZ/ILOr8K588Y +lXhAVmWm3+dGEvfZUc1VzqfgY4/HZNRbEv9tfhhZuf8UCMypHN/zjsTLCVfJ +AfIUsHa3mV1uoutJGLpED7uBZzrP7q0tJCrv6hSNc3QD1WCnYddOEtu/+KaI +uLhCqzZlOj1I4q3KRjOMdAE+++nXKZ/o+sYdnDnj7gI6gc9Ba4hev5HcXG/i +AmWlljtvfCZxMM3kcJOAC6RR4SsUR0l0enTW3DjHGU7+NVYZMEGii3zCNO/b +E8D5Nm8H1xyJbyzd1bz/OQ7SEYIdZbSt6w2Pqq87DrbarEseP0n8aSnwY9sP +J6iscGnv/UW/J+79i3ZVThBQsPXi43kS5SltRxMLJ5i5mt3ixkWhqu9A/+pw +RxgxzfDvXE3hvfFRiRVcDrBp7XpG9BoKC3bsdk0dtwetN0HvtNZSmMYj2Xag +1R4yNe2kHvJT6LfPLWRZlj3Yyou/jdpAYd18X2ulnj10b0oT1/ibQrXvQVe1 +E+2gsSup7h6DwvrVvP816tqCwqM2Y0uCwj7+e/5Le2wh/eraHk6S9gkrhf1S +tuCtEzphQVFoNH5oeMf8MRB85LmOczuFa0n7ySMux+DE1f1HDu6msIhbd5mL +gQ1w6cyyF/ZSuOu51MVlO63BTULaL0eZwqG2m7/s+Kyhff4kp5kKhVaWot5D +X49ATvHAhhxVCvfW6r8wzz8CRhKNSqZA4Tq3fqeJHUfg5nxGcLYWvZ6zqvxb +ucOgWGy82ciIwldztsa6R63APURP+wft6tnBE2H7rCDbTONMqjGFU6H254YJ +K9g8I9fy1YTCDepn+BfZlvBDfkt0uDmFedhlnBpsCaWlfcuqD1FY+6U1wrfQ +AuTLT87KO1IYkr0245noQXBjOTB6afPG72i9ufwg3DlsbRbiRGGS1Ub+RLY5 +bPzzb1HzcQo5X6Yp9leaw7SKzCl3FwozTIP57tuaw8OKuc933enx4Vl3d+aa +gcwLZpugPz2/ZM75JUNTsJGRUHxPm7/4RKGmgilE3a5ICg2g0LbhSmammCl8 +CfphM3WOwiMLGoal/5lAmobz2KtACsM9Zvikkk2Ar8Zg0ZNJ4YJIrMziN2MY +qV2/te4qfb/ja6VfmhjBRsVC1vkYCok82YwX241g312DbzKxFPL0PRqa5DaC +m2HMhzevUfi+wmOqp/QAmOn+UPW6QeF3Z0WOYdEDUFXfbSKSQuG54VjdxDlD +SG5MP+edTeGliZI+rgZ94LJeUSF8l8JFYldUY54+nPzqsfiK9vspkr88Uh+U +V0KQQC6F5aETc0v/6sOH/X2XK/IpNKc/R7JteiD88u9rvEUU2ogLb9owqgtp +T67lpDyl8EZ5Z9xDYj8s1/s9pvWMwu3Kjqr3Vu4H9y67HWzaRSpFPK8mdUB9 +TroAKynU22zsbFauA/3yTcXDVRQ2/2VU0G+sA+IPVj3fXUufl1NZJzFEGzKy +me0v31M4+r2z+PaiJnxZL1V7qZnCo3JvI8M+a8Luiy9K1VoolHxz4q+rDZrw +zHIx4XErhY2CqQZcCZrQucLvcH4HhXZhrSZnZTSBz9W1/1ovhR1Hb6u4uGmA +z27TMbsvFBpf5nc5/QvhWcpUt+gYhTjx8ajaEAL3iqsNH2g7u7zgJd8ixAy8 +yT/4lcL7TX+PGd5GyI/VdtdjUyjTtH9qQh9hYFppWnqGwjD3SaJAB4Cy7Rz6 +Rvvxwk/tpyIA7o1n2/JmKSyBNycXZtThz52HJYw5CtUXpEvE7qjDZot//AR+ +0/V8zsvRzqMO1tUNzu2087PWzAX3qUHmLpdD1/7QeazbOOBQqgbSvNnKfAsU +Ljv4hlnhrAa+3lo76mkH8ac836OhBpX9n4QuL1KY++XueL+QGvAYBvFpLtHv +q0+39umsKhiUiS0s0b64JLWhvkkV/geSw0Af + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12}, {0., 0.9564123601578343}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12}, {0., 0.9564123601578343}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12c8lu0bB3Cr9JRK22OP+7quxlNZIes4srKezFBJZhEhyqoUbuEmkTIj +ERlFEkmRJCIle0RIiHTTgzSM//V/cX7Oz/fFOY/f+eKUsPcwdeLi4OBYotv/ ++9TqaSU5OTFUr1slwE5mw8RM7zBTXgwnpQrbRGkrU7XXOvaIoe6xbSJGSWzo +ikyc8FcSw4eHi4wLEtiw8aBaepWaGJZu91I5cZ0NUaOXeQ/oiuFdR//x6its +COAT7HA+KoYXI1yXxC6xwcICvdPCxHDvbLCCgwMbvn22vig1JIaL0bq5rSJs +sA9n/jQQFkduFaVHwy3foLe5M323jji2OG753hP4DV4JbJBN9xbHjf86bbHe +/A0O7NrssyJNHB1L0lhd2ROgs48zc+GNOAbHJqtxiUzA2zAXEP4ljmWWTYOl +wV9h+mZStKyUBO6drxLTGxiH8MKi2nZjCRxf81HcXnAcKmJiizzPSWCKkcvI +uMEYBGWxV+3JksDfUwH96PYFHj2WM7rcIoHUv6dH5OxGISwRtZvm6fmayxK3 +moxAvc8eRtZ2SayOtJaXXD8MyeF3ve5YSmKemtlHqB6ClS6D3ilBkhhv1sUh +4/sJxnS4bcQKJdHsx9JuZ45BcJ6e+J3cLYl9J+PPmkn3g0Vq5aVMXims/+Sa +YifQC60Bq33a5aVwT3rZBjv+bpgkGaJLNlIo8snKoFWvAwLeSxaWRElh51DG +nU/2rZClO/afw2MpdP9LwWeo+T0cm/knW2VQClPX/M3O/t4I4alWGulrGPi8 +lL3+ke5rMNlkGDuvxECDV5rnRm1rIIJF1Q8fZ+CM1aB3XFYVGMtd8vwZx8Dc +oFczVr/KoTQvvYGrkoHFL0SFFb+XQETjPeoJ7bDILg6irwSs2WVMj+cMlGn5 +6C9RXwLcss3qvVUMHImV3aBzuwSMn3AWl7xk4OPrkfpqpiXwtc4+xbmegRys +xz8/lj4C8WGG27s2BibWpdTWsYohUix3dfJXBqpit9bwkSJItL2kpzXBQFdi +2x4nwyLIvm0ZyqZN2GyPmVItgmqp5QsabAb2uCef3iZaBL8ph4mvUwzc+GCv +idTgA3CWFnmj9oOBi5+fzsq6PKDzExs+yEGguuVLYWXuQuBw8OfetpnAkN/S +hUN38qE3cc1wE+2TxODN2sh8KHuXWeuzhcCNL3q/PvPKB0/ldxE1AgRKtqcy +hzAfBtZJ8dsKETg+dDpoy8c8eFHVKJwgTuBZ3Vt31wnnQbCouMKyHQQ+bItn +Lc/OAZ6eWudBINCk02O0aDILOgqXLsQjgR/2zrtYd2dBTqhSnME+AoXIC6WC +L7PAQCavokSDQKMjGv4t8VlwLfzKepY2gSu9ovbuhCyQUDR/JmtA4L71lnrM +uDugfn1wLdOCwIREDrDRzwTfA/Ol5CkCtXgyDee+pQNTkyO/ifZr5y85x/rS +IUaJ55afO4H2w2rnOxrTIUeSL6zBg8Cf4qq2k/np0PNDyNLdi8CRdIr37cl0 +UL2lMlfiSyCZpGls03ELOKYCFLWDCTw1LaJ8fSIV+IYDd7Bpz/lWxfa+SwWB +nmCxhBACr68UOg5FqSBTw+IdYxJ4fk+CkrlPKtgnJndGhdHnW0j0KONMhRos +922LIlA8QvHGYZGbEBH767FDAoH+NZUvg08kQxR5u18wkcBZ9+zVz/STIfqp +Lm8LbZNcjifrdiXDteEEC0wmcNu1tM51s0mQvFdhVjiVvl/1L4X2zCTIG/SS +7cgg8Izb1UbZnERokJm4p1tAYH5uMO8kdwI01sa1LdH2OVcUHT4eD++OqMyX +FhLYpOeZq9IcDy2hLAOiiMBHbl802Gnx0NO9dZzzEYGJvva5wSrxMB7kRD19 +Qu//inv4Qf8bsKrl4+2drwjMkouU5Oe9DrqXTXK6aPvvEvPY+V8cMJVrCkJq +CSzCqSqbvjhYzMh92l1HYIlXrOxCcRxMeZ9pD20gMPbguxDKPg7aNq3862MT +nd9d2fekqq/BzUN7PKN7CKxSqD+jHxMLXatzfPZ+IPDJqlTN+guxsKla8MJn +2j/HCoQOu8ZC9HYOlnIfgTxDgXlFOrFw6U9D5kg/gXbhAUkKizHgmGrbqT5M +oIrjSAzLMwb+GYxUn5yk659hPTDyMhoUWc/G46cIlOJbNvM+Mxo05L7Fq38n +sHEyYEdPSDRYhh6YvPIfgQV9zBQ9rWgI3rYu/Z9ZAhsy6lKSaq9A1+l4zpO/ +CYTYOtnR91HA5Lpd85mHRKXVzcPMPyy4mt/sGbWMRNcpYq9EPwuSzblE5JeT +aPzQIbC7mgWF2Q5nQ3hJHOF9fT6VxYIefZKUXEli8mvRdE8hFkjH5YcdW0ui +p8+C+y6NCOiVKtXv+ZvEoV/1nA6ZYdDrxtoeI0hiMZa1SYeHQV+JzUodIRJn +WgbWC58Kg4/7eRuKhEnc0RFno68YBgOuVnoRYiROO+kIcL+9DJ+Lf+9XIkis +nmwOaVwIhQlN0I6XJpGfe/WeJW8mTERtIAxlSOSr4CjWsmbCt/ZRHi5ZEuMK +C+TuaDGBfSKm5pQciR8ONbc/2MSEqchBTW0FEvuk598ulIXATGuIxowKiTV6 +Bw4Z84TAH4fXYLqfRJONeee23w8ChcYTi39oLxVvHutPCgJPed6KLF0S5+7z +mOZeDoIRHh3lX3okro3Kb/C1DYKWrJfy6YYk5vXa63JuCoK80cptbBMSY3/e +lS4NugSHXUs2sKxJ7LxUI23SEgg3Ws1b5I6SqOu0usb7QSC8V5mJ6aN975Dp +myfRgaDDJ7dG5hiJsy289wsNAkH2/oMVXXYk1nO3LYO6C7ByMn+BOEHiikM5 +Be9qzkO5V8boi9O0K7ISG7sC4GvAcLe/F4lelLJIZlkACIdsbZTxJjHX4od/ +WmIAXIgreHD7DJ2HV0Zi3IcCAB+V+wf5klj01KL74gd/qJ1tWbXvAokFNdwX +iVE/aPbjlq4KJ9HGNvG0sIAvcAXpSPpFkHjeva9aa94HZCMiNkqzSKyVmdO/ +MuAD15PW/roVSWLvdMCZwFwfsCgXqr4YTeLYYI1Tn6oP9P6RM4frJJ5LODzr +4XIWvgQ6+lXeIvHg7/wVHN3eMHrOid87nURVIReweeENI37Hc6jbJO4s77rS +mesNn72cu2IySIxhMRYEz3nDwHE3JYcsEt89Hvk9KOoNnQfO/OTNJ/FpqHCA +pasX1Ioy/UxKSXTPH7cS3XIaXgmF8i9/TOKpZYmrcrlOQ43A5Zxy2oJZpY4G +bE+oXh/eJfWEztPNVZkdrzyhcnmU0o+nJArncobw+HhCKTvuZ/ILOr8K588Y +lXhAVmWm3+dGEvfZUc1VzqfgY4/HZNRbEv9tfhhZuf8UCMypHN/zjsTLCVfJ +AfIUsHa3mV1uoutJGLpED7uBZzrP7q0tJCrv6hSNc3QD1WCnYddOEtu/+KaI +uLhCqzZlOj1I4q3KRjOMdAE+++nXKZ/o+sYdnDnj7gI6gc9Ba4hev5HcXG/i +AmWlljtvfCZxMM3kcJOAC6RR4SsUR0l0enTW3DjHGU7+NVYZMEGii3zCNO/b +E8D5Nm8H1xyJbyzd1bz/OQ7SEYIdZbSt6w2Pqq87DrbarEseP0n8aSnwY9sP +J6iscGnv/UW/J+79i3ZVThBQsPXi43kS5SltRxMLJ5i5mt3ixkWhqu9A/+pw +RxgxzfDvXE3hvfFRiRVcDrBp7XpG9BoKC3bsdk0dtwetN0HvtNZSmMYj2Xag +1R4yNe2kHvJT6LfPLWRZlj3Yyou/jdpAYd18X2ulnj10b0oT1/ibQrXvQVe1 +E+2gsSup7h6DwvrVvP816tqCwqM2Y0uCwj7+e/5Le2wh/eraHk6S9gkrhf1S +tuCtEzphQVFoNH5oeMf8MRB85LmOczuFa0n7ySMux+DE1f1HDu6msIhbd5mL +gQ1w6cyyF/ZSuOu51MVlO63BTULaL0eZwqG2m7/s+Kyhff4kp5kKhVaWot5D +X49ATvHAhhxVCvfW6r8wzz8CRhKNSqZA4Tq3fqeJHUfg5nxGcLYWvZ6zqvxb +ucOgWGy82ciIwldztsa6R63APURP+wft6tnBE2H7rCDbTONMqjGFU6H254YJ +K9g8I9fy1YTCDepn+BfZlvBDfkt0uDmFedhlnBpsCaWlfcuqD1FY+6U1wrfQ +AuTLT87KO1IYkr0245noQXBjOTB6afPG72i9ufwg3DlsbRbiRGGS1Ub+RLY5 +bPzzb1HzcQo5X6Yp9leaw7SKzCl3FwozTIP57tuaw8OKuc933enx4Vl3d+aa +gcwLZpugPz2/ZM75JUNTsJGRUHxPm7/4RKGmgilE3a5ICg2g0LbhSmammCl8 +CfphM3WOwiMLGoal/5lAmobz2KtACsM9Zvikkk2Ar8Zg0ZNJ4YJIrMziN2MY +qV2/te4qfb/ja6VfmhjBRsVC1vkYCok82YwX241g312DbzKxFPL0PRqa5DaC +m2HMhzevUfi+wmOqp/QAmOn+UPW6QeF3Z0WOYdEDUFXfbSKSQuG54VjdxDlD +SG5MP+edTeGliZI+rgZ94LJeUSF8l8JFYldUY54+nPzqsfiK9vspkr88Uh+U +V0KQQC6F5aETc0v/6sOH/X2XK/IpNKc/R7JteiD88u9rvEUU2ogLb9owqgtp +T67lpDyl8EZ5Z9xDYj8s1/s9pvWMwu3Kjqr3Vu4H9y67HWzaRSpFPK8mdUB9 +TroAKynU22zsbFauA/3yTcXDVRQ2/2VU0G+sA+IPVj3fXUufl1NZJzFEGzKy +me0v31M4+r2z+PaiJnxZL1V7qZnCo3JvI8M+a8Luiy9K1VoolHxz4q+rDZrw +zHIx4XErhY2CqQZcCZrQucLvcH4HhXZhrSZnZTSBz9W1/1ovhR1Hb6u4uGmA +z27TMbsvFBpf5nc5/QvhWcpUt+gYhTjx8ajaEAL3iqsNH2g7u7zgJd8ixAy8 +yT/4lcL7TX+PGd5GyI/VdtdjUyjTtH9qQh9hYFppWnqGwjD3SaJAB4Cy7Rz6 +Rvvxwk/tpyIA7o1n2/JmKSyBNycXZtThz52HJYw5CtUXpEvE7qjDZot//AR+ +0/V8zsvRzqMO1tUNzu2087PWzAX3qUHmLpdD1/7QeazbOOBQqgbSvNnKfAsU +Ljv4hlnhrAa+3lo76mkH8ac836OhBpX9n4QuL1KY++XueL+QGvAYBvFpLtHv +q0+39umsKhiUiS0s0b64JLWhvkkV/geSw0Af + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.8, 12}, {0., 0.9564123601578343}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.800000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.800000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.8, 12}, {0., 0.9564123601578343}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.992518572527989*^9, + 3.992518581402706*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"34fc9e99-99df-4e33-98bf-55a11fd36729"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ +\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\ +\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 0.8332573817712089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.6", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9, {3.992518704162754*^9, 3.992518704222355*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.245, $CellContext`xmax$$ = + 11.64, $CellContext`xmin$$ = 7.5200000000000005`, $CellContext`ymax$$ = + 0.995, $CellContext`yyv$$ = 2.5549999999999997`, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.6, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.6, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.9924889078442383`*^9, 3.992489848193634*^9, {3.992518591719152*^9, + 3.992518593560478*^9}, {3.992518693468472*^9, 3.9925187056373777`*^9}}, + CellLabel->"Out[32]=",ExpressionUUID->"1ac8a425-73ca-486f-bbee-97041afbedcf"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[33]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.1"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992518771812063*^9, 3.99251877285188*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVx3k4lAkcwPHJkS6V2ErHmvedmbd3jMfQUGbF71dJG41QbDU7so4kcqRQ +o2RybRqqGZuii1xTPNU+Q1psuzrGsYhS2efZViiVmKaS6bKzf3yf7/MhQmL9 +w40YDIbI0P/vi7cxjIkrlAMZ2gMqKPaNPJ9isFKim1S/WwVh/F/d9Qbrw731 +OREqGBr2lOomMTHBRbFR6KeCkYiYdwPGTMwt3X+kma2Cz5KGZ81mTKy2Gyxu +bKuEeV7iVsUsJv6YKC/U2lSCiDypXGLDxGxrk67F3eWgMb9hPIJMbLWF/hcu +pRCmv5eYFMzEXSVZy6hpJXB7PC4nJJWJXHlel3DRBXAW/JYyfJ6J6nnrT0Pi +Wbi962O88CYT641rlgr8CiGsf2A15ykTdeTBiskeBaCJDqzdbUxgm6muzKkg +H9aP1dsfJgkMlgI1U6KAJzfaZUs9CIzc1KixEBwHReqD3ouhBH4KtMxb1JIL +MzaH3k+WEVhIJFsvOZMDyqgi1asSArXlHvNTs7NhRWpLOtFEoP13GftFHzLg +7V8lrmMDBJZFNTmdkx6GWAcTpd1kEqdMrHr/0jcNpiu2aDkcEp1NLAPvmaZC +jcNWbqMniTs8B5/vypKCrH3DduvtJLqdvhXheC4ZJOXaVMtsErdnpg3Wd+6F +L4r5rrGVJO4sZdergxKg4ZDzR7mGxPEjUVcfB8TD0Yov+d4vSRRNLD9p3hAD +0s4bzm1TWchaPJ7CTY4C/oyJxGqahfprwx5Dp3aATjai5Hux8JLbvh253eHQ +o++qSYhkYXX9pa9v0kOh+VKIOjCHhbeNWnd+8PoJ0uL3BRReZmFTTTmPUAfB +luUZ+uJWFt6RrSmWS8WALiv2r3vNQtL5lLxdshnWCoe+XpvBxgtXem/13gkA +K5+FnIM8Nr6o3Wjml7YRRs/olwytZ6Pa42B6sY8fvHrdZv9NNBtHVj8SPHjv +A2PJ3nP65GzUmkbOexrjDYTJ7/rYKjZeadmTdPfQ92BRUicLbmNjx96jn+nR +NTD7wLah0ddsXMY5wZAlrAb+Dx/9VplzcFSYESAKXQmSaCwQ8DloM817XV+r +O/jmmx/K9OVgmJE4khvgCmGNHVFFsRycsAz+d+EeF8gi3Zz8jnPw7sWXpeLL +ztCSeY7RfIWD0ZsyxVYSAXR9zY4p7uCg5oLY82ygI7y4urhuwRsOnoHmfw78 +aQ/M8HKzwNkU3quw/sUpjQfH54pS+gyewugPkSbwwEij00ZbUFilXDalOZwH +/bbuvYfnUOhQ2tOe7MWDMu39y1etKPxU1znMteKBXYqRv7k1haKIoaSOClsQ +KiRFtwgKrwlN0mc/5ILKw9jCl6Rw2sLYQV4LFxaMVWT8bfBcaaha1MCFz5vf +xehYFHbPnKu8WMKFm9/mrGRSFC5wFb49G8cFT9X1Z1JbCit7gnc3TedCrThI +bMajMHLlF3ePCRpoc5POEwbL+MfWtupomBq3oa7SjsKkKh5j+DENbc7Pch7a +U4jRudeTKmhwe57DCOVTWO7FnWlbREN1gePeEYPnj0/OeppHQ96nlCBTRwrH +zX16wpNoYFSR3ccM7h0uKnOIoiEuSLN20VIKuZl6+aRtNPTNiqkvN/hJ8Naf +H/nT4P+HpaNAQGFBVm2+2pOG/wBmZBC8 + "]]}, + 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:eJwVx3k4lAkcwPHJkS6V2ErHmvedmbd3jMfQUGbF71dJG41QbDU7so4kcqRQ +o2RybRqqGZuii1xTPNU+Q1psuzrGsYhS2efZViiVmKaS6bKzf3yf7/MhQmL9 +w40YDIbI0P/vi7cxjIkrlAMZ2gMqKPaNPJ9isFKim1S/WwVh/F/d9Qbrw731 +OREqGBr2lOomMTHBRbFR6KeCkYiYdwPGTMwt3X+kma2Cz5KGZ81mTKy2Gyxu +bKuEeV7iVsUsJv6YKC/U2lSCiDypXGLDxGxrk67F3eWgMb9hPIJMbLWF/hcu +pRCmv5eYFMzEXSVZy6hpJXB7PC4nJJWJXHlel3DRBXAW/JYyfJ6J6nnrT0Pi +Wbi962O88CYT641rlgr8CiGsf2A15ykTdeTBiskeBaCJDqzdbUxgm6muzKkg +H9aP1dsfJgkMlgI1U6KAJzfaZUs9CIzc1KixEBwHReqD3ouhBH4KtMxb1JIL +MzaH3k+WEVhIJFsvOZMDyqgi1asSArXlHvNTs7NhRWpLOtFEoP13GftFHzLg +7V8lrmMDBJZFNTmdkx6GWAcTpd1kEqdMrHr/0jcNpiu2aDkcEp1NLAPvmaZC +jcNWbqMniTs8B5/vypKCrH3DduvtJLqdvhXheC4ZJOXaVMtsErdnpg3Wd+6F +L4r5rrGVJO4sZdergxKg4ZDzR7mGxPEjUVcfB8TD0Yov+d4vSRRNLD9p3hAD +0s4bzm1TWchaPJ7CTY4C/oyJxGqahfprwx5Dp3aATjai5Hux8JLbvh253eHQ +o++qSYhkYXX9pa9v0kOh+VKIOjCHhbeNWnd+8PoJ0uL3BRReZmFTTTmPUAfB +luUZ+uJWFt6RrSmWS8WALiv2r3vNQtL5lLxdshnWCoe+XpvBxgtXem/13gkA +K5+FnIM8Nr6o3Wjml7YRRs/olwytZ6Pa42B6sY8fvHrdZv9NNBtHVj8SPHjv +A2PJ3nP65GzUmkbOexrjDYTJ7/rYKjZeadmTdPfQ92BRUicLbmNjx96jn+nR +NTD7wLah0ddsXMY5wZAlrAb+Dx/9VplzcFSYESAKXQmSaCwQ8DloM817XV+r +O/jmmx/K9OVgmJE4khvgCmGNHVFFsRycsAz+d+EeF8gi3Zz8jnPw7sWXpeLL +ztCSeY7RfIWD0ZsyxVYSAXR9zY4p7uCg5oLY82ygI7y4urhuwRsOnoHmfw78 +aQ/M8HKzwNkU3quw/sUpjQfH54pS+gyewugPkSbwwEij00ZbUFilXDalOZwH +/bbuvYfnUOhQ2tOe7MWDMu39y1etKPxU1znMteKBXYqRv7k1haKIoaSOClsQ +KiRFtwgKrwlN0mc/5ILKw9jCl6Rw2sLYQV4LFxaMVWT8bfBcaaha1MCFz5vf +xehYFHbPnKu8WMKFm9/mrGRSFC5wFb49G8cFT9X1Z1JbCit7gnc3TedCrThI +bMajMHLlF3ePCRpoc5POEwbL+MfWtupomBq3oa7SjsKkKh5j+DENbc7Pch7a +U4jRudeTKmhwe57DCOVTWO7FnWlbREN1gePeEYPnj0/OeppHQ96nlCBTRwrH +zX16wpNoYFSR3ccM7h0uKnOIoiEuSLN20VIKuZl6+aRtNPTNiqkvN/hJ8Naf +H/nT4P+HpaNAQGFBVm2+2pOG/wBmZBC8 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05174209246096281}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05174209246096281}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k4lAkcwPHJkS6V2ErHmvedmbd3jMfQUGbF71dJG41QbDU7so4kcqRQ +o2RybRqqGZuii1xTPNU+Q1psuzrGsYhS2efZViiVmKaS6bKzf3yf7/MhQmL9 +w40YDIbI0P/vi7cxjIkrlAMZ2gMqKPaNPJ9isFKim1S/WwVh/F/d9Qbrw731 +OREqGBr2lOomMTHBRbFR6KeCkYiYdwPGTMwt3X+kma2Cz5KGZ81mTKy2Gyxu +bKuEeV7iVsUsJv6YKC/U2lSCiDypXGLDxGxrk67F3eWgMb9hPIJMbLWF/hcu +pRCmv5eYFMzEXSVZy6hpJXB7PC4nJJWJXHlel3DRBXAW/JYyfJ6J6nnrT0Pi +Wbi962O88CYT641rlgr8CiGsf2A15ykTdeTBiskeBaCJDqzdbUxgm6muzKkg +H9aP1dsfJgkMlgI1U6KAJzfaZUs9CIzc1KixEBwHReqD3ouhBH4KtMxb1JIL +MzaH3k+WEVhIJFsvOZMDyqgi1asSArXlHvNTs7NhRWpLOtFEoP13GftFHzLg +7V8lrmMDBJZFNTmdkx6GWAcTpd1kEqdMrHr/0jcNpiu2aDkcEp1NLAPvmaZC +jcNWbqMniTs8B5/vypKCrH3DduvtJLqdvhXheC4ZJOXaVMtsErdnpg3Wd+6F +L4r5rrGVJO4sZdergxKg4ZDzR7mGxPEjUVcfB8TD0Yov+d4vSRRNLD9p3hAD +0s4bzm1TWchaPJ7CTY4C/oyJxGqahfprwx5Dp3aATjai5Hux8JLbvh253eHQ +o++qSYhkYXX9pa9v0kOh+VKIOjCHhbeNWnd+8PoJ0uL3BRReZmFTTTmPUAfB +luUZ+uJWFt6RrSmWS8WALiv2r3vNQtL5lLxdshnWCoe+XpvBxgtXem/13gkA +K5+FnIM8Nr6o3Wjml7YRRs/olwytZ6Pa42B6sY8fvHrdZv9NNBtHVj8SPHjv +A2PJ3nP65GzUmkbOexrjDYTJ7/rYKjZeadmTdPfQ92BRUicLbmNjx96jn+nR +NTD7wLah0ddsXMY5wZAlrAb+Dx/9VplzcFSYESAKXQmSaCwQ8DloM817XV+r +O/jmmx/K9OVgmJE4khvgCmGNHVFFsRycsAz+d+EeF8gi3Zz8jnPw7sWXpeLL +ztCSeY7RfIWD0ZsyxVYSAXR9zY4p7uCg5oLY82ygI7y4urhuwRsOnoHmfw78 +aQ/M8HKzwNkU3quw/sUpjQfH54pS+gyewugPkSbwwEij00ZbUFilXDalOZwH +/bbuvYfnUOhQ2tOe7MWDMu39y1etKPxU1znMteKBXYqRv7k1haKIoaSOClsQ +KiRFtwgKrwlN0mc/5ILKw9jCl6Rw2sLYQV4LFxaMVWT8bfBcaaha1MCFz5vf +xehYFHbPnKu8WMKFm9/mrGRSFC5wFb49G8cFT9X1Z1JbCit7gnc3TedCrThI +bMajMHLlF3ePCRpoc5POEwbL+MfWtupomBq3oa7SjsKkKh5j+DENbc7Pch7a +U4jRudeTKmhwe57DCOVTWO7FnWlbREN1gePeEYPnj0/OeppHQ96nlCBTRwrH +zX16wpNoYFSR3ccM7h0uKnOIoiEuSLN20VIKuZl6+aRtNPTNiqkvN/hJ8Naf +H/nT4P+HpaNAQGFBVm2+2pOG/wBmZBC8 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05174209246096281}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.1}, {0., 0.05174209246096281}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.992518766866253*^9, + 3.9925187740049467`*^9}}, + CellLabel->"Out[35]=",ExpressionUUID->"bcac40f6-c7d7-41b1-b550-257fbce97549"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.1", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.1", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.992518799581059*^9, 3.9925188041087437`*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.06152500959163535`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.25`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.04191365320692951`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.53125`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\ +\"-\\\", RowBox[{\\\"0.265625`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.06152500959163535`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.04191365320692951`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.334276012139462`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"1.177638299029146`*^6\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"30\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"2.`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.06152500959163535`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"\[LeftSkeleton]\\\", \\\"18\\\", \\\"\ +\[RightSkeleton]\\\"}], RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"5\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\" \\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.04191365320692951`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"-\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}]}], \\\")\\\"}], \\\" \\\", SuperscriptBox[\\\ +\"R2\\\", \\\"2\\\"]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\ +\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.1`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.06152500959163535`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.04191365320692951`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.334276012139462`\\\", \\\" \ +\\\", \\\"R2\\\"}], \\\"]\\\"}]}], RowBox[{\\\"3.468791242875767`*^8\\\", \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 36, 1, 25981969026427214809, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.992518806653404*^9}, + CellLabel-> + "During evaluation of \ +In[36]:=",ExpressionUUID->"2105c02c-76bd-4ffd-be64-b5062851db3a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "cvmit", + "\"Failed to converge to the requested accuracy or precision within \\!\\(\ +\\*RowBox[{\\\"100\\\"}]\\) iterations.\"", 2, 36, 2, 25981969026427214809, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9, + 3.9925188067654448`*^9}, + CellLabel-> + "During evaluation of \ +In[36]:=",ExpressionUUID->"54400565-5bc6-48c9-8154-4d3b716d29c0"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.5733592843599788`"}], ",", + RowBox[{"b0", "\[Rule]", "0.5590432800582575`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9, + 3.992518806770997*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"9f598ad9-7629-430e-80b8-70a7d572d63b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.573"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}, {3.9925188103154783`*^9, + 3.992518813043202*^9}}, + CellLabel->"In[38]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.573`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9, + 3.992518821424691*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"e1750ba9-a35c-4892-b880-a0eaa98a46bb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.559"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}, {3.992518814900248*^9, + 3.992518816260379*^9}}, + CellLabel->"In[37]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.559`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9, + 3.992518819580181*^9}, + CellLabel->"Out[37]=",ExpressionUUID->"7c686520-df6c-4c31-9115-9df4120e4aba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[39]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFmGc81+37xmVGGkb2Xd89sqlIfM5TRkpUMjJTIhJJslJJkpQ9Im53w96R +SkaiZKVSIiV7RCoKkfh//49+j67X8eB6dr3fr+O4yEdOmjlzc3Fx7VvBxfX/ +JznsBA8XFwmleeSr/WxTIREG34Pa/3INw7OswvV/eeFq29Ebqf/Lm/ZKZ595 +SUIzzV3rBXluwtod/tORPGSMHhCP4YlOBIF7BaJCW8mYJGg69UsiDu6bzGyv +PUHGjQ/1xqfHIsFiD2vW9w4Z90l/T1Z6FQ6CL1Qux74jo6ZdaDT5fSh4nzT5 +Z0SIgiMnTt0UIi7Ct3iISNehoGRDvcf24SBwkJELtzpJQdMPtdtDjf3hUptw +9O5MCqrpqe49T/KByqX247c7KRg16pFxcsALcuwK96qtoWLK1Yi9lV/cIVzO ++3m9HhX9zpa2zzGOQdBB4XUVZ6io5OSea+ztBPS6x05j+VQ8u06weoOUI/Rn +E9fPfqbi5BLlHX3BBswq31cbradh+PJaNn2nJTxQsQ6WMKbh38rlLlFfM1Ck +3JM0OkdDeREJZ+lFU7DW/edRWRkNRyLC/htI3wXJnxwUL43Q8OH0jLiKjwG0 +fIhQPyBFx8e5O4a5BHZAGW/LDntTOjZI9xRt6NaBovw+RkswHX2M/Z4WCWwD +h2Ah8dMP6dgKy929hZuB++GGONlJOm7qELj4jaYKFW4rh5kbGVgs9/BreZMC +0Hfz63paMHCq/evhmtdMyMj6cEoqnIGWj1R/5P6kgqTzDfX6CgbmFk6u+/Oc +BLDfbSn7OwMVKm6c4GqWhcCKdek/yEzkb2APv9orCcf3thqePsjEJ4/LRkb0 +xcDjsP0z62tM1AiXid9KXgdOHV3tWM1ElpOznoj0Kljj5zp++CcTg0TvK9z3 +4IfWhJfvR+gsfLtWJutuKzdAn2Frph0L4ffDhojVy0RWZJ6ZcxwLr7VEmQdU +zROkh4OF4c9YyD4r4/wkZYbYu0ZVdGSBhflvBd3+6ZkiYvsPGGcrslFtIr14 +dmKSeCFxeL3bITY+ry2NT6d/IUoDQsaOJrIxsVizj/ftEFFyMCDm2Qs2/nBI +ii7w7Sd6A+IXl5fZWCfu9OtE6ScirbGx9eIYCc+BBsW36AZcC4jjbpUj424g +y99+Eg8Oy/uYzvvJaC/oafnYOwZ4X65JSb1CRiOZD0rFOteg+GqBTmglGW93 +dVVHVoUBIQtvKr+TUXxWSOnIrxAoudhwYAeNggqq3wM3xF4ARqei4FlLCpb2 +3XQYOx8IXj4Jq/ZHUNA9vnzfjJwv/DfyffFMDQXjZAR/G5z0hlJF7PkyTUG7 +4VLHwjJPSK6KFvrDoqLpmVtCY+5uEKL15HiNHRWbQat9XsMZ9kUOVryOoeKx +fV/Mf5QcBp7yxTnV51T8pODo2OBnDzfvCdEH5qloMhlkMHLpIPDOSv6nrELD +XYIvyop2moM3m2+P8lEaxriFP3D/sg/qVUdHzyXT8NyHQ8NDCnvg95oab9mX +NFw5oDk6eGonqH30UXFfpqEiqfbdlTw9gO+bth9Up+PlusJV+44hqHR1bE44 +RseweqGCKovtwJ905p+NaXQ0SvrrplG7FUpSxQ/sbKfjCdsVM1vfqYFDTHwl +mZ+By3ZmYwLuyvDdWkDMWIuBY/+MrxFX3gRHf5+0rvdk4BAlMsyilQ6fLz9q +n7zFwIrIzRrKxhSQt+VKKX/HwOrQgpZ94RvAjk/HtHUlEzOfPr9fe1oavEM9 +p1V1mJgvlSFcrboeTnQlXB45xURDo+cbN98WAVfZVGOTDCbGZh/OnotZDZpZ +txz2dzFxLN74Gz17JUzypTpmCLPwYJZeeXE4L4RpRew31GVhkPDGX8XrV8D0 +A//oy34sDOmImRM3WCScKDu5/PJZeDfris5U/Bzx6IiQ48NeFkZ6xolVZfwk +fvjVFRmKs5FZYCclYf2DUAiyUQk3ZGMRj1A34TlBaDdOLbkEsrH4Q1IUDIwQ +ql/OVSUUsdH+SpvJN5FBwsgtzHBgkI3ylpGZT3J6icFVUxV/ukkYx9sZ2Pom +GV7aX15QWEdG+Ta5VIM7CaDWtZT2UI+MXcNadZ8hFuxWh4wrBpJxu1Bbs/21 +68DtPp7yt4iMfNrf26RrrwBtSiOfMUBG6aJzE3G9lyD291XNBEkKHi61H1K6 +EAwR5Q+ahHdTkPfkNK9H/lk4trNr17sgCqpuVu0qVPSDWJslg757FCynarlS +9E7D1iTBDINhCjJUy738pb3g1vUNhUmyVLS8HXjq0N3jcDlfSkp3HxVP6L+7 +L77JBUam54b0L1FRS8Cq3fT6EUio/KgY+Yjj75Ui6gdaHaCmIKNL6SsV1+fm +7j730BryD/opVVE473f532lXXQsQV1QeuWNFw6oDpzcey98Pv9mtywMRNJzL +2nPn1zUTYOV4JB6rpWEO23TN1hAjGP74RWlumobWSe7yRyL04fKQzcMOOh13 +JDns1FXTBW/P15W/bejYm5vW3BGjDd0kecqZKDpaeB9c+feTBghERav3PKPj +IeE88QuV6lBC/ZCVPk9HK6X0qC1uKvCuXyCoQoGBn7drT5/3kQd98vaXUkcY +GPVvTsnbRgboSuyiXEpgYLNwoH67DBXIfcYu2i8YqJ+qdfMKFwlM5Q8wtBYZ +WHbJVXtvsgzMpoNRrDITV/hoL5lpScBEvMqIgjMTjzqMBDt5isJxYvHK2xtM +fGlR6qA8sAbaqqukmpqZ+Ka+fba8SxDO11yk83CxUDqNz63rDB/kjsonJKmz +8LmVX+H4xApIbuktXH+chaoL62J/3vpL8Hb5s7+ls1B8cO1n1p3fxFfhOX5S +Oye7/XUwTvlFkOoDHJME2KijPTHbKjFFfFbqrJbUYqOPcLuqYtZXIuQkW2js +BBvfM+nfZf6OEt6qwe2Lt9l4ONCGdnVykFjsu+D+toNzX8wqxOlWH5EwdZ08 +NcXG2lnLn4a0z0SY4uUSzXckNOHTqrjrmgLfXp337REk4zMVfmcbyURIe9bR +2adNxjdqUyRaXiyEF24X8ztNxhmrcxUbNSOhwFbQ6HEOGesKPKTlDcNBwm6z +lN1HMlYSD8adrUOB+/7EJh0RTt/IqDwR3RMMVbQ/uR16FOzZlNp82zAIBlQW +xtb7UvDyjO6Jicd+EJFw+XhiPgV9NCRrUkpOg/9uzyunP1MwzcN6e12QF2T8 +cj4/JE5F+sjRzEx9d+A/+tyTezcVua5lltCzXeAePWThfBAVmY9tD0/9PQKf +iJZGrVIqtvwKqNsfdAj25Z1SsximotMfRuOgpQ0sCTJ9ueVoeCTatrq6zgKG +lfTL7PbT0DFN4+2ttWYgmlVzbX0oDc01X5h36ppCrc/zrNWPadjw7uK232t2 +AWFHU6r+SkN7od8PeZb0gdXrfUZ8Ix2PSmzsOpSqC3EVJst55nRU3punkaeu +A/ojl2m3rtCx6+76kkgvTVATeEll1XB8nS7Bp6++Gawnz8rZ/+T4vbbVb1WD +CjTQw0t+0BnI+ljcK/6PAtwvJ12pt2VgKdyyPGDMBG8HkWaTKAYupCvIiIRR +Ie3OVOuFWga2med8lTxCAkPCQXRqhoGpWfc0ApVlQVOB9bOWxUSRc+SS4/US +kHfqvMRrByZO7dos4NMlCl9fKWQlxTLxeVTV3JGYtZDc1DzD+4yJFhJD00u+ +QtAgM3OldJ6JJWTffa4/+ECrJqi8RoHja3Nf0+823PDVQqza3omFF57q+cpa +LBEdpSI1ucksrLzf5v9ccZ7gP+JhY97CwhL352XLkjPEI1eLbcQKNno2mnz8 +6D9FaIYnhvaqs/FblcCnPTsnCZre82iWCxs/KT+w/Td6jIizuNhTksrGrsaI +UZ5DQ8T7tMW/LW1sHBY1JjSE+gnPQsH7X8bZuGEPo5o09Jl4vGVd9O/fbDSK +t84Rd+shDhKv5Dtfk3Blt4G5U3kKLIWfvV/OT8ZkD8OIj2aJ0K6le+bMNjLG +ZfAwtPpiIf1ccrasFxl7PBaz+WIigeud1H/JmWQsjDgQaRIRDjGxpW2znWTU +Ors2xvlGKDyOlcsQWUNBaR+9qfDVF8HC7h+Zx0jBpa/0d8GJQXCLfu3RA28K +Pmt8y27h9ocw1abFkzmcvuK057LO2Gm4mUEKEPpIwfwtRLxxsRdk5QgeuyZC +RZ2u7g3lSe6ws1ZWZtCQig+y27PKR1xAAnbyyQVQMe92TViDhhMEc+kliRRT +UUj2VWJjxyGQYh88NNZPxZio8n6BHBvIGVhKyZSiYd3K8dlIXktoK25L2WZK +w7RmTd64HWZAGnr4piiYhh2B5Q3H001B2PZUcd8DGqbuzzK4YrkL3NOeKt76 +wvH9KffcF5oGEPjp/LsyWTo63ZuR7X2tC5RDwuTQ/XRMm9+26WSYDswblWVu +CaUjZKm35VVqQmP9ROrLx3R0y5Tm3uq1GZTMTKy0f9BRXXjvLa0ZFajd2bj7 +OoWBS20p/gPeCvD1gthQ8kEGir4zc8mLZMK1kJl/1K8xUK+g8HRsFRW6L+kH +k6sZ6PLrq15NPAnqXjiFt04zUGVCu2pfkCx88E5rPEhnonmUnpWaoCREOGYW +3bZl4tsrJDPHNWJQIGWwxT+KiWlhNUMTY2vh/Kv9Q3dqmahq3x8c+UIIxhuV +tkXMMtHx6tbGciV+uMSmN5ixWVimlXTWO54bJGQLn61wZCFJ0T+hsWSJIEgO +4VcSWYgnEl0rfeaJ+Ous0G8vWGii9nUu6OAMEbq9ni66xMKVZsOh5XlTxND9 +X8fqVdi4i7dKXzllkphViG9vPMJGuQs1LQrdY8Sd0RWDEckcXz+WqShNHiLq +F7R2GrWwsb+mMU8O+wnbVUZ/nUfZ2NunVdBh0Etkx5t2+cywkU+kukSmoYdo +7XxjELTIRlrrlx2qq3uIp4Y+boxXJMzhe2gg/SkFwoYD3pL5yHj3gHlCt1ci +fJ2ZrX+iQUbd1bNvQ/7EQu5ww5SHJ+f9C/5WtK2KhE0xt5oFMsi4bfuWjVkF +4bCnYIqt/56MgU0b+/MfhEISV3nfWWEKNjVa5j6iXwSKv5KZAlBwG3311R3V +QbD83wGSwCkKikWfOyTM9AdergmDniwKFpm4Ku3m9YG8N/NTFh8o6BWtz2xu +9ILsENuPn9dS8dSHbWrSte7g+q3h5AEDTj+XXLas5T8GTS25Ecf9qLh6O21u +2twJzPqXFoMKqTh48ez1UyscIci1ZUa1j4p/iv6enHttA3/bxuXnJGh4U+jS +tVq6Jez4IbY6Zw8N/WamHNHODBiX7vv8OU9D1X8DAje8NAU10xfqu8s5fhdP +1E8N3AUh2jGFImM0NB43Uj9maQCUj7yhPDJ0TBbSiP04oQvj9ybu/dhLR4rW +hBe7RAfMF3a5BIfQcWJh7dPofk0Qo/yxIlXQkWt11OufUZshmffBr/xvdGyZ +cR3gWa0KVQfHJLtJDExUjDCQT1eAlcPX43isGLjOiZkpV8yE5ITRF5lXGXg4 +lxQv1EUF/1+T1t6VDJRTs3rSVECC4OsuelpTDPwZVWW0+q4sbEqyLMugMhGD +4jRdFCRhofNRoJANE/sLKjVi2GIgrPNmcew6E3cZNWY3CK0DL7PEj1M1TEx9 +TY5U+SEEi/+1iMz+4uzTfcnVG0z5gXUooC2NyUI1l07lmWJuyPsb0HjAgdNX +5hfe8/cuEdOWoR6z8Sz0UZ7bfjF5nugm86dsb2BhMLXfiS9ghhinLcgGLbJQ +yeBoUmf9FKFlnGG9RZnN2W+Car51k8Rn8sJPqcNs5F+e39a0PEbkqdQNzyWx +cW2KksGL8iHiMbvbPayJjW8cbirste0nzLRGyRnDbLQebG2m+vUS6XWTi6U/ +2Vgz2PN61UwPUc9/6vjjBTZ2Nhl2L2n1EO9z1MjEEhvP18icyu/9RMw2G640 +bSOhgJr716vfU6BZbH7AipeM1lKHX3+5kAiBb/dPDG0lY9FIe8lWwTgokv4s +ccODjNq49Ul6eySg51FHuEvG7MifNkPV4ZC3LbbzeAcZ439ubnRsCAVezRXL +JasoqFn81KpH9SKs5NfwdCYouFa1YJ3mmyBQ6tEwV/ai4Lx64Wndbf6gP3p2 +XIzDw9LgkT2HRH1AzdWl6GwXBW3mufmSO7wg52Ro4koODySj7oCBd+7gfznt +5jV9KjZGXfR7L3EMKKK2L2N9OftUsac+xckJqt7YlZQWULF7QIT2TNgRlFby +PbXspWKnjdnTsGEbYD3v+7WRw8MQl3/Cia2WEBTzwLDXmIb8W49K0N3MIK9d +rYHM4UFbjsUdP2QKDTunZ87fp+HOm0sXH13fBZHX/Tx2j9Jw96XrZwydDcC3 ++4WtvDQdTcquyLrN64Kpre0Cg8ND7e+mfLnnOrDiQGJD5kU6ljTxL9z4pQma +b7gf7HpER3PSlODR9M2cfXW8fnCSjjfrtHlmpFRB67D/EheHB8+OFKuxMgVI +utH0RdOSgcn2N6JHnzAh/d8+ud5wBv5NuOvbMUyFxoK6hpuPGfivS2uufQUJ ++r6Nkk79YGCr1TR38ANZaM8uy2mmMPHjG/N94oQklMbX9RHWTE5fTy7dqiEG +2ntvOJI5PBQZ/ilbWL8OxsU0rKQ5PAydUFRM4V0Fl1fJLMlzeHjitWJg0J4f +FgLutj9lsFDII/ybYQ03/PJ0bA6yZ2EcO0sUZ5eIPd6SfYocHiRNNv/xzZsn +zn31oR55zkLRTxsU7a7OEGkp6yXv/WFhvIQLr+/rKcJFIsjMU4mNyuVN25Q7 +JwmztEJeXUfOPg0ReFYg+oVQsqAcU+LwcERXY9Lx2RCx5Sn7fGYjG9kjled+ +u/YTL99s3Vw/xOlHI9zzo9G9hLSNztr2aTYu1oXL3BL+TBDptUEf5tlYwe1Y +xmXWQ+zHEHX7v2zMF7dzdZ79RNiIDK7ZuMzhI1huL0/TJ+LuCxUJpSf/+7/8 +P2spUo4= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGMgSDNQr9cqz/1CURZzJra97ujUv21xFlCYi +plTO7Y5f1U+19yxjP+Q9H+n5U3yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziOv3MB9K7M1g== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmGc81+37xmVGGkb2Xd89sqlIfM5TRkpUMjJTIhJJslJJkpQ9Im53w96R +SkaiZKVSIiV7RCoKkfh//49+j67X8eB6dr3fr+O4yEdOmjlzc3Fx7VvBxfX/ +JznsBA8XFwmleeSr/WxTIREG34Pa/3INw7OswvV/eeFq29Ebqf/Lm/ZKZ595 +SUIzzV3rBXluwtod/tORPGSMHhCP4YlOBIF7BaJCW8mYJGg69UsiDu6bzGyv +PUHGjQ/1xqfHIsFiD2vW9w4Z90l/T1Z6FQ6CL1Qux74jo6ZdaDT5fSh4nzT5 +Z0SIgiMnTt0UIi7Ct3iISNehoGRDvcf24SBwkJELtzpJQdMPtdtDjf3hUptw +9O5MCqrpqe49T/KByqX247c7KRg16pFxcsALcuwK96qtoWLK1Yi9lV/cIVzO ++3m9HhX9zpa2zzGOQdBB4XUVZ6io5OSea+ztBPS6x05j+VQ8u06weoOUI/Rn +E9fPfqbi5BLlHX3BBswq31cbradh+PJaNn2nJTxQsQ6WMKbh38rlLlFfM1Ck +3JM0OkdDeREJZ+lFU7DW/edRWRkNRyLC/htI3wXJnxwUL43Q8OH0jLiKjwG0 +fIhQPyBFx8e5O4a5BHZAGW/LDntTOjZI9xRt6NaBovw+RkswHX2M/Z4WCWwD +h2Ah8dMP6dgKy929hZuB++GGONlJOm7qELj4jaYKFW4rh5kbGVgs9/BreZMC +0Hfz63paMHCq/evhmtdMyMj6cEoqnIGWj1R/5P6kgqTzDfX6CgbmFk6u+/Oc +BLDfbSn7OwMVKm6c4GqWhcCKdek/yEzkb2APv9orCcf3thqePsjEJ4/LRkb0 +xcDjsP0z62tM1AiXid9KXgdOHV3tWM1ElpOznoj0Kljj5zp++CcTg0TvK9z3 +4IfWhJfvR+gsfLtWJutuKzdAn2Frph0L4ffDhojVy0RWZJ6ZcxwLr7VEmQdU +zROkh4OF4c9YyD4r4/wkZYbYu0ZVdGSBhflvBd3+6ZkiYvsPGGcrslFtIr14 +dmKSeCFxeL3bITY+ry2NT6d/IUoDQsaOJrIxsVizj/ftEFFyMCDm2Qs2/nBI +ii7w7Sd6A+IXl5fZWCfu9OtE6ScirbGx9eIYCc+BBsW36AZcC4jjbpUj424g +y99+Eg8Oy/uYzvvJaC/oafnYOwZ4X65JSb1CRiOZD0rFOteg+GqBTmglGW93 +dVVHVoUBIQtvKr+TUXxWSOnIrxAoudhwYAeNggqq3wM3xF4ARqei4FlLCpb2 +3XQYOx8IXj4Jq/ZHUNA9vnzfjJwv/DfyffFMDQXjZAR/G5z0hlJF7PkyTUG7 +4VLHwjJPSK6KFvrDoqLpmVtCY+5uEKL15HiNHRWbQat9XsMZ9kUOVryOoeKx +fV/Mf5QcBp7yxTnV51T8pODo2OBnDzfvCdEH5qloMhlkMHLpIPDOSv6nrELD +XYIvyop2moM3m2+P8lEaxriFP3D/sg/qVUdHzyXT8NyHQ8NDCnvg95oab9mX +NFw5oDk6eGonqH30UXFfpqEiqfbdlTw9gO+bth9Up+PlusJV+44hqHR1bE44 +RseweqGCKovtwJ905p+NaXQ0SvrrplG7FUpSxQ/sbKfjCdsVM1vfqYFDTHwl +mZ+By3ZmYwLuyvDdWkDMWIuBY/+MrxFX3gRHf5+0rvdk4BAlMsyilQ6fLz9q +n7zFwIrIzRrKxhSQt+VKKX/HwOrQgpZ94RvAjk/HtHUlEzOfPr9fe1oavEM9 +p1V1mJgvlSFcrboeTnQlXB45xURDo+cbN98WAVfZVGOTDCbGZh/OnotZDZpZ +txz2dzFxLN74Gz17JUzypTpmCLPwYJZeeXE4L4RpRew31GVhkPDGX8XrV8D0 +A//oy34sDOmImRM3WCScKDu5/PJZeDfris5U/Bzx6IiQ48NeFkZ6xolVZfwk +fvjVFRmKs5FZYCclYf2DUAiyUQk3ZGMRj1A34TlBaDdOLbkEsrH4Q1IUDIwQ +ql/OVSUUsdH+SpvJN5FBwsgtzHBgkI3ylpGZT3J6icFVUxV/ukkYx9sZ2Pom +GV7aX15QWEdG+Ta5VIM7CaDWtZT2UI+MXcNadZ8hFuxWh4wrBpJxu1Bbs/21 +68DtPp7yt4iMfNrf26RrrwBtSiOfMUBG6aJzE3G9lyD291XNBEkKHi61H1K6 +EAwR5Q+ahHdTkPfkNK9H/lk4trNr17sgCqpuVu0qVPSDWJslg757FCynarlS +9E7D1iTBDINhCjJUy738pb3g1vUNhUmyVLS8HXjq0N3jcDlfSkp3HxVP6L+7 +L77JBUam54b0L1FRS8Cq3fT6EUio/KgY+Yjj75Ui6gdaHaCmIKNL6SsV1+fm +7j730BryD/opVVE473f532lXXQsQV1QeuWNFw6oDpzcey98Pv9mtywMRNJzL +2nPn1zUTYOV4JB6rpWEO23TN1hAjGP74RWlumobWSe7yRyL04fKQzcMOOh13 +JDns1FXTBW/P15W/bejYm5vW3BGjDd0kecqZKDpaeB9c+feTBghERav3PKPj +IeE88QuV6lBC/ZCVPk9HK6X0qC1uKvCuXyCoQoGBn7drT5/3kQd98vaXUkcY +GPVvTsnbRgboSuyiXEpgYLNwoH67DBXIfcYu2i8YqJ+qdfMKFwlM5Q8wtBYZ +WHbJVXtvsgzMpoNRrDITV/hoL5lpScBEvMqIgjMTjzqMBDt5isJxYvHK2xtM +fGlR6qA8sAbaqqukmpqZ+Ka+fba8SxDO11yk83CxUDqNz63rDB/kjsonJKmz +8LmVX+H4xApIbuktXH+chaoL62J/3vpL8Hb5s7+ls1B8cO1n1p3fxFfhOX5S +Oye7/XUwTvlFkOoDHJME2KijPTHbKjFFfFbqrJbUYqOPcLuqYtZXIuQkW2js +BBvfM+nfZf6OEt6qwe2Lt9l4ONCGdnVykFjsu+D+toNzX8wqxOlWH5EwdZ08 +NcXG2lnLn4a0z0SY4uUSzXckNOHTqrjrmgLfXp337REk4zMVfmcbyURIe9bR +2adNxjdqUyRaXiyEF24X8ztNxhmrcxUbNSOhwFbQ6HEOGesKPKTlDcNBwm6z +lN1HMlYSD8adrUOB+/7EJh0RTt/IqDwR3RMMVbQ/uR16FOzZlNp82zAIBlQW +xtb7UvDyjO6Jicd+EJFw+XhiPgV9NCRrUkpOg/9uzyunP1MwzcN6e12QF2T8 +cj4/JE5F+sjRzEx9d+A/+tyTezcVua5lltCzXeAePWThfBAVmY9tD0/9PQKf +iJZGrVIqtvwKqNsfdAj25Z1SsximotMfRuOgpQ0sCTJ9ueVoeCTatrq6zgKG +lfTL7PbT0DFN4+2ttWYgmlVzbX0oDc01X5h36ppCrc/zrNWPadjw7uK232t2 +AWFHU6r+SkN7od8PeZb0gdXrfUZ8Ix2PSmzsOpSqC3EVJst55nRU3punkaeu +A/ojl2m3rtCx6+76kkgvTVATeEll1XB8nS7Bp6++Gawnz8rZ/+T4vbbVb1WD +CjTQw0t+0BnI+ljcK/6PAtwvJ12pt2VgKdyyPGDMBG8HkWaTKAYupCvIiIRR +Ie3OVOuFWga2med8lTxCAkPCQXRqhoGpWfc0ApVlQVOB9bOWxUSRc+SS4/US +kHfqvMRrByZO7dos4NMlCl9fKWQlxTLxeVTV3JGYtZDc1DzD+4yJFhJD00u+ +QtAgM3OldJ6JJWTffa4/+ECrJqi8RoHja3Nf0+823PDVQqza3omFF57q+cpa +LBEdpSI1ucksrLzf5v9ccZ7gP+JhY97CwhL352XLkjPEI1eLbcQKNno2mnz8 +6D9FaIYnhvaqs/FblcCnPTsnCZre82iWCxs/KT+w/Td6jIizuNhTksrGrsaI +UZ5DQ8T7tMW/LW1sHBY1JjSE+gnPQsH7X8bZuGEPo5o09Jl4vGVd9O/fbDSK +t84Rd+shDhKv5Dtfk3Blt4G5U3kKLIWfvV/OT8ZkD8OIj2aJ0K6le+bMNjLG +ZfAwtPpiIf1ccrasFxl7PBaz+WIigeud1H/JmWQsjDgQaRIRDjGxpW2znWTU +Ors2xvlGKDyOlcsQWUNBaR+9qfDVF8HC7h+Zx0jBpa/0d8GJQXCLfu3RA28K +Pmt8y27h9ocw1abFkzmcvuK057LO2Gm4mUEKEPpIwfwtRLxxsRdk5QgeuyZC +RZ2u7g3lSe6ws1ZWZtCQig+y27PKR1xAAnbyyQVQMe92TViDhhMEc+kliRRT +UUj2VWJjxyGQYh88NNZPxZio8n6BHBvIGVhKyZSiYd3K8dlIXktoK25L2WZK +w7RmTd64HWZAGnr4piiYhh2B5Q3H001B2PZUcd8DGqbuzzK4YrkL3NOeKt76 +wvH9KffcF5oGEPjp/LsyWTo63ZuR7X2tC5RDwuTQ/XRMm9+26WSYDswblWVu +CaUjZKm35VVqQmP9ROrLx3R0y5Tm3uq1GZTMTKy0f9BRXXjvLa0ZFajd2bj7 +OoWBS20p/gPeCvD1gthQ8kEGir4zc8mLZMK1kJl/1K8xUK+g8HRsFRW6L+kH +k6sZ6PLrq15NPAnqXjiFt04zUGVCu2pfkCx88E5rPEhnonmUnpWaoCREOGYW +3bZl4tsrJDPHNWJQIGWwxT+KiWlhNUMTY2vh/Kv9Q3dqmahq3x8c+UIIxhuV +tkXMMtHx6tbGciV+uMSmN5ixWVimlXTWO54bJGQLn61wZCFJ0T+hsWSJIEgO +4VcSWYgnEl0rfeaJ+Ous0G8vWGii9nUu6OAMEbq9ni66xMKVZsOh5XlTxND9 +X8fqVdi4i7dKXzllkphViG9vPMJGuQs1LQrdY8Sd0RWDEckcXz+WqShNHiLq +F7R2GrWwsb+mMU8O+wnbVUZ/nUfZ2NunVdBh0Etkx5t2+cywkU+kukSmoYdo +7XxjELTIRlrrlx2qq3uIp4Y+boxXJMzhe2gg/SkFwoYD3pL5yHj3gHlCt1ci +fJ2ZrX+iQUbd1bNvQ/7EQu5ww5SHJ+f9C/5WtK2KhE0xt5oFMsi4bfuWjVkF +4bCnYIqt/56MgU0b+/MfhEISV3nfWWEKNjVa5j6iXwSKv5KZAlBwG3311R3V +QbD83wGSwCkKikWfOyTM9AdergmDniwKFpm4Ku3m9YG8N/NTFh8o6BWtz2xu +9ILsENuPn9dS8dSHbWrSte7g+q3h5AEDTj+XXLas5T8GTS25Ecf9qLh6O21u +2twJzPqXFoMKqTh48ez1UyscIci1ZUa1j4p/iv6enHttA3/bxuXnJGh4U+jS +tVq6Jez4IbY6Zw8N/WamHNHODBiX7vv8OU9D1X8DAje8NAU10xfqu8s5fhdP +1E8N3AUh2jGFImM0NB43Uj9maQCUj7yhPDJ0TBbSiP04oQvj9ybu/dhLR4rW +hBe7RAfMF3a5BIfQcWJh7dPofk0Qo/yxIlXQkWt11OufUZshmffBr/xvdGyZ +cR3gWa0KVQfHJLtJDExUjDCQT1eAlcPX43isGLjOiZkpV8yE5ITRF5lXGXg4 +lxQv1EUF/1+T1t6VDJRTs3rSVECC4OsuelpTDPwZVWW0+q4sbEqyLMugMhGD +4jRdFCRhofNRoJANE/sLKjVi2GIgrPNmcew6E3cZNWY3CK0DL7PEj1M1TEx9 +TY5U+SEEi/+1iMz+4uzTfcnVG0z5gXUooC2NyUI1l07lmWJuyPsb0HjAgdNX +5hfe8/cuEdOWoR6z8Sz0UZ7bfjF5nugm86dsb2BhMLXfiS9ghhinLcgGLbJQ +yeBoUmf9FKFlnGG9RZnN2W+Car51k8Rn8sJPqcNs5F+e39a0PEbkqdQNzyWx +cW2KksGL8iHiMbvbPayJjW8cbirste0nzLRGyRnDbLQebG2m+vUS6XWTi6U/ +2Vgz2PN61UwPUc9/6vjjBTZ2Nhl2L2n1EO9z1MjEEhvP18icyu/9RMw2G640 +bSOhgJr716vfU6BZbH7AipeM1lKHX3+5kAiBb/dPDG0lY9FIe8lWwTgokv4s +ccODjNq49Ul6eySg51FHuEvG7MifNkPV4ZC3LbbzeAcZ439ubnRsCAVezRXL +JasoqFn81KpH9SKs5NfwdCYouFa1YJ3mmyBQ6tEwV/ai4Lx64Wndbf6gP3p2 +XIzDw9LgkT2HRH1AzdWl6GwXBW3mufmSO7wg52Ro4koODySj7oCBd+7gfznt +5jV9KjZGXfR7L3EMKKK2L2N9OftUsac+xckJqt7YlZQWULF7QIT2TNgRlFby +PbXspWKnjdnTsGEbYD3v+7WRw8MQl3/Cia2WEBTzwLDXmIb8W49K0N3MIK9d +rYHM4UFbjsUdP2QKDTunZ87fp+HOm0sXH13fBZHX/Tx2j9Jw96XrZwydDcC3 ++4WtvDQdTcquyLrN64Kpre0Cg8ND7e+mfLnnOrDiQGJD5kU6ljTxL9z4pQma +b7gf7HpER3PSlODR9M2cfXW8fnCSjjfrtHlmpFRB67D/EheHB8+OFKuxMgVI +utH0RdOSgcn2N6JHnzAh/d8+ud5wBv5NuOvbMUyFxoK6hpuPGfivS2uufQUJ ++r6Nkk79YGCr1TR38ANZaM8uy2mmMPHjG/N94oQklMbX9RHWTE5fTy7dqiEG +2ntvOJI5PBQZ/ilbWL8OxsU0rKQ5PAydUFRM4V0Fl1fJLMlzeHjitWJg0J4f +FgLutj9lsFDII/ybYQ03/PJ0bA6yZ2EcO0sUZ5eIPd6SfYocHiRNNv/xzZsn +zn31oR55zkLRTxsU7a7OEGkp6yXv/WFhvIQLr+/rKcJFIsjMU4mNyuVN25Q7 +JwmztEJeXUfOPg0ReFYg+oVQsqAcU+LwcERXY9Lx2RCx5Sn7fGYjG9kjled+ +u/YTL99s3Vw/xOlHI9zzo9G9hLSNztr2aTYu1oXL3BL+TBDptUEf5tlYwe1Y +xmXWQ+zHEHX7v2zMF7dzdZ79RNiIDK7ZuMzhI1huL0/TJ+LuCxUJpSf/+7/8 +P2spUo4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.026716109200381675`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dYj90fwPGkoWQ0tB++e2gXSnR/PmmIFNLQFCklJUlLSEKiPRQ9PUZ7 +K6EppbSESIm0hwZKQ0n9vr+/zvW6znWu8z7n/HPf5GOnTRy5ubi49q3g4vr/ ++PCVsrjicxJKrZSr8LG+C5v3S6Wfe01CE409GwRW3oHZRv1Vxi0k5Fd1Hb/x +IxFe6Hu5MN6QMIP3qZ7Ul0Q4TLyRa39LwlWdeqYOxYlwTeFqgcYHEhrxapY8 +dE6E/tWTJX86SRjN0+7f/C4Bkurrmy+PkPACqFO8827Dul2+U2EryRjRJxa5 +MiIOGkXn+yx4yGgpefTtt0txcG3Q7z2Zl4wPD5nGdnrEwVLI+cfFfGRMcNMP +/WwSB9/fXPTuEiDjS2U+RyuJOHhte3VBfj0Z5Vpk7+o9iIWbftHczbJk3Atk +ufvPY4D/UY6I4DYyxgsYT06LR4P/+4NjAxznDbUWbBOIhvGZ2Zrn6mTUXjP7 +PuhPFLRqap87t52M0SkrGZo9UZD0sq29ZycZ36lOkmhZUaDasZT0VIeMHYOa +1V8hCuyWDzAdD5LRVsDdvNQzEh4bzeyoOkXGTU91RqdGwiBP6qv4bTcy7sRt +z5NbwyBzsG7SzZ2MXQK/FazLwyD5QkK6jAfHbovpvJFhEJK7Q9TnLBlnLC6U +bNIIA5s1QaMK/mTcIdjSaHvzFvC8Xpt49zoZDaQ/KeZr3QSzfaxZ7wdkPCD1 +I0HxTQig+3F7eEjG9LBfVgMVIbA58l4jfwoZt+/YuiktJwS4Pkj+l5BKxtzQ +Q2FGoSGQYy1gUJpBxuocNyk5/RDgdh1N/JtHRt6dP1qkqq5D/o0creAyMt7v +6KgIK78GAq+Ur0Z9IKOGTXAE+WMwZG2Paj/ZRsaYX1vq7euCYV/OJFv3Ixn9 +Gzb1Zj8JhsiowpbZdjJqnl8X6Xg7GMRttkjafCZjGfFk1NEyGGiT6tmMPjJK +5V0Yi+6+AoQMvCv7QUaxWUHFY9NB4Hna6J8hQQoOnTpzR5C4DDwaK5YLVlNQ +I/+FRZfKZYjnKu45L0TBhnrzzGf0y1AaJZsivJaCUl46kyFrLgP347HNWsIU +NE4pOxXRFQhRv29oxEpQ8Gih7YDipUAouFx3aBeNgvIqP/w3Rl2C7zEQmqxF +QYm6GrcdgwGwik/d3ZGg4DqVnPUa7wKA4qtoIg8U3E5fc2NXRQCY2fwjXYoU +XBqnfwiMC4By2p/MNh0Kdm2+23hfPwBCi580CO2lIM/pKR637PPAaFcQOG9O +wcKeO3YjF/3BTlo2xOI0p+9T1Y5gQ19Q7FI3VfKg4Lxa7lnt7b6w/N8hEv8Z +CopGXDgixPSFe/Sbz554UvBl/Xt2E7cv9CkvjGzwpuDVGe1TY6U+cGJ3x54P +ARRU2aLSkavgAx5esasPhlLQNab4wIysN1xpEYrYm0pBVR2V/RdJXqA7fH5U +NI3T339s3xERL+DhGtPr4jjPyFlxL48XXFNpWDydwVnvsO+q1shZCI29ejIu +m4Je6hKViQVnIcpqSa/nEQWLqZrOFJ2z8N/Qj8VzlRSMlhb4rXfaE8qWWk/e +b6dg+LBbyuk+D1B1dso730FBq3lu3oQ2D8h6Nz9p9omCHhG6zMZ6D7iTQvIT +/EzB7K1EjGG+B/judb9+9isFk9wsd1QHeMC2eIEUvUEKMlSKPXylPKBQAbu+ +TVHQZrDQPrfIHTJscverrqVi4o3Q/WXfXCHjdHDcqnVUJBl0+vV9cIX0IOvP +Xzk+82m7qlSVK6RlCJy4KUxFrY7OjcXxrpAy7XhxQIyK9KHjqam6rnDv1sbc +eBkqmt/3P3Pk4UlIKI8Q/MOiovG5e4Ijri4QIutZW6NDRZ/zha1zjBPgezXp +zk1dKtaHX/b5KH4CnL/XnT6kR8VGiWXzKr4TsLtKRrpfn4pP0lvTioecgO94 +rTv3Xipy3UwtoKc7wdVsSUntA1Q8pfvhsdhmJwjSfH6y0oazHjRb59UdIeCw +0PqSc1RUdHDNNPR0AIqI9esobyp+UeiqSXRwgIamzNCTPlRcs4M2N2XqAOKw +m1fWj4pZ9yuv1ak7wCN60MLFACoyS62PTv49BkNTcwO6V6ioyW/RanzrGBwI +6y95G0nFEwe+mf4sOAr06lKHkWwqnl8vULFR0h7K39kUFOZQsbNPmPZSyB5M +epcWA3Kp2H/5/K0zK+whkEsnXjifioIyb+Lq247AF6KpXrOQik3TftUHA45A +bNlnhbBnnP5VwmqHmu1gZfHinEotp1/e3r7OxxZ604lb579ScWKJ8oG+YAWK +q3hfmHdTsd3K5MW1QSsIcG6aUemh4p+8v6fn3lqBJPvwkZFeKkaGF/fyZ1jB +gawzqmaDVHT4w6jvN7eCypyUDsVxKm7IzNx74akl3HkkSO+bp6LRRIDe0JXD +YFL2scJgAw1Dltex6bvNgVXbM71JnIYDXL6xp7aZw9+WUbk5ju8IXrlZRTeH +jL6lxFRJGlavGp0N4zGHJQGmN7csDY9FWFdUVJtB9mEfxXIKDSOX/51y1jYD +nlmJ/5SUabhH4FVR3m5TeKJsGShuSMO/ZcsdIt4mEBD5RL+bY75tx8XpLiaw +66fomox9NPSZmbRHGxNoyW9J3G5Mw6RGDZ7oXSYwqKhbZHOQhvZJ6u/vrTMB +MQWloQcWNCw/dHbTieyD4Mnm3ad0nLO/S8gT128HQIHySMLgAg3lhMUdpRaN +IatVtY58kYY7ZVncMQPGwLjy2OsPxyr/+vlvfG0MpIGn7/ICadjmX1x3MtkY +RNIqb24IpqGpxivTdm1j+M1uXu4LpeFc2r4H0zeNoEZlePhCAg0vfDoyOCC/ +Dyy1/3lWVETDodBr//Ul74G63VMzFx/TcPedpcvPbu0BVeNXanuLaWgrFqd7 +138PCFmfye95QsO7B9P0rpvvgSqv2rQ1pTSs+3B5+++1e4CV4RZ3ooqGGWzj +tduCDOD32kpPmdc0XNWnMdx/ZjckfLFTuDJEw6dTM2LKXnoQdsvHbe8wDfde +uXVO31EPgnZG5gqP0NBw1EDthLkeuCa9ULj3jdN/xjXzlYYeEDY0xYpxTo/g +76crl3Rh8PM3xbkpGlrGu8odC9UF1c9eyq7LNFQgVX24nqUDTZ9C1Q5J0rE0 +c9cgF/8u8O58ZS0nRUejousyLvPaQPnME7xSmo4JgupRn8e0wf/LxQ9FMnR0 +eDQj0/1WG1jdnufENtHxuPimjiN3teHqgNXTNjodd8Xb7dZW1Qb4sXnHYTU6 +Xq3OXX3gBEIRT9MuW2M61kl15W3s1AJja+sFxn46Vv1uyJat1YLRR2OPfnJM +0RzzYBdoAeWIEDn4IB2T5rdvPn1NC6JLjJazTOmotD9LPUtNCzzd35b9tqJj +d2ZSY1vkTlDuaNsSe4KO12oEc8rNdkBedg+jKZCOXoY+L/L4t8OKQ3F1qZfp +WNDAt3B7WgNMF/Y4BQbRcWxh3YuIXg2YNyhK3RpMR0hTa8kq0wDdoau0e9fp +2PFwQ0GYhwZ0kuQo58LpaOZ5eNXfL+rAF3/un01JdDSI/+uiXrUN7AIFxc4+ +pWMzLHd2524BjXfcT/Y8o6MpaVLgePIWEKX8sSCV0JFrTfjbX+FboL5m7O7r +Ujq6pEpxb/PYAqr8r6msSjqeShbn1VXbAvzhEWpdL+l4RChL7FKZGhTcFTu0 +u5Uzb71iZtsHVeB+ujFaZoKOm9v4L3+nqXC+H0/W9HN8p3rnyhlJFUjgeTKd +/Z2OTTPOfSvXqICiiZHFzp90VBPaf09zRhksJ87L2v7i3FdVs8/qOmUooH5K +S56no4VicvhWF2Wwi4wpI/MxcNnGZITfVQlKXFYNMjcxMF/26XhxgzxoHvVd +4iIx0L0t0WKkSB7KD49IdHIcpxCqJ5csD1W76/feojBwqSXRt89THuroIQU/ +6Qxkfc7vFvtHHj708geUyDPw646dUxe95OCHJb+ooSYDR/4ZXSumtBnoe/m0 +3c0YONk6frTyLRPibzd80zBnYILt7Yjh50xYNXgreqUFA9c7MFNl85kwfkl0 +IOEwA0U+mDhlhTHhcTHpeo01AwvhnvkhQybokne8ljzGwPB/Mwre1zPg+O/T +ljXuDByghF0za6ZDStqnM5IhDDR/pvIz8xcVkv/tke3m+G/sQ++2QSokxA6/ +Sr3BwKOZpBjBDircDJr5R+0mA3Vycs9GlVPB00640SicgQvJ8tLC16igLb6H +ciWWgY1C/rqt0lT4evVZ68Q9BpaEbVFXMqSAhONttZoSBmbmTqz/U0uC+pzq +ujulDPzXqTnTtoQEvtMTlp5lDJRVtXjekEOCziu6geQKBjpNj+tUxpAg6cFk +86UqBraYZoxLHCMBucfQaecrBure1bxznYsEctZcicUfGFgRnNN0IGQjwEGX +pfQfDJQvuX2Kq1EGer4Pk878ZGCzxRR34BMZCLzlpKM5ycBf4eUGax7KQPUr +h5DmKQYqj+0sPxAgA/qEncjkDAPvpj1S91eSAWO5QwzNRQYWXXHeuT9BGmx4 +tYybVzEx9UXt46qzUuBfsj75J5mJfHXswTf7JaA1vSijkcLEz+9MD4gRErA5 +3rwohcpEDIjWcJKXgE+eSfWH6Uw0DdexUBWQAA151q8qFhOFL5ALTtaIw2wy +GEQpMXGF184lE01x8Ax2n1LRYmK2ZIpQhcoGOLm/Wf/sYSY+Ly0aGtIVhcKY +6h7CkolSSQmF29RFYaH9mb+gFRN7c8rUI9miEGqfmnffmonvr5NM7NeKQtaZ +i+Jv7Zg4uWcLv1eHCIzFKA/JOzLxuN1QoIO7CJzqiL06dIaJ+ga1m7bcFwa3 +o7YvLW8yUT1EOmYbeT3s3H/bnnyLiXn6f4oWNqwHIa13iyMc7zGoT68TXA85 +knpbfcOZmHStcmBsZB2Mv5FPi49iYm14+dyxyHVwkli8/v42E1+bFdop9a0F +Z5m7hkYpTIxKP5o+F7kGHNo6WrGCiSwHRx1hqdUwKqpuIVXJxIFTCgqJPKvB +wyTu8yTHd9+Sw5R/CsLFNwcHHlQxUcW2NzDslSAkNDTO8Lxkopn4wNSStyC0 +VJRLNjQy8V1N62xxhwBopN2zO9jBxJEYw+/09FWw1sd59OgvJgaIPJZ/7MYH +V1dLL8lNc+7XY0Vfvy0fLP7XJDzLsfqBhIqNxnwwWq+4PXSWifY3ttUXK/JB +nfTM9cJ5JhaQvQ84/+SFi5WX6Su5WJz34HXpOMcLE7x37VOEWHg4Tac4P4QH +mmNffxyis/D9Oum0h83csOD3sPUFg4WCbiHf9Su5gXXEryWJyUJVp3almXxu +uMKm15mwWVikGX/eM4YbNCsDiivlWRhg6m38w4obMoflYuPVWFhr4ZM7OrYC +rmmGHtTX5swLbZrO37ACoEe/OdWGhfD7aV3ommVi2t2+McCWhdHsNBGcXSKy +/vrVH7Jjodj8wke+7iVCXCb35Qp7FpIUfGPrC5aIcTPRClsHFl56oeMtY7ZE +JDR15244yUKVhfVRv+79Jaae+EZc9WFhUFvknJjeIpEWlmXiGM3Cm03hpn7l +88Q+T4kehRgWShht+eOdNU9MmQe7zXLspTS343LCPEGQ7EKux7EQT8U5l3nN +E22FwpWZCSwse9ziW6swT/B0+LK/J3P6+td9ZT34TThQdnP5ZLPwYdp1rcmY +OYL0tD835CUL2eelHZ8nzhAXxr2ox2pZKPJlo4LNjRmik8yXuKOOhYHUXgde +vxki5hYr+PsrFhqpjs8FHJ4h+I65WZk2sbDAtbZoWWKGGBea4yO1cvZz+Wtn +mDhNPDsmaP+0m4Vh7tGi5Sm/iP1rVUSGFliY/V7A5Z+uSSIpcYPEoz8sjBF3 +4vF+O0mM0hZkAhZZqKh3PL69ZpII3lFDF1li4SqTweDirEnimbPZdmIFG93r +jT5/9p0kSDV+9vH8bNTaOTbbLD5J/PSpztMXYyMzx0ZS3PInEdV7yDBdgY2q +Y8n5s2MThJN4gIm7IhuVihu2K7VPEJqGKZZbldic/1MBVe/qCWLg8fSJGmU2 +7uEp11VKnCA0QuKCu9XY+L2c/8u+3RPEV8X2CglNNnoJtaoopI0T8gFWyiH6 +bMxbKdhJuI8Rr8SPbnA5wsbaqsKYZPo3wiQpl0fbno22Qfwvc0S+EV/JC78k +j7KRb3l+e8PyCDErH9Naf4yNspcqm+Q7RwiaTm0Ey4mNX5SeWP8bMUIEnWYL +jpxi40cm/Yf032FiZ/3kkpM/G/M/xYdD3xBR6Bc0cjyOjXH5Gj087wcIRTPK +CcV4Nh7TVp+wfzlAZClXD85xvC5RUe9V8QDxYHhFf2gCG6tKpUsKEwaIaLPL +XQV32dhRHzq88sgA4akS2Lp4n41H/a1oNyb6CZVvF8pj8zj911uMvgv3EwWH +/SJfvmLjT7v4iBzvXmLrC/bF1Ho2sofKLvx27iVK2Z2u1xrY+M7ujvx+616i +ZkFzt0ETG3sr67NksZf4mLT4t6mFjYMihoS6YC+x2HPJ9X0b5/1ELYIc7vUQ +Bi7X9Pv62ShnHpb6PKObeP1u25aaAU7fEPf8cEQ3YaI5TE4ZZKNlf3Mj1aeb +sF5t8NdxmI3dPZo5bXrdhHuuwONvo2zcuI9RQRr4SsRO3iJPTnLOO2v+S5/2 +lZCy0lrXOsXGxeoQ6XtCX4nk6onFwl9srOzvert6potIjzHu8JphI69wRYF0 +XRdRunV9xO/fbDSIscwQc+kiiOSqgE/zbCzhti/iMukiavjOnCxdYGN7g37n +kmYX0dz+Ti9gkY205m+7VNZ0EQcxSM32LxuzxWycHWe/EB8zVMnEEhsvVkqf +ye7+QlgJ96/dtMxxoOz+lQ1fiG6/mMVljqvFHKZPFX4h/gfHkzsp + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.026716109200381675`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dYj90fwPGkoWQ0tB++e2gXSnR/PmmIFNLQFCklJUlLSEKiPRQ9PUZ7 +K6EppbSESIm0hwZKQ0n9vr+/zvW6znWu8z7n/HPf5GOnTRy5ubi49q3g4vr/ ++PCVsrjicxJKrZSr8LG+C5v3S6Wfe01CE409GwRW3oHZRv1Vxi0k5Fd1Hb/x +IxFe6Hu5MN6QMIP3qZ7Ul0Q4TLyRa39LwlWdeqYOxYlwTeFqgcYHEhrxapY8 +dE6E/tWTJX86SRjN0+7f/C4Bkurrmy+PkPACqFO8827Dul2+U2EryRjRJxa5 +MiIOGkXn+yx4yGgpefTtt0txcG3Q7z2Zl4wPD5nGdnrEwVLI+cfFfGRMcNMP +/WwSB9/fXPTuEiDjS2U+RyuJOHhte3VBfj0Z5Vpk7+o9iIWbftHczbJk3Atk +ufvPY4D/UY6I4DYyxgsYT06LR4P/+4NjAxznDbUWbBOIhvGZ2Zrn6mTUXjP7 +PuhPFLRqap87t52M0SkrGZo9UZD0sq29ZycZ36lOkmhZUaDasZT0VIeMHYOa +1V8hCuyWDzAdD5LRVsDdvNQzEh4bzeyoOkXGTU91RqdGwiBP6qv4bTcy7sRt +z5NbwyBzsG7SzZ2MXQK/FazLwyD5QkK6jAfHbovpvJFhEJK7Q9TnLBlnLC6U +bNIIA5s1QaMK/mTcIdjSaHvzFvC8Xpt49zoZDaQ/KeZr3QSzfaxZ7wdkPCD1 +I0HxTQig+3F7eEjG9LBfVgMVIbA58l4jfwoZt+/YuiktJwS4Pkj+l5BKxtzQ +Q2FGoSGQYy1gUJpBxuocNyk5/RDgdh1N/JtHRt6dP1qkqq5D/o0creAyMt7v +6KgIK78GAq+Ur0Z9IKOGTXAE+WMwZG2Paj/ZRsaYX1vq7euCYV/OJFv3Ixn9 +Gzb1Zj8JhsiowpbZdjJqnl8X6Xg7GMRttkjafCZjGfFk1NEyGGiT6tmMPjJK +5V0Yi+6+AoQMvCv7QUaxWUHFY9NB4Hna6J8hQQoOnTpzR5C4DDwaK5YLVlNQ +I/+FRZfKZYjnKu45L0TBhnrzzGf0y1AaJZsivJaCUl46kyFrLgP347HNWsIU +NE4pOxXRFQhRv29oxEpQ8Gih7YDipUAouFx3aBeNgvIqP/w3Rl2C7zEQmqxF +QYm6GrcdgwGwik/d3ZGg4DqVnPUa7wKA4qtoIg8U3E5fc2NXRQCY2fwjXYoU +XBqnfwiMC4By2p/MNh0Kdm2+23hfPwBCi580CO2lIM/pKR637PPAaFcQOG9O +wcKeO3YjF/3BTlo2xOI0p+9T1Y5gQ19Q7FI3VfKg4Lxa7lnt7b6w/N8hEv8Z +CopGXDgixPSFe/Sbz554UvBl/Xt2E7cv9CkvjGzwpuDVGe1TY6U+cGJ3x54P +ARRU2aLSkavgAx5esasPhlLQNab4wIysN1xpEYrYm0pBVR2V/RdJXqA7fH5U +NI3T339s3xERL+DhGtPr4jjPyFlxL48XXFNpWDydwVnvsO+q1shZCI29ejIu +m4Je6hKViQVnIcpqSa/nEQWLqZrOFJ2z8N/Qj8VzlRSMlhb4rXfaE8qWWk/e +b6dg+LBbyuk+D1B1dso730FBq3lu3oQ2D8h6Nz9p9omCHhG6zMZ6D7iTQvIT +/EzB7K1EjGG+B/judb9+9isFk9wsd1QHeMC2eIEUvUEKMlSKPXylPKBQAbu+ +TVHQZrDQPrfIHTJscverrqVi4o3Q/WXfXCHjdHDcqnVUJBl0+vV9cIX0IOvP +Xzk+82m7qlSVK6RlCJy4KUxFrY7OjcXxrpAy7XhxQIyK9KHjqam6rnDv1sbc +eBkqmt/3P3Pk4UlIKI8Q/MOiovG5e4Ijri4QIutZW6NDRZ/zha1zjBPgezXp +zk1dKtaHX/b5KH4CnL/XnT6kR8VGiWXzKr4TsLtKRrpfn4pP0lvTioecgO94 +rTv3Xipy3UwtoKc7wdVsSUntA1Q8pfvhsdhmJwjSfH6y0oazHjRb59UdIeCw +0PqSc1RUdHDNNPR0AIqI9esobyp+UeiqSXRwgIamzNCTPlRcs4M2N2XqAOKw +m1fWj4pZ9yuv1ak7wCN60MLFACoyS62PTv49BkNTcwO6V6ioyW/RanzrGBwI +6y95G0nFEwe+mf4sOAr06lKHkWwqnl8vULFR0h7K39kUFOZQsbNPmPZSyB5M +epcWA3Kp2H/5/K0zK+whkEsnXjifioIyb+Lq247AF6KpXrOQik3TftUHA45A +bNlnhbBnnP5VwmqHmu1gZfHinEotp1/e3r7OxxZ604lb579ScWKJ8oG+YAWK +q3hfmHdTsd3K5MW1QSsIcG6aUemh4p+8v6fn3lqBJPvwkZFeKkaGF/fyZ1jB +gawzqmaDVHT4w6jvN7eCypyUDsVxKm7IzNx74akl3HkkSO+bp6LRRIDe0JXD +YFL2scJgAw1Dltex6bvNgVXbM71JnIYDXL6xp7aZw9+WUbk5ju8IXrlZRTeH +jL6lxFRJGlavGp0N4zGHJQGmN7csDY9FWFdUVJtB9mEfxXIKDSOX/51y1jYD +nlmJ/5SUabhH4FVR3m5TeKJsGShuSMO/ZcsdIt4mEBD5RL+bY75tx8XpLiaw +66fomox9NPSZmbRHGxNoyW9J3G5Mw6RGDZ7oXSYwqKhbZHOQhvZJ6u/vrTMB +MQWloQcWNCw/dHbTieyD4Mnm3ad0nLO/S8gT128HQIHySMLgAg3lhMUdpRaN +IatVtY58kYY7ZVncMQPGwLjy2OsPxyr/+vlvfG0MpIGn7/ICadjmX1x3MtkY +RNIqb24IpqGpxivTdm1j+M1uXu4LpeFc2r4H0zeNoEZlePhCAg0vfDoyOCC/ +Dyy1/3lWVETDodBr//Ul74G63VMzFx/TcPedpcvPbu0BVeNXanuLaWgrFqd7 +138PCFmfye95QsO7B9P0rpvvgSqv2rQ1pTSs+3B5+++1e4CV4RZ3ooqGGWzj +tduCDOD32kpPmdc0XNWnMdx/ZjckfLFTuDJEw6dTM2LKXnoQdsvHbe8wDfde +uXVO31EPgnZG5gqP0NBw1EDthLkeuCa9ULj3jdN/xjXzlYYeEDY0xYpxTo/g +76crl3Rh8PM3xbkpGlrGu8odC9UF1c9eyq7LNFQgVX24nqUDTZ9C1Q5J0rE0 +c9cgF/8u8O58ZS0nRUejousyLvPaQPnME7xSmo4JgupRn8e0wf/LxQ9FMnR0 +eDQj0/1WG1jdnufENtHxuPimjiN3teHqgNXTNjodd8Xb7dZW1Qb4sXnHYTU6 +Xq3OXX3gBEIRT9MuW2M61kl15W3s1AJja+sFxn46Vv1uyJat1YLRR2OPfnJM +0RzzYBdoAeWIEDn4IB2T5rdvPn1NC6JLjJazTOmotD9LPUtNCzzd35b9tqJj +d2ZSY1vkTlDuaNsSe4KO12oEc8rNdkBedg+jKZCOXoY+L/L4t8OKQ3F1qZfp +WNDAt3B7WgNMF/Y4BQbRcWxh3YuIXg2YNyhK3RpMR0hTa8kq0wDdoau0e9fp +2PFwQ0GYhwZ0kuQo58LpaOZ5eNXfL+rAF3/un01JdDSI/+uiXrUN7AIFxc4+ +pWMzLHd2524BjXfcT/Y8o6MpaVLgePIWEKX8sSCV0JFrTfjbX+FboL5m7O7r +Ujq6pEpxb/PYAqr8r6msSjqeShbn1VXbAvzhEWpdL+l4RChL7FKZGhTcFTu0 +u5Uzb71iZtsHVeB+ujFaZoKOm9v4L3+nqXC+H0/W9HN8p3rnyhlJFUjgeTKd +/Z2OTTPOfSvXqICiiZHFzp90VBPaf09zRhksJ87L2v7i3FdVs8/qOmUooH5K +S56no4VicvhWF2Wwi4wpI/MxcNnGZITfVQlKXFYNMjcxMF/26XhxgzxoHvVd +4iIx0L0t0WKkSB7KD49IdHIcpxCqJ5csD1W76/feojBwqSXRt89THuroIQU/ +6Qxkfc7vFvtHHj708geUyDPw646dUxe95OCHJb+ooSYDR/4ZXSumtBnoe/m0 +3c0YONk6frTyLRPibzd80zBnYILt7Yjh50xYNXgreqUFA9c7MFNl85kwfkl0 +IOEwA0U+mDhlhTHhcTHpeo01AwvhnvkhQybokne8ljzGwPB/Mwre1zPg+O/T +ljXuDByghF0za6ZDStqnM5IhDDR/pvIz8xcVkv/tke3m+G/sQ++2QSokxA6/ +Sr3BwKOZpBjBDircDJr5R+0mA3Vycs9GlVPB00640SicgQvJ8tLC16igLb6H +ciWWgY1C/rqt0lT4evVZ68Q9BpaEbVFXMqSAhONttZoSBmbmTqz/U0uC+pzq +ujulDPzXqTnTtoQEvtMTlp5lDJRVtXjekEOCziu6geQKBjpNj+tUxpAg6cFk +86UqBraYZoxLHCMBucfQaecrBure1bxznYsEctZcicUfGFgRnNN0IGQjwEGX +pfQfDJQvuX2Kq1EGer4Pk878ZGCzxRR34BMZCLzlpKM5ycBf4eUGax7KQPUr +h5DmKQYqj+0sPxAgA/qEncjkDAPvpj1S91eSAWO5QwzNRQYWXXHeuT9BGmx4 +tYybVzEx9UXt46qzUuBfsj75J5mJfHXswTf7JaA1vSijkcLEz+9MD4gRErA5 +3rwohcpEDIjWcJKXgE+eSfWH6Uw0DdexUBWQAA151q8qFhOFL5ALTtaIw2wy +GEQpMXGF184lE01x8Ax2n1LRYmK2ZIpQhcoGOLm/Wf/sYSY+Ly0aGtIVhcKY +6h7CkolSSQmF29RFYaH9mb+gFRN7c8rUI9miEGqfmnffmonvr5NM7NeKQtaZ +i+Jv7Zg4uWcLv1eHCIzFKA/JOzLxuN1QoIO7CJzqiL06dIaJ+ga1m7bcFwa3 +o7YvLW8yUT1EOmYbeT3s3H/bnnyLiXn6f4oWNqwHIa13iyMc7zGoT68TXA85 +knpbfcOZmHStcmBsZB2Mv5FPi49iYm14+dyxyHVwkli8/v42E1+bFdop9a0F +Z5m7hkYpTIxKP5o+F7kGHNo6WrGCiSwHRx1hqdUwKqpuIVXJxIFTCgqJPKvB +wyTu8yTHd9+Sw5R/CsLFNwcHHlQxUcW2NzDslSAkNDTO8Lxkopn4wNSStyC0 +VJRLNjQy8V1N62xxhwBopN2zO9jBxJEYw+/09FWw1sd59OgvJgaIPJZ/7MYH +V1dLL8lNc+7XY0Vfvy0fLP7XJDzLsfqBhIqNxnwwWq+4PXSWifY3ttUXK/JB +nfTM9cJ5JhaQvQ84/+SFi5WX6Su5WJz34HXpOMcLE7x37VOEWHg4Tac4P4QH +mmNffxyis/D9Oum0h83csOD3sPUFg4WCbiHf9Su5gXXEryWJyUJVp3almXxu +uMKm15mwWVikGX/eM4YbNCsDiivlWRhg6m38w4obMoflYuPVWFhr4ZM7OrYC +rmmGHtTX5swLbZrO37ACoEe/OdWGhfD7aV3ommVi2t2+McCWhdHsNBGcXSKy +/vrVH7Jjodj8wke+7iVCXCb35Qp7FpIUfGPrC5aIcTPRClsHFl56oeMtY7ZE +JDR15244yUKVhfVRv+79Jaae+EZc9WFhUFvknJjeIpEWlmXiGM3Cm03hpn7l +88Q+T4kehRgWShht+eOdNU9MmQe7zXLspTS343LCPEGQ7EKux7EQT8U5l3nN +E22FwpWZCSwse9ziW6swT/B0+LK/J3P6+td9ZT34TThQdnP5ZLPwYdp1rcmY +OYL0tD835CUL2eelHZ8nzhAXxr2ox2pZKPJlo4LNjRmik8yXuKOOhYHUXgde +vxki5hYr+PsrFhqpjs8FHJ4h+I65WZk2sbDAtbZoWWKGGBea4yO1cvZz+Wtn +mDhNPDsmaP+0m4Vh7tGi5Sm/iP1rVUSGFliY/V7A5Z+uSSIpcYPEoz8sjBF3 +4vF+O0mM0hZkAhZZqKh3PL69ZpII3lFDF1li4SqTweDirEnimbPZdmIFG93r +jT5/9p0kSDV+9vH8bNTaOTbbLD5J/PSpztMXYyMzx0ZS3PInEdV7yDBdgY2q +Y8n5s2MThJN4gIm7IhuVihu2K7VPEJqGKZZbldic/1MBVe/qCWLg8fSJGmU2 +7uEp11VKnCA0QuKCu9XY+L2c/8u+3RPEV8X2CglNNnoJtaoopI0T8gFWyiH6 +bMxbKdhJuI8Rr8SPbnA5wsbaqsKYZPo3wiQpl0fbno22Qfwvc0S+EV/JC78k +j7KRb3l+e8PyCDErH9Naf4yNspcqm+Q7RwiaTm0Ey4mNX5SeWP8bMUIEnWYL +jpxi40cm/Yf032FiZ/3kkpM/G/M/xYdD3xBR6Bc0cjyOjXH5Gj087wcIRTPK +CcV4Nh7TVp+wfzlAZClXD85xvC5RUe9V8QDxYHhFf2gCG6tKpUsKEwaIaLPL +XQV32dhRHzq88sgA4akS2Lp4n41H/a1oNyb6CZVvF8pj8zj911uMvgv3EwWH +/SJfvmLjT7v4iBzvXmLrC/bF1Ho2sofKLvx27iVK2Z2u1xrY+M7ujvx+616i +ZkFzt0ETG3sr67NksZf4mLT4t6mFjYMihoS6YC+x2HPJ9X0b5/1ELYIc7vUQ +Bi7X9Pv62ShnHpb6PKObeP1u25aaAU7fEPf8cEQ3YaI5TE4ZZKNlf3Mj1aeb +sF5t8NdxmI3dPZo5bXrdhHuuwONvo2zcuI9RQRr4SsRO3iJPTnLOO2v+S5/2 +lZCy0lrXOsXGxeoQ6XtCX4nk6onFwl9srOzvert6potIjzHu8JphI69wRYF0 +XRdRunV9xO/fbDSIscwQc+kiiOSqgE/zbCzhti/iMukiavjOnCxdYGN7g37n +kmYX0dz+Ti9gkY205m+7VNZ0EQcxSM32LxuzxWycHWe/EB8zVMnEEhsvVkqf +ye7+QlgJ96/dtMxxoOz+lQ1fiG6/mMVljqvFHKZPFX4h/gfHkzsp + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFmGc81+37xmVGGkb2Xd89sqlIfM5TRkpUMjJTIhJJslJJkpQ9Im53w96R +SkaiZKVSIiV7RCoKkfh//49+j67X8eB6dr3fr+O4yEdOmjlzc3Fx7VvBxfX/ +JznsBA8XFwmleeSr/WxTIREG34Pa/3INw7OswvV/eeFq29Ebqf/Lm/ZKZ595 +SUIzzV3rBXluwtod/tORPGSMHhCP4YlOBIF7BaJCW8mYJGg69UsiDu6bzGyv +PUHGjQ/1xqfHIsFiD2vW9w4Z90l/T1Z6FQ6CL1Qux74jo6ZdaDT5fSh4nzT5 +Z0SIgiMnTt0UIi7Ct3iISNehoGRDvcf24SBwkJELtzpJQdMPtdtDjf3hUptw +9O5MCqrpqe49T/KByqX247c7KRg16pFxcsALcuwK96qtoWLK1Yi9lV/cIVzO ++3m9HhX9zpa2zzGOQdBB4XUVZ6io5OSea+ztBPS6x05j+VQ8u06weoOUI/Rn +E9fPfqbi5BLlHX3BBswq31cbradh+PJaNn2nJTxQsQ6WMKbh38rlLlFfM1Ck +3JM0OkdDeREJZ+lFU7DW/edRWRkNRyLC/htI3wXJnxwUL43Q8OH0jLiKjwG0 +fIhQPyBFx8e5O4a5BHZAGW/LDntTOjZI9xRt6NaBovw+RkswHX2M/Z4WCWwD +h2Ah8dMP6dgKy929hZuB++GGONlJOm7qELj4jaYKFW4rh5kbGVgs9/BreZMC +0Hfz63paMHCq/evhmtdMyMj6cEoqnIGWj1R/5P6kgqTzDfX6CgbmFk6u+/Oc +BLDfbSn7OwMVKm6c4GqWhcCKdek/yEzkb2APv9orCcf3thqePsjEJ4/LRkb0 +xcDjsP0z62tM1AiXid9KXgdOHV3tWM1ElpOznoj0Kljj5zp++CcTg0TvK9z3 +4IfWhJfvR+gsfLtWJutuKzdAn2Frph0L4ffDhojVy0RWZJ6ZcxwLr7VEmQdU +zROkh4OF4c9YyD4r4/wkZYbYu0ZVdGSBhflvBd3+6ZkiYvsPGGcrslFtIr14 +dmKSeCFxeL3bITY+ry2NT6d/IUoDQsaOJrIxsVizj/ftEFFyMCDm2Qs2/nBI +ii7w7Sd6A+IXl5fZWCfu9OtE6ScirbGx9eIYCc+BBsW36AZcC4jjbpUj424g +y99+Eg8Oy/uYzvvJaC/oafnYOwZ4X65JSb1CRiOZD0rFOteg+GqBTmglGW93 +dVVHVoUBIQtvKr+TUXxWSOnIrxAoudhwYAeNggqq3wM3xF4ARqei4FlLCpb2 +3XQYOx8IXj4Jq/ZHUNA9vnzfjJwv/DfyffFMDQXjZAR/G5z0hlJF7PkyTUG7 +4VLHwjJPSK6KFvrDoqLpmVtCY+5uEKL15HiNHRWbQat9XsMZ9kUOVryOoeKx +fV/Mf5QcBp7yxTnV51T8pODo2OBnDzfvCdEH5qloMhlkMHLpIPDOSv6nrELD +XYIvyop2moM3m2+P8lEaxriFP3D/sg/qVUdHzyXT8NyHQ8NDCnvg95oab9mX +NFw5oDk6eGonqH30UXFfpqEiqfbdlTw9gO+bth9Up+PlusJV+44hqHR1bE44 +RseweqGCKovtwJ905p+NaXQ0SvrrplG7FUpSxQ/sbKfjCdsVM1vfqYFDTHwl +mZ+By3ZmYwLuyvDdWkDMWIuBY/+MrxFX3gRHf5+0rvdk4BAlMsyilQ6fLz9q +n7zFwIrIzRrKxhSQt+VKKX/HwOrQgpZ94RvAjk/HtHUlEzOfPr9fe1oavEM9 +p1V1mJgvlSFcrboeTnQlXB45xURDo+cbN98WAVfZVGOTDCbGZh/OnotZDZpZ +txz2dzFxLN74Gz17JUzypTpmCLPwYJZeeXE4L4RpRew31GVhkPDGX8XrV8D0 +A//oy34sDOmImRM3WCScKDu5/PJZeDfris5U/Bzx6IiQ48NeFkZ6xolVZfwk +fvjVFRmKs5FZYCclYf2DUAiyUQk3ZGMRj1A34TlBaDdOLbkEsrH4Q1IUDIwQ +ql/OVSUUsdH+SpvJN5FBwsgtzHBgkI3ylpGZT3J6icFVUxV/ukkYx9sZ2Pom +GV7aX15QWEdG+Ta5VIM7CaDWtZT2UI+MXcNadZ8hFuxWh4wrBpJxu1Bbs/21 +68DtPp7yt4iMfNrf26RrrwBtSiOfMUBG6aJzE3G9lyD291XNBEkKHi61H1K6 +EAwR5Q+ahHdTkPfkNK9H/lk4trNr17sgCqpuVu0qVPSDWJslg757FCynarlS +9E7D1iTBDINhCjJUy738pb3g1vUNhUmyVLS8HXjq0N3jcDlfSkp3HxVP6L+7 +L77JBUam54b0L1FRS8Cq3fT6EUio/KgY+Yjj75Ui6gdaHaCmIKNL6SsV1+fm +7j730BryD/opVVE473f532lXXQsQV1QeuWNFw6oDpzcey98Pv9mtywMRNJzL +2nPn1zUTYOV4JB6rpWEO23TN1hAjGP74RWlumobWSe7yRyL04fKQzcMOOh13 +JDns1FXTBW/P15W/bejYm5vW3BGjDd0kecqZKDpaeB9c+feTBghERav3PKPj +IeE88QuV6lBC/ZCVPk9HK6X0qC1uKvCuXyCoQoGBn7drT5/3kQd98vaXUkcY +GPVvTsnbRgboSuyiXEpgYLNwoH67DBXIfcYu2i8YqJ+qdfMKFwlM5Q8wtBYZ +WHbJVXtvsgzMpoNRrDITV/hoL5lpScBEvMqIgjMTjzqMBDt5isJxYvHK2xtM +fGlR6qA8sAbaqqukmpqZ+Ka+fba8SxDO11yk83CxUDqNz63rDB/kjsonJKmz +8LmVX+H4xApIbuktXH+chaoL62J/3vpL8Hb5s7+ls1B8cO1n1p3fxFfhOX5S +Oye7/XUwTvlFkOoDHJME2KijPTHbKjFFfFbqrJbUYqOPcLuqYtZXIuQkW2js +BBvfM+nfZf6OEt6qwe2Lt9l4ONCGdnVykFjsu+D+toNzX8wqxOlWH5EwdZ08 +NcXG2lnLn4a0z0SY4uUSzXckNOHTqrjrmgLfXp337REk4zMVfmcbyURIe9bR +2adNxjdqUyRaXiyEF24X8ztNxhmrcxUbNSOhwFbQ6HEOGesKPKTlDcNBwm6z +lN1HMlYSD8adrUOB+/7EJh0RTt/IqDwR3RMMVbQ/uR16FOzZlNp82zAIBlQW +xtb7UvDyjO6Jicd+EJFw+XhiPgV9NCRrUkpOg/9uzyunP1MwzcN6e12QF2T8 +cj4/JE5F+sjRzEx9d+A/+tyTezcVua5lltCzXeAePWThfBAVmY9tD0/9PQKf +iJZGrVIqtvwKqNsfdAj25Z1SsximotMfRuOgpQ0sCTJ9ueVoeCTatrq6zgKG +lfTL7PbT0DFN4+2ttWYgmlVzbX0oDc01X5h36ppCrc/zrNWPadjw7uK232t2 +AWFHU6r+SkN7od8PeZb0gdXrfUZ8Ix2PSmzsOpSqC3EVJst55nRU3punkaeu +A/ojl2m3rtCx6+76kkgvTVATeEll1XB8nS7Bp6++Gawnz8rZ/+T4vbbVb1WD +CjTQw0t+0BnI+ljcK/6PAtwvJ12pt2VgKdyyPGDMBG8HkWaTKAYupCvIiIRR +Ie3OVOuFWga2med8lTxCAkPCQXRqhoGpWfc0ApVlQVOB9bOWxUSRc+SS4/US +kHfqvMRrByZO7dos4NMlCl9fKWQlxTLxeVTV3JGYtZDc1DzD+4yJFhJD00u+ +QtAgM3OldJ6JJWTffa4/+ECrJqi8RoHja3Nf0+823PDVQqza3omFF57q+cpa +LBEdpSI1ucksrLzf5v9ccZ7gP+JhY97CwhL352XLkjPEI1eLbcQKNno2mnz8 +6D9FaIYnhvaqs/FblcCnPTsnCZre82iWCxs/KT+w/Td6jIizuNhTksrGrsaI +UZ5DQ8T7tMW/LW1sHBY1JjSE+gnPQsH7X8bZuGEPo5o09Jl4vGVd9O/fbDSK +t84Rd+shDhKv5Dtfk3Blt4G5U3kKLIWfvV/OT8ZkD8OIj2aJ0K6le+bMNjLG +ZfAwtPpiIf1ccrasFxl7PBaz+WIigeud1H/JmWQsjDgQaRIRDjGxpW2znWTU +Ors2xvlGKDyOlcsQWUNBaR+9qfDVF8HC7h+Zx0jBpa/0d8GJQXCLfu3RA28K +Pmt8y27h9ocw1abFkzmcvuK057LO2Gm4mUEKEPpIwfwtRLxxsRdk5QgeuyZC +RZ2u7g3lSe6ws1ZWZtCQig+y27PKR1xAAnbyyQVQMe92TViDhhMEc+kliRRT +UUj2VWJjxyGQYh88NNZPxZio8n6BHBvIGVhKyZSiYd3K8dlIXktoK25L2WZK +w7RmTd64HWZAGnr4piiYhh2B5Q3H001B2PZUcd8DGqbuzzK4YrkL3NOeKt76 +wvH9KffcF5oGEPjp/LsyWTo63ZuR7X2tC5RDwuTQ/XRMm9+26WSYDswblWVu +CaUjZKm35VVqQmP9ROrLx3R0y5Tm3uq1GZTMTKy0f9BRXXjvLa0ZFajd2bj7 +OoWBS20p/gPeCvD1gthQ8kEGir4zc8mLZMK1kJl/1K8xUK+g8HRsFRW6L+kH +k6sZ6PLrq15NPAnqXjiFt04zUGVCu2pfkCx88E5rPEhnonmUnpWaoCREOGYW +3bZl4tsrJDPHNWJQIGWwxT+KiWlhNUMTY2vh/Kv9Q3dqmahq3x8c+UIIxhuV +tkXMMtHx6tbGciV+uMSmN5ixWVimlXTWO54bJGQLn61wZCFJ0T+hsWSJIEgO +4VcSWYgnEl0rfeaJ+Ous0G8vWGii9nUu6OAMEbq9ni66xMKVZsOh5XlTxND9 +X8fqVdi4i7dKXzllkphViG9vPMJGuQs1LQrdY8Sd0RWDEckcXz+WqShNHiLq +F7R2GrWwsb+mMU8O+wnbVUZ/nUfZ2NunVdBh0Etkx5t2+cywkU+kukSmoYdo +7XxjELTIRlrrlx2qq3uIp4Y+boxXJMzhe2gg/SkFwoYD3pL5yHj3gHlCt1ci +fJ2ZrX+iQUbd1bNvQ/7EQu5ww5SHJ+f9C/5WtK2KhE0xt5oFMsi4bfuWjVkF +4bCnYIqt/56MgU0b+/MfhEISV3nfWWEKNjVa5j6iXwSKv5KZAlBwG3311R3V +QbD83wGSwCkKikWfOyTM9AdergmDniwKFpm4Ku3m9YG8N/NTFh8o6BWtz2xu +9ILsENuPn9dS8dSHbWrSte7g+q3h5AEDTj+XXLas5T8GTS25Ecf9qLh6O21u +2twJzPqXFoMKqTh48ez1UyscIci1ZUa1j4p/iv6enHttA3/bxuXnJGh4U+jS +tVq6Jez4IbY6Zw8N/WamHNHODBiX7vv8OU9D1X8DAje8NAU10xfqu8s5fhdP +1E8N3AUh2jGFImM0NB43Uj9maQCUj7yhPDJ0TBbSiP04oQvj9ybu/dhLR4rW +hBe7RAfMF3a5BIfQcWJh7dPofk0Qo/yxIlXQkWt11OufUZshmffBr/xvdGyZ +cR3gWa0KVQfHJLtJDExUjDCQT1eAlcPX43isGLjOiZkpV8yE5ITRF5lXGXg4 +lxQv1EUF/1+T1t6VDJRTs3rSVECC4OsuelpTDPwZVWW0+q4sbEqyLMugMhGD +4jRdFCRhofNRoJANE/sLKjVi2GIgrPNmcew6E3cZNWY3CK0DL7PEj1M1TEx9 +TY5U+SEEi/+1iMz+4uzTfcnVG0z5gXUooC2NyUI1l07lmWJuyPsb0HjAgdNX +5hfe8/cuEdOWoR6z8Sz0UZ7bfjF5nugm86dsb2BhMLXfiS9ghhinLcgGLbJQ +yeBoUmf9FKFlnGG9RZnN2W+Car51k8Rn8sJPqcNs5F+e39a0PEbkqdQNzyWx +cW2KksGL8iHiMbvbPayJjW8cbirste0nzLRGyRnDbLQebG2m+vUS6XWTi6U/ +2Vgz2PN61UwPUc9/6vjjBTZ2Nhl2L2n1EO9z1MjEEhvP18icyu/9RMw2G640 +bSOhgJr716vfU6BZbH7AipeM1lKHX3+5kAiBb/dPDG0lY9FIe8lWwTgokv4s +ccODjNq49Ul6eySg51FHuEvG7MifNkPV4ZC3LbbzeAcZ439ubnRsCAVezRXL +JasoqFn81KpH9SKs5NfwdCYouFa1YJ3mmyBQ6tEwV/ai4Lx64Wndbf6gP3p2 +XIzDw9LgkT2HRH1AzdWl6GwXBW3mufmSO7wg52Ro4koODySj7oCBd+7gfznt +5jV9KjZGXfR7L3EMKKK2L2N9OftUsac+xckJqt7YlZQWULF7QIT2TNgRlFby +PbXspWKnjdnTsGEbYD3v+7WRw8MQl3/Cia2WEBTzwLDXmIb8W49K0N3MIK9d +rYHM4UFbjsUdP2QKDTunZ87fp+HOm0sXH13fBZHX/Tx2j9Jw96XrZwydDcC3 ++4WtvDQdTcquyLrN64Kpre0Cg8ND7e+mfLnnOrDiQGJD5kU6ljTxL9z4pQma +b7gf7HpER3PSlODR9M2cfXW8fnCSjjfrtHlmpFRB67D/EheHB8+OFKuxMgVI +utH0RdOSgcn2N6JHnzAh/d8+ud5wBv5NuOvbMUyFxoK6hpuPGfivS2uufQUJ ++r6Nkk79YGCr1TR38ANZaM8uy2mmMPHjG/N94oQklMbX9RHWTE5fTy7dqiEG +2ntvOJI5PBQZ/ilbWL8OxsU0rKQ5PAydUFRM4V0Fl1fJLMlzeHjitWJg0J4f +FgLutj9lsFDII/ybYQ03/PJ0bA6yZ2EcO0sUZ5eIPd6SfYocHiRNNv/xzZsn +zn31oR55zkLRTxsU7a7OEGkp6yXv/WFhvIQLr+/rKcJFIsjMU4mNyuVN25Q7 +JwmztEJeXUfOPg0ReFYg+oVQsqAcU+LwcERXY9Lx2RCx5Sn7fGYjG9kjled+ +u/YTL99s3Vw/xOlHI9zzo9G9hLSNztr2aTYu1oXL3BL+TBDptUEf5tlYwe1Y +xmXWQ+zHEHX7v2zMF7dzdZ79RNiIDK7ZuMzhI1huL0/TJ+LuCxUJpSf/+7/8 +P2spUo4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.026716109200381675`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dYj90fwPGkoWQ0tB++e2gXSnR/PmmIFNLQFCklJUlLSEKiPRQ9PUZ7 +K6EppbSESIm0hwZKQ0n9vr+/zvW6znWu8z7n/HPf5GOnTRy5ubi49q3g4vr/ ++PCVsrjicxJKrZSr8LG+C5v3S6Wfe01CE409GwRW3oHZRv1Vxi0k5Fd1Hb/x +IxFe6Hu5MN6QMIP3qZ7Ul0Q4TLyRa39LwlWdeqYOxYlwTeFqgcYHEhrxapY8 +dE6E/tWTJX86SRjN0+7f/C4Bkurrmy+PkPACqFO8827Dul2+U2EryRjRJxa5 +MiIOGkXn+yx4yGgpefTtt0txcG3Q7z2Zl4wPD5nGdnrEwVLI+cfFfGRMcNMP +/WwSB9/fXPTuEiDjS2U+RyuJOHhte3VBfj0Z5Vpk7+o9iIWbftHczbJk3Atk +ufvPY4D/UY6I4DYyxgsYT06LR4P/+4NjAxznDbUWbBOIhvGZ2Zrn6mTUXjP7 +PuhPFLRqap87t52M0SkrGZo9UZD0sq29ZycZ36lOkmhZUaDasZT0VIeMHYOa +1V8hCuyWDzAdD5LRVsDdvNQzEh4bzeyoOkXGTU91RqdGwiBP6qv4bTcy7sRt +z5NbwyBzsG7SzZ2MXQK/FazLwyD5QkK6jAfHbovpvJFhEJK7Q9TnLBlnLC6U +bNIIA5s1QaMK/mTcIdjSaHvzFvC8Xpt49zoZDaQ/KeZr3QSzfaxZ7wdkPCD1 +I0HxTQig+3F7eEjG9LBfVgMVIbA58l4jfwoZt+/YuiktJwS4Pkj+l5BKxtzQ +Q2FGoSGQYy1gUJpBxuocNyk5/RDgdh1N/JtHRt6dP1qkqq5D/o0creAyMt7v +6KgIK78GAq+Ur0Z9IKOGTXAE+WMwZG2Paj/ZRsaYX1vq7euCYV/OJFv3Ixn9 +Gzb1Zj8JhsiowpbZdjJqnl8X6Xg7GMRttkjafCZjGfFk1NEyGGiT6tmMPjJK +5V0Yi+6+AoQMvCv7QUaxWUHFY9NB4Hna6J8hQQoOnTpzR5C4DDwaK5YLVlNQ +I/+FRZfKZYjnKu45L0TBhnrzzGf0y1AaJZsivJaCUl46kyFrLgP347HNWsIU +NE4pOxXRFQhRv29oxEpQ8Gih7YDipUAouFx3aBeNgvIqP/w3Rl2C7zEQmqxF +QYm6GrcdgwGwik/d3ZGg4DqVnPUa7wKA4qtoIg8U3E5fc2NXRQCY2fwjXYoU +XBqnfwiMC4By2p/MNh0Kdm2+23hfPwBCi580CO2lIM/pKR637PPAaFcQOG9O +wcKeO3YjF/3BTlo2xOI0p+9T1Y5gQ19Q7FI3VfKg4Lxa7lnt7b6w/N8hEv8Z +CopGXDgixPSFe/Sbz554UvBl/Xt2E7cv9CkvjGzwpuDVGe1TY6U+cGJ3x54P +ARRU2aLSkavgAx5esasPhlLQNab4wIysN1xpEYrYm0pBVR2V/RdJXqA7fH5U +NI3T339s3xERL+DhGtPr4jjPyFlxL48XXFNpWDydwVnvsO+q1shZCI29ejIu +m4Je6hKViQVnIcpqSa/nEQWLqZrOFJ2z8N/Qj8VzlRSMlhb4rXfaE8qWWk/e +b6dg+LBbyuk+D1B1dso730FBq3lu3oQ2D8h6Nz9p9omCHhG6zMZ6D7iTQvIT +/EzB7K1EjGG+B/judb9+9isFk9wsd1QHeMC2eIEUvUEKMlSKPXylPKBQAbu+ +TVHQZrDQPrfIHTJscverrqVi4o3Q/WXfXCHjdHDcqnVUJBl0+vV9cIX0IOvP +Xzk+82m7qlSVK6RlCJy4KUxFrY7OjcXxrpAy7XhxQIyK9KHjqam6rnDv1sbc +eBkqmt/3P3Pk4UlIKI8Q/MOiovG5e4Ijri4QIutZW6NDRZ/zha1zjBPgezXp +zk1dKtaHX/b5KH4CnL/XnT6kR8VGiWXzKr4TsLtKRrpfn4pP0lvTioecgO94 +rTv3Xipy3UwtoKc7wdVsSUntA1Q8pfvhsdhmJwjSfH6y0oazHjRb59UdIeCw +0PqSc1RUdHDNNPR0AIqI9esobyp+UeiqSXRwgIamzNCTPlRcs4M2N2XqAOKw +m1fWj4pZ9yuv1ak7wCN60MLFACoyS62PTv49BkNTcwO6V6ioyW/RanzrGBwI +6y95G0nFEwe+mf4sOAr06lKHkWwqnl8vULFR0h7K39kUFOZQsbNPmPZSyB5M +epcWA3Kp2H/5/K0zK+whkEsnXjifioIyb+Lq247AF6KpXrOQik3TftUHA45A +bNlnhbBnnP5VwmqHmu1gZfHinEotp1/e3r7OxxZ604lb579ScWKJ8oG+YAWK +q3hfmHdTsd3K5MW1QSsIcG6aUemh4p+8v6fn3lqBJPvwkZFeKkaGF/fyZ1jB +gawzqmaDVHT4w6jvN7eCypyUDsVxKm7IzNx74akl3HkkSO+bp6LRRIDe0JXD +YFL2scJgAw1Dltex6bvNgVXbM71JnIYDXL6xp7aZw9+WUbk5ju8IXrlZRTeH +jL6lxFRJGlavGp0N4zGHJQGmN7csDY9FWFdUVJtB9mEfxXIKDSOX/51y1jYD +nlmJ/5SUabhH4FVR3m5TeKJsGShuSMO/ZcsdIt4mEBD5RL+bY75tx8XpLiaw +66fomox9NPSZmbRHGxNoyW9J3G5Mw6RGDZ7oXSYwqKhbZHOQhvZJ6u/vrTMB +MQWloQcWNCw/dHbTieyD4Mnm3ad0nLO/S8gT128HQIHySMLgAg3lhMUdpRaN +IatVtY58kYY7ZVncMQPGwLjy2OsPxyr/+vlvfG0MpIGn7/ICadjmX1x3MtkY +RNIqb24IpqGpxivTdm1j+M1uXu4LpeFc2r4H0zeNoEZlePhCAg0vfDoyOCC/ +Dyy1/3lWVETDodBr//Ul74G63VMzFx/TcPedpcvPbu0BVeNXanuLaWgrFqd7 +138PCFmfye95QsO7B9P0rpvvgSqv2rQ1pTSs+3B5+++1e4CV4RZ3ooqGGWzj +tduCDOD32kpPmdc0XNWnMdx/ZjckfLFTuDJEw6dTM2LKXnoQdsvHbe8wDfde +uXVO31EPgnZG5gqP0NBw1EDthLkeuCa9ULj3jdN/xjXzlYYeEDY0xYpxTo/g +76crl3Rh8PM3xbkpGlrGu8odC9UF1c9eyq7LNFQgVX24nqUDTZ9C1Q5J0rE0 +c9cgF/8u8O58ZS0nRUejousyLvPaQPnME7xSmo4JgupRn8e0wf/LxQ9FMnR0 +eDQj0/1WG1jdnufENtHxuPimjiN3teHqgNXTNjodd8Xb7dZW1Qb4sXnHYTU6 +Xq3OXX3gBEIRT9MuW2M61kl15W3s1AJja+sFxn46Vv1uyJat1YLRR2OPfnJM +0RzzYBdoAeWIEDn4IB2T5rdvPn1NC6JLjJazTOmotD9LPUtNCzzd35b9tqJj +d2ZSY1vkTlDuaNsSe4KO12oEc8rNdkBedg+jKZCOXoY+L/L4t8OKQ3F1qZfp +WNDAt3B7WgNMF/Y4BQbRcWxh3YuIXg2YNyhK3RpMR0hTa8kq0wDdoau0e9fp +2PFwQ0GYhwZ0kuQo58LpaOZ5eNXfL+rAF3/un01JdDSI/+uiXrUN7AIFxc4+ +pWMzLHd2524BjXfcT/Y8o6MpaVLgePIWEKX8sSCV0JFrTfjbX+FboL5m7O7r +Ujq6pEpxb/PYAqr8r6msSjqeShbn1VXbAvzhEWpdL+l4RChL7FKZGhTcFTu0 +u5Uzb71iZtsHVeB+ujFaZoKOm9v4L3+nqXC+H0/W9HN8p3rnyhlJFUjgeTKd +/Z2OTTPOfSvXqICiiZHFzp90VBPaf09zRhksJ87L2v7i3FdVs8/qOmUooH5K +S56no4VicvhWF2Wwi4wpI/MxcNnGZITfVQlKXFYNMjcxMF/26XhxgzxoHvVd +4iIx0L0t0WKkSB7KD49IdHIcpxCqJ5csD1W76/feojBwqSXRt89THuroIQU/ +6Qxkfc7vFvtHHj708geUyDPw646dUxe95OCHJb+ooSYDR/4ZXSumtBnoe/m0 +3c0YONk6frTyLRPibzd80zBnYILt7Yjh50xYNXgreqUFA9c7MFNl85kwfkl0 +IOEwA0U+mDhlhTHhcTHpeo01AwvhnvkhQybokne8ljzGwPB/Mwre1zPg+O/T +ljXuDByghF0za6ZDStqnM5IhDDR/pvIz8xcVkv/tke3m+G/sQ++2QSokxA6/ +Sr3BwKOZpBjBDircDJr5R+0mA3Vycs9GlVPB00640SicgQvJ8tLC16igLb6H +ciWWgY1C/rqt0lT4evVZ68Q9BpaEbVFXMqSAhONttZoSBmbmTqz/U0uC+pzq +ujulDPzXqTnTtoQEvtMTlp5lDJRVtXjekEOCziu6geQKBjpNj+tUxpAg6cFk +86UqBraYZoxLHCMBucfQaecrBure1bxznYsEctZcicUfGFgRnNN0IGQjwEGX +pfQfDJQvuX2Kq1EGer4Pk878ZGCzxRR34BMZCLzlpKM5ycBf4eUGax7KQPUr +h5DmKQYqj+0sPxAgA/qEncjkDAPvpj1S91eSAWO5QwzNRQYWXXHeuT9BGmx4 +tYybVzEx9UXt46qzUuBfsj75J5mJfHXswTf7JaA1vSijkcLEz+9MD4gRErA5 +3rwohcpEDIjWcJKXgE+eSfWH6Uw0DdexUBWQAA151q8qFhOFL5ALTtaIw2wy +GEQpMXGF184lE01x8Ax2n1LRYmK2ZIpQhcoGOLm/Wf/sYSY+Ly0aGtIVhcKY +6h7CkolSSQmF29RFYaH9mb+gFRN7c8rUI9miEGqfmnffmonvr5NM7NeKQtaZ +i+Jv7Zg4uWcLv1eHCIzFKA/JOzLxuN1QoIO7CJzqiL06dIaJ+ga1m7bcFwa3 +o7YvLW8yUT1EOmYbeT3s3H/bnnyLiXn6f4oWNqwHIa13iyMc7zGoT68TXA85 +knpbfcOZmHStcmBsZB2Mv5FPi49iYm14+dyxyHVwkli8/v42E1+bFdop9a0F +Z5m7hkYpTIxKP5o+F7kGHNo6WrGCiSwHRx1hqdUwKqpuIVXJxIFTCgqJPKvB +wyTu8yTHd9+Sw5R/CsLFNwcHHlQxUcW2NzDslSAkNDTO8Lxkopn4wNSStyC0 +VJRLNjQy8V1N62xxhwBopN2zO9jBxJEYw+/09FWw1sd59OgvJgaIPJZ/7MYH +V1dLL8lNc+7XY0Vfvy0fLP7XJDzLsfqBhIqNxnwwWq+4PXSWifY3ttUXK/JB +nfTM9cJ5JhaQvQ84/+SFi5WX6Su5WJz34HXpOMcLE7x37VOEWHg4Tac4P4QH +mmNffxyis/D9Oum0h83csOD3sPUFg4WCbiHf9Su5gXXEryWJyUJVp3almXxu +uMKm15mwWVikGX/eM4YbNCsDiivlWRhg6m38w4obMoflYuPVWFhr4ZM7OrYC +rmmGHtTX5swLbZrO37ACoEe/OdWGhfD7aV3ommVi2t2+McCWhdHsNBGcXSKy +/vrVH7Jjodj8wke+7iVCXCb35Qp7FpIUfGPrC5aIcTPRClsHFl56oeMtY7ZE +JDR15244yUKVhfVRv+79Jaae+EZc9WFhUFvknJjeIpEWlmXiGM3Cm03hpn7l +88Q+T4kehRgWShht+eOdNU9MmQe7zXLspTS343LCPEGQ7EKux7EQT8U5l3nN +E22FwpWZCSwse9ziW6swT/B0+LK/J3P6+td9ZT34TThQdnP5ZLPwYdp1rcmY +OYL0tD835CUL2eelHZ8nzhAXxr2ox2pZKPJlo4LNjRmik8yXuKOOhYHUXgde +vxki5hYr+PsrFhqpjs8FHJ4h+I65WZk2sbDAtbZoWWKGGBea4yO1cvZz+Wtn +mDhNPDsmaP+0m4Vh7tGi5Sm/iP1rVUSGFliY/V7A5Z+uSSIpcYPEoz8sjBF3 +4vF+O0mM0hZkAhZZqKh3PL69ZpII3lFDF1li4SqTweDirEnimbPZdmIFG93r +jT5/9p0kSDV+9vH8bNTaOTbbLD5J/PSpztMXYyMzx0ZS3PInEdV7yDBdgY2q +Y8n5s2MThJN4gIm7IhuVihu2K7VPEJqGKZZbldic/1MBVe/qCWLg8fSJGmU2 +7uEp11VKnCA0QuKCu9XY+L2c/8u+3RPEV8X2CglNNnoJtaoopI0T8gFWyiH6 +bMxbKdhJuI8Rr8SPbnA5wsbaqsKYZPo3wiQpl0fbno22Qfwvc0S+EV/JC78k +j7KRb3l+e8PyCDErH9Naf4yNspcqm+Q7RwiaTm0Ey4mNX5SeWP8bMUIEnWYL +jpxi40cm/Yf032FiZ/3kkpM/G/M/xYdD3xBR6Bc0cjyOjXH5Gj087wcIRTPK +CcV4Nh7TVp+wfzlAZClXD85xvC5RUe9V8QDxYHhFf2gCG6tKpUsKEwaIaLPL +XQV32dhRHzq88sgA4akS2Lp4n41H/a1oNyb6CZVvF8pj8zj911uMvgv3EwWH +/SJfvmLjT7v4iBzvXmLrC/bF1Ho2sofKLvx27iVK2Z2u1xrY+M7ujvx+616i +ZkFzt0ETG3sr67NksZf4mLT4t6mFjYMihoS6YC+x2HPJ9X0b5/1ELYIc7vUQ +Bi7X9Pv62ShnHpb6PKObeP1u25aaAU7fEPf8cEQ3YaI5TE4ZZKNlf3Mj1aeb +sF5t8NdxmI3dPZo5bXrdhHuuwONvo2zcuI9RQRr4SsRO3iJPTnLOO2v+S5/2 +lZCy0lrXOsXGxeoQ6XtCX4nk6onFwl9srOzvert6potIjzHu8JphI69wRYF0 +XRdRunV9xO/fbDSIscwQc+kiiOSqgE/zbCzhti/iMukiavjOnCxdYGN7g37n +kmYX0dz+Ti9gkY205m+7VNZ0EQcxSM32LxuzxWycHWe/EB8zVMnEEhsvVkqf +ye7+QlgJ96/dtMxxoOz+lQ1fiG6/mMVljqvFHKZPFX4h/gfHkzsp + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.026716109200381675`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991964359553013*^9, 3.9919653448206234`*^9, + 3.992518823636684*^9}, + CellLabel->"Out[39]=",ExpressionUUID->"57795bb6-5fd7-4d6a-9c83-6b9bd83b2bd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[40]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVx3k4lAkcwPHJkS6V2ErHmvedmbd3jMfQUGbF71dJG41QbDU7so4kcqRQ +o2RybRqqGZuii1xTPNU+Q1psuzrGsYhS2efZViiVmKaS6bKzf3yf7/MhQmL9 +w40YDIbI0P/vi7cxjIkrlAMZ2gMqKPaNPJ9isFKim1S/WwVh/F/d9Qbrw731 +OREqGBr2lOomMTHBRbFR6KeCkYiYdwPGTMwt3X+kma2Cz5KGZ81mTKy2Gyxu +bKuEeV7iVsUsJv6YKC/U2lSCiDypXGLDxGxrk67F3eWgMb9hPIJMbLWF/hcu +pRCmv5eYFMzEXSVZy6hpJXB7PC4nJJWJXHlel3DRBXAW/JYyfJ6J6nnrT0Pi +Wbi962O88CYT641rlgr8CiGsf2A15ykTdeTBiskeBaCJDqzdbUxgm6muzKkg +H9aP1dsfJgkMlgI1U6KAJzfaZUs9CIzc1KixEBwHReqD3ouhBH4KtMxb1JIL +MzaH3k+WEVhIJFsvOZMDyqgi1asSArXlHvNTs7NhRWpLOtFEoP13GftFHzLg +7V8lrmMDBJZFNTmdkx6GWAcTpd1kEqdMrHr/0jcNpiu2aDkcEp1NLAPvmaZC +jcNWbqMniTs8B5/vypKCrH3DduvtJLqdvhXheC4ZJOXaVMtsErdnpg3Wd+6F +L4r5rrGVJO4sZdergxKg4ZDzR7mGxPEjUVcfB8TD0Yov+d4vSRRNLD9p3hAD +0s4bzm1TWchaPJ7CTY4C/oyJxGqahfprwx5Dp3aATjai5Hux8JLbvh253eHQ +o++qSYhkYXX9pa9v0kOh+VKIOjCHhbeNWnd+8PoJ0uL3BRReZmFTTTmPUAfB +luUZ+uJWFt6RrSmWS8WALiv2r3vNQtL5lLxdshnWCoe+XpvBxgtXem/13gkA +K5+FnIM8Nr6o3Wjml7YRRs/olwytZ6Pa42B6sY8fvHrdZv9NNBtHVj8SPHjv +A2PJ3nP65GzUmkbOexrjDYTJ7/rYKjZeadmTdPfQ92BRUicLbmNjx96jn+nR +NTD7wLah0ddsXMY5wZAlrAb+Dx/9VplzcFSYESAKXQmSaCwQ8DloM817XV+r +O/jmmx/K9OVgmJE4khvgCmGNHVFFsRycsAz+d+EeF8gi3Zz8jnPw7sWXpeLL +ztCSeY7RfIWD0ZsyxVYSAXR9zY4p7uCg5oLY82ygI7y4urhuwRsOnoHmfw78 +aQ/M8HKzwNkU3quw/sUpjQfH54pS+gyewugPkSbwwEij00ZbUFilXDalOZwH +/bbuvYfnUOhQ2tOe7MWDMu39y1etKPxU1znMteKBXYqRv7k1haKIoaSOClsQ +KiRFtwgKrwlN0mc/5ILKw9jCl6Rw2sLYQV4LFxaMVWT8bfBcaaha1MCFz5vf +xehYFHbPnKu8WMKFm9/mrGRSFC5wFb49G8cFT9X1Z1JbCit7gnc3TedCrThI +bMajMHLlF3ePCRpoc5POEwbL+MfWtupomBq3oa7SjsKkKh5j+DENbc7Pch7a +U4jRudeTKmhwe57DCOVTWO7FnWlbREN1gePeEYPnj0/OeppHQ96nlCBTRwrH +zX16wpNoYFSR3ccM7h0uKnOIoiEuSLN20VIKuZl6+aRtNPTNiqkvN/hJ8Naf +H/nT4P+HpaNAQGFBVm2+2pOG/wBmZBC8 + "]]}, + 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:eJwVx3k4lAkcwPHJkS6V2ErHmvedmbd3jMfQUGbF71dJG41QbDU7so4kcqRQ +o2RybRqqGZuii1xTPNU+Q1psuzrGsYhS2efZViiVmKaS6bKzf3yf7/MhQmL9 +w40YDIbI0P/vi7cxjIkrlAMZ2gMqKPaNPJ9isFKim1S/WwVh/F/d9Qbrw731 +OREqGBr2lOomMTHBRbFR6KeCkYiYdwPGTMwt3X+kma2Cz5KGZ81mTKy2Gyxu +bKuEeV7iVsUsJv6YKC/U2lSCiDypXGLDxGxrk67F3eWgMb9hPIJMbLWF/hcu +pRCmv5eYFMzEXSVZy6hpJXB7PC4nJJWJXHlel3DRBXAW/JYyfJ6J6nnrT0Pi +Wbi962O88CYT641rlgr8CiGsf2A15ykTdeTBiskeBaCJDqzdbUxgm6muzKkg +H9aP1dsfJgkMlgI1U6KAJzfaZUs9CIzc1KixEBwHReqD3ouhBH4KtMxb1JIL +MzaH3k+WEVhIJFsvOZMDyqgi1asSArXlHvNTs7NhRWpLOtFEoP13GftFHzLg +7V8lrmMDBJZFNTmdkx6GWAcTpd1kEqdMrHr/0jcNpiu2aDkcEp1NLAPvmaZC +jcNWbqMniTs8B5/vypKCrH3DduvtJLqdvhXheC4ZJOXaVMtsErdnpg3Wd+6F +L4r5rrGVJO4sZdergxKg4ZDzR7mGxPEjUVcfB8TD0Yov+d4vSRRNLD9p3hAD +0s4bzm1TWchaPJ7CTY4C/oyJxGqahfprwx5Dp3aATjai5Hux8JLbvh253eHQ +o++qSYhkYXX9pa9v0kOh+VKIOjCHhbeNWnd+8PoJ0uL3BRReZmFTTTmPUAfB +luUZ+uJWFt6RrSmWS8WALiv2r3vNQtL5lLxdshnWCoe+XpvBxgtXem/13gkA +K5+FnIM8Nr6o3Wjml7YRRs/olwytZ6Pa42B6sY8fvHrdZv9NNBtHVj8SPHjv +A2PJ3nP65GzUmkbOexrjDYTJ7/rYKjZeadmTdPfQ92BRUicLbmNjx96jn+nR +NTD7wLah0ddsXMY5wZAlrAb+Dx/9VplzcFSYESAKXQmSaCwQ8DloM817XV+r +O/jmmx/K9OVgmJE4khvgCmGNHVFFsRycsAz+d+EeF8gi3Zz8jnPw7sWXpeLL +ztCSeY7RfIWD0ZsyxVYSAXR9zY4p7uCg5oLY82ygI7y4urhuwRsOnoHmfw78 +aQ/M8HKzwNkU3quw/sUpjQfH54pS+gyewugPkSbwwEij00ZbUFilXDalOZwH +/bbuvYfnUOhQ2tOe7MWDMu39y1etKPxU1znMteKBXYqRv7k1haKIoaSOClsQ +KiRFtwgKrwlN0mc/5ILKw9jCl6Rw2sLYQV4LFxaMVWT8bfBcaaha1MCFz5vf +xehYFHbPnKu8WMKFm9/mrGRSFC5wFb49G8cFT9X1Z1JbCit7gnc3TedCrThI +bMajMHLlF3ePCRpoc5POEwbL+MfWtupomBq3oa7SjsKkKh5j+DENbc7Pch7a +U4jRudeTKmhwe57DCOVTWO7FnWlbREN1gePeEYPnj0/OeppHQ96nlCBTRwrH +zX16wpNoYFSR3ccM7h0uKnOIoiEuSLN20VIKuZl6+aRtNPTNiqkvN/hJ8Naf +H/nT4P+HpaNAQGFBVm2+2pOG/wBmZBC8 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05174209246096281}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05174209246096281}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k4lAkcwPHJkS6V2ErHmvedmbd3jMfQUGbF71dJG41QbDU7so4kcqRQ +o2RybRqqGZuii1xTPNU+Q1psuzrGsYhS2efZViiVmKaS6bKzf3yf7/MhQmL9 +w40YDIbI0P/vi7cxjIkrlAMZ2gMqKPaNPJ9isFKim1S/WwVh/F/d9Qbrw731 +OREqGBr2lOomMTHBRbFR6KeCkYiYdwPGTMwt3X+kma2Cz5KGZ81mTKy2Gyxu +bKuEeV7iVsUsJv6YKC/U2lSCiDypXGLDxGxrk67F3eWgMb9hPIJMbLWF/hcu +pRCmv5eYFMzEXSVZy6hpJXB7PC4nJJWJXHlel3DRBXAW/JYyfJ6J6nnrT0Pi +Wbi962O88CYT641rlgr8CiGsf2A15ykTdeTBiskeBaCJDqzdbUxgm6muzKkg +H9aP1dsfJgkMlgI1U6KAJzfaZUs9CIzc1KixEBwHReqD3ouhBH4KtMxb1JIL +MzaH3k+WEVhIJFsvOZMDyqgi1asSArXlHvNTs7NhRWpLOtFEoP13GftFHzLg +7V8lrmMDBJZFNTmdkx6GWAcTpd1kEqdMrHr/0jcNpiu2aDkcEp1NLAPvmaZC +jcNWbqMniTs8B5/vypKCrH3DduvtJLqdvhXheC4ZJOXaVMtsErdnpg3Wd+6F +L4r5rrGVJO4sZdergxKg4ZDzR7mGxPEjUVcfB8TD0Yov+d4vSRRNLD9p3hAD +0s4bzm1TWchaPJ7CTY4C/oyJxGqahfprwx5Dp3aATjai5Hux8JLbvh253eHQ +o++qSYhkYXX9pa9v0kOh+VKIOjCHhbeNWnd+8PoJ0uL3BRReZmFTTTmPUAfB +luUZ+uJWFt6RrSmWS8WALiv2r3vNQtL5lLxdshnWCoe+XpvBxgtXem/13gkA +K5+FnIM8Nr6o3Wjml7YRRs/olwytZ6Pa42B6sY8fvHrdZv9NNBtHVj8SPHjv +A2PJ3nP65GzUmkbOexrjDYTJ7/rYKjZeadmTdPfQ92BRUicLbmNjx96jn+nR +NTD7wLah0ddsXMY5wZAlrAb+Dx/9VplzcFSYESAKXQmSaCwQ8DloM817XV+r +O/jmmx/K9OVgmJE4khvgCmGNHVFFsRycsAz+d+EeF8gi3Zz8jnPw7sWXpeLL +ztCSeY7RfIWD0ZsyxVYSAXR9zY4p7uCg5oLY82ygI7y4urhuwRsOnoHmfw78 +aQ/M8HKzwNkU3quw/sUpjQfH54pS+gyewugPkSbwwEij00ZbUFilXDalOZwH +/bbuvYfnUOhQ2tOe7MWDMu39y1etKPxU1znMteKBXYqRv7k1haKIoaSOClsQ +KiRFtwgKrwlN0mc/5ILKw9jCl6Rw2sLYQV4LFxaMVWT8bfBcaaha1MCFz5vf +xehYFHbPnKu8WMKFm9/mrGRSFC5wFb49G8cFT9X1Z1JbCit7gnc3TedCrThI +bMajMHLlF3ePCRpoc5POEwbL+MfWtupomBq3oa7SjsKkKh5j+DENbc7Pch7a +U4jRudeTKmhwe57DCOVTWO7FnWlbREN1gePeEYPnj0/OeppHQ96nlCBTRwrH +zX16wpNoYFSR3ccM7h0uKnOIoiEuSLN20VIKuZl6+aRtNPTNiqkvN/hJ8Naf +H/nT4P+HpaNAQGFBVm2+2pOG/wBmZBC8 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.1}, {0., 0.05174209246096281}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJxFmGc81+37xmVGGkb2Xd89sqlIfM5TRkpUMjJTIhJJslJJkpQ9Im53w96R +SkaiZKVSIiV7RCoKkfh//49+j67X8eB6dr3fr+O4yEdOmjlzc3Fx7VvBxfX/ +JznsBA8XFwmleeSr/WxTIREG34Pa/3INw7OswvV/eeFq29Ebqf/Lm/ZKZ595 +SUIzzV3rBXluwtod/tORPGSMHhCP4YlOBIF7BaJCW8mYJGg69UsiDu6bzGyv +PUHGjQ/1xqfHIsFiD2vW9w4Z90l/T1Z6FQ6CL1Qux74jo6ZdaDT5fSh4nzT5 +Z0SIgiMnTt0UIi7Ct3iISNehoGRDvcf24SBwkJELtzpJQdMPtdtDjf3hUptw +9O5MCqrpqe49T/KByqX247c7KRg16pFxcsALcuwK96qtoWLK1Yi9lV/cIVzO ++3m9HhX9zpa2zzGOQdBB4XUVZ6io5OSea+ztBPS6x05j+VQ8u06weoOUI/Rn +E9fPfqbi5BLlHX3BBswq31cbradh+PJaNn2nJTxQsQ6WMKbh38rlLlFfM1Ck +3JM0OkdDeREJZ+lFU7DW/edRWRkNRyLC/htI3wXJnxwUL43Q8OH0jLiKjwG0 +fIhQPyBFx8e5O4a5BHZAGW/LDntTOjZI9xRt6NaBovw+RkswHX2M/Z4WCWwD +h2Ah8dMP6dgKy929hZuB++GGONlJOm7qELj4jaYKFW4rh5kbGVgs9/BreZMC +0Hfz63paMHCq/evhmtdMyMj6cEoqnIGWj1R/5P6kgqTzDfX6CgbmFk6u+/Oc +BLDfbSn7OwMVKm6c4GqWhcCKdek/yEzkb2APv9orCcf3thqePsjEJ4/LRkb0 +xcDjsP0z62tM1AiXid9KXgdOHV3tWM1ElpOznoj0Kljj5zp++CcTg0TvK9z3 +4IfWhJfvR+gsfLtWJutuKzdAn2Frph0L4ffDhojVy0RWZJ6ZcxwLr7VEmQdU +zROkh4OF4c9YyD4r4/wkZYbYu0ZVdGSBhflvBd3+6ZkiYvsPGGcrslFtIr14 +dmKSeCFxeL3bITY+ry2NT6d/IUoDQsaOJrIxsVizj/ftEFFyMCDm2Qs2/nBI +ii7w7Sd6A+IXl5fZWCfu9OtE6ScirbGx9eIYCc+BBsW36AZcC4jjbpUj424g +y99+Eg8Oy/uYzvvJaC/oafnYOwZ4X65JSb1CRiOZD0rFOteg+GqBTmglGW93 +dVVHVoUBIQtvKr+TUXxWSOnIrxAoudhwYAeNggqq3wM3xF4ARqei4FlLCpb2 +3XQYOx8IXj4Jq/ZHUNA9vnzfjJwv/DfyffFMDQXjZAR/G5z0hlJF7PkyTUG7 +4VLHwjJPSK6KFvrDoqLpmVtCY+5uEKL15HiNHRWbQat9XsMZ9kUOVryOoeKx +fV/Mf5QcBp7yxTnV51T8pODo2OBnDzfvCdEH5qloMhlkMHLpIPDOSv6nrELD +XYIvyop2moM3m2+P8lEaxriFP3D/sg/qVUdHzyXT8NyHQ8NDCnvg95oab9mX +NFw5oDk6eGonqH30UXFfpqEiqfbdlTw9gO+bth9Up+PlusJV+44hqHR1bE44 +RseweqGCKovtwJ905p+NaXQ0SvrrplG7FUpSxQ/sbKfjCdsVM1vfqYFDTHwl +mZ+By3ZmYwLuyvDdWkDMWIuBY/+MrxFX3gRHf5+0rvdk4BAlMsyilQ6fLz9q +n7zFwIrIzRrKxhSQt+VKKX/HwOrQgpZ94RvAjk/HtHUlEzOfPr9fe1oavEM9 +p1V1mJgvlSFcrboeTnQlXB45xURDo+cbN98WAVfZVGOTDCbGZh/OnotZDZpZ +txz2dzFxLN74Gz17JUzypTpmCLPwYJZeeXE4L4RpRew31GVhkPDGX8XrV8D0 +A//oy34sDOmImRM3WCScKDu5/PJZeDfris5U/Bzx6IiQ48NeFkZ6xolVZfwk +fvjVFRmKs5FZYCclYf2DUAiyUQk3ZGMRj1A34TlBaDdOLbkEsrH4Q1IUDIwQ +ql/OVSUUsdH+SpvJN5FBwsgtzHBgkI3ylpGZT3J6icFVUxV/ukkYx9sZ2Pom +GV7aX15QWEdG+Ta5VIM7CaDWtZT2UI+MXcNadZ8hFuxWh4wrBpJxu1Bbs/21 +68DtPp7yt4iMfNrf26RrrwBtSiOfMUBG6aJzE3G9lyD291XNBEkKHi61H1K6 +EAwR5Q+ahHdTkPfkNK9H/lk4trNr17sgCqpuVu0qVPSDWJslg757FCynarlS +9E7D1iTBDINhCjJUy738pb3g1vUNhUmyVLS8HXjq0N3jcDlfSkp3HxVP6L+7 +L77JBUam54b0L1FRS8Cq3fT6EUio/KgY+Yjj75Ui6gdaHaCmIKNL6SsV1+fm +7j730BryD/opVVE473f532lXXQsQV1QeuWNFw6oDpzcey98Pv9mtywMRNJzL +2nPn1zUTYOV4JB6rpWEO23TN1hAjGP74RWlumobWSe7yRyL04fKQzcMOOh13 +JDns1FXTBW/P15W/bejYm5vW3BGjDd0kecqZKDpaeB9c+feTBghERav3PKPj +IeE88QuV6lBC/ZCVPk9HK6X0qC1uKvCuXyCoQoGBn7drT5/3kQd98vaXUkcY +GPVvTsnbRgboSuyiXEpgYLNwoH67DBXIfcYu2i8YqJ+qdfMKFwlM5Q8wtBYZ +WHbJVXtvsgzMpoNRrDITV/hoL5lpScBEvMqIgjMTjzqMBDt5isJxYvHK2xtM +fGlR6qA8sAbaqqukmpqZ+Ka+fba8SxDO11yk83CxUDqNz63rDB/kjsonJKmz +8LmVX+H4xApIbuktXH+chaoL62J/3vpL8Hb5s7+ls1B8cO1n1p3fxFfhOX5S +Oye7/XUwTvlFkOoDHJME2KijPTHbKjFFfFbqrJbUYqOPcLuqYtZXIuQkW2js +BBvfM+nfZf6OEt6qwe2Lt9l4ONCGdnVykFjsu+D+toNzX8wqxOlWH5EwdZ08 +NcXG2lnLn4a0z0SY4uUSzXckNOHTqrjrmgLfXp337REk4zMVfmcbyURIe9bR +2adNxjdqUyRaXiyEF24X8ztNxhmrcxUbNSOhwFbQ6HEOGesKPKTlDcNBwm6z +lN1HMlYSD8adrUOB+/7EJh0RTt/IqDwR3RMMVbQ/uR16FOzZlNp82zAIBlQW +xtb7UvDyjO6Jicd+EJFw+XhiPgV9NCRrUkpOg/9uzyunP1MwzcN6e12QF2T8 +cj4/JE5F+sjRzEx9d+A/+tyTezcVua5lltCzXeAePWThfBAVmY9tD0/9PQKf +iJZGrVIqtvwKqNsfdAj25Z1SsximotMfRuOgpQ0sCTJ9ueVoeCTatrq6zgKG +lfTL7PbT0DFN4+2ttWYgmlVzbX0oDc01X5h36ppCrc/zrNWPadjw7uK232t2 +AWFHU6r+SkN7od8PeZb0gdXrfUZ8Ix2PSmzsOpSqC3EVJst55nRU3punkaeu +A/ojl2m3rtCx6+76kkgvTVATeEll1XB8nS7Bp6++Gawnz8rZ/+T4vbbVb1WD +CjTQw0t+0BnI+ljcK/6PAtwvJ12pt2VgKdyyPGDMBG8HkWaTKAYupCvIiIRR +Ie3OVOuFWga2med8lTxCAkPCQXRqhoGpWfc0ApVlQVOB9bOWxUSRc+SS4/US +kHfqvMRrByZO7dos4NMlCl9fKWQlxTLxeVTV3JGYtZDc1DzD+4yJFhJD00u+ +QtAgM3OldJ6JJWTffa4/+ECrJqi8RoHja3Nf0+823PDVQqza3omFF57q+cpa +LBEdpSI1ucksrLzf5v9ccZ7gP+JhY97CwhL352XLkjPEI1eLbcQKNno2mnz8 +6D9FaIYnhvaqs/FblcCnPTsnCZre82iWCxs/KT+w/Td6jIizuNhTksrGrsaI +UZ5DQ8T7tMW/LW1sHBY1JjSE+gnPQsH7X8bZuGEPo5o09Jl4vGVd9O/fbDSK +t84Rd+shDhKv5Dtfk3Blt4G5U3kKLIWfvV/OT8ZkD8OIj2aJ0K6le+bMNjLG +ZfAwtPpiIf1ccrasFxl7PBaz+WIigeud1H/JmWQsjDgQaRIRDjGxpW2znWTU +Ors2xvlGKDyOlcsQWUNBaR+9qfDVF8HC7h+Zx0jBpa/0d8GJQXCLfu3RA28K +Pmt8y27h9ocw1abFkzmcvuK057LO2Gm4mUEKEPpIwfwtRLxxsRdk5QgeuyZC +RZ2u7g3lSe6ws1ZWZtCQig+y27PKR1xAAnbyyQVQMe92TViDhhMEc+kliRRT +UUj2VWJjxyGQYh88NNZPxZio8n6BHBvIGVhKyZSiYd3K8dlIXktoK25L2WZK +w7RmTd64HWZAGnr4piiYhh2B5Q3H001B2PZUcd8DGqbuzzK4YrkL3NOeKt76 +wvH9KffcF5oGEPjp/LsyWTo63ZuR7X2tC5RDwuTQ/XRMm9+26WSYDswblWVu +CaUjZKm35VVqQmP9ROrLx3R0y5Tm3uq1GZTMTKy0f9BRXXjvLa0ZFajd2bj7 +OoWBS20p/gPeCvD1gthQ8kEGir4zc8mLZMK1kJl/1K8xUK+g8HRsFRW6L+kH +k6sZ6PLrq15NPAnqXjiFt04zUGVCu2pfkCx88E5rPEhnonmUnpWaoCREOGYW +3bZl4tsrJDPHNWJQIGWwxT+KiWlhNUMTY2vh/Kv9Q3dqmahq3x8c+UIIxhuV +tkXMMtHx6tbGciV+uMSmN5ixWVimlXTWO54bJGQLn61wZCFJ0T+hsWSJIEgO +4VcSWYgnEl0rfeaJ+Ous0G8vWGii9nUu6OAMEbq9ni66xMKVZsOh5XlTxND9 +X8fqVdi4i7dKXzllkphViG9vPMJGuQs1LQrdY8Sd0RWDEckcXz+WqShNHiLq +F7R2GrWwsb+mMU8O+wnbVUZ/nUfZ2NunVdBh0Etkx5t2+cywkU+kukSmoYdo +7XxjELTIRlrrlx2qq3uIp4Y+boxXJMzhe2gg/SkFwoYD3pL5yHj3gHlCt1ci +fJ2ZrX+iQUbd1bNvQ/7EQu5ww5SHJ+f9C/5WtK2KhE0xt5oFMsi4bfuWjVkF +4bCnYIqt/56MgU0b+/MfhEISV3nfWWEKNjVa5j6iXwSKv5KZAlBwG3311R3V +QbD83wGSwCkKikWfOyTM9AdergmDniwKFpm4Ku3m9YG8N/NTFh8o6BWtz2xu +9ILsENuPn9dS8dSHbWrSte7g+q3h5AEDTj+XXLas5T8GTS25Ecf9qLh6O21u +2twJzPqXFoMKqTh48ez1UyscIci1ZUa1j4p/iv6enHttA3/bxuXnJGh4U+jS +tVq6Jez4IbY6Zw8N/WamHNHODBiX7vv8OU9D1X8DAje8NAU10xfqu8s5fhdP +1E8N3AUh2jGFImM0NB43Uj9maQCUj7yhPDJ0TBbSiP04oQvj9ybu/dhLR4rW +hBe7RAfMF3a5BIfQcWJh7dPofk0Qo/yxIlXQkWt11OufUZshmffBr/xvdGyZ +cR3gWa0KVQfHJLtJDExUjDCQT1eAlcPX43isGLjOiZkpV8yE5ITRF5lXGXg4 +lxQv1EUF/1+T1t6VDJRTs3rSVECC4OsuelpTDPwZVWW0+q4sbEqyLMugMhGD +4jRdFCRhofNRoJANE/sLKjVi2GIgrPNmcew6E3cZNWY3CK0DL7PEj1M1TEx9 +TY5U+SEEi/+1iMz+4uzTfcnVG0z5gXUooC2NyUI1l07lmWJuyPsb0HjAgdNX +5hfe8/cuEdOWoR6z8Sz0UZ7bfjF5nugm86dsb2BhMLXfiS9ghhinLcgGLbJQ +yeBoUmf9FKFlnGG9RZnN2W+Car51k8Rn8sJPqcNs5F+e39a0PEbkqdQNzyWx +cW2KksGL8iHiMbvbPayJjW8cbirste0nzLRGyRnDbLQebG2m+vUS6XWTi6U/ +2Vgz2PN61UwPUc9/6vjjBTZ2Nhl2L2n1EO9z1MjEEhvP18icyu/9RMw2G640 +bSOhgJr716vfU6BZbH7AipeM1lKHX3+5kAiBb/dPDG0lY9FIe8lWwTgokv4s +ccODjNq49Ul6eySg51FHuEvG7MifNkPV4ZC3LbbzeAcZ439ubnRsCAVezRXL +JasoqFn81KpH9SKs5NfwdCYouFa1YJ3mmyBQ6tEwV/ai4Lx64Wndbf6gP3p2 +XIzDw9LgkT2HRH1AzdWl6GwXBW3mufmSO7wg52Ro4koODySj7oCBd+7gfznt +5jV9KjZGXfR7L3EMKKK2L2N9OftUsac+xckJqt7YlZQWULF7QIT2TNgRlFby +PbXspWKnjdnTsGEbYD3v+7WRw8MQl3/Cia2WEBTzwLDXmIb8W49K0N3MIK9d +rYHM4UFbjsUdP2QKDTunZ87fp+HOm0sXH13fBZHX/Tx2j9Jw96XrZwydDcC3 ++4WtvDQdTcquyLrN64Kpre0Cg8ND7e+mfLnnOrDiQGJD5kU6ljTxL9z4pQma +b7gf7HpER3PSlODR9M2cfXW8fnCSjjfrtHlmpFRB67D/EheHB8+OFKuxMgVI +utH0RdOSgcn2N6JHnzAh/d8+ud5wBv5NuOvbMUyFxoK6hpuPGfivS2uufQUJ ++r6Nkk79YGCr1TR38ANZaM8uy2mmMPHjG/N94oQklMbX9RHWTE5fTy7dqiEG +2ntvOJI5PBQZ/ilbWL8OxsU0rKQ5PAydUFRM4V0Fl1fJLMlzeHjitWJg0J4f +FgLutj9lsFDII/ybYQ03/PJ0bA6yZ2EcO0sUZ5eIPd6SfYocHiRNNv/xzZsn +zn31oR55zkLRTxsU7a7OEGkp6yXv/WFhvIQLr+/rKcJFIsjMU4mNyuVN25Q7 +JwmztEJeXUfOPg0ReFYg+oVQsqAcU+LwcERXY9Lx2RCx5Sn7fGYjG9kjled+ +u/YTL99s3Vw/xOlHI9zzo9G9hLSNztr2aTYu1oXL3BL+TBDptUEf5tlYwe1Y +xmXWQ+zHEHX7v2zMF7dzdZ79RNiIDK7ZuMzhI1huL0/TJ+LuCxUJpSf/+7/8 +P2spUo4= + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztykEKQFAYhdFfDGzDVhiYGMgSDNQr9cqz/1CURZzJra97ujUv21xFlCYi +plTO7Y5f1U+19yxjP+Q9H+n5U3yD4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO +4ziO4ziO4ziO4ziO4ziO4ziO4ziOv3MB9K7M1g== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJxFmGc81+37xmVGGkb2Xd89sqlIfM5TRkpUMjJTIhJJslJJkpQ9Im53w96R +SkaiZKVSIiV7RCoKkfh//49+j67X8eB6dr3fr+O4yEdOmjlzc3Fx7VvBxfX/ +JznsBA8XFwmleeSr/WxTIREG34Pa/3INw7OswvV/eeFq29Ebqf/Lm/ZKZ595 +SUIzzV3rBXluwtod/tORPGSMHhCP4YlOBIF7BaJCW8mYJGg69UsiDu6bzGyv +PUHGjQ/1xqfHIsFiD2vW9w4Z90l/T1Z6FQ6CL1Qux74jo6ZdaDT5fSh4nzT5 +Z0SIgiMnTt0UIi7Ct3iISNehoGRDvcf24SBwkJELtzpJQdMPtdtDjf3hUptw +9O5MCqrpqe49T/KByqX247c7KRg16pFxcsALcuwK96qtoWLK1Yi9lV/cIVzO ++3m9HhX9zpa2zzGOQdBB4XUVZ6io5OSea+ztBPS6x05j+VQ8u06weoOUI/Rn +E9fPfqbi5BLlHX3BBswq31cbradh+PJaNn2nJTxQsQ6WMKbh38rlLlFfM1Ck +3JM0OkdDeREJZ+lFU7DW/edRWRkNRyLC/htI3wXJnxwUL43Q8OH0jLiKjwG0 +fIhQPyBFx8e5O4a5BHZAGW/LDntTOjZI9xRt6NaBovw+RkswHX2M/Z4WCWwD +h2Ah8dMP6dgKy929hZuB++GGONlJOm7qELj4jaYKFW4rh5kbGVgs9/BreZMC +0Hfz63paMHCq/evhmtdMyMj6cEoqnIGWj1R/5P6kgqTzDfX6CgbmFk6u+/Oc +BLDfbSn7OwMVKm6c4GqWhcCKdek/yEzkb2APv9orCcf3thqePsjEJ4/LRkb0 +xcDjsP0z62tM1AiXid9KXgdOHV3tWM1ElpOznoj0Kljj5zp++CcTg0TvK9z3 +4IfWhJfvR+gsfLtWJutuKzdAn2Frph0L4ffDhojVy0RWZJ6ZcxwLr7VEmQdU +zROkh4OF4c9YyD4r4/wkZYbYu0ZVdGSBhflvBd3+6ZkiYvsPGGcrslFtIr14 +dmKSeCFxeL3bITY+ry2NT6d/IUoDQsaOJrIxsVizj/ftEFFyMCDm2Qs2/nBI +ii7w7Sd6A+IXl5fZWCfu9OtE6ScirbGx9eIYCc+BBsW36AZcC4jjbpUj424g +y99+Eg8Oy/uYzvvJaC/oafnYOwZ4X65JSb1CRiOZD0rFOteg+GqBTmglGW93 +dVVHVoUBIQtvKr+TUXxWSOnIrxAoudhwYAeNggqq3wM3xF4ARqei4FlLCpb2 +3XQYOx8IXj4Jq/ZHUNA9vnzfjJwv/DfyffFMDQXjZAR/G5z0hlJF7PkyTUG7 +4VLHwjJPSK6KFvrDoqLpmVtCY+5uEKL15HiNHRWbQat9XsMZ9kUOVryOoeKx +fV/Mf5QcBp7yxTnV51T8pODo2OBnDzfvCdEH5qloMhlkMHLpIPDOSv6nrELD +XYIvyop2moM3m2+P8lEaxriFP3D/sg/qVUdHzyXT8NyHQ8NDCnvg95oab9mX +NFw5oDk6eGonqH30UXFfpqEiqfbdlTw9gO+bth9Up+PlusJV+44hqHR1bE44 +RseweqGCKovtwJ905p+NaXQ0SvrrplG7FUpSxQ/sbKfjCdsVM1vfqYFDTHwl +mZ+By3ZmYwLuyvDdWkDMWIuBY/+MrxFX3gRHf5+0rvdk4BAlMsyilQ6fLz9q +n7zFwIrIzRrKxhSQt+VKKX/HwOrQgpZ94RvAjk/HtHUlEzOfPr9fe1oavEM9 +p1V1mJgvlSFcrboeTnQlXB45xURDo+cbN98WAVfZVGOTDCbGZh/OnotZDZpZ +txz2dzFxLN74Gz17JUzypTpmCLPwYJZeeXE4L4RpRew31GVhkPDGX8XrV8D0 +A//oy34sDOmImRM3WCScKDu5/PJZeDfris5U/Bzx6IiQ48NeFkZ6xolVZfwk +fvjVFRmKs5FZYCclYf2DUAiyUQk3ZGMRj1A34TlBaDdOLbkEsrH4Q1IUDIwQ +ql/OVSUUsdH+SpvJN5FBwsgtzHBgkI3ylpGZT3J6icFVUxV/ukkYx9sZ2Pom +GV7aX15QWEdG+Ta5VIM7CaDWtZT2UI+MXcNadZ8hFuxWh4wrBpJxu1Bbs/21 +68DtPp7yt4iMfNrf26RrrwBtSiOfMUBG6aJzE3G9lyD291XNBEkKHi61H1K6 +EAwR5Q+ahHdTkPfkNK9H/lk4trNr17sgCqpuVu0qVPSDWJslg757FCynarlS +9E7D1iTBDINhCjJUy738pb3g1vUNhUmyVLS8HXjq0N3jcDlfSkp3HxVP6L+7 +L77JBUam54b0L1FRS8Cq3fT6EUio/KgY+Yjj75Ui6gdaHaCmIKNL6SsV1+fm +7j730BryD/opVVE473f532lXXQsQV1QeuWNFw6oDpzcey98Pv9mtywMRNJzL +2nPn1zUTYOV4JB6rpWEO23TN1hAjGP74RWlumobWSe7yRyL04fKQzcMOOh13 +JDns1FXTBW/P15W/bejYm5vW3BGjDd0kecqZKDpaeB9c+feTBghERav3PKPj +IeE88QuV6lBC/ZCVPk9HK6X0qC1uKvCuXyCoQoGBn7drT5/3kQd98vaXUkcY +GPVvTsnbRgboSuyiXEpgYLNwoH67DBXIfcYu2i8YqJ+qdfMKFwlM5Q8wtBYZ +WHbJVXtvsgzMpoNRrDITV/hoL5lpScBEvMqIgjMTjzqMBDt5isJxYvHK2xtM +fGlR6qA8sAbaqqukmpqZ+Ka+fba8SxDO11yk83CxUDqNz63rDB/kjsonJKmz +8LmVX+H4xApIbuktXH+chaoL62J/3vpL8Hb5s7+ls1B8cO1n1p3fxFfhOX5S +Oye7/XUwTvlFkOoDHJME2KijPTHbKjFFfFbqrJbUYqOPcLuqYtZXIuQkW2js +BBvfM+nfZf6OEt6qwe2Lt9l4ONCGdnVykFjsu+D+toNzX8wqxOlWH5EwdZ08 +NcXG2lnLn4a0z0SY4uUSzXckNOHTqrjrmgLfXp337REk4zMVfmcbyURIe9bR +2adNxjdqUyRaXiyEF24X8ztNxhmrcxUbNSOhwFbQ6HEOGesKPKTlDcNBwm6z +lN1HMlYSD8adrUOB+/7EJh0RTt/IqDwR3RMMVbQ/uR16FOzZlNp82zAIBlQW +xtb7UvDyjO6Jicd+EJFw+XhiPgV9NCRrUkpOg/9uzyunP1MwzcN6e12QF2T8 +cj4/JE5F+sjRzEx9d+A/+tyTezcVua5lltCzXeAePWThfBAVmY9tD0/9PQKf +iJZGrVIqtvwKqNsfdAj25Z1SsximotMfRuOgpQ0sCTJ9ueVoeCTatrq6zgKG +lfTL7PbT0DFN4+2ttWYgmlVzbX0oDc01X5h36ppCrc/zrNWPadjw7uK232t2 +AWFHU6r+SkN7od8PeZb0gdXrfUZ8Ix2PSmzsOpSqC3EVJst55nRU3punkaeu +A/ojl2m3rtCx6+76kkgvTVATeEll1XB8nS7Bp6++Gawnz8rZ/+T4vbbVb1WD +CjTQw0t+0BnI+ljcK/6PAtwvJ12pt2VgKdyyPGDMBG8HkWaTKAYupCvIiIRR +Ie3OVOuFWga2med8lTxCAkPCQXRqhoGpWfc0ApVlQVOB9bOWxUSRc+SS4/US +kHfqvMRrByZO7dos4NMlCl9fKWQlxTLxeVTV3JGYtZDc1DzD+4yJFhJD00u+ +QtAgM3OldJ6JJWTffa4/+ECrJqi8RoHja3Nf0+823PDVQqza3omFF57q+cpa +LBEdpSI1ucksrLzf5v9ccZ7gP+JhY97CwhL352XLkjPEI1eLbcQKNno2mnz8 +6D9FaIYnhvaqs/FblcCnPTsnCZre82iWCxs/KT+w/Td6jIizuNhTksrGrsaI +UZ5DQ8T7tMW/LW1sHBY1JjSE+gnPQsH7X8bZuGEPo5o09Jl4vGVd9O/fbDSK +t84Rd+shDhKv5Dtfk3Blt4G5U3kKLIWfvV/OT8ZkD8OIj2aJ0K6le+bMNjLG +ZfAwtPpiIf1ccrasFxl7PBaz+WIigeud1H/JmWQsjDgQaRIRDjGxpW2znWTU +Ors2xvlGKDyOlcsQWUNBaR+9qfDVF8HC7h+Zx0jBpa/0d8GJQXCLfu3RA28K +Pmt8y27h9ocw1abFkzmcvuK057LO2Gm4mUEKEPpIwfwtRLxxsRdk5QgeuyZC +RZ2u7g3lSe6ws1ZWZtCQig+y27PKR1xAAnbyyQVQMe92TViDhhMEc+kliRRT +UUj2VWJjxyGQYh88NNZPxZio8n6BHBvIGVhKyZSiYd3K8dlIXktoK25L2WZK +w7RmTd64HWZAGnr4piiYhh2B5Q3H001B2PZUcd8DGqbuzzK4YrkL3NOeKt76 +wvH9KffcF5oGEPjp/LsyWTo63ZuR7X2tC5RDwuTQ/XRMm9+26WSYDswblWVu +CaUjZKm35VVqQmP9ROrLx3R0y5Tm3uq1GZTMTKy0f9BRXXjvLa0ZFajd2bj7 +OoWBS20p/gPeCvD1gthQ8kEGir4zc8mLZMK1kJl/1K8xUK+g8HRsFRW6L+kH +k6sZ6PLrq15NPAnqXjiFt04zUGVCu2pfkCx88E5rPEhnonmUnpWaoCREOGYW +3bZl4tsrJDPHNWJQIGWwxT+KiWlhNUMTY2vh/Kv9Q3dqmahq3x8c+UIIxhuV +tkXMMtHx6tbGciV+uMSmN5ixWVimlXTWO54bJGQLn61wZCFJ0T+hsWSJIEgO +4VcSWYgnEl0rfeaJ+Ous0G8vWGii9nUu6OAMEbq9ni66xMKVZsOh5XlTxND9 +X8fqVdi4i7dKXzllkphViG9vPMJGuQs1LQrdY8Sd0RWDEckcXz+WqShNHiLq +F7R2GrWwsb+mMU8O+wnbVUZ/nUfZ2NunVdBh0Etkx5t2+cywkU+kukSmoYdo +7XxjELTIRlrrlx2qq3uIp4Y+boxXJMzhe2gg/SkFwoYD3pL5yHj3gHlCt1ci +fJ2ZrX+iQUbd1bNvQ/7EQu5ww5SHJ+f9C/5WtK2KhE0xt5oFMsi4bfuWjVkF +4bCnYIqt/56MgU0b+/MfhEISV3nfWWEKNjVa5j6iXwSKv5KZAlBwG3311R3V +QbD83wGSwCkKikWfOyTM9AdergmDniwKFpm4Ku3m9YG8N/NTFh8o6BWtz2xu +9ILsENuPn9dS8dSHbWrSte7g+q3h5AEDTj+XXLas5T8GTS25Ecf9qLh6O21u +2twJzPqXFoMKqTh48ez1UyscIci1ZUa1j4p/iv6enHttA3/bxuXnJGh4U+jS +tVq6Jez4IbY6Zw8N/WamHNHODBiX7vv8OU9D1X8DAje8NAU10xfqu8s5fhdP +1E8N3AUh2jGFImM0NB43Uj9maQCUj7yhPDJ0TBbSiP04oQvj9ybu/dhLR4rW +hBe7RAfMF3a5BIfQcWJh7dPofk0Qo/yxIlXQkWt11OufUZshmffBr/xvdGyZ +cR3gWa0KVQfHJLtJDExUjDCQT1eAlcPX43isGLjOiZkpV8yE5ITRF5lXGXg4 +lxQv1EUF/1+T1t6VDJRTs3rSVECC4OsuelpTDPwZVWW0+q4sbEqyLMugMhGD +4jRdFCRhofNRoJANE/sLKjVi2GIgrPNmcew6E3cZNWY3CK0DL7PEj1M1TEx9 +TY5U+SEEi/+1iMz+4uzTfcnVG0z5gXUooC2NyUI1l07lmWJuyPsb0HjAgdNX +5hfe8/cuEdOWoR6z8Sz0UZ7bfjF5nugm86dsb2BhMLXfiS9ghhinLcgGLbJQ +yeBoUmf9FKFlnGG9RZnN2W+Car51k8Rn8sJPqcNs5F+e39a0PEbkqdQNzyWx +cW2KksGL8iHiMbvbPayJjW8cbirste0nzLRGyRnDbLQebG2m+vUS6XWTi6U/ +2Vgz2PN61UwPUc9/6vjjBTZ2Nhl2L2n1EO9z1MjEEhvP18icyu/9RMw2G640 +bSOhgJr716vfU6BZbH7AipeM1lKHX3+5kAiBb/dPDG0lY9FIe8lWwTgokv4s +ccODjNq49Ul6eySg51FHuEvG7MifNkPV4ZC3LbbzeAcZ439ubnRsCAVezRXL +JasoqFn81KpH9SKs5NfwdCYouFa1YJ3mmyBQ6tEwV/ai4Lx64Wndbf6gP3p2 +XIzDw9LgkT2HRH1AzdWl6GwXBW3mufmSO7wg52Ro4koODySj7oCBd+7gfznt +5jV9KjZGXfR7L3EMKKK2L2N9OftUsac+xckJqt7YlZQWULF7QIT2TNgRlFby +PbXspWKnjdnTsGEbYD3v+7WRw8MQl3/Cia2WEBTzwLDXmIb8W49K0N3MIK9d +rYHM4UFbjsUdP2QKDTunZ87fp+HOm0sXH13fBZHX/Tx2j9Jw96XrZwydDcC3 ++4WtvDQdTcquyLrN64Kpre0Cg8ND7e+mfLnnOrDiQGJD5kU6ljTxL9z4pQma +b7gf7HpER3PSlODR9M2cfXW8fnCSjjfrtHlmpFRB67D/EheHB8+OFKuxMgVI +utH0RdOSgcn2N6JHnzAh/d8+ud5wBv5NuOvbMUyFxoK6hpuPGfivS2uufQUJ ++r6Nkk79YGCr1TR38ANZaM8uy2mmMPHjG/N94oQklMbX9RHWTE5fTy7dqiEG +2ntvOJI5PBQZ/ilbWL8OxsU0rKQ5PAydUFRM4V0Fl1fJLMlzeHjitWJg0J4f +FgLutj9lsFDII/ybYQ03/PJ0bA6yZ2EcO0sUZ5eIPd6SfYocHiRNNv/xzZsn +zn31oR55zkLRTxsU7a7OEGkp6yXv/WFhvIQLr+/rKcJFIsjMU4mNyuVN25Q7 +JwmztEJeXUfOPg0ReFYg+oVQsqAcU+LwcERXY9Lx2RCx5Sn7fGYjG9kjled+ +u/YTL99s3Vw/xOlHI9zzo9G9hLSNztr2aTYu1oXL3BL+TBDptUEf5tlYwe1Y +xmXWQ+zHEHX7v2zMF7dzdZ79RNiIDK7ZuMzhI1huL0/TJ+LuCxUJpSf/+7/8 +P2spUo4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.026716109200381675`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dYj90fwPGkoWQ0tB++e2gXSnR/PmmIFNLQFCklJUlLSEKiPRQ9PUZ7 +K6EppbSESIm0hwZKQ0n9vr+/zvW6znWu8z7n/HPf5GOnTRy5ubi49q3g4vr/ ++PCVsrjicxJKrZSr8LG+C5v3S6Wfe01CE409GwRW3oHZRv1Vxi0k5Fd1Hb/x +IxFe6Hu5MN6QMIP3qZ7Ul0Q4TLyRa39LwlWdeqYOxYlwTeFqgcYHEhrxapY8 +dE6E/tWTJX86SRjN0+7f/C4Bkurrmy+PkPACqFO8827Dul2+U2EryRjRJxa5 +MiIOGkXn+yx4yGgpefTtt0txcG3Q7z2Zl4wPD5nGdnrEwVLI+cfFfGRMcNMP +/WwSB9/fXPTuEiDjS2U+RyuJOHhte3VBfj0Z5Vpk7+o9iIWbftHczbJk3Atk +ufvPY4D/UY6I4DYyxgsYT06LR4P/+4NjAxznDbUWbBOIhvGZ2Zrn6mTUXjP7 +PuhPFLRqap87t52M0SkrGZo9UZD0sq29ZycZ36lOkmhZUaDasZT0VIeMHYOa +1V8hCuyWDzAdD5LRVsDdvNQzEh4bzeyoOkXGTU91RqdGwiBP6qv4bTcy7sRt +z5NbwyBzsG7SzZ2MXQK/FazLwyD5QkK6jAfHbovpvJFhEJK7Q9TnLBlnLC6U +bNIIA5s1QaMK/mTcIdjSaHvzFvC8Xpt49zoZDaQ/KeZr3QSzfaxZ7wdkPCD1 +I0HxTQig+3F7eEjG9LBfVgMVIbA58l4jfwoZt+/YuiktJwS4Pkj+l5BKxtzQ +Q2FGoSGQYy1gUJpBxuocNyk5/RDgdh1N/JtHRt6dP1qkqq5D/o0creAyMt7v +6KgIK78GAq+Ur0Z9IKOGTXAE+WMwZG2Paj/ZRsaYX1vq7euCYV/OJFv3Ixn9 +Gzb1Zj8JhsiowpbZdjJqnl8X6Xg7GMRttkjafCZjGfFk1NEyGGiT6tmMPjJK +5V0Yi+6+AoQMvCv7QUaxWUHFY9NB4Hna6J8hQQoOnTpzR5C4DDwaK5YLVlNQ +I/+FRZfKZYjnKu45L0TBhnrzzGf0y1AaJZsivJaCUl46kyFrLgP347HNWsIU +NE4pOxXRFQhRv29oxEpQ8Gih7YDipUAouFx3aBeNgvIqP/w3Rl2C7zEQmqxF +QYm6GrcdgwGwik/d3ZGg4DqVnPUa7wKA4qtoIg8U3E5fc2NXRQCY2fwjXYoU +XBqnfwiMC4By2p/MNh0Kdm2+23hfPwBCi580CO2lIM/pKR637PPAaFcQOG9O +wcKeO3YjF/3BTlo2xOI0p+9T1Y5gQ19Q7FI3VfKg4Lxa7lnt7b6w/N8hEv8Z +CopGXDgixPSFe/Sbz554UvBl/Xt2E7cv9CkvjGzwpuDVGe1TY6U+cGJ3x54P +ARRU2aLSkavgAx5esasPhlLQNab4wIysN1xpEYrYm0pBVR2V/RdJXqA7fH5U +NI3T339s3xERL+DhGtPr4jjPyFlxL48XXFNpWDydwVnvsO+q1shZCI29ejIu +m4Je6hKViQVnIcpqSa/nEQWLqZrOFJ2z8N/Qj8VzlRSMlhb4rXfaE8qWWk/e +b6dg+LBbyuk+D1B1dso730FBq3lu3oQ2D8h6Nz9p9omCHhG6zMZ6D7iTQvIT +/EzB7K1EjGG+B/judb9+9isFk9wsd1QHeMC2eIEUvUEKMlSKPXylPKBQAbu+ +TVHQZrDQPrfIHTJscverrqVi4o3Q/WXfXCHjdHDcqnVUJBl0+vV9cIX0IOvP +Xzk+82m7qlSVK6RlCJy4KUxFrY7OjcXxrpAy7XhxQIyK9KHjqam6rnDv1sbc +eBkqmt/3P3Pk4UlIKI8Q/MOiovG5e4Ijri4QIutZW6NDRZ/zha1zjBPgezXp +zk1dKtaHX/b5KH4CnL/XnT6kR8VGiWXzKr4TsLtKRrpfn4pP0lvTioecgO94 +rTv3Xipy3UwtoKc7wdVsSUntA1Q8pfvhsdhmJwjSfH6y0oazHjRb59UdIeCw +0PqSc1RUdHDNNPR0AIqI9esobyp+UeiqSXRwgIamzNCTPlRcs4M2N2XqAOKw +m1fWj4pZ9yuv1ak7wCN60MLFACoyS62PTv49BkNTcwO6V6ioyW/RanzrGBwI +6y95G0nFEwe+mf4sOAr06lKHkWwqnl8vULFR0h7K39kUFOZQsbNPmPZSyB5M +epcWA3Kp2H/5/K0zK+whkEsnXjifioIyb+Lq247AF6KpXrOQik3TftUHA45A +bNlnhbBnnP5VwmqHmu1gZfHinEotp1/e3r7OxxZ604lb579ScWKJ8oG+YAWK +q3hfmHdTsd3K5MW1QSsIcG6aUemh4p+8v6fn3lqBJPvwkZFeKkaGF/fyZ1jB +gawzqmaDVHT4w6jvN7eCypyUDsVxKm7IzNx74akl3HkkSO+bp6LRRIDe0JXD +YFL2scJgAw1Dltex6bvNgVXbM71JnIYDXL6xp7aZw9+WUbk5ju8IXrlZRTeH +jL6lxFRJGlavGp0N4zGHJQGmN7csDY9FWFdUVJtB9mEfxXIKDSOX/51y1jYD +nlmJ/5SUabhH4FVR3m5TeKJsGShuSMO/ZcsdIt4mEBD5RL+bY75tx8XpLiaw +66fomox9NPSZmbRHGxNoyW9J3G5Mw6RGDZ7oXSYwqKhbZHOQhvZJ6u/vrTMB +MQWloQcWNCw/dHbTieyD4Mnm3ad0nLO/S8gT128HQIHySMLgAg3lhMUdpRaN +IatVtY58kYY7ZVncMQPGwLjy2OsPxyr/+vlvfG0MpIGn7/ICadjmX1x3MtkY +RNIqb24IpqGpxivTdm1j+M1uXu4LpeFc2r4H0zeNoEZlePhCAg0vfDoyOCC/ +Dyy1/3lWVETDodBr//Ul74G63VMzFx/TcPedpcvPbu0BVeNXanuLaWgrFqd7 +138PCFmfye95QsO7B9P0rpvvgSqv2rQ1pTSs+3B5+++1e4CV4RZ3ooqGGWzj +tduCDOD32kpPmdc0XNWnMdx/ZjckfLFTuDJEw6dTM2LKXnoQdsvHbe8wDfde +uXVO31EPgnZG5gqP0NBw1EDthLkeuCa9ULj3jdN/xjXzlYYeEDY0xYpxTo/g +76crl3Rh8PM3xbkpGlrGu8odC9UF1c9eyq7LNFQgVX24nqUDTZ9C1Q5J0rE0 +c9cgF/8u8O58ZS0nRUejousyLvPaQPnME7xSmo4JgupRn8e0wf/LxQ9FMnR0 +eDQj0/1WG1jdnufENtHxuPimjiN3teHqgNXTNjodd8Xb7dZW1Qb4sXnHYTU6 +Xq3OXX3gBEIRT9MuW2M61kl15W3s1AJja+sFxn46Vv1uyJat1YLRR2OPfnJM +0RzzYBdoAeWIEDn4IB2T5rdvPn1NC6JLjJazTOmotD9LPUtNCzzd35b9tqJj +d2ZSY1vkTlDuaNsSe4KO12oEc8rNdkBedg+jKZCOXoY+L/L4t8OKQ3F1qZfp +WNDAt3B7WgNMF/Y4BQbRcWxh3YuIXg2YNyhK3RpMR0hTa8kq0wDdoau0e9fp +2PFwQ0GYhwZ0kuQo58LpaOZ5eNXfL+rAF3/un01JdDSI/+uiXrUN7AIFxc4+ +pWMzLHd2524BjXfcT/Y8o6MpaVLgePIWEKX8sSCV0JFrTfjbX+FboL5m7O7r +Ujq6pEpxb/PYAqr8r6msSjqeShbn1VXbAvzhEWpdL+l4RChL7FKZGhTcFTu0 +u5Uzb71iZtsHVeB+ujFaZoKOm9v4L3+nqXC+H0/W9HN8p3rnyhlJFUjgeTKd +/Z2OTTPOfSvXqICiiZHFzp90VBPaf09zRhksJ87L2v7i3FdVs8/qOmUooH5K +S56no4VicvhWF2Wwi4wpI/MxcNnGZITfVQlKXFYNMjcxMF/26XhxgzxoHvVd +4iIx0L0t0WKkSB7KD49IdHIcpxCqJ5csD1W76/feojBwqSXRt89THuroIQU/ +6Qxkfc7vFvtHHj708geUyDPw646dUxe95OCHJb+ooSYDR/4ZXSumtBnoe/m0 +3c0YONk6frTyLRPibzd80zBnYILt7Yjh50xYNXgreqUFA9c7MFNl85kwfkl0 +IOEwA0U+mDhlhTHhcTHpeo01AwvhnvkhQybokne8ljzGwPB/Mwre1zPg+O/T +ljXuDByghF0za6ZDStqnM5IhDDR/pvIz8xcVkv/tke3m+G/sQ++2QSokxA6/ +Sr3BwKOZpBjBDircDJr5R+0mA3Vycs9GlVPB00640SicgQvJ8tLC16igLb6H +ciWWgY1C/rqt0lT4evVZ68Q9BpaEbVFXMqSAhONttZoSBmbmTqz/U0uC+pzq +ujulDPzXqTnTtoQEvtMTlp5lDJRVtXjekEOCziu6geQKBjpNj+tUxpAg6cFk +86UqBraYZoxLHCMBucfQaecrBure1bxznYsEctZcicUfGFgRnNN0IGQjwEGX +pfQfDJQvuX2Kq1EGer4Pk878ZGCzxRR34BMZCLzlpKM5ycBf4eUGax7KQPUr +h5DmKQYqj+0sPxAgA/qEncjkDAPvpj1S91eSAWO5QwzNRQYWXXHeuT9BGmx4 +tYybVzEx9UXt46qzUuBfsj75J5mJfHXswTf7JaA1vSijkcLEz+9MD4gRErA5 +3rwohcpEDIjWcJKXgE+eSfWH6Uw0DdexUBWQAA151q8qFhOFL5ALTtaIw2wy +GEQpMXGF184lE01x8Ax2n1LRYmK2ZIpQhcoGOLm/Wf/sYSY+Ly0aGtIVhcKY +6h7CkolSSQmF29RFYaH9mb+gFRN7c8rUI9miEGqfmnffmonvr5NM7NeKQtaZ +i+Jv7Zg4uWcLv1eHCIzFKA/JOzLxuN1QoIO7CJzqiL06dIaJ+ga1m7bcFwa3 +o7YvLW8yUT1EOmYbeT3s3H/bnnyLiXn6f4oWNqwHIa13iyMc7zGoT68TXA85 +knpbfcOZmHStcmBsZB2Mv5FPi49iYm14+dyxyHVwkli8/v42E1+bFdop9a0F +Z5m7hkYpTIxKP5o+F7kGHNo6WrGCiSwHRx1hqdUwKqpuIVXJxIFTCgqJPKvB +wyTu8yTHd9+Sw5R/CsLFNwcHHlQxUcW2NzDslSAkNDTO8Lxkopn4wNSStyC0 +VJRLNjQy8V1N62xxhwBopN2zO9jBxJEYw+/09FWw1sd59OgvJgaIPJZ/7MYH +V1dLL8lNc+7XY0Vfvy0fLP7XJDzLsfqBhIqNxnwwWq+4PXSWifY3ttUXK/JB +nfTM9cJ5JhaQvQ84/+SFi5WX6Su5WJz34HXpOMcLE7x37VOEWHg4Tac4P4QH +mmNffxyis/D9Oum0h83csOD3sPUFg4WCbiHf9Su5gXXEryWJyUJVp3almXxu +uMKm15mwWVikGX/eM4YbNCsDiivlWRhg6m38w4obMoflYuPVWFhr4ZM7OrYC +rmmGHtTX5swLbZrO37ACoEe/OdWGhfD7aV3ommVi2t2+McCWhdHsNBGcXSKy +/vrVH7Jjodj8wke+7iVCXCb35Qp7FpIUfGPrC5aIcTPRClsHFl56oeMtY7ZE +JDR15244yUKVhfVRv+79Jaae+EZc9WFhUFvknJjeIpEWlmXiGM3Cm03hpn7l +88Q+T4kehRgWShht+eOdNU9MmQe7zXLspTS343LCPEGQ7EKux7EQT8U5l3nN +E22FwpWZCSwse9ziW6swT/B0+LK/J3P6+td9ZT34TThQdnP5ZLPwYdp1rcmY +OYL0tD835CUL2eelHZ8nzhAXxr2ox2pZKPJlo4LNjRmik8yXuKOOhYHUXgde +vxki5hYr+PsrFhqpjs8FHJ4h+I65WZk2sbDAtbZoWWKGGBea4yO1cvZz+Wtn +mDhNPDsmaP+0m4Vh7tGi5Sm/iP1rVUSGFliY/V7A5Z+uSSIpcYPEoz8sjBF3 +4vF+O0mM0hZkAhZZqKh3PL69ZpII3lFDF1li4SqTweDirEnimbPZdmIFG93r +jT5/9p0kSDV+9vH8bNTaOTbbLD5J/PSpztMXYyMzx0ZS3PInEdV7yDBdgY2q +Y8n5s2MThJN4gIm7IhuVihu2K7VPEJqGKZZbldic/1MBVe/qCWLg8fSJGmU2 +7uEp11VKnCA0QuKCu9XY+L2c/8u+3RPEV8X2CglNNnoJtaoopI0T8gFWyiH6 +bMxbKdhJuI8Rr8SPbnA5wsbaqsKYZPo3wiQpl0fbno22Qfwvc0S+EV/JC78k +j7KRb3l+e8PyCDErH9Naf4yNspcqm+Q7RwiaTm0Ey4mNX5SeWP8bMUIEnWYL +jpxi40cm/Yf032FiZ/3kkpM/G/M/xYdD3xBR6Bc0cjyOjXH5Gj087wcIRTPK +CcV4Nh7TVp+wfzlAZClXD85xvC5RUe9V8QDxYHhFf2gCG6tKpUsKEwaIaLPL +XQV32dhRHzq88sgA4akS2Lp4n41H/a1oNyb6CZVvF8pj8zj911uMvgv3EwWH +/SJfvmLjT7v4iBzvXmLrC/bF1Ho2sofKLvx27iVK2Z2u1xrY+M7ujvx+616i +ZkFzt0ETG3sr67NksZf4mLT4t6mFjYMihoS6YC+x2HPJ9X0b5/1ELYIc7vUQ +Bi7X9Pv62ShnHpb6PKObeP1u25aaAU7fEPf8cEQ3YaI5TE4ZZKNlf3Mj1aeb +sF5t8NdxmI3dPZo5bXrdhHuuwONvo2zcuI9RQRr4SsRO3iJPTnLOO2v+S5/2 +lZCy0lrXOsXGxeoQ6XtCX4nk6onFwl9srOzvert6potIjzHu8JphI69wRYF0 +XRdRunV9xO/fbDSIscwQc+kiiOSqgE/zbCzhti/iMukiavjOnCxdYGN7g37n +kmYX0dz+Ti9gkY205m+7VNZ0EQcxSM32LxuzxWycHWe/EB8zVMnEEhsvVkqf +ye7+QlgJ96/dtMxxoOz+lQ1fiG6/mMVljqvFHKZPFX4h/gfHkzsp + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.026716109200381675`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dYj90fwPGkoWQ0tB++e2gXSnR/PmmIFNLQFCklJUlLSEKiPRQ9PUZ7 +K6EppbSESIm0hwZKQ0n9vr+/zvW6znWu8z7n/HPf5GOnTRy5ubi49q3g4vr/ ++PCVsrjicxJKrZSr8LG+C5v3S6Wfe01CE409GwRW3oHZRv1Vxi0k5Fd1Hb/x +IxFe6Hu5MN6QMIP3qZ7Ul0Q4TLyRa39LwlWdeqYOxYlwTeFqgcYHEhrxapY8 +dE6E/tWTJX86SRjN0+7f/C4Bkurrmy+PkPACqFO8827Dul2+U2EryRjRJxa5 +MiIOGkXn+yx4yGgpefTtt0txcG3Q7z2Zl4wPD5nGdnrEwVLI+cfFfGRMcNMP +/WwSB9/fXPTuEiDjS2U+RyuJOHhte3VBfj0Z5Vpk7+o9iIWbftHczbJk3Atk +ufvPY4D/UY6I4DYyxgsYT06LR4P/+4NjAxznDbUWbBOIhvGZ2Zrn6mTUXjP7 +PuhPFLRqap87t52M0SkrGZo9UZD0sq29ZycZ36lOkmhZUaDasZT0VIeMHYOa +1V8hCuyWDzAdD5LRVsDdvNQzEh4bzeyoOkXGTU91RqdGwiBP6qv4bTcy7sRt +z5NbwyBzsG7SzZ2MXQK/FazLwyD5QkK6jAfHbovpvJFhEJK7Q9TnLBlnLC6U +bNIIA5s1QaMK/mTcIdjSaHvzFvC8Xpt49zoZDaQ/KeZr3QSzfaxZ7wdkPCD1 +I0HxTQig+3F7eEjG9LBfVgMVIbA58l4jfwoZt+/YuiktJwS4Pkj+l5BKxtzQ +Q2FGoSGQYy1gUJpBxuocNyk5/RDgdh1N/JtHRt6dP1qkqq5D/o0creAyMt7v +6KgIK78GAq+Ur0Z9IKOGTXAE+WMwZG2Paj/ZRsaYX1vq7euCYV/OJFv3Ixn9 +Gzb1Zj8JhsiowpbZdjJqnl8X6Xg7GMRttkjafCZjGfFk1NEyGGiT6tmMPjJK +5V0Yi+6+AoQMvCv7QUaxWUHFY9NB4Hna6J8hQQoOnTpzR5C4DDwaK5YLVlNQ +I/+FRZfKZYjnKu45L0TBhnrzzGf0y1AaJZsivJaCUl46kyFrLgP347HNWsIU +NE4pOxXRFQhRv29oxEpQ8Gih7YDipUAouFx3aBeNgvIqP/w3Rl2C7zEQmqxF +QYm6GrcdgwGwik/d3ZGg4DqVnPUa7wKA4qtoIg8U3E5fc2NXRQCY2fwjXYoU +XBqnfwiMC4By2p/MNh0Kdm2+23hfPwBCi580CO2lIM/pKR637PPAaFcQOG9O +wcKeO3YjF/3BTlo2xOI0p+9T1Y5gQ19Q7FI3VfKg4Lxa7lnt7b6w/N8hEv8Z +CopGXDgixPSFe/Sbz554UvBl/Xt2E7cv9CkvjGzwpuDVGe1TY6U+cGJ3x54P +ARRU2aLSkavgAx5esasPhlLQNab4wIysN1xpEYrYm0pBVR2V/RdJXqA7fH5U +NI3T339s3xERL+DhGtPr4jjPyFlxL48XXFNpWDydwVnvsO+q1shZCI29ejIu +m4Je6hKViQVnIcpqSa/nEQWLqZrOFJ2z8N/Qj8VzlRSMlhb4rXfaE8qWWk/e +b6dg+LBbyuk+D1B1dso730FBq3lu3oQ2D8h6Nz9p9omCHhG6zMZ6D7iTQvIT +/EzB7K1EjGG+B/judb9+9isFk9wsd1QHeMC2eIEUvUEKMlSKPXylPKBQAbu+ +TVHQZrDQPrfIHTJscverrqVi4o3Q/WXfXCHjdHDcqnVUJBl0+vV9cIX0IOvP +Xzk+82m7qlSVK6RlCJy4KUxFrY7OjcXxrpAy7XhxQIyK9KHjqam6rnDv1sbc +eBkqmt/3P3Pk4UlIKI8Q/MOiovG5e4Ijri4QIutZW6NDRZ/zha1zjBPgezXp +zk1dKtaHX/b5KH4CnL/XnT6kR8VGiWXzKr4TsLtKRrpfn4pP0lvTioecgO94 +rTv3Xipy3UwtoKc7wdVsSUntA1Q8pfvhsdhmJwjSfH6y0oazHjRb59UdIeCw +0PqSc1RUdHDNNPR0AIqI9esobyp+UeiqSXRwgIamzNCTPlRcs4M2N2XqAOKw +m1fWj4pZ9yuv1ak7wCN60MLFACoyS62PTv49BkNTcwO6V6ioyW/RanzrGBwI +6y95G0nFEwe+mf4sOAr06lKHkWwqnl8vULFR0h7K39kUFOZQsbNPmPZSyB5M +epcWA3Kp2H/5/K0zK+whkEsnXjifioIyb+Lq247AF6KpXrOQik3TftUHA45A +bNlnhbBnnP5VwmqHmu1gZfHinEotp1/e3r7OxxZ604lb579ScWKJ8oG+YAWK +q3hfmHdTsd3K5MW1QSsIcG6aUemh4p+8v6fn3lqBJPvwkZFeKkaGF/fyZ1jB +gawzqmaDVHT4w6jvN7eCypyUDsVxKm7IzNx74akl3HkkSO+bp6LRRIDe0JXD +YFL2scJgAw1Dltex6bvNgVXbM71JnIYDXL6xp7aZw9+WUbk5ju8IXrlZRTeH +jL6lxFRJGlavGp0N4zGHJQGmN7csDY9FWFdUVJtB9mEfxXIKDSOX/51y1jYD +nlmJ/5SUabhH4FVR3m5TeKJsGShuSMO/ZcsdIt4mEBD5RL+bY75tx8XpLiaw +66fomox9NPSZmbRHGxNoyW9J3G5Mw6RGDZ7oXSYwqKhbZHOQhvZJ6u/vrTMB +MQWloQcWNCw/dHbTieyD4Mnm3ad0nLO/S8gT128HQIHySMLgAg3lhMUdpRaN +IatVtY58kYY7ZVncMQPGwLjy2OsPxyr/+vlvfG0MpIGn7/ICadjmX1x3MtkY +RNIqb24IpqGpxivTdm1j+M1uXu4LpeFc2r4H0zeNoEZlePhCAg0vfDoyOCC/ +Dyy1/3lWVETDodBr//Ul74G63VMzFx/TcPedpcvPbu0BVeNXanuLaWgrFqd7 +138PCFmfye95QsO7B9P0rpvvgSqv2rQ1pTSs+3B5+++1e4CV4RZ3ooqGGWzj +tduCDOD32kpPmdc0XNWnMdx/ZjckfLFTuDJEw6dTM2LKXnoQdsvHbe8wDfde +uXVO31EPgnZG5gqP0NBw1EDthLkeuCa9ULj3jdN/xjXzlYYeEDY0xYpxTo/g +76crl3Rh8PM3xbkpGlrGu8odC9UF1c9eyq7LNFQgVX24nqUDTZ9C1Q5J0rE0 +c9cgF/8u8O58ZS0nRUejousyLvPaQPnME7xSmo4JgupRn8e0wf/LxQ9FMnR0 +eDQj0/1WG1jdnufENtHxuPimjiN3teHqgNXTNjodd8Xb7dZW1Qb4sXnHYTU6 +Xq3OXX3gBEIRT9MuW2M61kl15W3s1AJja+sFxn46Vv1uyJat1YLRR2OPfnJM +0RzzYBdoAeWIEDn4IB2T5rdvPn1NC6JLjJazTOmotD9LPUtNCzzd35b9tqJj +d2ZSY1vkTlDuaNsSe4KO12oEc8rNdkBedg+jKZCOXoY+L/L4t8OKQ3F1qZfp +WNDAt3B7WgNMF/Y4BQbRcWxh3YuIXg2YNyhK3RpMR0hTa8kq0wDdoau0e9fp +2PFwQ0GYhwZ0kuQo58LpaOZ5eNXfL+rAF3/un01JdDSI/+uiXrUN7AIFxc4+ +pWMzLHd2524BjXfcT/Y8o6MpaVLgePIWEKX8sSCV0JFrTfjbX+FboL5m7O7r +Ujq6pEpxb/PYAqr8r6msSjqeShbn1VXbAvzhEWpdL+l4RChL7FKZGhTcFTu0 +u5Uzb71iZtsHVeB+ujFaZoKOm9v4L3+nqXC+H0/W9HN8p3rnyhlJFUjgeTKd +/Z2OTTPOfSvXqICiiZHFzp90VBPaf09zRhksJ87L2v7i3FdVs8/qOmUooH5K +S56no4VicvhWF2Wwi4wpI/MxcNnGZITfVQlKXFYNMjcxMF/26XhxgzxoHvVd +4iIx0L0t0WKkSB7KD49IdHIcpxCqJ5csD1W76/feojBwqSXRt89THuroIQU/ +6Qxkfc7vFvtHHj708geUyDPw646dUxe95OCHJb+ooSYDR/4ZXSumtBnoe/m0 +3c0YONk6frTyLRPibzd80zBnYILt7Yjh50xYNXgreqUFA9c7MFNl85kwfkl0 +IOEwA0U+mDhlhTHhcTHpeo01AwvhnvkhQybokne8ljzGwPB/Mwre1zPg+O/T +ljXuDByghF0za6ZDStqnM5IhDDR/pvIz8xcVkv/tke3m+G/sQ++2QSokxA6/ +Sr3BwKOZpBjBDircDJr5R+0mA3Vycs9GlVPB00640SicgQvJ8tLC16igLb6H +ciWWgY1C/rqt0lT4evVZ68Q9BpaEbVFXMqSAhONttZoSBmbmTqz/U0uC+pzq +ujulDPzXqTnTtoQEvtMTlp5lDJRVtXjekEOCziu6geQKBjpNj+tUxpAg6cFk +86UqBraYZoxLHCMBucfQaecrBure1bxznYsEctZcicUfGFgRnNN0IGQjwEGX +pfQfDJQvuX2Kq1EGer4Pk878ZGCzxRR34BMZCLzlpKM5ycBf4eUGax7KQPUr +h5DmKQYqj+0sPxAgA/qEncjkDAPvpj1S91eSAWO5QwzNRQYWXXHeuT9BGmx4 +tYybVzEx9UXt46qzUuBfsj75J5mJfHXswTf7JaA1vSijkcLEz+9MD4gRErA5 +3rwohcpEDIjWcJKXgE+eSfWH6Uw0DdexUBWQAA151q8qFhOFL5ALTtaIw2wy +GEQpMXGF184lE01x8Ax2n1LRYmK2ZIpQhcoGOLm/Wf/sYSY+Ly0aGtIVhcKY +6h7CkolSSQmF29RFYaH9mb+gFRN7c8rUI9miEGqfmnffmonvr5NM7NeKQtaZ +i+Jv7Zg4uWcLv1eHCIzFKA/JOzLxuN1QoIO7CJzqiL06dIaJ+ga1m7bcFwa3 +o7YvLW8yUT1EOmYbeT3s3H/bnnyLiXn6f4oWNqwHIa13iyMc7zGoT68TXA85 +knpbfcOZmHStcmBsZB2Mv5FPi49iYm14+dyxyHVwkli8/v42E1+bFdop9a0F +Z5m7hkYpTIxKP5o+F7kGHNo6WrGCiSwHRx1hqdUwKqpuIVXJxIFTCgqJPKvB +wyTu8yTHd9+Sw5R/CsLFNwcHHlQxUcW2NzDslSAkNDTO8Lxkopn4wNSStyC0 +VJRLNjQy8V1N62xxhwBopN2zO9jBxJEYw+/09FWw1sd59OgvJgaIPJZ/7MYH +V1dLL8lNc+7XY0Vfvy0fLP7XJDzLsfqBhIqNxnwwWq+4PXSWifY3ttUXK/JB +nfTM9cJ5JhaQvQ84/+SFi5WX6Su5WJz34HXpOMcLE7x37VOEWHg4Tac4P4QH +mmNffxyis/D9Oum0h83csOD3sPUFg4WCbiHf9Su5gXXEryWJyUJVp3almXxu +uMKm15mwWVikGX/eM4YbNCsDiivlWRhg6m38w4obMoflYuPVWFhr4ZM7OrYC +rmmGHtTX5swLbZrO37ACoEe/OdWGhfD7aV3ommVi2t2+McCWhdHsNBGcXSKy +/vrVH7Jjodj8wke+7iVCXCb35Qp7FpIUfGPrC5aIcTPRClsHFl56oeMtY7ZE +JDR15244yUKVhfVRv+79Jaae+EZc9WFhUFvknJjeIpEWlmXiGM3Cm03hpn7l +88Q+T4kehRgWShht+eOdNU9MmQe7zXLspTS343LCPEGQ7EKux7EQT8U5l3nN +E22FwpWZCSwse9ziW6swT/B0+LK/J3P6+td9ZT34TThQdnP5ZLPwYdp1rcmY +OYL0tD835CUL2eelHZ8nzhAXxr2ox2pZKPJlo4LNjRmik8yXuKOOhYHUXgde +vxki5hYr+PsrFhqpjs8FHJ4h+I65WZk2sbDAtbZoWWKGGBea4yO1cvZz+Wtn +mDhNPDsmaP+0m4Vh7tGi5Sm/iP1rVUSGFliY/V7A5Z+uSSIpcYPEoz8sjBF3 +4vF+O0mM0hZkAhZZqKh3PL69ZpII3lFDF1li4SqTweDirEnimbPZdmIFG93r +jT5/9p0kSDV+9vH8bNTaOTbbLD5J/PSpztMXYyMzx0ZS3PInEdV7yDBdgY2q +Y8n5s2MThJN4gIm7IhuVihu2K7VPEJqGKZZbldic/1MBVe/qCWLg8fSJGmU2 +7uEp11VKnCA0QuKCu9XY+L2c/8u+3RPEV8X2CglNNnoJtaoopI0T8gFWyiH6 +bMxbKdhJuI8Rr8SPbnA5wsbaqsKYZPo3wiQpl0fbno22Qfwvc0S+EV/JC78k +j7KRb3l+e8PyCDErH9Naf4yNspcqm+Q7RwiaTm0Ey4mNX5SeWP8bMUIEnWYL +jpxi40cm/Yf032FiZ/3kkpM/G/M/xYdD3xBR6Bc0cjyOjXH5Gj087wcIRTPK +CcV4Nh7TVp+wfzlAZClXD85xvC5RUe9V8QDxYHhFf2gCG6tKpUsKEwaIaLPL +XQV32dhRHzq88sgA4akS2Lp4n41H/a1oNyb6CZVvF8pj8zj911uMvgv3EwWH +/SJfvmLjT7v4iBzvXmLrC/bF1Ho2sofKLvx27iVK2Z2u1xrY+M7ujvx+616i +ZkFzt0ETG3sr67NksZf4mLT4t6mFjYMihoS6YC+x2HPJ9X0b5/1ELYIc7vUQ +Bi7X9Pv62ShnHpb6PKObeP1u25aaAU7fEPf8cEQ3YaI5TE4ZZKNlf3Mj1aeb +sF5t8NdxmI3dPZo5bXrdhHuuwONvo2zcuI9RQRr4SsRO3iJPTnLOO2v+S5/2 +lZCy0lrXOsXGxeoQ6XtCX4nk6onFwl9srOzvert6potIjzHu8JphI69wRYF0 +XRdRunV9xO/fbDSIscwQc+kiiOSqgE/zbCzhti/iMukiavjOnCxdYGN7g37n +kmYX0dz+Ti9gkY205m+7VNZ0EQcxSM32LxuzxWycHWe/EB8zVMnEEhsvVkqf +ye7+QlgJ96/dtMxxoOz+lQ1fiG6/mMVljqvFHKZPFX4h/gfHkzsp + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJxFmGc81+37xmVGGkb2Xd89sqlIfM5TRkpUMjJTIhJJslJJkpQ9Im53w96R +SkaiZKVSIiV7RCoKkfh//49+j67X8eB6dr3fr+O4yEdOmjlzc3Fx7VvBxfX/ +JznsBA8XFwmleeSr/WxTIREG34Pa/3INw7OswvV/eeFq29Ebqf/Lm/ZKZ595 +SUIzzV3rBXluwtod/tORPGSMHhCP4YlOBIF7BaJCW8mYJGg69UsiDu6bzGyv +PUHGjQ/1xqfHIsFiD2vW9w4Z90l/T1Z6FQ6CL1Qux74jo6ZdaDT5fSh4nzT5 +Z0SIgiMnTt0UIi7Ct3iISNehoGRDvcf24SBwkJELtzpJQdMPtdtDjf3hUptw +9O5MCqrpqe49T/KByqX247c7KRg16pFxcsALcuwK96qtoWLK1Yi9lV/cIVzO ++3m9HhX9zpa2zzGOQdBB4XUVZ6io5OSea+ztBPS6x05j+VQ8u06weoOUI/Rn +E9fPfqbi5BLlHX3BBswq31cbradh+PJaNn2nJTxQsQ6WMKbh38rlLlFfM1Ck +3JM0OkdDeREJZ+lFU7DW/edRWRkNRyLC/htI3wXJnxwUL43Q8OH0jLiKjwG0 +fIhQPyBFx8e5O4a5BHZAGW/LDntTOjZI9xRt6NaBovw+RkswHX2M/Z4WCWwD +h2Ah8dMP6dgKy929hZuB++GGONlJOm7qELj4jaYKFW4rh5kbGVgs9/BreZMC +0Hfz63paMHCq/evhmtdMyMj6cEoqnIGWj1R/5P6kgqTzDfX6CgbmFk6u+/Oc +BLDfbSn7OwMVKm6c4GqWhcCKdek/yEzkb2APv9orCcf3thqePsjEJ4/LRkb0 +xcDjsP0z62tM1AiXid9KXgdOHV3tWM1ElpOznoj0Kljj5zp++CcTg0TvK9z3 +4IfWhJfvR+gsfLtWJutuKzdAn2Frph0L4ffDhojVy0RWZJ6ZcxwLr7VEmQdU +zROkh4OF4c9YyD4r4/wkZYbYu0ZVdGSBhflvBd3+6ZkiYvsPGGcrslFtIr14 +dmKSeCFxeL3bITY+ry2NT6d/IUoDQsaOJrIxsVizj/ftEFFyMCDm2Qs2/nBI +ii7w7Sd6A+IXl5fZWCfu9OtE6ScirbGx9eIYCc+BBsW36AZcC4jjbpUj424g +y99+Eg8Oy/uYzvvJaC/oafnYOwZ4X65JSb1CRiOZD0rFOteg+GqBTmglGW93 +dVVHVoUBIQtvKr+TUXxWSOnIrxAoudhwYAeNggqq3wM3xF4ARqei4FlLCpb2 +3XQYOx8IXj4Jq/ZHUNA9vnzfjJwv/DfyffFMDQXjZAR/G5z0hlJF7PkyTUG7 +4VLHwjJPSK6KFvrDoqLpmVtCY+5uEKL15HiNHRWbQat9XsMZ9kUOVryOoeKx +fV/Mf5QcBp7yxTnV51T8pODo2OBnDzfvCdEH5qloMhlkMHLpIPDOSv6nrELD +XYIvyop2moM3m2+P8lEaxriFP3D/sg/qVUdHzyXT8NyHQ8NDCnvg95oab9mX +NFw5oDk6eGonqH30UXFfpqEiqfbdlTw9gO+bth9Up+PlusJV+44hqHR1bE44 +RseweqGCKovtwJ905p+NaXQ0SvrrplG7FUpSxQ/sbKfjCdsVM1vfqYFDTHwl +mZ+By3ZmYwLuyvDdWkDMWIuBY/+MrxFX3gRHf5+0rvdk4BAlMsyilQ6fLz9q +n7zFwIrIzRrKxhSQt+VKKX/HwOrQgpZ94RvAjk/HtHUlEzOfPr9fe1oavEM9 +p1V1mJgvlSFcrboeTnQlXB45xURDo+cbN98WAVfZVGOTDCbGZh/OnotZDZpZ +txz2dzFxLN74Gz17JUzypTpmCLPwYJZeeXE4L4RpRew31GVhkPDGX8XrV8D0 +A//oy34sDOmImRM3WCScKDu5/PJZeDfris5U/Bzx6IiQ48NeFkZ6xolVZfwk +fvjVFRmKs5FZYCclYf2DUAiyUQk3ZGMRj1A34TlBaDdOLbkEsrH4Q1IUDIwQ +ql/OVSUUsdH+SpvJN5FBwsgtzHBgkI3ylpGZT3J6icFVUxV/ukkYx9sZ2Pom +GV7aX15QWEdG+Ta5VIM7CaDWtZT2UI+MXcNadZ8hFuxWh4wrBpJxu1Bbs/21 +68DtPp7yt4iMfNrf26RrrwBtSiOfMUBG6aJzE3G9lyD291XNBEkKHi61H1K6 +EAwR5Q+ahHdTkPfkNK9H/lk4trNr17sgCqpuVu0qVPSDWJslg757FCynarlS +9E7D1iTBDINhCjJUy738pb3g1vUNhUmyVLS8HXjq0N3jcDlfSkp3HxVP6L+7 +L77JBUam54b0L1FRS8Cq3fT6EUio/KgY+Yjj75Ui6gdaHaCmIKNL6SsV1+fm +7j730BryD/opVVE473f532lXXQsQV1QeuWNFw6oDpzcey98Pv9mtywMRNJzL +2nPn1zUTYOV4JB6rpWEO23TN1hAjGP74RWlumobWSe7yRyL04fKQzcMOOh13 +JDns1FXTBW/P15W/bejYm5vW3BGjDd0kecqZKDpaeB9c+feTBghERav3PKPj +IeE88QuV6lBC/ZCVPk9HK6X0qC1uKvCuXyCoQoGBn7drT5/3kQd98vaXUkcY +GPVvTsnbRgboSuyiXEpgYLNwoH67DBXIfcYu2i8YqJ+qdfMKFwlM5Q8wtBYZ +WHbJVXtvsgzMpoNRrDITV/hoL5lpScBEvMqIgjMTjzqMBDt5isJxYvHK2xtM +fGlR6qA8sAbaqqukmpqZ+Ka+fba8SxDO11yk83CxUDqNz63rDB/kjsonJKmz +8LmVX+H4xApIbuktXH+chaoL62J/3vpL8Hb5s7+ls1B8cO1n1p3fxFfhOX5S +Oye7/XUwTvlFkOoDHJME2KijPTHbKjFFfFbqrJbUYqOPcLuqYtZXIuQkW2js +BBvfM+nfZf6OEt6qwe2Lt9l4ONCGdnVykFjsu+D+toNzX8wqxOlWH5EwdZ08 +NcXG2lnLn4a0z0SY4uUSzXckNOHTqrjrmgLfXp337REk4zMVfmcbyURIe9bR +2adNxjdqUyRaXiyEF24X8ztNxhmrcxUbNSOhwFbQ6HEOGesKPKTlDcNBwm6z +lN1HMlYSD8adrUOB+/7EJh0RTt/IqDwR3RMMVbQ/uR16FOzZlNp82zAIBlQW +xtb7UvDyjO6Jicd+EJFw+XhiPgV9NCRrUkpOg/9uzyunP1MwzcN6e12QF2T8 +cj4/JE5F+sjRzEx9d+A/+tyTezcVua5lltCzXeAePWThfBAVmY9tD0/9PQKf +iJZGrVIqtvwKqNsfdAj25Z1SsximotMfRuOgpQ0sCTJ9ueVoeCTatrq6zgKG +lfTL7PbT0DFN4+2ttWYgmlVzbX0oDc01X5h36ppCrc/zrNWPadjw7uK232t2 +AWFHU6r+SkN7od8PeZb0gdXrfUZ8Ix2PSmzsOpSqC3EVJst55nRU3punkaeu +A/ojl2m3rtCx6+76kkgvTVATeEll1XB8nS7Bp6++Gawnz8rZ/+T4vbbVb1WD +CjTQw0t+0BnI+ljcK/6PAtwvJ12pt2VgKdyyPGDMBG8HkWaTKAYupCvIiIRR +Ie3OVOuFWga2med8lTxCAkPCQXRqhoGpWfc0ApVlQVOB9bOWxUSRc+SS4/US +kHfqvMRrByZO7dos4NMlCl9fKWQlxTLxeVTV3JGYtZDc1DzD+4yJFhJD00u+ +QtAgM3OldJ6JJWTffa4/+ECrJqi8RoHja3Nf0+823PDVQqza3omFF57q+cpa +LBEdpSI1ucksrLzf5v9ccZ7gP+JhY97CwhL352XLkjPEI1eLbcQKNno2mnz8 +6D9FaIYnhvaqs/FblcCnPTsnCZre82iWCxs/KT+w/Td6jIizuNhTksrGrsaI +UZ5DQ8T7tMW/LW1sHBY1JjSE+gnPQsH7X8bZuGEPo5o09Jl4vGVd9O/fbDSK +t84Rd+shDhKv5Dtfk3Blt4G5U3kKLIWfvV/OT8ZkD8OIj2aJ0K6le+bMNjLG +ZfAwtPpiIf1ccrasFxl7PBaz+WIigeud1H/JmWQsjDgQaRIRDjGxpW2znWTU +Ors2xvlGKDyOlcsQWUNBaR+9qfDVF8HC7h+Zx0jBpa/0d8GJQXCLfu3RA28K +Pmt8y27h9ocw1abFkzmcvuK057LO2Gm4mUEKEPpIwfwtRLxxsRdk5QgeuyZC +RZ2u7g3lSe6ws1ZWZtCQig+y27PKR1xAAnbyyQVQMe92TViDhhMEc+kliRRT +UUj2VWJjxyGQYh88NNZPxZio8n6BHBvIGVhKyZSiYd3K8dlIXktoK25L2WZK +w7RmTd64HWZAGnr4piiYhh2B5Q3H001B2PZUcd8DGqbuzzK4YrkL3NOeKt76 +wvH9KffcF5oGEPjp/LsyWTo63ZuR7X2tC5RDwuTQ/XRMm9+26WSYDswblWVu +CaUjZKm35VVqQmP9ROrLx3R0y5Tm3uq1GZTMTKy0f9BRXXjvLa0ZFajd2bj7 +OoWBS20p/gPeCvD1gthQ8kEGir4zc8mLZMK1kJl/1K8xUK+g8HRsFRW6L+kH +k6sZ6PLrq15NPAnqXjiFt04zUGVCu2pfkCx88E5rPEhnonmUnpWaoCREOGYW +3bZl4tsrJDPHNWJQIGWwxT+KiWlhNUMTY2vh/Kv9Q3dqmahq3x8c+UIIxhuV +tkXMMtHx6tbGciV+uMSmN5ixWVimlXTWO54bJGQLn61wZCFJ0T+hsWSJIEgO +4VcSWYgnEl0rfeaJ+Ous0G8vWGii9nUu6OAMEbq9ni66xMKVZsOh5XlTxND9 +X8fqVdi4i7dKXzllkphViG9vPMJGuQs1LQrdY8Sd0RWDEckcXz+WqShNHiLq +F7R2GrWwsb+mMU8O+wnbVUZ/nUfZ2NunVdBh0Etkx5t2+cywkU+kukSmoYdo +7XxjELTIRlrrlx2qq3uIp4Y+boxXJMzhe2gg/SkFwoYD3pL5yHj3gHlCt1ci +fJ2ZrX+iQUbd1bNvQ/7EQu5ww5SHJ+f9C/5WtK2KhE0xt5oFMsi4bfuWjVkF +4bCnYIqt/56MgU0b+/MfhEISV3nfWWEKNjVa5j6iXwSKv5KZAlBwG3311R3V +QbD83wGSwCkKikWfOyTM9AdergmDniwKFpm4Ku3m9YG8N/NTFh8o6BWtz2xu +9ILsENuPn9dS8dSHbWrSte7g+q3h5AEDTj+XXLas5T8GTS25Ecf9qLh6O21u +2twJzPqXFoMKqTh48ez1UyscIci1ZUa1j4p/iv6enHttA3/bxuXnJGh4U+jS +tVq6Jez4IbY6Zw8N/WamHNHODBiX7vv8OU9D1X8DAje8NAU10xfqu8s5fhdP +1E8N3AUh2jGFImM0NB43Uj9maQCUj7yhPDJ0TBbSiP04oQvj9ybu/dhLR4rW +hBe7RAfMF3a5BIfQcWJh7dPofk0Qo/yxIlXQkWt11OufUZshmffBr/xvdGyZ +cR3gWa0KVQfHJLtJDExUjDCQT1eAlcPX43isGLjOiZkpV8yE5ITRF5lXGXg4 +lxQv1EUF/1+T1t6VDJRTs3rSVECC4OsuelpTDPwZVWW0+q4sbEqyLMugMhGD +4jRdFCRhofNRoJANE/sLKjVi2GIgrPNmcew6E3cZNWY3CK0DL7PEj1M1TEx9 +TY5U+SEEi/+1iMz+4uzTfcnVG0z5gXUooC2NyUI1l07lmWJuyPsb0HjAgdNX +5hfe8/cuEdOWoR6z8Sz0UZ7bfjF5nugm86dsb2BhMLXfiS9ghhinLcgGLbJQ +yeBoUmf9FKFlnGG9RZnN2W+Car51k8Rn8sJPqcNs5F+e39a0PEbkqdQNzyWx +cW2KksGL8iHiMbvbPayJjW8cbirste0nzLRGyRnDbLQebG2m+vUS6XWTi6U/ +2Vgz2PN61UwPUc9/6vjjBTZ2Nhl2L2n1EO9z1MjEEhvP18icyu/9RMw2G640 +bSOhgJr716vfU6BZbH7AipeM1lKHX3+5kAiBb/dPDG0lY9FIe8lWwTgokv4s +ccODjNq49Ul6eySg51FHuEvG7MifNkPV4ZC3LbbzeAcZ439ubnRsCAVezRXL +JasoqFn81KpH9SKs5NfwdCYouFa1YJ3mmyBQ6tEwV/ai4Lx64Wndbf6gP3p2 +XIzDw9LgkT2HRH1AzdWl6GwXBW3mufmSO7wg52Ro4koODySj7oCBd+7gfznt +5jV9KjZGXfR7L3EMKKK2L2N9OftUsac+xckJqt7YlZQWULF7QIT2TNgRlFby +PbXspWKnjdnTsGEbYD3v+7WRw8MQl3/Cia2WEBTzwLDXmIb8W49K0N3MIK9d +rYHM4UFbjsUdP2QKDTunZ87fp+HOm0sXH13fBZHX/Tx2j9Jw96XrZwydDcC3 ++4WtvDQdTcquyLrN64Kpre0Cg8ND7e+mfLnnOrDiQGJD5kU6ljTxL9z4pQma +b7gf7HpER3PSlODR9M2cfXW8fnCSjjfrtHlmpFRB67D/EheHB8+OFKuxMgVI +utH0RdOSgcn2N6JHnzAh/d8+ud5wBv5NuOvbMUyFxoK6hpuPGfivS2uufQUJ ++r6Nkk79YGCr1TR38ANZaM8uy2mmMPHjG/N94oQklMbX9RHWTE5fTy7dqiEG +2ntvOJI5PBQZ/ilbWL8OxsU0rKQ5PAydUFRM4V0Fl1fJLMlzeHjitWJg0J4f +FgLutj9lsFDII/ybYQ03/PJ0bA6yZ2EcO0sUZ5eIPd6SfYocHiRNNv/xzZsn +zn31oR55zkLRTxsU7a7OEGkp6yXv/WFhvIQLr+/rKcJFIsjMU4mNyuVN25Q7 +JwmztEJeXUfOPg0ReFYg+oVQsqAcU+LwcERXY9Lx2RCx5Sn7fGYjG9kjled+ +u/YTL99s3Vw/xOlHI9zzo9G9hLSNztr2aTYu1oXL3BL+TBDptUEf5tlYwe1Y +xmXWQ+zHEHX7v2zMF7dzdZ79RNiIDK7ZuMzhI1huL0/TJ+LuCxUJpSf/+7/8 +P2spUo4= + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1Hecz3UcB/Af4u7ccsvtOzfdsLrQ0FBK0ck5GiLVtcVdpVJRKg1NkVEh +lN2goaJSlNGgTXbLakuLlJ6fhz+ev/fr9/r8+3p8C+oaausbRSKRaj81NJXz +3J/cN3mYiziKZuR7+9ldxlgupiNRtPL2i/sWj1BHJ6Ip8Par+zbjuITOxFDo +ba+7nPFcytE0p8jbb+4KHuUyjiGWYm/73HeYwOUcSxwl3n5332UiV3Ac8ZR6 ++8NdySSupAsJtPb2p7uKyVzF8SRS5u0vdzWPMZgTaEG5t7/dNTzO1ZxIEhXe +9rvv8QRDOIlkKr0dcN9nCkPpSgptvP3jfsBU6jmZVNp6O+h+yDQaOIU02nn7 +113Lk1xDN1rS3tt/7jqmcy2nkk4Hb4fcj5jBdZxGBkeGkfCxM5NhdCeTKn0j +PpGf4npOJyvsRt+YT+WnuYEzyA670TfhM3kWN9KDnLAb/RF8Ls9mOD3JDbsJ +O+ULeQ43cSZ5YTf6ZqyX53Iz1eSH3eij2CDP4xZ60SrsRh/Nl/J8RnAWBWE3 ++hg2ygsYSW8Kw270zdkkP8Ot1FAUdqOPZbP8LLfRh+KwG30cW+TnGEUtJWE3 ++ni2ys9zO30pDbvRJ7BNXsgd9KN12I0+ke3yIu7kbMrCbvQt+Ep+gdGcQ3nY +jT6Jr+UXuYtzqQi70SfzjfwSd3MelWE3+hS+lV/mHvrTJuxGn8p38mLu5Xza +ht3o09ghv8IYBtAu7Ebfkp3yq9zHQNqH3ejT2SW/xv1cQIewG30Gu+UlPMCg +sNuwG30me+SlPMiFYTO6LL6XX+ehyOHvYDY/yG+Efcg5/Bj24ObSmyr//wed +cY5w + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.026716109200381675`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13dYj90fwPGkoWQ0tB++e2gXSnR/PmmIFNLQFCklJUlLSEKiPRQ9PUZ7 +K6EppbSESIm0hwZKQ0n9vr+/zvW6znWu8z7n/HPf5GOnTRy5ubi49q3g4vr/ ++PCVsrjicxJKrZSr8LG+C5v3S6Wfe01CE409GwRW3oHZRv1Vxi0k5Fd1Hb/x +IxFe6Hu5MN6QMIP3qZ7Ul0Q4TLyRa39LwlWdeqYOxYlwTeFqgcYHEhrxapY8 +dE6E/tWTJX86SRjN0+7f/C4Bkurrmy+PkPACqFO8827Dul2+U2EryRjRJxa5 +MiIOGkXn+yx4yGgpefTtt0txcG3Q7z2Zl4wPD5nGdnrEwVLI+cfFfGRMcNMP +/WwSB9/fXPTuEiDjS2U+RyuJOHhte3VBfj0Z5Vpk7+o9iIWbftHczbJk3Atk +ufvPY4D/UY6I4DYyxgsYT06LR4P/+4NjAxznDbUWbBOIhvGZ2Zrn6mTUXjP7 +PuhPFLRqap87t52M0SkrGZo9UZD0sq29ZycZ36lOkmhZUaDasZT0VIeMHYOa +1V8hCuyWDzAdD5LRVsDdvNQzEh4bzeyoOkXGTU91RqdGwiBP6qv4bTcy7sRt +z5NbwyBzsG7SzZ2MXQK/FazLwyD5QkK6jAfHbovpvJFhEJK7Q9TnLBlnLC6U +bNIIA5s1QaMK/mTcIdjSaHvzFvC8Xpt49zoZDaQ/KeZr3QSzfaxZ7wdkPCD1 +I0HxTQig+3F7eEjG9LBfVgMVIbA58l4jfwoZt+/YuiktJwS4Pkj+l5BKxtzQ +Q2FGoSGQYy1gUJpBxuocNyk5/RDgdh1N/JtHRt6dP1qkqq5D/o0creAyMt7v +6KgIK78GAq+Ur0Z9IKOGTXAE+WMwZG2Paj/ZRsaYX1vq7euCYV/OJFv3Ixn9 +Gzb1Zj8JhsiowpbZdjJqnl8X6Xg7GMRttkjafCZjGfFk1NEyGGiT6tmMPjJK +5V0Yi+6+AoQMvCv7QUaxWUHFY9NB4Hna6J8hQQoOnTpzR5C4DDwaK5YLVlNQ +I/+FRZfKZYjnKu45L0TBhnrzzGf0y1AaJZsivJaCUl46kyFrLgP347HNWsIU +NE4pOxXRFQhRv29oxEpQ8Gih7YDipUAouFx3aBeNgvIqP/w3Rl2C7zEQmqxF +QYm6GrcdgwGwik/d3ZGg4DqVnPUa7wKA4qtoIg8U3E5fc2NXRQCY2fwjXYoU +XBqnfwiMC4By2p/MNh0Kdm2+23hfPwBCi580CO2lIM/pKR637PPAaFcQOG9O +wcKeO3YjF/3BTlo2xOI0p+9T1Y5gQ19Q7FI3VfKg4Lxa7lnt7b6w/N8hEv8Z +CopGXDgixPSFe/Sbz554UvBl/Xt2E7cv9CkvjGzwpuDVGe1TY6U+cGJ3x54P +ARRU2aLSkavgAx5esasPhlLQNab4wIysN1xpEYrYm0pBVR2V/RdJXqA7fH5U +NI3T339s3xERL+DhGtPr4jjPyFlxL48XXFNpWDydwVnvsO+q1shZCI29ejIu +m4Je6hKViQVnIcpqSa/nEQWLqZrOFJ2z8N/Qj8VzlRSMlhb4rXfaE8qWWk/e +b6dg+LBbyuk+D1B1dso730FBq3lu3oQ2D8h6Nz9p9omCHhG6zMZ6D7iTQvIT +/EzB7K1EjGG+B/judb9+9isFk9wsd1QHeMC2eIEUvUEKMlSKPXylPKBQAbu+ +TVHQZrDQPrfIHTJscverrqVi4o3Q/WXfXCHjdHDcqnVUJBl0+vV9cIX0IOvP +Xzk+82m7qlSVK6RlCJy4KUxFrY7OjcXxrpAy7XhxQIyK9KHjqam6rnDv1sbc +eBkqmt/3P3Pk4UlIKI8Q/MOiovG5e4Ijri4QIutZW6NDRZ/zha1zjBPgezXp +zk1dKtaHX/b5KH4CnL/XnT6kR8VGiWXzKr4TsLtKRrpfn4pP0lvTioecgO94 +rTv3Xipy3UwtoKc7wdVsSUntA1Q8pfvhsdhmJwjSfH6y0oazHjRb59UdIeCw +0PqSc1RUdHDNNPR0AIqI9esobyp+UeiqSXRwgIamzNCTPlRcs4M2N2XqAOKw +m1fWj4pZ9yuv1ak7wCN60MLFACoyS62PTv49BkNTcwO6V6ioyW/RanzrGBwI +6y95G0nFEwe+mf4sOAr06lKHkWwqnl8vULFR0h7K39kUFOZQsbNPmPZSyB5M +epcWA3Kp2H/5/K0zK+whkEsnXjifioIyb+Lq247AF6KpXrOQik3TftUHA45A +bNlnhbBnnP5VwmqHmu1gZfHinEotp1/e3r7OxxZ604lb579ScWKJ8oG+YAWK +q3hfmHdTsd3K5MW1QSsIcG6aUemh4p+8v6fn3lqBJPvwkZFeKkaGF/fyZ1jB +gawzqmaDVHT4w6jvN7eCypyUDsVxKm7IzNx74akl3HkkSO+bp6LRRIDe0JXD +YFL2scJgAw1Dltex6bvNgVXbM71JnIYDXL6xp7aZw9+WUbk5ju8IXrlZRTeH +jL6lxFRJGlavGp0N4zGHJQGmN7csDY9FWFdUVJtB9mEfxXIKDSOX/51y1jYD +nlmJ/5SUabhH4FVR3m5TeKJsGShuSMO/ZcsdIt4mEBD5RL+bY75tx8XpLiaw +66fomox9NPSZmbRHGxNoyW9J3G5Mw6RGDZ7oXSYwqKhbZHOQhvZJ6u/vrTMB +MQWloQcWNCw/dHbTieyD4Mnm3ad0nLO/S8gT128HQIHySMLgAg3lhMUdpRaN +IatVtY58kYY7ZVncMQPGwLjy2OsPxyr/+vlvfG0MpIGn7/ICadjmX1x3MtkY +RNIqb24IpqGpxivTdm1j+M1uXu4LpeFc2r4H0zeNoEZlePhCAg0vfDoyOCC/ +Dyy1/3lWVETDodBr//Ul74G63VMzFx/TcPedpcvPbu0BVeNXanuLaWgrFqd7 +138PCFmfye95QsO7B9P0rpvvgSqv2rQ1pTSs+3B5+++1e4CV4RZ3ooqGGWzj +tduCDOD32kpPmdc0XNWnMdx/ZjckfLFTuDJEw6dTM2LKXnoQdsvHbe8wDfde +uXVO31EPgnZG5gqP0NBw1EDthLkeuCa9ULj3jdN/xjXzlYYeEDY0xYpxTo/g +76crl3Rh8PM3xbkpGlrGu8odC9UF1c9eyq7LNFQgVX24nqUDTZ9C1Q5J0rE0 +c9cgF/8u8O58ZS0nRUejousyLvPaQPnME7xSmo4JgupRn8e0wf/LxQ9FMnR0 +eDQj0/1WG1jdnufENtHxuPimjiN3teHqgNXTNjodd8Xb7dZW1Qb4sXnHYTU6 +Xq3OXX3gBEIRT9MuW2M61kl15W3s1AJja+sFxn46Vv1uyJat1YLRR2OPfnJM +0RzzYBdoAeWIEDn4IB2T5rdvPn1NC6JLjJazTOmotD9LPUtNCzzd35b9tqJj +d2ZSY1vkTlDuaNsSe4KO12oEc8rNdkBedg+jKZCOXoY+L/L4t8OKQ3F1qZfp +WNDAt3B7WgNMF/Y4BQbRcWxh3YuIXg2YNyhK3RpMR0hTa8kq0wDdoau0e9fp +2PFwQ0GYhwZ0kuQo58LpaOZ5eNXfL+rAF3/un01JdDSI/+uiXrUN7AIFxc4+ +pWMzLHd2524BjXfcT/Y8o6MpaVLgePIWEKX8sSCV0JFrTfjbX+FboL5m7O7r +Ujq6pEpxb/PYAqr8r6msSjqeShbn1VXbAvzhEWpdL+l4RChL7FKZGhTcFTu0 +u5Uzb71iZtsHVeB+ujFaZoKOm9v4L3+nqXC+H0/W9HN8p3rnyhlJFUjgeTKd +/Z2OTTPOfSvXqICiiZHFzp90VBPaf09zRhksJ87L2v7i3FdVs8/qOmUooH5K +S56no4VicvhWF2Wwi4wpI/MxcNnGZITfVQlKXFYNMjcxMF/26XhxgzxoHvVd +4iIx0L0t0WKkSB7KD49IdHIcpxCqJ5csD1W76/feojBwqSXRt89THuroIQU/ +6Qxkfc7vFvtHHj708geUyDPw646dUxe95OCHJb+ooSYDR/4ZXSumtBnoe/m0 +3c0YONk6frTyLRPibzd80zBnYILt7Yjh50xYNXgreqUFA9c7MFNl85kwfkl0 +IOEwA0U+mDhlhTHhcTHpeo01AwvhnvkhQybokne8ljzGwPB/Mwre1zPg+O/T +ljXuDByghF0za6ZDStqnM5IhDDR/pvIz8xcVkv/tke3m+G/sQ++2QSokxA6/ +Sr3BwKOZpBjBDircDJr5R+0mA3Vycs9GlVPB00640SicgQvJ8tLC16igLb6H +ciWWgY1C/rqt0lT4evVZ68Q9BpaEbVFXMqSAhONttZoSBmbmTqz/U0uC+pzq +ujulDPzXqTnTtoQEvtMTlp5lDJRVtXjekEOCziu6geQKBjpNj+tUxpAg6cFk +86UqBraYZoxLHCMBucfQaecrBure1bxznYsEctZcicUfGFgRnNN0IGQjwEGX +pfQfDJQvuX2Kq1EGer4Pk878ZGCzxRR34BMZCLzlpKM5ycBf4eUGax7KQPUr +h5DmKQYqj+0sPxAgA/qEncjkDAPvpj1S91eSAWO5QwzNRQYWXXHeuT9BGmx4 +tYybVzEx9UXt46qzUuBfsj75J5mJfHXswTf7JaA1vSijkcLEz+9MD4gRErA5 +3rwohcpEDIjWcJKXgE+eSfWH6Uw0DdexUBWQAA151q8qFhOFL5ALTtaIw2wy +GEQpMXGF184lE01x8Ax2n1LRYmK2ZIpQhcoGOLm/Wf/sYSY+Ly0aGtIVhcKY +6h7CkolSSQmF29RFYaH9mb+gFRN7c8rUI9miEGqfmnffmonvr5NM7NeKQtaZ +i+Jv7Zg4uWcLv1eHCIzFKA/JOzLxuN1QoIO7CJzqiL06dIaJ+ga1m7bcFwa3 +o7YvLW8yUT1EOmYbeT3s3H/bnnyLiXn6f4oWNqwHIa13iyMc7zGoT68TXA85 +knpbfcOZmHStcmBsZB2Mv5FPi49iYm14+dyxyHVwkli8/v42E1+bFdop9a0F +Z5m7hkYpTIxKP5o+F7kGHNo6WrGCiSwHRx1hqdUwKqpuIVXJxIFTCgqJPKvB +wyTu8yTHd9+Sw5R/CsLFNwcHHlQxUcW2NzDslSAkNDTO8Lxkopn4wNSStyC0 +VJRLNjQy8V1N62xxhwBopN2zO9jBxJEYw+/09FWw1sd59OgvJgaIPJZ/7MYH +V1dLL8lNc+7XY0Vfvy0fLP7XJDzLsfqBhIqNxnwwWq+4PXSWifY3ttUXK/JB +nfTM9cJ5JhaQvQ84/+SFi5WX6Su5WJz34HXpOMcLE7x37VOEWHg4Tac4P4QH +mmNffxyis/D9Oum0h83csOD3sPUFg4WCbiHf9Su5gXXEryWJyUJVp3almXxu +uMKm15mwWVikGX/eM4YbNCsDiivlWRhg6m38w4obMoflYuPVWFhr4ZM7OrYC +rmmGHtTX5swLbZrO37ACoEe/OdWGhfD7aV3ommVi2t2+McCWhdHsNBGcXSKy +/vrVH7Jjodj8wke+7iVCXCb35Qp7FpIUfGPrC5aIcTPRClsHFl56oeMtY7ZE +JDR15244yUKVhfVRv+79Jaae+EZc9WFhUFvknJjeIpEWlmXiGM3Cm03hpn7l +88Q+T4kehRgWShht+eOdNU9MmQe7zXLspTS343LCPEGQ7EKux7EQT8U5l3nN +E22FwpWZCSwse9ziW6swT/B0+LK/J3P6+td9ZT34TThQdnP5ZLPwYdp1rcmY +OYL0tD835CUL2eelHZ8nzhAXxr2ox2pZKPJlo4LNjRmik8yXuKOOhYHUXgde +vxki5hYr+PsrFhqpjs8FHJ4h+I65WZk2sbDAtbZoWWKGGBea4yO1cvZz+Wtn +mDhNPDsmaP+0m4Vh7tGi5Sm/iP1rVUSGFliY/V7A5Z+uSSIpcYPEoz8sjBF3 +4vF+O0mM0hZkAhZZqKh3PL69ZpII3lFDF1li4SqTweDirEnimbPZdmIFG93r +jT5/9p0kSDV+9vH8bNTaOTbbLD5J/PSpztMXYyMzx0ZS3PInEdV7yDBdgY2q +Y8n5s2MThJN4gIm7IhuVihu2K7VPEJqGKZZbldic/1MBVe/qCWLg8fSJGmU2 +7uEp11VKnCA0QuKCu9XY+L2c/8u+3RPEV8X2CglNNnoJtaoopI0T8gFWyiH6 +bMxbKdhJuI8Rr8SPbnA5wsbaqsKYZPo3wiQpl0fbno22Qfwvc0S+EV/JC78k +j7KRb3l+e8PyCDErH9Naf4yNspcqm+Q7RwiaTm0Ey4mNX5SeWP8bMUIEnWYL +jpxi40cm/Yf032FiZ/3kkpM/G/M/xYdD3xBR6Bc0cjyOjXH5Gj087wcIRTPK +CcV4Nh7TVp+wfzlAZClXD85xvC5RUe9V8QDxYHhFf2gCG6tKpUsKEwaIaLPL +XQV32dhRHzq88sgA4akS2Lp4n41H/a1oNyb6CZVvF8pj8zj911uMvgv3EwWH +/SJfvmLjT7v4iBzvXmLrC/bF1Ho2sofKLvx27iVK2Z2u1xrY+M7ujvx+616i +ZkFzt0ETG3sr67NksZf4mLT4t6mFjYMihoS6YC+x2HPJ9X0b5/1ELYIc7vUQ +Bi7X9Pv62ShnHpb6PKObeP1u25aaAU7fEPf8cEQ3YaI5TE4ZZKNlf3Mj1aeb +sF5t8NdxmI3dPZo5bXrdhHuuwONvo2zcuI9RQRr4SsRO3iJPTnLOO2v+S5/2 +lZCy0lrXOsXGxeoQ6XtCX4nk6onFwl9srOzvert6potIjzHu8JphI69wRYF0 +XRdRunV9xO/fbDSIscwQc+kiiOSqgE/zbCzhti/iMukiavjOnCxdYGN7g37n +kmYX0dz+Ti9gkY205m+7VNZ0EQcxSM32LxuzxWycHWe/EB8zVMnEEhsvVkqf +ye7+QlgJ96/dtMxxoOz+lQ1fiG6/mMVljqvFHKZPFX4h/gfHkzsp + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.1}, {0., 0.05174209246096281}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9, + 3.992518827391369*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"c1ee8dd4-20cf-44ed-8c70-654569a71452"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = 1, $CellContext`yv$$ = + 1.213, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992518883157063*^9, 3.992518885691226*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03k0Vd0bB3CVDE2KK9dwzz2HzJShV3jxPCRkblCGCJFZoShUZlFEijIk +RQmRMoWQEFIoUaHMNFH0aqJ+5/fHXnt91t5rD99nb8r50E7XpRwcHO/p9v9e +ukeUk4ODiT+yEnqvlw2Cpu5xta+0+ZUuVx4tGgTz4l73kSVMbJWe9zPMHYTA +08lPm5YxsXAhM/BDyiC0aHGnxXEzMfBJYP/GgEFwyZuVFeBjYrNr22yp8iBc +DWyzkCKYKHjmqH1+8QAICwdlmGox0UXP5V1ifj8wW1m5hSeY+Dywi7T0fw2/ +V8oXlVczMbFyeceMWx90yn/cmDDPxK+9xMRPv5dQUj4vHrRFGH93f7Z0dnoB +AT3u61cdEcbnL7qbvsR0w1Z7qZB75cJYm/8+4qxmJ3A2ptrKzAtjh/+SRxal +T+BWjY+GkYoITu+u4e3IaAU7dlJccIAIGl3nDhKJbIYvQsKv994RQYeI8KnY +gUYI/LT7+tJPItgquvWv34kG4JUfeFuvIIpj20y4bPbUQtifNmEZD1FUzj4I +E4FVsExrWcu1AlFckee3NKuuDIKsZj59+CCK2YkjiRvPlkLnMj2Bt1JiKDi1 +uyp65Daoig0VjLqJ4bvtTVXSC/kQ0jameyFXDPvEdzL6V+VB59Bm470TYrjN +rizd3T0HBHu2PJ2UYuFUs/eofEsm6OzLsZA4wELtYq+CqCWXgFvpcKyMCwv7 +HS0vRU+nQdcyqFd0ZeGfAeXNF/rTwLlwYKO6GwtN22d3vylPg+hfQmvMvFhY +fNdiN69XGnRcSuwIDGDhKqOnEh/7UsHmZcj29kgWppjlH42uuQhHzPds9ctl +odIqt17b/BRIqhWXds1j4TTFKLxwOQVuy82ssLnBQl2PmopX8SkwwXX6Oeaz +EHQe2J7ySYG99fed1hax0PzfYAUD1RTQVGKFldxjoQSXe0VZw3ng4B+r/dzI +QiOD+NGPI8mQ8NJPzXOYhYx2kRcntyaBCJ+spc0IC/kqIqL2bEmCG0ZDHkaj +LGxX981Tk0+CuhrzLKlxFi65YEWtFUiC6Rx5ztEpFrqYio6bt5wDS9/xbrsv +LOyOGFnfwnsO+LltfMz+snDhnJpCb2YCpKljrhKLwIyegXX7vsZDR3Yt92aC +wMNFP39q9scDB7eG1xY2gQtaIqNyzfHg/lJZRYcikNw6E6d9OR40/SUaTCQJ +5GrimFDQi4eBQq6Bg4oE1gs3d8imxYE4+6lAljaBdqeugJnZaShebhvJ60Dg +w+tVnL2T0aDG3XP+N+19ESH3enqjoY7H/Nrn/QTOHL714l1zNDxbqfew24nA +TwsHDUVzo2F6ndzfy64EWhduFZJyigZF4lewnA+BiYod2lGDUVCklu5vEkqg +IXuqXO5dJNxye+OUkE7g7JGKb76cEfAmVbgmJYPA1l0Osqz/wmFFizUjPZNA +xdrhqr7xcPDc0Ndy4wqBFsbrmvweh4Pc8Av5hmsE+pR4JKifCYcC26f/zRbQ ++31dv45XMByKzBrirGsILPlyQ+aYchjcUb1RKjFAYE05+56r0Amw3NiFkoME +/jUtL+//EwpfZH51Sr0lcLQv85jrRCgoEebTskMEloVlc5aVh0IJz7yc0hiB +TktUM/+1CoXiwW25Wp8InL+8i5hKC4Gi2PFUqwUCc7j1fu+UD4b8/g2hsWJs +5Hn+Vds/NggyD5tWBrHYaKnBN9F4JAjOLT8y60awcVHmbhvlHASBmx65G5Fs +PCTIEF2hHQT6kU5WvBvYuCAW0hE5Fwjv5K5sPCPPxhwX5h3+A4GwPlhoOFGT +jVkC0XM2pkchirnCINWajccbN8uc3BYAZP98e7oNG//mruJu3hwANVmjFtm2 +bPQPej4kvCEAZsUf2OTvY2OByWabz0sDwEnxsE+1Ixv7263lNR/6g45e74W3 +7vT5pq68dUJ/+OF1bVTqOBtPf+O0yzbyA+96zfDKy2yUclhjr7roC3ZikncL +0tnYKaGeOjnqC8bH+UazMthoHcxsK2n3BVnVMf2oLDZmWmsOhVzyhYkbCTw7 +cujxux9Ul/zjC/sTh859yGdjN9on3/PzgZ32MVdYVWz8ZGulsvOnF6j/7q6J +7GXjKc7arYd0PCBN4qa4fx8b+Z469onIecC8SWic4ys2ThvVWvQKekBZptRe +7TdsLJLVqg/97A5KOiGz84N0nl9uWsRkuYNM+AZZz3E2qr0eXxrB4Q5C3EGp +lt/Y+OrFyP0n3QchhDexag0vidwRI991s13g5Ob+tUm0ZXXOb5RIcIGI/TIe +61aQWGCkMCEQ4gLx5Y3CjJUkzsmZ50nsdYFLTt+DhVeTWOJdsuQ3nwuU3XfU +3rCORDMqfdvJqAMw7aHaqCFMovtQzKnwY87g2P7qiYssieMBoZOf4hwhsXFD +8CDtBcUwK+NQR6ipPiyzR47ENpOhB3d9HWF9IU+0oTyJ/4gW2+XucoQnZ9R1 +5BRJPOSR95aXcAQ1s0t3ZpRI5JC65nDbYz+s6tp7MVidxOvzhw1Ce+yh8mWv +Q5IhiQ6CGxOEx22hymW5ioARiY+6yi9+67CF6jnV5am0/Z6e6R0rs4XadcmF +GdtJNFq18j5ntC00mpn8uGFCIlfUwEqUsoVnzfXJDyzo+Wt4vC9628BEeX7T +h70k/hfMw9DjsQZGarDcNncSTywNOst9zApg9uauetqem0ok51ytwNP8ZaiG +B4lPVTtLPu+ygodcSp2KniReYA0c5FOyAt+g8YD13iQen6vj53y/G1qtLR9M +HiIxw3QdI99+N4SKSlnGB9F5mX+WiN+xC0avdh/tjCGxaafDVzOnHdDi/E3D +MJbEH7mXz03s3AEFG4T+1NF+YZbyIV5/BxzO3xdTfJrE/ZuiS+eld8BCyWRq +QjyJuq2GYTYzlsCoX6w0SSRxVbQHWz/MEgwGZX89vkhi15zDicHdFlAgHHGy +IZfOL1R9zxEtU3Dyj3XTyyNRZkflrUVxU2A+OWvZRFuryjEji9cUYkPTxFtv +kBjm3byC6jMBl3dFLZ35JG4S8/ihGmACrLy+Ne+KSKx37FA/XmIMSUqK2Ytl +JN4WOjS4uGU7BBm+qtdsJvHj2Al7rmgDsPYZ+HOPNt+yppkl/gagnjKkrdhC +198cbFfvN4Bfb6dq2I9JdD0qE7VLwwBOBv6s5Gwj8ZSRflPG9DaIyRO586yD +rkf/nTdr922D1GX2V517SPR+mJekpqcPFfXDYfGjJJrs6//xSl0PvEJbx1aP +kajzxkmYktEDUqPEKJk2SXk6HRPSg/i7oWsvjZNoUy2msnteFxzyhK7mTZKo +oma/v75MF7jPmNU3fCTxe3S6jfVmXbDec39xfo7EOJ2FK5o6CL8/JQUf4KSQ +XzOPS/KbFrjz+Rwfo91ZLfbyz2st6FHefsx1OYWnXz7l+FKvBcWBSwLduCgM +1HjCYp7VAmcOfz8vHgrNRRJUT0hqQbvALveAVRQ6WM0ox+37F9I1BfdEMig8 +WKsnyO7XAI3Tl5Wvb6Cwa2JxVmH9FugKOhIjKkmhjLtnw+2lW+Cgm0V/Cm3t +oN4BnRk1uGCwPDpKisJJ4dmO5FY1mOH0e+UqQ+Ey2UDGzxA1yAs3OiWjQCEv +u6784fg/sC7ke8dtVQpn/yleO9y0Gd77WLlX6VH4oZL17GaxCuz+xj+iuZXC +pIqp2KgsFagL7rJ7QLvgwFTf4bMqcCHWxKJRn0K7nvSlxzxVAHN01ToMKHyG +a/7oSKtAao8i55AxhTvu8p+7fl0Z9P/lusq9i8L7is8uedxUgmyeyr49B+j7 +BiR5bLujCJv3Bdzsov3mTWXck1RFaC3ZFGTsQuGp2W47txOKMLsnf72OK4Xe +gcMd74wVQT/vspWkG4VXwzonuicU4L1u6Is5T3q9C6/MCsUVQDVEtzPJn0I2 +r2Vs1S05ePz5SUt7OIXSexZq075KA+PmCWW9CApnwrSEvAalwdFxU+Z92nZu +vrss2qTh1/PzfvmRdL6FzRrGOdKgUGUjFhNN4YDgeQ2endKQFDHppxtHoQlj +xfLLFVJgLbSMVZVEIfJN8945IwlTqBmQl03hkTi11ClnCeBJfrZU+iqFryLf +y8rtkADZYefz+bS3sKqGQ0ACPMPPlBbmUPjEJjrSQkwCPj8cmCm9Tp/X+8Hv +8l5xmNU75V13k8KtW+wNA8zFYUG/ybWvhEKOl0zSfDsFfNvNrXkbKPxHc++J +bS8IsD04rB3R8P88iRVTVQTkRh6R+E37g5seZ84VAtTr0qc/PaTQaMPfb1ae +BDirTkZ1PaLfy7hXddtSAipYYaVpjym05v9zqXULC/bNlq6Q6qRwfOTRWG6p +KORnCD7Qe0uhbMD+jnXDTEheLXy3jTb7Z5iCSRsTgk+J3bR8R+FHg1GZjFIm +mB6QSHYYorBflJ1zMoIJX+SUXYNH6LzMHujskGSCRrXp6rsTFIY06r3nPyQE +7a8i7akZuj6lfg3H+dfDPePYnfm0P1K1LQ6LgpBZG2+46QuFZ3ISRvdOCYLv +1WRl7a8UujiPM2LqBIHfPXu5zRz9XvIkDLu8BMHue/XtpO/0/2sUvbWynQH6 +HnXXhH5Q+NPu9V7ZCgZs7H+YdoW2Y1LUfzbXGMBR3xpe9JPC6QRGxVwwA3Jj +eq1af1PI6ddny63IgIQfr40tFij0MTM6Vy3MgEDPQeilnV+hLhnGxQAj8zHZ +sUUKN4qKKOkNCYBywyTh9YdC3XtHInSeCoCIykeBWdo+c9RX02oBWJY7zXP8 +L4W+q/96+twUgE+Cs4t/ac/Az7fZFwTgf9J0UbI= + "]]}, + 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:eJwV03k0Vd0bB3CVDE2KK9dwzz2HzJShV3jxPCRkblCGCJFZoShUZlFEijIk +RQmRMoWQEFIoUaHMNFH0aqJ+5/fHXnt91t5rD99nb8r50E7XpRwcHO/p9v9e +ukeUk4ODiT+yEnqvlw2Cpu5xta+0+ZUuVx4tGgTz4l73kSVMbJWe9zPMHYTA +08lPm5YxsXAhM/BDyiC0aHGnxXEzMfBJYP/GgEFwyZuVFeBjYrNr22yp8iBc +DWyzkCKYKHjmqH1+8QAICwdlmGox0UXP5V1ifj8wW1m5hSeY+Dywi7T0fw2/ +V8oXlVczMbFyeceMWx90yn/cmDDPxK+9xMRPv5dQUj4vHrRFGH93f7Z0dnoB +AT3u61cdEcbnL7qbvsR0w1Z7qZB75cJYm/8+4qxmJ3A2ptrKzAtjh/+SRxal +T+BWjY+GkYoITu+u4e3IaAU7dlJccIAIGl3nDhKJbIYvQsKv994RQYeI8KnY +gUYI/LT7+tJPItgquvWv34kG4JUfeFuvIIpj20y4bPbUQtifNmEZD1FUzj4I +E4FVsExrWcu1AlFckee3NKuuDIKsZj59+CCK2YkjiRvPlkLnMj2Bt1JiKDi1 +uyp65Daoig0VjLqJ4bvtTVXSC/kQ0jameyFXDPvEdzL6V+VB59Bm470TYrjN +rizd3T0HBHu2PJ2UYuFUs/eofEsm6OzLsZA4wELtYq+CqCWXgFvpcKyMCwv7 +HS0vRU+nQdcyqFd0ZeGfAeXNF/rTwLlwYKO6GwtN22d3vylPg+hfQmvMvFhY +fNdiN69XGnRcSuwIDGDhKqOnEh/7UsHmZcj29kgWppjlH42uuQhHzPds9ctl +odIqt17b/BRIqhWXds1j4TTFKLxwOQVuy82ssLnBQl2PmopX8SkwwXX6Oeaz +EHQe2J7ySYG99fed1hax0PzfYAUD1RTQVGKFldxjoQSXe0VZw3ng4B+r/dzI +QiOD+NGPI8mQ8NJPzXOYhYx2kRcntyaBCJ+spc0IC/kqIqL2bEmCG0ZDHkaj +LGxX981Tk0+CuhrzLKlxFi65YEWtFUiC6Rx5ztEpFrqYio6bt5wDS9/xbrsv +LOyOGFnfwnsO+LltfMz+snDhnJpCb2YCpKljrhKLwIyegXX7vsZDR3Yt92aC +wMNFP39q9scDB7eG1xY2gQtaIqNyzfHg/lJZRYcikNw6E6d9OR40/SUaTCQJ +5GrimFDQi4eBQq6Bg4oE1gs3d8imxYE4+6lAljaBdqeugJnZaShebhvJ60Dg +w+tVnL2T0aDG3XP+N+19ESH3enqjoY7H/Nrn/QTOHL714l1zNDxbqfew24nA +TwsHDUVzo2F6ndzfy64EWhduFZJyigZF4lewnA+BiYod2lGDUVCklu5vEkqg +IXuqXO5dJNxye+OUkE7g7JGKb76cEfAmVbgmJYPA1l0Osqz/wmFFizUjPZNA +xdrhqr7xcPDc0Ndy4wqBFsbrmvweh4Pc8Av5hmsE+pR4JKifCYcC26f/zRbQ ++31dv45XMByKzBrirGsILPlyQ+aYchjcUb1RKjFAYE05+56r0Amw3NiFkoME +/jUtL+//EwpfZH51Sr0lcLQv85jrRCgoEebTskMEloVlc5aVh0IJz7yc0hiB +TktUM/+1CoXiwW25Wp8InL+8i5hKC4Gi2PFUqwUCc7j1fu+UD4b8/g2hsWJs +5Hn+Vds/NggyD5tWBrHYaKnBN9F4JAjOLT8y60awcVHmbhvlHASBmx65G5Fs +PCTIEF2hHQT6kU5WvBvYuCAW0hE5Fwjv5K5sPCPPxhwX5h3+A4GwPlhoOFGT +jVkC0XM2pkchirnCINWajccbN8uc3BYAZP98e7oNG//mruJu3hwANVmjFtm2 +bPQPej4kvCEAZsUf2OTvY2OByWabz0sDwEnxsE+1Ixv7263lNR/6g45e74W3 +7vT5pq68dUJ/+OF1bVTqOBtPf+O0yzbyA+96zfDKy2yUclhjr7roC3ZikncL +0tnYKaGeOjnqC8bH+UazMthoHcxsK2n3BVnVMf2oLDZmWmsOhVzyhYkbCTw7 +cujxux9Ul/zjC/sTh859yGdjN9on3/PzgZ32MVdYVWz8ZGulsvOnF6j/7q6J +7GXjKc7arYd0PCBN4qa4fx8b+Z469onIecC8SWic4ys2ThvVWvQKekBZptRe +7TdsLJLVqg/97A5KOiGz84N0nl9uWsRkuYNM+AZZz3E2qr0eXxrB4Q5C3EGp +lt/Y+OrFyP0n3QchhDexag0vidwRI991s13g5Ob+tUm0ZXXOb5RIcIGI/TIe +61aQWGCkMCEQ4gLx5Y3CjJUkzsmZ50nsdYFLTt+DhVeTWOJdsuQ3nwuU3XfU +3rCORDMqfdvJqAMw7aHaqCFMovtQzKnwY87g2P7qiYssieMBoZOf4hwhsXFD +8CDtBcUwK+NQR6ipPiyzR47ENpOhB3d9HWF9IU+0oTyJ/4gW2+XucoQnZ9R1 +5BRJPOSR95aXcAQ1s0t3ZpRI5JC65nDbYz+s6tp7MVidxOvzhw1Ce+yh8mWv +Q5IhiQ6CGxOEx22hymW5ioARiY+6yi9+67CF6jnV5am0/Z6e6R0rs4XadcmF +GdtJNFq18j5ntC00mpn8uGFCIlfUwEqUsoVnzfXJDyzo+Wt4vC9628BEeX7T +h70k/hfMw9DjsQZGarDcNncSTywNOst9zApg9uauetqem0ok51ytwNP8ZaiG +B4lPVTtLPu+ygodcSp2KniReYA0c5FOyAt+g8YD13iQen6vj53y/G1qtLR9M +HiIxw3QdI99+N4SKSlnGB9F5mX+WiN+xC0avdh/tjCGxaafDVzOnHdDi/E3D +MJbEH7mXz03s3AEFG4T+1NF+YZbyIV5/BxzO3xdTfJrE/ZuiS+eld8BCyWRq +QjyJuq2GYTYzlsCoX6w0SSRxVbQHWz/MEgwGZX89vkhi15zDicHdFlAgHHGy +IZfOL1R9zxEtU3Dyj3XTyyNRZkflrUVxU2A+OWvZRFuryjEji9cUYkPTxFtv +kBjm3byC6jMBl3dFLZ35JG4S8/ihGmACrLy+Ne+KSKx37FA/XmIMSUqK2Ytl +JN4WOjS4uGU7BBm+qtdsJvHj2Al7rmgDsPYZ+HOPNt+yppkl/gagnjKkrdhC +198cbFfvN4Bfb6dq2I9JdD0qE7VLwwBOBv6s5Gwj8ZSRflPG9DaIyRO586yD +rkf/nTdr922D1GX2V517SPR+mJekpqcPFfXDYfGjJJrs6//xSl0PvEJbx1aP +kajzxkmYktEDUqPEKJk2SXk6HRPSg/i7oWsvjZNoUy2msnteFxzyhK7mTZKo +oma/v75MF7jPmNU3fCTxe3S6jfVmXbDec39xfo7EOJ2FK5o6CL8/JQUf4KSQ +XzOPS/KbFrjz+Rwfo91ZLfbyz2st6FHefsx1OYWnXz7l+FKvBcWBSwLduCgM +1HjCYp7VAmcOfz8vHgrNRRJUT0hqQbvALveAVRQ6WM0ox+37F9I1BfdEMig8 +WKsnyO7XAI3Tl5Wvb6Cwa2JxVmH9FugKOhIjKkmhjLtnw+2lW+Cgm0V/Cm3t +oN4BnRk1uGCwPDpKisJJ4dmO5FY1mOH0e+UqQ+Ey2UDGzxA1yAs3OiWjQCEv +u6784fg/sC7ke8dtVQpn/yleO9y0Gd77WLlX6VH4oZL17GaxCuz+xj+iuZXC +pIqp2KgsFagL7rJ7QLvgwFTf4bMqcCHWxKJRn0K7nvSlxzxVAHN01ToMKHyG +a/7oSKtAao8i55AxhTvu8p+7fl0Z9P/lusq9i8L7is8uedxUgmyeyr49B+j7 +BiR5bLujCJv3Bdzsov3mTWXck1RFaC3ZFGTsQuGp2W47txOKMLsnf72OK4Xe +gcMd74wVQT/vspWkG4VXwzonuicU4L1u6Is5T3q9C6/MCsUVQDVEtzPJn0I2 +r2Vs1S05ePz5SUt7OIXSexZq075KA+PmCWW9CApnwrSEvAalwdFxU+Z92nZu +vrss2qTh1/PzfvmRdL6FzRrGOdKgUGUjFhNN4YDgeQ2endKQFDHppxtHoQlj +xfLLFVJgLbSMVZVEIfJN8945IwlTqBmQl03hkTi11ClnCeBJfrZU+iqFryLf +y8rtkADZYefz+bS3sKqGQ0ACPMPPlBbmUPjEJjrSQkwCPj8cmCm9Tp/X+8Hv +8l5xmNU75V13k8KtW+wNA8zFYUG/ybWvhEKOl0zSfDsFfNvNrXkbKPxHc++J +bS8IsD04rB3R8P88iRVTVQTkRh6R+E37g5seZ84VAtTr0qc/PaTQaMPfb1ae +BDirTkZ1PaLfy7hXddtSAipYYaVpjym05v9zqXULC/bNlq6Q6qRwfOTRWG6p +KORnCD7Qe0uhbMD+jnXDTEheLXy3jTb7Z5iCSRsTgk+J3bR8R+FHg1GZjFIm +mB6QSHYYorBflJ1zMoIJX+SUXYNH6LzMHujskGSCRrXp6rsTFIY06r3nPyQE +7a8i7akZuj6lfg3H+dfDPePYnfm0P1K1LQ6LgpBZG2+46QuFZ3ISRvdOCYLv +1WRl7a8UujiPM2LqBIHfPXu5zRz9XvIkDLu8BMHue/XtpO/0/2sUvbWynQH6 +HnXXhH5Q+NPu9V7ZCgZs7H+YdoW2Y1LUfzbXGMBR3xpe9JPC6QRGxVwwA3Jj +eq1af1PI6ddny63IgIQfr40tFij0MTM6Vy3MgEDPQeilnV+hLhnGxQAj8zHZ +sUUKN4qKKOkNCYBywyTh9YdC3XtHInSeCoCIykeBWdo+c9RX02oBWJY7zXP8 +L4W+q/96+twUgE+Cs4t/ac/Az7fZFwTgf9J0UbI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.4641503901716244}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.4641503901716244}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k0Vd0bB3CVDE2KK9dwzz2HzJShV3jxPCRkblCGCJFZoShUZlFEijIk +RQmRMoWQEFIoUaHMNFH0aqJ+5/fHXnt91t5rD99nb8r50E7XpRwcHO/p9v9e +ukeUk4ODiT+yEnqvlw2Cpu5xta+0+ZUuVx4tGgTz4l73kSVMbJWe9zPMHYTA +08lPm5YxsXAhM/BDyiC0aHGnxXEzMfBJYP/GgEFwyZuVFeBjYrNr22yp8iBc +DWyzkCKYKHjmqH1+8QAICwdlmGox0UXP5V1ifj8wW1m5hSeY+Dywi7T0fw2/ +V8oXlVczMbFyeceMWx90yn/cmDDPxK+9xMRPv5dQUj4vHrRFGH93f7Z0dnoB +AT3u61cdEcbnL7qbvsR0w1Z7qZB75cJYm/8+4qxmJ3A2ptrKzAtjh/+SRxal +T+BWjY+GkYoITu+u4e3IaAU7dlJccIAIGl3nDhKJbIYvQsKv994RQYeI8KnY +gUYI/LT7+tJPItgquvWv34kG4JUfeFuvIIpj20y4bPbUQtifNmEZD1FUzj4I +E4FVsExrWcu1AlFckee3NKuuDIKsZj59+CCK2YkjiRvPlkLnMj2Bt1JiKDi1 +uyp65Daoig0VjLqJ4bvtTVXSC/kQ0jameyFXDPvEdzL6V+VB59Bm470TYrjN +rizd3T0HBHu2PJ2UYuFUs/eofEsm6OzLsZA4wELtYq+CqCWXgFvpcKyMCwv7 +HS0vRU+nQdcyqFd0ZeGfAeXNF/rTwLlwYKO6GwtN22d3vylPg+hfQmvMvFhY +fNdiN69XGnRcSuwIDGDhKqOnEh/7UsHmZcj29kgWppjlH42uuQhHzPds9ctl +odIqt17b/BRIqhWXds1j4TTFKLxwOQVuy82ssLnBQl2PmopX8SkwwXX6Oeaz +EHQe2J7ySYG99fed1hax0PzfYAUD1RTQVGKFldxjoQSXe0VZw3ng4B+r/dzI +QiOD+NGPI8mQ8NJPzXOYhYx2kRcntyaBCJ+spc0IC/kqIqL2bEmCG0ZDHkaj +LGxX981Tk0+CuhrzLKlxFi65YEWtFUiC6Rx5ztEpFrqYio6bt5wDS9/xbrsv +LOyOGFnfwnsO+LltfMz+snDhnJpCb2YCpKljrhKLwIyegXX7vsZDR3Yt92aC +wMNFP39q9scDB7eG1xY2gQtaIqNyzfHg/lJZRYcikNw6E6d9OR40/SUaTCQJ +5GrimFDQi4eBQq6Bg4oE1gs3d8imxYE4+6lAljaBdqeugJnZaShebhvJ60Dg +w+tVnL2T0aDG3XP+N+19ESH3enqjoY7H/Nrn/QTOHL714l1zNDxbqfew24nA +TwsHDUVzo2F6ndzfy64EWhduFZJyigZF4lewnA+BiYod2lGDUVCklu5vEkqg +IXuqXO5dJNxye+OUkE7g7JGKb76cEfAmVbgmJYPA1l0Osqz/wmFFizUjPZNA +xdrhqr7xcPDc0Ndy4wqBFsbrmvweh4Pc8Av5hmsE+pR4JKifCYcC26f/zRbQ ++31dv45XMByKzBrirGsILPlyQ+aYchjcUb1RKjFAYE05+56r0Amw3NiFkoME +/jUtL+//EwpfZH51Sr0lcLQv85jrRCgoEebTskMEloVlc5aVh0IJz7yc0hiB +TktUM/+1CoXiwW25Wp8InL+8i5hKC4Gi2PFUqwUCc7j1fu+UD4b8/g2hsWJs +5Hn+Vds/NggyD5tWBrHYaKnBN9F4JAjOLT8y60awcVHmbhvlHASBmx65G5Fs +PCTIEF2hHQT6kU5WvBvYuCAW0hE5Fwjv5K5sPCPPxhwX5h3+A4GwPlhoOFGT +jVkC0XM2pkchirnCINWajccbN8uc3BYAZP98e7oNG//mruJu3hwANVmjFtm2 +bPQPej4kvCEAZsUf2OTvY2OByWabz0sDwEnxsE+1Ixv7263lNR/6g45e74W3 +7vT5pq68dUJ/+OF1bVTqOBtPf+O0yzbyA+96zfDKy2yUclhjr7roC3ZikncL +0tnYKaGeOjnqC8bH+UazMthoHcxsK2n3BVnVMf2oLDZmWmsOhVzyhYkbCTw7 +cujxux9Ul/zjC/sTh859yGdjN9on3/PzgZ32MVdYVWz8ZGulsvOnF6j/7q6J +7GXjKc7arYd0PCBN4qa4fx8b+Z469onIecC8SWic4ys2ThvVWvQKekBZptRe +7TdsLJLVqg/97A5KOiGz84N0nl9uWsRkuYNM+AZZz3E2qr0eXxrB4Q5C3EGp +lt/Y+OrFyP0n3QchhDexag0vidwRI991s13g5Ob+tUm0ZXXOb5RIcIGI/TIe +61aQWGCkMCEQ4gLx5Y3CjJUkzsmZ50nsdYFLTt+DhVeTWOJdsuQ3nwuU3XfU +3rCORDMqfdvJqAMw7aHaqCFMovtQzKnwY87g2P7qiYssieMBoZOf4hwhsXFD +8CDtBcUwK+NQR6ipPiyzR47ENpOhB3d9HWF9IU+0oTyJ/4gW2+XucoQnZ9R1 +5BRJPOSR95aXcAQ1s0t3ZpRI5JC65nDbYz+s6tp7MVidxOvzhw1Ce+yh8mWv +Q5IhiQ6CGxOEx22hymW5ioARiY+6yi9+67CF6jnV5am0/Z6e6R0rs4XadcmF +GdtJNFq18j5ntC00mpn8uGFCIlfUwEqUsoVnzfXJDyzo+Wt4vC9628BEeX7T +h70k/hfMw9DjsQZGarDcNncSTywNOst9zApg9uauetqem0ok51ytwNP8ZaiG +B4lPVTtLPu+ygodcSp2KniReYA0c5FOyAt+g8YD13iQen6vj53y/G1qtLR9M +HiIxw3QdI99+N4SKSlnGB9F5mX+WiN+xC0avdh/tjCGxaafDVzOnHdDi/E3D +MJbEH7mXz03s3AEFG4T+1NF+YZbyIV5/BxzO3xdTfJrE/ZuiS+eld8BCyWRq +QjyJuq2GYTYzlsCoX6w0SSRxVbQHWz/MEgwGZX89vkhi15zDicHdFlAgHHGy +IZfOL1R9zxEtU3Dyj3XTyyNRZkflrUVxU2A+OWvZRFuryjEji9cUYkPTxFtv +kBjm3byC6jMBl3dFLZ35JG4S8/ihGmACrLy+Ne+KSKx37FA/XmIMSUqK2Ytl +JN4WOjS4uGU7BBm+qtdsJvHj2Al7rmgDsPYZ+HOPNt+yppkl/gagnjKkrdhC +198cbFfvN4Bfb6dq2I9JdD0qE7VLwwBOBv6s5Gwj8ZSRflPG9DaIyRO586yD +rkf/nTdr922D1GX2V517SPR+mJekpqcPFfXDYfGjJJrs6//xSl0PvEJbx1aP +kajzxkmYktEDUqPEKJk2SXk6HRPSg/i7oWsvjZNoUy2msnteFxzyhK7mTZKo +oma/v75MF7jPmNU3fCTxe3S6jfVmXbDec39xfo7EOJ2FK5o6CL8/JQUf4KSQ +XzOPS/KbFrjz+Rwfo91ZLfbyz2st6FHefsx1OYWnXz7l+FKvBcWBSwLduCgM +1HjCYp7VAmcOfz8vHgrNRRJUT0hqQbvALveAVRQ6WM0ox+37F9I1BfdEMig8 +WKsnyO7XAI3Tl5Wvb6Cwa2JxVmH9FugKOhIjKkmhjLtnw+2lW+Cgm0V/Cm3t +oN4BnRk1uGCwPDpKisJJ4dmO5FY1mOH0e+UqQ+Ey2UDGzxA1yAs3OiWjQCEv +u6784fg/sC7ke8dtVQpn/yleO9y0Gd77WLlX6VH4oZL17GaxCuz+xj+iuZXC +pIqp2KgsFagL7rJ7QLvgwFTf4bMqcCHWxKJRn0K7nvSlxzxVAHN01ToMKHyG +a/7oSKtAao8i55AxhTvu8p+7fl0Z9P/lusq9i8L7is8uedxUgmyeyr49B+j7 +BiR5bLujCJv3Bdzsov3mTWXck1RFaC3ZFGTsQuGp2W47txOKMLsnf72OK4Xe +gcMd74wVQT/vspWkG4VXwzonuicU4L1u6Is5T3q9C6/MCsUVQDVEtzPJn0I2 +r2Vs1S05ePz5SUt7OIXSexZq075KA+PmCWW9CApnwrSEvAalwdFxU+Z92nZu +vrss2qTh1/PzfvmRdL6FzRrGOdKgUGUjFhNN4YDgeQ2endKQFDHppxtHoQlj +xfLLFVJgLbSMVZVEIfJN8945IwlTqBmQl03hkTi11ClnCeBJfrZU+iqFryLf +y8rtkADZYefz+bS3sKqGQ0ACPMPPlBbmUPjEJjrSQkwCPj8cmCm9Tp/X+8Hv +8l5xmNU75V13k8KtW+wNA8zFYUG/ybWvhEKOl0zSfDsFfNvNrXkbKPxHc++J +bS8IsD04rB3R8P88iRVTVQTkRh6R+E37g5seZ84VAtTr0qc/PaTQaMPfb1ae +BDirTkZ1PaLfy7hXddtSAipYYaVpjym05v9zqXULC/bNlq6Q6qRwfOTRWG6p +KORnCD7Qe0uhbMD+jnXDTEheLXy3jTb7Z5iCSRsTgk+J3bR8R+FHg1GZjFIm +mB6QSHYYorBflJ1zMoIJX+SUXYNH6LzMHujskGSCRrXp6rsTFIY06r3nPyQE +7a8i7akZuj6lfg3H+dfDPePYnfm0P1K1LQ6LgpBZG2+46QuFZ3ISRvdOCYLv +1WRl7a8UujiPM2LqBIHfPXu5zRz9XvIkDLu8BMHue/XtpO/0/2sUvbWynQH6 +HnXXhH5Q+NPu9V7ZCgZs7H+YdoW2Y1LUfzbXGMBR3xpe9JPC6QRGxVwwA3Jj +eq1af1PI6ddny63IgIQfr40tFij0MTM6Vy3MgEDPQeilnV+hLhnGxQAj8zHZ +sUUKN4qKKOkNCYBywyTh9YdC3XtHInSeCoCIykeBWdo+c9RX02oBWJY7zXP8 +L4W+q/96+twUgE+Cs4t/ac/Az7fZFwTgf9J0UbI= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.4641503901716244}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.4641503901716244}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.9925188800730143`*^9, + 3.992518886553644*^9}}, + CellLabel->"Out[42]=",ExpressionUUID->"cc65b880-a6d5-4212-9cbd-4521c56c8a92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"141498.48776203764`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 40, 4, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9}, + CellLabel-> + "During evaluation of \ +In[40]:=",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, + 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, + 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, + 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, + 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, + 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, + 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, + 137, 112, 88, 65, 42, 191, 164, 138, 113, 89, 66, 43, 192, + 165, 139, 114, 90, 67, 44, 193, 166, 140, 115, 91, 68, 45, 194, + 167, 141, 116, 92, 69, 46, 195, 168, 142, 117, 93, 70, 47, + 196, 169, 143, 118, 94, 71, 48, 197, 170, 144, 119, 95, 72, 49, + 198, 171, 145, 120, 96, 73, 199, 172, 146, 121, 97, 200, 173, + 147, 122, 201, 174, 148, 202, 175, 203, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 13}, {0., 1.01270012148501}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}}, + CellLabel->"Out[45]=",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, + 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, + 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, + 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, + 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, + 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, + 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, + 42, 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, + 44, 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, + 46, 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, + 48, 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, + 199, 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, + 76, 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, + 102, 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, + 129, 104, 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, + 157, 131, 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, + 186, 159, 133, 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, + 39, 188, 161, 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, + 64, 41, 190, 163, 137, 112, 88, 65, 42, 191, 164, 138, 113, + 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, 193, 166, 140, + 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, 195, 168, + 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, 197, + 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 0.9838824269554479}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[43]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.735, $CellContext`xmax$$ = + 9.040000000000001, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.466, $CellContext`yyv$$ = 1.35, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {106.9611940496057, 112.5861940496057}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {195.8768190496057, 201.5018190496057}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9, + 3.992518895464242*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"b0128e43-0455-4ee8-acf8-8febaff794cf"] +}, Open ]] +}, +WindowSize->{714, 390}, +WindowMargins->{{-3, Automatic}, {399, 15}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"10cf49ec-f86f-4cd7-be57-4cfbf349055f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 71, "Output",ExpressionUUID->"fcab6762-7382-4e3e-becf-478d37ed6771"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2581, 75, 149, "Output",ExpressionUUID->"ebfa0188-4c83-4367-8579-929fa7607643"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8989, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10672, 334, 2780, 81, 149, "Output",ExpressionUUID->"41869698-3073-4b06-8267-0fbb58f28415"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13489, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15335, 475, 3720, 109, 158, "Output",ExpressionUUID->"ae915d50-b6f6-4133-936a-44dd228a9222"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19092, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21175, 650, 4789, 138, 193, "Output",ExpressionUUID->"dcd8a109-4809-48df-8cc7-829108877606"] +}, Open ]], +Cell[25979, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26152, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26503, 804, 305, 5, 33, "Output",ExpressionUUID->"1b441782-d66f-4e89-9200-0eb8ce695b45"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26845, 814, 334, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27182, 822, 305, 5, 33, "Output",ExpressionUUID->"5af9b2a3-9d42-461b-b987-bea43a4f1015"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27524, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27703, 837, 277, 4, 33, "Output",ExpressionUUID->"58f9864a-2404-41dd-9aed-9da0416f2525"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28017, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28278, 855, 279, 4, 33, "Output",ExpressionUUID->"89c6665f-af57-4083-ad4e-99ebe8fa7079"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28594, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28729, 868, 277, 4, 33, "Output",ExpressionUUID->"1e50c605-caec-4842-9ec9-4335061b73a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29043, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29323, 885, 289, 4, 33, "Output",ExpressionUUID->"f6724732-8888-4b3f-997e-a9fd3dfdd112"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29649, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29910, 903, 288, 4, 33, "Output",ExpressionUUID->"ffc5de5b-da0f-4eeb-9fde-30431e5caca8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30235, 912, 374, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30612, 920, 154, 2, 33, "Output",ExpressionUUID->"fc7ecfb5-95c8-41f6-996a-daae90ed3c78"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30803, 927, 376, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31182, 935, 154, 2, 33, "Output",ExpressionUUID->"b42f0de1-771f-485a-96a9-f5765b5344ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31373, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31505, 946, 273, 4, 33, "Output",ExpressionUUID->"f2307381-e751-426c-8a27-2bca0cca415b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31815, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31947, 959, 270, 4, 33, "Output",ExpressionUUID->"4ff1044e-911e-4ada-ba83-da5d0b933170"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32254, 968, 2020, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34277, 1021, 20615, 386, 255, "Output",ExpressionUUID->"5a93b47b-d87c-4c05-aa2b-d17bd1e4b26b"] +}, Open ]], +Cell[54907, 1410, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[55060, 1417, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[57339, 1478, 5393, 79, 117, "Message",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], +Cell[62735, 1559, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[63111, 1571, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[65282, 1631, 4376, 63, 114, "Message",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], +Cell[69661, 1696, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[69995, 1708, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[70300, 1715, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[70540, 1723, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[70850, 1730, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71122, 1739, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[73646, 1804, 107321, 2284, 236, "Output",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[181004, 4093, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[181168, 4098, 138703, 2809, 236, "Output",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +}, Open ]], +Cell[CellGroupData[{ +Cell[319908, 6912, 2556, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[322467, 6985, 3613, 69, 413, "Output",ExpressionUUID->"992f477c-9052-4ef7-92d4-085924fdc871"] +}, Open ]], +Cell[CellGroupData[{ +Cell[326117, 7059, 966, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[327086, 7088, 22155, 410, 259, "Output",ExpressionUUID->"34fc9e99-99df-4e33-98bf-55a11fd36729"] +}, Open ]], +Cell[CellGroupData[{ +Cell[349278, 7503, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[351644, 7566, 5452, 79, 115, "Message",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], +Cell[357099, 7647, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357450, 7658, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[357679, 7664, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[357891, 7671, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[358146, 7677, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[358360, 7684, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[359344, 7712, 111871, 2376, 236, "Output",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], +Cell[CellGroupData[{ +Cell[471252, 10093, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[471418, 10098, 157319, 3132, 236, "Output",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[628774, 13235, 2625, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[631402, 13309, 3671, 69, 420, "Output",ExpressionUUID->"1ac8a425-73ca-486f-bbee-97041afbedcf"] +}, Open ]], +Cell[635088, 13381, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[635351, 13389, 840, 23, 96, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[636194, 13414, 11307, 233, 232, "Output",ExpressionUUID->"bcac40f6-c7d7-41b1-b550-257fbce97549"] +}, Open ]], +Cell[CellGroupData[{ +Cell[647538, 13652, 2230, 58, 118, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[649771, 13712, 6101, 88, 280, "Message",ExpressionUUID->"2105c02c-76bd-4ffd-be64-b5062851db3a"], +Cell[655875, 13802, 457, 11, 26, "Message",ExpressionUUID->"54400565-5bc6-48c9-8154-4d3b716d29c0"], +Cell[656335, 13815, 342, 7, 33, "Output",ExpressionUUID->"9f598ad9-7629-430e-80b8-70a7d572d63b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[656714, 13827, 302, 5, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[657019, 13834, 203, 3, 33, "Output",ExpressionUUID->"e1750ba9-a35c-4892-b880-a0eaa98a46bb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[657259, 13842, 299, 5, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[657561, 13849, 205, 3, 33, "Output",ExpressionUUID->"7c686520-df6c-4c31-9115-9df4120e4aba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[657803, 13857, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[660366, 13923, 74276, 1588, 229, "Output",ExpressionUUID->"57795bb6-5fd7-4d6a-9c83-6b9bd83b2bd1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[734679, 15516, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[734847, 15521, 84887, 1778, 232, "Output",ExpressionUUID->"c1ee8dd4-20cf-44ed-8c70-654569a71452"] +}, Open ]], +Cell[CellGroupData[{ +Cell[819771, 17304, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[822302, 17377, 3491, 66, 420, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[825830, 17448, 916, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[826749, 17475, 20829, 389, 255, "Output",ExpressionUUID->"cc65b880-a6d5-4212-9cbd-4521c56c8a92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[847615, 17869, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[849951, 17931, 4044, 60, 103, "Message",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], +Cell[853998, 17993, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[854352, 18004, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[854606, 18010, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[854822, 18017, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[855077, 18023, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[855291, 18030, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[858138, 18104, 49805, 1052, 236, "Output",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[907980, 19161, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[908187, 19167, 88691, 1711, 236, "Output",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[996915, 20883, 2581, 72, 247, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[999499, 20957, 3562, 68, 433, "Output",ExpressionUUID->"b0128e43-0455-4ee8-acf8-8febaff794cf"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/rename.zsh b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/158-82_h_Pu240_12-13/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done 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 new file mode 100644 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw1.nb @@ -0,0 +1,9365 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399390, 9355] +NotebookOptionsPosition[ 375168, 8989] +NotebookOutlinePosition[ 375597, 9006] +CellTagsIndexPosition[ 375554, 9003] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "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->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_фитирование.nb b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_фитирование.nb new file mode 100644 index 0000000..14ab27c --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/h_160-80_Pu240_14-15_фитирование.nb @@ -0,0 +1,12830 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 612919, 12822] +NotebookOptionsPosition[ 601568, 12624] +NotebookOutlinePosition[ 601981, 12641] +CellTagsIndexPosition[ 601938, 12638] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992519210948167*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"5ac7bfb4-8067-4fa8-b456-de11e7a01806"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.992519211270843*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"2c5ccf60-8632-4f39-ac9c-a6b01c2018ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.992519211301735*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"1297fe33-afb3-44bf-9765-d83f70a5f03b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.992519211330598*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"3736c786-cfbf-470a-b0fd-f515cb49d381"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9925192113626842`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"d2497acc-11e8-4d55-b1dd-3328f9393a06"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.992519211394783*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"0e2d106c-4615-4bc3-96ad-c02dea46c1b7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992519211433239*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"62455ade-5ae5-4918-9788-020049aca192"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "160"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.992519151303282*^9, + 3.992519153542101*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["160"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.992519211464916*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"fb75b637-66c3-4f96-8afc-aaa9a175d3b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.992519211496707*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"0334c043-4a5b-4aac-909e-211a738ec593"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.545`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992519211528417*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"f4cc4d44-5cd1-49fa-ab22-8215b42fb2d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992519211560907*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"7027c4bf-ee01-4b1b-a5d0-7f02c24ec268"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.297448870500181`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.992519211593001*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"42fd1035-ee83-4000-b299-dbae0d9ae546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.9982884808739705`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9925192116228943`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"f74434d5-606e-438b-aa55-68f6c69760f2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.978"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.9925191707899942`*^9, 3.992519180606166*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.978`"], "Output", + CellChangeTimes->{3.992519211628509*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"a50039f4-facc-435c-aeac-9311d055930a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.430"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.9925191895226927`*^9, 3.992519197145742*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.43`"], "Output", + CellChangeTimes->{3.992519211669449*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"5295dd51-e7fa-493f-b9d7-bd2294df405c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.992519211699566*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"e2ea385e-cf6c-4314-a8c2-97bf101ce664"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.992519211730505*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"0b939375-9eaf-4fbd-9a86-05eeb210cbcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.9925192178323097`*^9, 3.9925192183839073`*^9}, {3.992519309228731*^9, + 3.9925193241254873`*^9}}, + CellLabel->"In[25]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0/k/1Akcx/FJPBCrcqR15GvO7yKGx0O2y+djkke1SuuIJo8oi4drp0uZ +GYQQJaWSaGIqXZap0EWFSrkfobIKOWYxTTOmHNtQWfvD+/F6PP+At/Vunneo +BoVC2Ty3/7vsg/F8CoXAmNJf9P66qASF6t1o5ZwbaErNdpESHmlcaouYRyD9 +9JXEqQtK4DKXF3RqELhmd4cKCpSQG7Pe8boWgeKw9oaWc0rQ/xYbtEWPwOmH +x/TaTipBvbSrWrSEQKettl+jk5Xw2jv/wMrlBN5e1anWD1GC0bYl1biTwEjv +tAL7n5XwfQPhppNFYNNOj2fsRgX0BLOHZA8IVC74Wm3OU4C7zkpuvozAal5Z +Zf2PT+Bf1LZI19QaI6dq1lemf4Lx+kCRxwZrdFVPSjZ/kUPq4s/rCuOskUhy +tknxlEOtp6HtvavWqL+Ucqu48COkmdqNXHhrjYdvmolNWmQw2d4x6KZJxfJL +L/rXfBkF7p3D0/Mcqdg2YzVcrDMKGwjGyMldVAy7kCz1mhyGgUR/o75sKkrc +y+wXD/wD82NSjKdrqDj2anbg0WUpmCVVOLJVVLS7mrnRiTsEPSl7s5mWNFwV +HP6b3GIQWCZk7cfNNOyrLaF5Pu4Hy7woR56Qhq0ldTaj0j4Q3bh+qK6UhvJO +VtU2ix5Y9EHWvbyXhqdWBk8BrxsctB4KuQvoODzUHOit1QVdVUlffFfT8XBK +kIdz+muwCX5zY2EEHQ0dVqx18u2AfTZsoTSXjtcNe29V/v4K1qUeoR59QceA +H7OfwwtboKY1RPfjOB2bAigWqU6N8PzamnozBgPHrLrTrLrr4Umx+cVQPwYe +yWpOVMieQsjpo5V7UhgYGW1y3F9QCzkLP4k3VjAwNCeXm7vxEUTG97YM9jPw +O7Hfc9/BB/CrwRvjcz8xsVMYsp1jexdOOtQ7mroyMdjOspVjUA45yMkOiGIi +5/i+1SFGt8Bi4H5NuIiJ5/PP6I4FloD33iq2SxMTvToftweevQYJzGePiX+Z +2CeRvDwYfAUco55b/c1iofu9+a5loWI4VeRd5+XHQreqQwUDuiKIC+l2yU1n +4dpMNdOrOA/8PMOaJu6xcNaocKFk5gz00pNExlIWVkh8xnoNc0CZdXqdhgmJ +/pHHOIYvs6BE6mhzm0PiHQNOuXVaBuzY1WUXxyNxkzrAVzKeOveHWE0DMYma +tppPtW8mgyBCbP5HK4lPrh4VcM0TIeAs47h9G4njI4W2w1qJ4FxTMv11zjLJ +E91kVQKojO92n3hF4vvsDqq0PgHCaxvz7neS6Nc5eWnn3gTwNR030ntH4tLk +0gfmzfFgX79ev3yYxBm/Ld1/ZgpBX9UkjB8h8XV40IqWWCHIzLbKPUZJbH2R +K3TZLYTiPdym9zISm+NEeS6rhWBuwcvQUpAYH39Du1chAJ395zW3j5N4TdAT +UekngOGLlgdoEySe165qlHME8Kzh8pBizulLtvPZbAEkLit7mjJFItlz5fLA +AgFMNtYllapJlE94mA3W8qFjwkN1cJpEbXnfRIqED7etWoLcZkgsyox+wxbx +ITr2revbbyRmNKiPVBziwybxDon4O4k5e9ohI5QPrOZ+y6gfJDIatvRG+PBB +cyr0hPMsiWHuMT4BbnwYJOTfZudclGSf7+PAh/8AIEo+sw== + "]]}, + 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:eJwV0/k/1Akcx/FJPBCrcqR15GvO7yKGx0O2y+djkke1SuuIJo8oi4drp0uZ +GYQQJaWSaGIqXZap0EWFSrkfobIKOWYxTTOmHNtQWfvD+/F6PP+At/Vunneo +BoVC2Ty3/7vsg/F8CoXAmNJf9P66qASF6t1o5ZwbaErNdpESHmlcaouYRyD9 +9JXEqQtK4DKXF3RqELhmd4cKCpSQG7Pe8boWgeKw9oaWc0rQ/xYbtEWPwOmH +x/TaTipBvbSrWrSEQKettl+jk5Xw2jv/wMrlBN5e1anWD1GC0bYl1biTwEjv +tAL7n5XwfQPhppNFYNNOj2fsRgX0BLOHZA8IVC74Wm3OU4C7zkpuvozAal5Z +Zf2PT+Bf1LZI19QaI6dq1lemf4Lx+kCRxwZrdFVPSjZ/kUPq4s/rCuOskUhy +tknxlEOtp6HtvavWqL+Ucqu48COkmdqNXHhrjYdvmolNWmQw2d4x6KZJxfJL +L/rXfBkF7p3D0/Mcqdg2YzVcrDMKGwjGyMldVAy7kCz1mhyGgUR/o75sKkrc +y+wXD/wD82NSjKdrqDj2anbg0WUpmCVVOLJVVLS7mrnRiTsEPSl7s5mWNFwV +HP6b3GIQWCZk7cfNNOyrLaF5Pu4Hy7woR56Qhq0ldTaj0j4Q3bh+qK6UhvJO +VtU2ix5Y9EHWvbyXhqdWBk8BrxsctB4KuQvoODzUHOit1QVdVUlffFfT8XBK +kIdz+muwCX5zY2EEHQ0dVqx18u2AfTZsoTSXjtcNe29V/v4K1qUeoR59QceA +H7OfwwtboKY1RPfjOB2bAigWqU6N8PzamnozBgPHrLrTrLrr4Umx+cVQPwYe +yWpOVMieQsjpo5V7UhgYGW1y3F9QCzkLP4k3VjAwNCeXm7vxEUTG97YM9jPw +O7Hfc9/BB/CrwRvjcz8xsVMYsp1jexdOOtQ7mroyMdjOspVjUA45yMkOiGIi +5/i+1SFGt8Bi4H5NuIiJ5/PP6I4FloD33iq2SxMTvToftweevQYJzGePiX+Z +2CeRvDwYfAUco55b/c1iofu9+a5loWI4VeRd5+XHQreqQwUDuiKIC+l2yU1n +4dpMNdOrOA/8PMOaJu6xcNaocKFk5gz00pNExlIWVkh8xnoNc0CZdXqdhgmJ +/pHHOIYvs6BE6mhzm0PiHQNOuXVaBuzY1WUXxyNxkzrAVzKeOveHWE0DMYma +tppPtW8mgyBCbP5HK4lPrh4VcM0TIeAs47h9G4njI4W2w1qJ4FxTMv11zjLJ +E91kVQKojO92n3hF4vvsDqq0PgHCaxvz7neS6Nc5eWnn3gTwNR030ntH4tLk +0gfmzfFgX79ev3yYxBm/Ld1/ZgpBX9UkjB8h8XV40IqWWCHIzLbKPUZJbH2R +K3TZLYTiPdym9zISm+NEeS6rhWBuwcvQUpAYH39Du1chAJ395zW3j5N4TdAT +UekngOGLlgdoEySe165qlHME8Kzh8pBizulLtvPZbAEkLit7mjJFItlz5fLA +AgFMNtYllapJlE94mA3W8qFjwkN1cJpEbXnfRIqED7etWoLcZkgsyox+wxbx +ITr2revbbyRmNKiPVBziwybxDon4O4k5e9ohI5QPrOZ+y6gfJDIatvRG+PBB +cyr0hPMsiWHuMT4BbnwYJOTfZudclGSf7+PAh/8AIEo+sw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9567465990088643}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9567465990088643}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0/k/1Akcx/FJPBCrcqR15GvO7yKGx0O2y+djkke1SuuIJo8oi4drp0uZ +GYQQJaWSaGIqXZap0EWFSrkfobIKOWYxTTOmHNtQWfvD+/F6PP+At/Vunneo +BoVC2Ty3/7vsg/F8CoXAmNJf9P66qASF6t1o5ZwbaErNdpESHmlcaouYRyD9 +9JXEqQtK4DKXF3RqELhmd4cKCpSQG7Pe8boWgeKw9oaWc0rQ/xYbtEWPwOmH +x/TaTipBvbSrWrSEQKettl+jk5Xw2jv/wMrlBN5e1anWD1GC0bYl1biTwEjv +tAL7n5XwfQPhppNFYNNOj2fsRgX0BLOHZA8IVC74Wm3OU4C7zkpuvozAal5Z +Zf2PT+Bf1LZI19QaI6dq1lemf4Lx+kCRxwZrdFVPSjZ/kUPq4s/rCuOskUhy +tknxlEOtp6HtvavWqL+Ucqu48COkmdqNXHhrjYdvmolNWmQw2d4x6KZJxfJL +L/rXfBkF7p3D0/Mcqdg2YzVcrDMKGwjGyMldVAy7kCz1mhyGgUR/o75sKkrc +y+wXD/wD82NSjKdrqDj2anbg0WUpmCVVOLJVVLS7mrnRiTsEPSl7s5mWNFwV +HP6b3GIQWCZk7cfNNOyrLaF5Pu4Hy7woR56Qhq0ldTaj0j4Q3bh+qK6UhvJO +VtU2ix5Y9EHWvbyXhqdWBk8BrxsctB4KuQvoODzUHOit1QVdVUlffFfT8XBK +kIdz+muwCX5zY2EEHQ0dVqx18u2AfTZsoTSXjtcNe29V/v4K1qUeoR59QceA +H7OfwwtboKY1RPfjOB2bAigWqU6N8PzamnozBgPHrLrTrLrr4Umx+cVQPwYe +yWpOVMieQsjpo5V7UhgYGW1y3F9QCzkLP4k3VjAwNCeXm7vxEUTG97YM9jPw +O7Hfc9/BB/CrwRvjcz8xsVMYsp1jexdOOtQ7mroyMdjOspVjUA45yMkOiGIi +5/i+1SFGt8Bi4H5NuIiJ5/PP6I4FloD33iq2SxMTvToftweevQYJzGePiX+Z +2CeRvDwYfAUco55b/c1iofu9+a5loWI4VeRd5+XHQreqQwUDuiKIC+l2yU1n +4dpMNdOrOA/8PMOaJu6xcNaocKFk5gz00pNExlIWVkh8xnoNc0CZdXqdhgmJ +/pHHOIYvs6BE6mhzm0PiHQNOuXVaBuzY1WUXxyNxkzrAVzKeOveHWE0DMYma +tppPtW8mgyBCbP5HK4lPrh4VcM0TIeAs47h9G4njI4W2w1qJ4FxTMv11zjLJ +E91kVQKojO92n3hF4vvsDqq0PgHCaxvz7neS6Nc5eWnn3gTwNR030ntH4tLk +0gfmzfFgX79ev3yYxBm/Ld1/ZgpBX9UkjB8h8XV40IqWWCHIzLbKPUZJbH2R +K3TZLYTiPdym9zISm+NEeS6rhWBuwcvQUpAYH39Du1chAJ395zW3j5N4TdAT +UekngOGLlgdoEySe165qlHME8Kzh8pBizulLtvPZbAEkLit7mjJFItlz5fLA +AgFMNtYllapJlE94mA3W8qFjwkN1cJpEbXnfRIqED7etWoLcZkgsyox+wxbx +ITr2revbbyRmNKiPVBziwybxDon4O4k5e9ohI5QPrOZ+y6gfJDIatvRG+PBB +cyr0hPMsiWHuMT4BbnwYJOTfZudclGSf7+PAh/8AIEo+sw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9567465990088643}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12.5}, {0., 0.9567465990088643}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.992519211926071*^9, 3.992519219628364*^9}, { + 3.992519310516329*^9, 3.99251932481124*^9}}, + CellLabel->"Out[25]=",ExpressionUUID->"63cc8870-91f2-4458-b722-1957a8c184e8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", \ +RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ +\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \ +\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ +RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ +\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \ +\\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\ +\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\ +\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \ +\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ +\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \\\", \\\"R1\\\"}], \\\"]\ +\\\"}]}], RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ +\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 20, 1, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, + 3.9919651511804237`*^9}, + CellLabel-> + "During evaluation of \ +In[20]:=",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ +\\\"0.2800677099442378`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ +RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", \ +SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ +RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ +\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"5391.436356051909`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.2800677099442378`\\\", \\\" \\\", \\\"R1\\\", \\\" \ +\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ +\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ +RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ +RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.2988729554791925`\\\", \\\" \\\ +\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"67848.64114184062`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"35\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ +is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ +\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \ +\\\",\\\", \\\"b0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ +RowBox[{\\\"1.`\\\", \\\",\\\", \\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 380, + 164, 24485846962764810879, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9917125235776978`*^9}, + CellLabel-> + "During evaluation of \ +In[380]:=",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519236322792*^9, + 3.992519236328576*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519238268708*^9, + 3.992519238274831*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = + 0.8049999999999999, $CellContext`xmax$$ = 12.72, $CellContext`xmin$$ = + 7.72, $CellContext`ymax$$ = 0.972, $CellContext`yv$$ = 1.965, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9, + 3.9925192412878933`*^9, 3.992519328464222*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"b7a557a8-09b7-4159-b5ef-0579fa737a76"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9925194588163843`*^9, + 3.992519467971952*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0lu/zB3BRSEVRZIkHz33fIVtIKDNEVJYoWbOnLAnZQ4iypL7ZSSFk +qSwhUbKGVJSIZE0oS/RJSaTf8/trzuuc65y55n3mjKj9OeNTzExMTLxrmJj+ +vwrsrWUUGtr25F8vPDwLXaHLHVkM9yYOtO85NAsxL1Ruaqyhod+VCv0mnVn4 +Y/FI4RIzDR2rBSX6tWbhQ3CJI+s6GppOOcj8U5+F1Kbslo0cNIxNui5LKszC +NsPLMfxbaajHzjQ3LjALm50MuRV20pDL2/uI4JcZcIx81th6jIarYefte91n +4A+b146AIBpGtku9LP02DVe8dESsc2nIdknzU7PdNHh2LDXkdtIwRPoHh8Oj +KbgdN8/J/puGho2lwr0sU7BTvXnllbgoUq/9Kz7v+goF76tvPDcQRYHOzv06 +B76Aa9ePN/2+ohikdGfm+fFJiK3jKDO6I4oq8uEpTWoT8I3LSW28XRT3hfJ1 +bBYdBx3dMbf7/4niLyEpKd4/Y7DquR96dojhhnemrqoFn2Bx9eMTgYNiKHdS +aYTTZhQMgk0/NHiKIa+eq4Hg0DDcHFu4lZEhhpm3Hk/4rQ6A5IP3GxObxTB4 +74FQHYN+4DuTJDQ7J4atE8zWGW69cPBy6nv77eL4fad/cFxHN7xL8pdX1RLH +qotP3a/xdcGJuEAF7XPiWBAm49y7qxMEv9QPu6WI48bqygy/vnZQV/y861ej +OAab3XVou9ECOWNH6BnT4pjJ+pXfZLUR/gX2NPrw0DE6uCba5nkdPGbZx1ym +TseVNNVss8lqqJibmGY/TUeRzTqb0vdUgiTXlq4qhjeJ+zwdEK+ETBm1x05n +6LjH82zeri2VEHP2ekSzMx0lX3BsWZiuAJtp5R2hbnQcFMBm2p0K4JiMMlj0 +pOOPv5Z7ZzdXgO2QZNl4EB3NTt+Pkvn9EDa9dvdtjKfj03yXLomZUhDzVpJy +T6CjUJnai/6BUtgruDLMn0jHOzNCyimvS8HeOfqQZxIdV5kL7HeXlMKjdblC +tFQ60njz7L97lYKt+ofG4Ft0NN2VcktgqQQqSg5wqRTQcV3kjhRpuWKwit9e +UFJLx7L/4KPfUBGsHo7qNHxGx/wTwPy9pQiyWH7/mmP4o5ht1YWSIhj37tWW +q6fjYn9W/vPQInA3TR4rbWTMI6mdLUkvglChrSIPW+nI5G+8Rt69EPLuciVX +vKUjxgiXznEWwLca1ojqcToqbvzhoByWBycml+RPT9Cx3u+fsYRbHjzjmR3e +OknH/pf8atKmeRDn9k7N4wsdRZOz21yk82CXcNYPcpqO013hqU/6c8ElTMUh +cZ6O7EpDm4r25sKEjpvmuWU6vtbx63BZkwOD3W+ZiC0E1rfU5LM1Z0EXt7to +K8MRurxe6hVZ0HKUQ9OZm8Ak8PcLz82C0lealx7wEDjAIr95d2QWRDSXr9vD +S2CVgFKEjE4WSFYkcegIEvgvqKVI4mYm+CaYb3UmCJyPHjtS2XoLuIxHqQcq +BArVjqyOnkmHXD4BPj1VAjv2N+VPGKbD3kFj1mmGlZ4/esiknA72Z5o/79xH +YJqWw0PvdelQEZKfnatOIPsl+XKLnDQwv3dWMOMAgT56Jne2jKVCzto/nLH6 +BJb0bGlu8kwB5SruX2fsCGR5rfeL+0UixM93uG6zJ5D2WjlQtzwRZiRiRxsY +flh750f8rUTIymB5LeBIoMLWfeFOXonAHr6Q88qJQGVzN1nWHYnQp/feSM6N +wOrT2fPbfRMg8FPag0VfAuWuyO3nU46HbsET4rl+BL783tXfLh4PMibcaUf9 +CbzyxtLixuZ4+NQaE1EYQODGaIW6E1M34MiDC5aWQQRe6ky3b7h9A4T8T66v +CyPQaWatNvuGG1C7SfTU5asEhrrUKYyMXodcs8v6VByBbLXqBhsar8PVnGml +NobHzlHzx+5cBwuVR6wc1wmk/yftst/hOvxyPFIQd4PAomuc6e4T10D2qc90 +YjKBidH9ckr/xUG2S7tnThaBRhrHvEqFr0JUpayFVjaByQP8622Yr4IHU5Lm +OMNf7Go0d07EgnqyDQ+VQ2Cxeq02R3Es9DcsVBTlEShpbkrjgFjg4Rf5XVZE +IH80J8vEqRiIbD0fUl9BoPj2aPRviYLdl61m3SsJPHvedZvSvSgY0tK22vGI +QD7tDG7O/0XB3kZe1cAqAttE3uzYahEFU0+rfyrUEBg58e/O2bkrYPDwn1t+ +HeN9wSozilyB7bdiLa+1EzgXnPH6YXwkNFt6t+97SeDvnaF3mwIjwVPgpMo0 +w+7j8zGz9pHQniLDp/uawOa/9XxXFSIhOP5t15o3BDp4cRV/74mAT1f4Dvv0 +EFiqXO5xWCQC7nnl7LUaIVDQsJY/oSkcPmsqCfxjuDa6oXO5JByEeVqXs0cJ +5EkqmvDLCIf48qlnk58IFEnR/V7oEw7+C/La58cJbJFwSPixMxy0feuNYqYI +/HnxPAtnQhgMBwy6PF4gsG7byspX71DYfvicnuVPAlE+ZPqWQygYC6yRWWVY +Vj6Q7mAcCi019O8HFgn8IO24R1QuFO4vu/p1LjH6NeRjd99FCAj+c2lilUDr +Rwc6Nd+EAE8Y362t60lkezKm4NsbBDN92voVDCeeKGmJqw6CFjnvv8c4SLxm +Evuj8WYQ+I+8OZmwgcSzNiIlkbZBMAQxwtycJC7ocz91nr4ARasrmVw8JOp3 +PRpPZL0AmkGf7nDsILGv/GR0g1EACHVvPlbEcCxfwXlz5QD4KQUsh4VJtJc0 +rd2wIwAKPt50iBZheN/Uxrov/sCpZkJnFyOxJvrcj5Nh/tC/1Jq3jiLRtlH2 +3ekqP/D0e1DAJE9i+Dumy2x7fGHzAZvhBwyvH/X1fC7kC8WcW3gtd5PY0tjw +4zaLL8zkeV+qVCCx0Jeml/vWB850q1m77CGxf/L2vp/uPmAr387TrUbiJ6aQ +hZRibzCcngjJP0iiUW9cCl3jPHx7lFp5XIdEi9BNmTSp83A1/PDMGl0SRfqE +JxW3nYd2/mJzq0Mkfi282J331QsO6voobtEj8eIuHpe7CV6gnscyFWjEyCeV +f3njjCdI29BMDKxILDp4Sa7tgQeY7buwOsdwbtLy5NhND4jgf59/4ySJp4Zc +JLljPGDgXeyfbmsSq2fi2O46ecBV3cVMSzsShYPYJQtpHjAj3zF1xonErJSA +PwJy5+D+2qDQSx6M+dQ//i2kzkLf6HsJwpNEZk1rxtE/C2vr5N+1MHzBMol7 +8YsbWAVMEhznSVS+atDcUuQGG78Zv/yfD4m7DTJ/fZV1A7deCd7bgSRqxhc3 +iaMrSBX13nscQaK0pa7GVT9nEFqu/Hg6ksTb77e1lZk7A6de4ga+yySWcbDo +LKk5w/zsUVefKyS+dVxOm2Vyhkfy7ZK7Yxj57MlJOn31DGhWPy28d53E1LTf +jmGFp8G8LTv/djqJK+w1j02XT8Fh/tBe/Zsk7t9Wnew3egr2uViz/WX47FIx +b2XrKRDeKHja8haJy0pVgVGJp+CzYSK5PYvEOwI/9eNkT4FH7+W8G3kketNH +7X64OMKVCdeciFISWZvbOsx/2cP2uolsuTLGfrI315uP2ENRil3WAMM1NrxJ +Xu328ErX9JZiOYn1AzX+327bA/c9zZTPlYz/ZPbt33jIHjLO8cdqPSHx+NHO +u23ZdlD6u8VrbQuJ/ru4Mm442oLGWw3PUoZlwj0uXjCyha7Cp+esWkkc/xbI +d0HdFn5aPHSraCMRmMJZn2y3BdXaW06OL0msZBlN9c2wgeYwb4vmNyRGibsb +GgdawwcOMc2IjyRuK3wztve4Ffxe0C6nD5D4gfMNv7mSFfAOO9OfM7x+//p9 +6bxWYFxexso6RGKwSlptyAdLeGWp8fLKCGP/WH3YXttawrP7tsdjx0nslBIo +t/OxgFyDTKf4ORKFrtE/RleaQePept7d8ySaDq41jEo3gxGxSd13DD839yjJ +uWgGOxZlpLb+x7gHMau1cofNIDnz2VzSAokBrUxvs0ZMIXp+0D9tiUTfXA+y +jtsU3OOFYrNYKHy+0ZmQjjUB4/mmcIO1FB61rvqY6GkCewxcA1cYVt+91lnA +zAT+rq9xNmOl8OGL7LAQwgSuhpnqbl5P4ZvY7cz5DcehyCN+XSgnhSoqS+5W +/47BpAF7qA0/hXm9OrcDrhtD+/0Sv00CFOZ4eXqeDDCGYg7Tc08YNjcvJC0d +jMG3Jc+aT4hCrlbPhhxlY2BVP7C/U5hC00t3LzuNGgFdOuSPOp3C2XQXiTQV +I7DdsOAtLEthoyjb+PCiIbwN1BquZ3ibX6KIarchaE4lHnKQo7C+XNXvSakh +iL9QEi6Qp3D/xYT3u10MYeKyX6u8IoVFPqKv5oYM4CzzMr+2CoWnvRa7Qjr1 +IXBpTZ3rAQoLuUpef3x5BKbPGEtwalH4QSqg7uX9I2DVdyehlOGjAZZjg3FH +QL3qwJmf2hS61HjKnDl6BNb4RG65qEth8yWvns29hyFqnt0xXp9C7oPaq/FT +hyBpkmt9tSmFbZLn/zhJ6MLdoRUNMzMKqQ3pN0c4deFRz9fARYYXv33+4bug +A31NTTNKFhRWqZscXarTAYEsvzcPrSiU+uzuZmSmA1lmwyn37SjUK76hqHTt +IBS9KCazXCm0k/+Jazi14Un9TRtwo1CS2Ef78EsLXlVFpQ4x3F0L4u3DWjCb +Z8+xw53CpzdSJRbLtEAunPdbmgej3+Bxo0BTLahUDalM8KEwyFxUkTP/ANTf +09e6cpFCk9MRczWmmpDM+4xFMZRCRfHhdZ0amuAWJtM0wrDhvN3qipQmbDfl +0lQNpzC2aq3wXSZN8GR+C7MRFGYdEeqTuKcBYubH1Y7FUCghfSx/cK0GRLBa +7hZJopCfVTDbLhHAwvPl95cMXysgNye4A8gNqJX5J1Nokyyn8V0XYKBMSK4r +hcKwqyS/wqo6KJ0cko5MpzCqqWWlxUUdJsrtJKYzKbR+brGbRW8/6NqdoVUV +UXiB/cSEj7Qa3BsMMza7R2EHXbRyA5cacFrcjFhimEMuWaFpXhV6jDu+qD2g +8HBX0/3kClWw11Isqy+h8IRIStLL/apwgWLSbK+gULbOaUr/hAoUz6Y4DD6j +8Ml767SG28qwxaUsKaSOwmH7Q3yHIpTBe6K9VaSeQrWDUb9mnZVBdfivlH0D +hbw1mWbXlZSh9Y3DwkQThXWsS7LSHXtgpFw2cr6Nwkp51frqtXuAJ7D1Lss7 +xn65/u7QuKwIh0+LplYxrCbhVRrnpgjhxy9Eu3ZTmGz4wn/JWBHmZWTd3vVQ +eOkJq5gcTRE6xpLlc/oo9DpUkrHtqQJE6Ts91Ryi0OzC7O/Mpd2wQlvXFfaV +wr0cq3fLYuRBgdOmSWmKwvs9beRDb3lwWX5c8ZXh4TRH5g5refjQ45ZiNENh +T/C7g6YK8vAopttKdI7CYFqt3f1BOfBcyJmsX6DweI/7ES1lOSgY/dvn/ZPC +oYZmkWkxORjpMG3f+YuRb/6M7j1OOTAo3PDgf4sUrnzzVv32ShZ2WZ/3sv1D +ocCrs4NeMrLgcOS1w9ZlCo0CF7kN2WQhfS9l0sawYHwPm9WIDKzn+ags95fC +qcoBYEuQAWRSkvjM8Nnw0Q15bjLgP3tNIHWVQtbr3wu8DspASf+XDXr/KHQS +lxk4R5OBiVbNv/8YFnz4zyXjjzT8H3FFrXg= + "]]}, + 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:eJwV1Hk0lu/zB3BRSEVRZIkHz33fIVtIKDNEVJYoWbOnLAnZQ4iypL7ZSSFk +qSwhUbKGVJSIZE0oS/RJSaTf8/trzuuc65y55n3mjKj9OeNTzExMTLxrmJj+ +vwrsrWUUGtr25F8vPDwLXaHLHVkM9yYOtO85NAsxL1Ruaqyhod+VCv0mnVn4 +Y/FI4RIzDR2rBSX6tWbhQ3CJI+s6GppOOcj8U5+F1Kbslo0cNIxNui5LKszC +NsPLMfxbaajHzjQ3LjALm50MuRV20pDL2/uI4JcZcIx81th6jIarYefte91n +4A+b146AIBpGtku9LP02DVe8dESsc2nIdknzU7PdNHh2LDXkdtIwRPoHh8Oj +KbgdN8/J/puGho2lwr0sU7BTvXnllbgoUq/9Kz7v+goF76tvPDcQRYHOzv06 +B76Aa9ePN/2+ohikdGfm+fFJiK3jKDO6I4oq8uEpTWoT8I3LSW28XRT3hfJ1 +bBYdBx3dMbf7/4niLyEpKd4/Y7DquR96dojhhnemrqoFn2Bx9eMTgYNiKHdS +aYTTZhQMgk0/NHiKIa+eq4Hg0DDcHFu4lZEhhpm3Hk/4rQ6A5IP3GxObxTB4 +74FQHYN+4DuTJDQ7J4atE8zWGW69cPBy6nv77eL4fad/cFxHN7xL8pdX1RLH +qotP3a/xdcGJuEAF7XPiWBAm49y7qxMEv9QPu6WI48bqygy/vnZQV/y861ej +OAab3XVou9ECOWNH6BnT4pjJ+pXfZLUR/gX2NPrw0DE6uCba5nkdPGbZx1ym +TseVNNVss8lqqJibmGY/TUeRzTqb0vdUgiTXlq4qhjeJ+zwdEK+ETBm1x05n +6LjH82zeri2VEHP2ekSzMx0lX3BsWZiuAJtp5R2hbnQcFMBm2p0K4JiMMlj0 +pOOPv5Z7ZzdXgO2QZNl4EB3NTt+Pkvn9EDa9dvdtjKfj03yXLomZUhDzVpJy +T6CjUJnai/6BUtgruDLMn0jHOzNCyimvS8HeOfqQZxIdV5kL7HeXlMKjdblC +tFQ60njz7L97lYKt+ofG4Ft0NN2VcktgqQQqSg5wqRTQcV3kjhRpuWKwit9e +UFJLx7L/4KPfUBGsHo7qNHxGx/wTwPy9pQiyWH7/mmP4o5ht1YWSIhj37tWW +q6fjYn9W/vPQInA3TR4rbWTMI6mdLUkvglChrSIPW+nI5G+8Rt69EPLuciVX +vKUjxgiXznEWwLca1ojqcToqbvzhoByWBycml+RPT9Cx3u+fsYRbHjzjmR3e +OknH/pf8atKmeRDn9k7N4wsdRZOz21yk82CXcNYPcpqO013hqU/6c8ElTMUh +cZ6O7EpDm4r25sKEjpvmuWU6vtbx63BZkwOD3W+ZiC0E1rfU5LM1Z0EXt7to +K8MRurxe6hVZ0HKUQ9OZm8Ak8PcLz82C0lealx7wEDjAIr95d2QWRDSXr9vD +S2CVgFKEjE4WSFYkcegIEvgvqKVI4mYm+CaYb3UmCJyPHjtS2XoLuIxHqQcq +BArVjqyOnkmHXD4BPj1VAjv2N+VPGKbD3kFj1mmGlZ4/esiknA72Z5o/79xH +YJqWw0PvdelQEZKfnatOIPsl+XKLnDQwv3dWMOMAgT56Jne2jKVCzto/nLH6 +BJb0bGlu8kwB5SruX2fsCGR5rfeL+0UixM93uG6zJ5D2WjlQtzwRZiRiRxsY +flh750f8rUTIymB5LeBIoMLWfeFOXonAHr6Q88qJQGVzN1nWHYnQp/feSM6N +wOrT2fPbfRMg8FPag0VfAuWuyO3nU46HbsET4rl+BL783tXfLh4PMibcaUf9 +CbzyxtLixuZ4+NQaE1EYQODGaIW6E1M34MiDC5aWQQRe6ky3b7h9A4T8T66v +CyPQaWatNvuGG1C7SfTU5asEhrrUKYyMXodcs8v6VByBbLXqBhsar8PVnGml +NobHzlHzx+5cBwuVR6wc1wmk/yftst/hOvxyPFIQd4PAomuc6e4T10D2qc90 +YjKBidH9ckr/xUG2S7tnThaBRhrHvEqFr0JUpayFVjaByQP8622Yr4IHU5Lm +OMNf7Go0d07EgnqyDQ+VQ2Cxeq02R3Es9DcsVBTlEShpbkrjgFjg4Rf5XVZE +IH80J8vEqRiIbD0fUl9BoPj2aPRviYLdl61m3SsJPHvedZvSvSgY0tK22vGI +QD7tDG7O/0XB3kZe1cAqAttE3uzYahEFU0+rfyrUEBg58e/O2bkrYPDwn1t+ +HeN9wSozilyB7bdiLa+1EzgXnPH6YXwkNFt6t+97SeDvnaF3mwIjwVPgpMo0 +w+7j8zGz9pHQniLDp/uawOa/9XxXFSIhOP5t15o3BDp4cRV/74mAT1f4Dvv0 +EFiqXO5xWCQC7nnl7LUaIVDQsJY/oSkcPmsqCfxjuDa6oXO5JByEeVqXs0cJ +5EkqmvDLCIf48qlnk58IFEnR/V7oEw7+C/La58cJbJFwSPixMxy0feuNYqYI +/HnxPAtnQhgMBwy6PF4gsG7byspX71DYfvicnuVPAlE+ZPqWQygYC6yRWWVY +Vj6Q7mAcCi019O8HFgn8IO24R1QuFO4vu/p1LjH6NeRjd99FCAj+c2lilUDr +Rwc6Nd+EAE8Y362t60lkezKm4NsbBDN92voVDCeeKGmJqw6CFjnvv8c4SLxm +Evuj8WYQ+I+8OZmwgcSzNiIlkbZBMAQxwtycJC7ocz91nr4ARasrmVw8JOp3 +PRpPZL0AmkGf7nDsILGv/GR0g1EACHVvPlbEcCxfwXlz5QD4KQUsh4VJtJc0 +rd2wIwAKPt50iBZheN/Uxrov/sCpZkJnFyOxJvrcj5Nh/tC/1Jq3jiLRtlH2 +3ekqP/D0e1DAJE9i+Dumy2x7fGHzAZvhBwyvH/X1fC7kC8WcW3gtd5PY0tjw +4zaLL8zkeV+qVCCx0Jeml/vWB850q1m77CGxf/L2vp/uPmAr387TrUbiJ6aQ +hZRibzCcngjJP0iiUW9cCl3jPHx7lFp5XIdEi9BNmTSp83A1/PDMGl0SRfqE +JxW3nYd2/mJzq0Mkfi282J331QsO6voobtEj8eIuHpe7CV6gnscyFWjEyCeV +f3njjCdI29BMDKxILDp4Sa7tgQeY7buwOsdwbtLy5NhND4jgf59/4ySJp4Zc +JLljPGDgXeyfbmsSq2fi2O46ecBV3cVMSzsShYPYJQtpHjAj3zF1xonErJSA +PwJy5+D+2qDQSx6M+dQ//i2kzkLf6HsJwpNEZk1rxtE/C2vr5N+1MHzBMol7 +8YsbWAVMEhznSVS+atDcUuQGG78Zv/yfD4m7DTJ/fZV1A7deCd7bgSRqxhc3 +iaMrSBX13nscQaK0pa7GVT9nEFqu/Hg6ksTb77e1lZk7A6de4ga+yySWcbDo +LKk5w/zsUVefKyS+dVxOm2Vyhkfy7ZK7Yxj57MlJOn31DGhWPy28d53E1LTf +jmGFp8G8LTv/djqJK+w1j02XT8Fh/tBe/Zsk7t9Wnew3egr2uViz/WX47FIx +b2XrKRDeKHja8haJy0pVgVGJp+CzYSK5PYvEOwI/9eNkT4FH7+W8G3kketNH +7X64OMKVCdeciFISWZvbOsx/2cP2uolsuTLGfrI315uP2ENRil3WAMM1NrxJ +Xu328ErX9JZiOYn1AzX+327bA/c9zZTPlYz/ZPbt33jIHjLO8cdqPSHx+NHO +u23ZdlD6u8VrbQuJ/ru4Mm442oLGWw3PUoZlwj0uXjCyha7Cp+esWkkc/xbI +d0HdFn5aPHSraCMRmMJZn2y3BdXaW06OL0msZBlN9c2wgeYwb4vmNyRGibsb +GgdawwcOMc2IjyRuK3wztve4Ffxe0C6nD5D4gfMNv7mSFfAOO9OfM7x+//p9 +6bxWYFxexso6RGKwSlptyAdLeGWp8fLKCGP/WH3YXttawrP7tsdjx0nslBIo +t/OxgFyDTKf4ORKFrtE/RleaQePept7d8ySaDq41jEo3gxGxSd13DD839yjJ +uWgGOxZlpLb+x7gHMau1cofNIDnz2VzSAokBrUxvs0ZMIXp+0D9tiUTfXA+y +jtsU3OOFYrNYKHy+0ZmQjjUB4/mmcIO1FB61rvqY6GkCewxcA1cYVt+91lnA +zAT+rq9xNmOl8OGL7LAQwgSuhpnqbl5P4ZvY7cz5DcehyCN+XSgnhSoqS+5W +/47BpAF7qA0/hXm9OrcDrhtD+/0Sv00CFOZ4eXqeDDCGYg7Tc08YNjcvJC0d +jMG3Jc+aT4hCrlbPhhxlY2BVP7C/U5hC00t3LzuNGgFdOuSPOp3C2XQXiTQV +I7DdsOAtLEthoyjb+PCiIbwN1BquZ3ibX6KIarchaE4lHnKQo7C+XNXvSakh +iL9QEi6Qp3D/xYT3u10MYeKyX6u8IoVFPqKv5oYM4CzzMr+2CoWnvRa7Qjr1 +IXBpTZ3rAQoLuUpef3x5BKbPGEtwalH4QSqg7uX9I2DVdyehlOGjAZZjg3FH +QL3qwJmf2hS61HjKnDl6BNb4RG65qEth8yWvns29hyFqnt0xXp9C7oPaq/FT +hyBpkmt9tSmFbZLn/zhJ6MLdoRUNMzMKqQ3pN0c4deFRz9fARYYXv33+4bug +A31NTTNKFhRWqZscXarTAYEsvzcPrSiU+uzuZmSmA1lmwyn37SjUK76hqHTt +IBS9KCazXCm0k/+Jazi14Un9TRtwo1CS2Ef78EsLXlVFpQ4x3F0L4u3DWjCb +Z8+xw53CpzdSJRbLtEAunPdbmgej3+Bxo0BTLahUDalM8KEwyFxUkTP/ANTf +09e6cpFCk9MRczWmmpDM+4xFMZRCRfHhdZ0amuAWJtM0wrDhvN3qipQmbDfl +0lQNpzC2aq3wXSZN8GR+C7MRFGYdEeqTuKcBYubH1Y7FUCghfSx/cK0GRLBa +7hZJopCfVTDbLhHAwvPl95cMXysgNye4A8gNqJX5J1Nokyyn8V0XYKBMSK4r +hcKwqyS/wqo6KJ0cko5MpzCqqWWlxUUdJsrtJKYzKbR+brGbRW8/6NqdoVUV +UXiB/cSEj7Qa3BsMMza7R2EHXbRyA5cacFrcjFhimEMuWaFpXhV6jDu+qD2g +8HBX0/3kClWw11Isqy+h8IRIStLL/apwgWLSbK+gULbOaUr/hAoUz6Y4DD6j +8Ml767SG28qwxaUsKaSOwmH7Q3yHIpTBe6K9VaSeQrWDUb9mnZVBdfivlH0D +hbw1mWbXlZSh9Y3DwkQThXWsS7LSHXtgpFw2cr6Nwkp51frqtXuAJ7D1Lss7 +xn65/u7QuKwIh0+LplYxrCbhVRrnpgjhxy9Eu3ZTmGz4wn/JWBHmZWTd3vVQ +eOkJq5gcTRE6xpLlc/oo9DpUkrHtqQJE6Ts91Ryi0OzC7O/Mpd2wQlvXFfaV +wr0cq3fLYuRBgdOmSWmKwvs9beRDb3lwWX5c8ZXh4TRH5g5refjQ45ZiNENh +T/C7g6YK8vAopttKdI7CYFqt3f1BOfBcyJmsX6DweI/7ES1lOSgY/dvn/ZPC +oYZmkWkxORjpMG3f+YuRb/6M7j1OOTAo3PDgf4sUrnzzVv32ShZ2WZ/3sv1D +ocCrs4NeMrLgcOS1w9ZlCo0CF7kN2WQhfS9l0sawYHwPm9WIDKzn+ags95fC +qcoBYEuQAWRSkvjM8Nnw0Q15bjLgP3tNIHWVQtbr3wu8DspASf+XDXr/KHQS +lxk4R5OBiVbNv/8YFnz4zyXjjzT8H3FFrXg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9153640561841421}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9153640561841421}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0lu/zB3BRSEVRZIkHz33fIVtIKDNEVJYoWbOnLAnZQ4iypL7ZSSFk +qSwhUbKGVJSIZE0oS/RJSaTf8/trzuuc65y55n3mjKj9OeNTzExMTLxrmJj+ +vwrsrWUUGtr25F8vPDwLXaHLHVkM9yYOtO85NAsxL1Ruaqyhod+VCv0mnVn4 +Y/FI4RIzDR2rBSX6tWbhQ3CJI+s6GppOOcj8U5+F1Kbslo0cNIxNui5LKszC +NsPLMfxbaajHzjQ3LjALm50MuRV20pDL2/uI4JcZcIx81th6jIarYefte91n +4A+b146AIBpGtku9LP02DVe8dESsc2nIdknzU7PdNHh2LDXkdtIwRPoHh8Oj +KbgdN8/J/puGho2lwr0sU7BTvXnllbgoUq/9Kz7v+goF76tvPDcQRYHOzv06 +B76Aa9ePN/2+ohikdGfm+fFJiK3jKDO6I4oq8uEpTWoT8I3LSW28XRT3hfJ1 +bBYdBx3dMbf7/4niLyEpKd4/Y7DquR96dojhhnemrqoFn2Bx9eMTgYNiKHdS +aYTTZhQMgk0/NHiKIa+eq4Hg0DDcHFu4lZEhhpm3Hk/4rQ6A5IP3GxObxTB4 +74FQHYN+4DuTJDQ7J4atE8zWGW69cPBy6nv77eL4fad/cFxHN7xL8pdX1RLH +qotP3a/xdcGJuEAF7XPiWBAm49y7qxMEv9QPu6WI48bqygy/vnZQV/y861ej +OAab3XVou9ECOWNH6BnT4pjJ+pXfZLUR/gX2NPrw0DE6uCba5nkdPGbZx1ym +TseVNNVss8lqqJibmGY/TUeRzTqb0vdUgiTXlq4qhjeJ+zwdEK+ETBm1x05n +6LjH82zeri2VEHP2ekSzMx0lX3BsWZiuAJtp5R2hbnQcFMBm2p0K4JiMMlj0 +pOOPv5Z7ZzdXgO2QZNl4EB3NTt+Pkvn9EDa9dvdtjKfj03yXLomZUhDzVpJy +T6CjUJnai/6BUtgruDLMn0jHOzNCyimvS8HeOfqQZxIdV5kL7HeXlMKjdblC +tFQ60njz7L97lYKt+ofG4Ft0NN2VcktgqQQqSg5wqRTQcV3kjhRpuWKwit9e +UFJLx7L/4KPfUBGsHo7qNHxGx/wTwPy9pQiyWH7/mmP4o5ht1YWSIhj37tWW +q6fjYn9W/vPQInA3TR4rbWTMI6mdLUkvglChrSIPW+nI5G+8Rt69EPLuciVX +vKUjxgiXznEWwLca1ojqcToqbvzhoByWBycml+RPT9Cx3u+fsYRbHjzjmR3e +OknH/pf8atKmeRDn9k7N4wsdRZOz21yk82CXcNYPcpqO013hqU/6c8ElTMUh +cZ6O7EpDm4r25sKEjpvmuWU6vtbx63BZkwOD3W+ZiC0E1rfU5LM1Z0EXt7to +K8MRurxe6hVZ0HKUQ9OZm8Ak8PcLz82C0lealx7wEDjAIr95d2QWRDSXr9vD +S2CVgFKEjE4WSFYkcegIEvgvqKVI4mYm+CaYb3UmCJyPHjtS2XoLuIxHqQcq +BArVjqyOnkmHXD4BPj1VAjv2N+VPGKbD3kFj1mmGlZ4/esiknA72Z5o/79xH +YJqWw0PvdelQEZKfnatOIPsl+XKLnDQwv3dWMOMAgT56Jne2jKVCzto/nLH6 +BJb0bGlu8kwB5SruX2fsCGR5rfeL+0UixM93uG6zJ5D2WjlQtzwRZiRiRxsY +flh750f8rUTIymB5LeBIoMLWfeFOXonAHr6Q88qJQGVzN1nWHYnQp/feSM6N +wOrT2fPbfRMg8FPag0VfAuWuyO3nU46HbsET4rl+BL783tXfLh4PMibcaUf9 +CbzyxtLixuZ4+NQaE1EYQODGaIW6E1M34MiDC5aWQQRe6ky3b7h9A4T8T66v +CyPQaWatNvuGG1C7SfTU5asEhrrUKYyMXodcs8v6VByBbLXqBhsar8PVnGml +NobHzlHzx+5cBwuVR6wc1wmk/yftst/hOvxyPFIQd4PAomuc6e4T10D2qc90 +YjKBidH9ckr/xUG2S7tnThaBRhrHvEqFr0JUpayFVjaByQP8622Yr4IHU5Lm +OMNf7Go0d07EgnqyDQ+VQ2Cxeq02R3Es9DcsVBTlEShpbkrjgFjg4Rf5XVZE +IH80J8vEqRiIbD0fUl9BoPj2aPRviYLdl61m3SsJPHvedZvSvSgY0tK22vGI +QD7tDG7O/0XB3kZe1cAqAttE3uzYahEFU0+rfyrUEBg58e/O2bkrYPDwn1t+ +HeN9wSozilyB7bdiLa+1EzgXnPH6YXwkNFt6t+97SeDvnaF3mwIjwVPgpMo0 +w+7j8zGz9pHQniLDp/uawOa/9XxXFSIhOP5t15o3BDp4cRV/74mAT1f4Dvv0 +EFiqXO5xWCQC7nnl7LUaIVDQsJY/oSkcPmsqCfxjuDa6oXO5JByEeVqXs0cJ +5EkqmvDLCIf48qlnk58IFEnR/V7oEw7+C/La58cJbJFwSPixMxy0feuNYqYI +/HnxPAtnQhgMBwy6PF4gsG7byspX71DYfvicnuVPAlE+ZPqWQygYC6yRWWVY +Vj6Q7mAcCi019O8HFgn8IO24R1QuFO4vu/p1LjH6NeRjd99FCAj+c2lilUDr +Rwc6Nd+EAE8Y362t60lkezKm4NsbBDN92voVDCeeKGmJqw6CFjnvv8c4SLxm +Evuj8WYQ+I+8OZmwgcSzNiIlkbZBMAQxwtycJC7ocz91nr4ARasrmVw8JOp3 +PRpPZL0AmkGf7nDsILGv/GR0g1EACHVvPlbEcCxfwXlz5QD4KQUsh4VJtJc0 +rd2wIwAKPt50iBZheN/Uxrov/sCpZkJnFyOxJvrcj5Nh/tC/1Jq3jiLRtlH2 +3ekqP/D0e1DAJE9i+Dumy2x7fGHzAZvhBwyvH/X1fC7kC8WcW3gtd5PY0tjw +4zaLL8zkeV+qVCCx0Jeml/vWB850q1m77CGxf/L2vp/uPmAr387TrUbiJ6aQ +hZRibzCcngjJP0iiUW9cCl3jPHx7lFp5XIdEi9BNmTSp83A1/PDMGl0SRfqE +JxW3nYd2/mJzq0Mkfi282J331QsO6voobtEj8eIuHpe7CV6gnscyFWjEyCeV +f3njjCdI29BMDKxILDp4Sa7tgQeY7buwOsdwbtLy5NhND4jgf59/4ySJp4Zc +JLljPGDgXeyfbmsSq2fi2O46ecBV3cVMSzsShYPYJQtpHjAj3zF1xonErJSA +PwJy5+D+2qDQSx6M+dQ//i2kzkLf6HsJwpNEZk1rxtE/C2vr5N+1MHzBMol7 +8YsbWAVMEhznSVS+atDcUuQGG78Zv/yfD4m7DTJ/fZV1A7deCd7bgSRqxhc3 +iaMrSBX13nscQaK0pa7GVT9nEFqu/Hg6ksTb77e1lZk7A6de4ga+yySWcbDo +LKk5w/zsUVefKyS+dVxOm2Vyhkfy7ZK7Yxj57MlJOn31DGhWPy28d53E1LTf +jmGFp8G8LTv/djqJK+w1j02XT8Fh/tBe/Zsk7t9Wnew3egr2uViz/WX47FIx +b2XrKRDeKHja8haJy0pVgVGJp+CzYSK5PYvEOwI/9eNkT4FH7+W8G3kketNH +7X64OMKVCdeciFISWZvbOsx/2cP2uolsuTLGfrI315uP2ENRil3WAMM1NrxJ +Xu328ErX9JZiOYn1AzX+327bA/c9zZTPlYz/ZPbt33jIHjLO8cdqPSHx+NHO +u23ZdlD6u8VrbQuJ/ru4Mm442oLGWw3PUoZlwj0uXjCyha7Cp+esWkkc/xbI +d0HdFn5aPHSraCMRmMJZn2y3BdXaW06OL0msZBlN9c2wgeYwb4vmNyRGibsb +GgdawwcOMc2IjyRuK3wztve4Ffxe0C6nD5D4gfMNv7mSFfAOO9OfM7x+//p9 +6bxWYFxexso6RGKwSlptyAdLeGWp8fLKCGP/WH3YXttawrP7tsdjx0nslBIo +t/OxgFyDTKf4ORKFrtE/RleaQePept7d8ySaDq41jEo3gxGxSd13DD839yjJ +uWgGOxZlpLb+x7gHMau1cofNIDnz2VzSAokBrUxvs0ZMIXp+0D9tiUTfXA+y +jtsU3OOFYrNYKHy+0ZmQjjUB4/mmcIO1FB61rvqY6GkCewxcA1cYVt+91lnA +zAT+rq9xNmOl8OGL7LAQwgSuhpnqbl5P4ZvY7cz5DcehyCN+XSgnhSoqS+5W +/47BpAF7qA0/hXm9OrcDrhtD+/0Sv00CFOZ4eXqeDDCGYg7Tc08YNjcvJC0d +jMG3Jc+aT4hCrlbPhhxlY2BVP7C/U5hC00t3LzuNGgFdOuSPOp3C2XQXiTQV +I7DdsOAtLEthoyjb+PCiIbwN1BquZ3ibX6KIarchaE4lHnKQo7C+XNXvSakh +iL9QEi6Qp3D/xYT3u10MYeKyX6u8IoVFPqKv5oYM4CzzMr+2CoWnvRa7Qjr1 +IXBpTZ3rAQoLuUpef3x5BKbPGEtwalH4QSqg7uX9I2DVdyehlOGjAZZjg3FH +QL3qwJmf2hS61HjKnDl6BNb4RG65qEth8yWvns29hyFqnt0xXp9C7oPaq/FT +hyBpkmt9tSmFbZLn/zhJ6MLdoRUNMzMKqQ3pN0c4deFRz9fARYYXv33+4bug +A31NTTNKFhRWqZscXarTAYEsvzcPrSiU+uzuZmSmA1lmwyn37SjUK76hqHTt +IBS9KCazXCm0k/+Jazi14Un9TRtwo1CS2Ef78EsLXlVFpQ4x3F0L4u3DWjCb +Z8+xw53CpzdSJRbLtEAunPdbmgej3+Bxo0BTLahUDalM8KEwyFxUkTP/ANTf +09e6cpFCk9MRczWmmpDM+4xFMZRCRfHhdZ0amuAWJtM0wrDhvN3qipQmbDfl +0lQNpzC2aq3wXSZN8GR+C7MRFGYdEeqTuKcBYubH1Y7FUCghfSx/cK0GRLBa +7hZJopCfVTDbLhHAwvPl95cMXysgNye4A8gNqJX5J1Nokyyn8V0XYKBMSK4r +hcKwqyS/wqo6KJ0cko5MpzCqqWWlxUUdJsrtJKYzKbR+brGbRW8/6NqdoVUV +UXiB/cSEj7Qa3BsMMza7R2EHXbRyA5cacFrcjFhimEMuWaFpXhV6jDu+qD2g +8HBX0/3kClWw11Isqy+h8IRIStLL/apwgWLSbK+gULbOaUr/hAoUz6Y4DD6j +8Ml767SG28qwxaUsKaSOwmH7Q3yHIpTBe6K9VaSeQrWDUb9mnZVBdfivlH0D +hbw1mWbXlZSh9Y3DwkQThXWsS7LSHXtgpFw2cr6Nwkp51frqtXuAJ7D1Lss7 +xn65/u7QuKwIh0+LplYxrCbhVRrnpgjhxy9Eu3ZTmGz4wn/JWBHmZWTd3vVQ +eOkJq5gcTRE6xpLlc/oo9DpUkrHtqQJE6Ts91Ryi0OzC7O/Mpd2wQlvXFfaV +wr0cq3fLYuRBgdOmSWmKwvs9beRDb3lwWX5c8ZXh4TRH5g5refjQ45ZiNENh +T/C7g6YK8vAopttKdI7CYFqt3f1BOfBcyJmsX6DweI/7ES1lOSgY/dvn/ZPC +oYZmkWkxORjpMG3f+YuRb/6M7j1OOTAo3PDgf4sUrnzzVv32ShZ2WZ/3sv1D +ocCrs4NeMrLgcOS1w9ZlCo0CF7kN2WQhfS9l0sawYHwPm9WIDKzn+ags95fC +qcoBYEuQAWRSkvjM8Nnw0Q15bjLgP3tNIHWVQtbr3wu8DspASf+XDXr/KHQS +lxk4R5OBiVbNv/8YFnz4zyXjjzT8H3FFrXg= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9153640561841421}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.9153640561841421}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.9925194547249107`*^9, + 3.992519468598618*^9}}, + CellLabel->"Out[29]=",ExpressionUUID->"e8096e26-560f-42f7-b5fb-8ba21ba913df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ +\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ +\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ +\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\ +\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ +\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ +\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ +FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \\\" \\\", \ +SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\ +\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\ +\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9}, + CellLabel-> + "During evaluation of \ +In[27]:=",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{4.000000000000009, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{4, 11}, {0., 0.8332573817712089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, + 3.9919652220078144`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk +sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys +oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq +wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr +T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz +PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp ++D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV +XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D +Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz +OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 +vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm +c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd +nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS +cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV +TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl +6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 +9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT +AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy +QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 +LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ +FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc +xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su +tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM +5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX +flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN +xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW +afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue +bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ +p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu +PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 +HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 +8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ +urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO +H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps +fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b +BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n +6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E +b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl +GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E +nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI +m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O +8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw +6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY +XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH +hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy +dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux +PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm +GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT +e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC +qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi +zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT +NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE +66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk +b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn +WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 +67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 +lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB +lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF +4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv +icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq +Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ +KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s +Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO +rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g +fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ +27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV +rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC +px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s +e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA +58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE +wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD +HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs +FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 +drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP +5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ +pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO ++PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id +9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 +Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg +UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv +KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC +1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 +P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX +j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA +sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE +SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n +ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa +SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO +DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ +iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm +2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ +GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz +W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj +oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C +hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N +FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb +qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur +qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 +Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq +VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J +2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM +kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG +92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT +vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl +XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs +bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 +35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x +6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC +U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe +mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog +9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn +w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 +dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 +kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 +oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W +0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY +t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 +ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj +PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI ++RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ +SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf +ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg +5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs +3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc +GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 +FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i +NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e +Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT +SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M +MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX +MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M +Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam +ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef +PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw +8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk +mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT +4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i +QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G +N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq +3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ +6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 +WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ +ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR +wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 +ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl +Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ +twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o +11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs +pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 +5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 +2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa +U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD +gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF +fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK +9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX +KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G +ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV +lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL +L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa +Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss +JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag +hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa +KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz +EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP +IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 +7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ +9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q +zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb +gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab +sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em +1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q +yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T +Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P +pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo +ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 +vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 +LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G +94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC +88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E +1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN +hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB +mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF +vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN +WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj +jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ +hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi +Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 +iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF +LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w +7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 +D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg +3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C +BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ +82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof +Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF +VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ +5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ +Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo +2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f +yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu +l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 +0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs +RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ +7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq +rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 +vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz +KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO +WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr +zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A +XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 +5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM +TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh +ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 +431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ +ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p +YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {3.0000000000000067`, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO +OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH +cRzH8Z/4BZdCRh0= + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk +h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx +CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ +rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC +kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel +ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb +vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ +/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe +iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c +opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of +0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA +inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH +uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC +zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO +zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 +vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j +6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf +cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT +vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 +104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ +59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi +BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m +bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG +/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC +pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE ++EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi +/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG +N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm +xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy +84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o +j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 +N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ +3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm +x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA +ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST +wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB +SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk +iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL +fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR +7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u +9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el +6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf +rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I +Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt +X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy +W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz +swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX +Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb +T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO +3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl +86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ +ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG +W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu +knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu +olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v +3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 +WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs +kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf +RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk +tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu +5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl +Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j +1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X +maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw +Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg +xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS +QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W +ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt +E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD +heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs +cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm +IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// +8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 +F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j +ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv +SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl +moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv +cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL +4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq +zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD ++q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn ++dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs +S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF +ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN +mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 +hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje +q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY +5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 +cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz +Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N +8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e +2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav +uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 +r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh +o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI +hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI +hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 +vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS +0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 +W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 +cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T +p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 +teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o +usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 +0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn +Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP +RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S ++m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 +IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN +X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 +wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE +l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp +IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo +AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T +XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H +24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD +bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 +4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd +lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD +kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 +O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od +zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy +TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP +xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D +5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE +terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J +oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l +KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob +o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh +RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ +QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z +tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB +247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv +KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI +t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ +9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ +nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa +vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii +ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 +/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 +2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc +gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np +8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 +VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff +1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe +IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y +VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 +WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn +9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 +a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih +ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M +5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 +4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r +y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH +1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT +jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ +eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh +dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG +2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS +FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 +/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca +DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ +mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d +BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB +3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ +vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o +qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w +8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF +X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY +a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x +1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw +CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p +2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn +u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt +Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 +kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm +2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ +OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl +wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz +hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra +1/7l74hBvB6bHfofbUKTUg== + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v +m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE +ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX +iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq +ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH +jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL +t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR +nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x +2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF +ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I +xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR +ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS +nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT +no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR +hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ +hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 +qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd +eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 +/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx +f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= + "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {4.000000000000009, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy +h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST +N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F +a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h +/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh +XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd +k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G +i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM +JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb +xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f +m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw +bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp +IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO +xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP +j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA +Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq +CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o +wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j +VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 +P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc +nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW +d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK +2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto +xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 +rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O +2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f +0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW +lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd +vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM +FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V +hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV +sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 +iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj +t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ +Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx +8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW +4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh +AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 +LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x +nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU +5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj +mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL +yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 +zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 +XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ +6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 +lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ +vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X +BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO +MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce +64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L +TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx +M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye +T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj +Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL +OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt +41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW +2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh +P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo +rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi +4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q +h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 +TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX ++zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I +7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO +b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 +xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 +s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb +rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ +6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p +5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 +TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J +pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede +kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 +cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p +31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb +voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ +Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc +N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH +cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g +Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 +XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu +HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 +cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s +ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q +2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV +b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd +Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK +wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe +KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF +VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil +ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 +lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 +qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK +HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM +WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ +wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V +N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI +WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm +jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf +iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S +KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI +R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T +S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW +52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH +VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI +frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS +QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS +VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO +qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG +mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc +I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU ++YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea +p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF +lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH +n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X +zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws +PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW +nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA +jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f +xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN +wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 +mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD +a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 +NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo +6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu +PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX +CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 +88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ +eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F +jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 +FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu +f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa +gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn +92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD +7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 +qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt +eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu +O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm +Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 +oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy +ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH +Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ +DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT +Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 +RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf +GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm +w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p +zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ +V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt +HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu +b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD +nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD +qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y +vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 +aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn +fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 +CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol ++TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx +q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD +yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ +cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 +y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 +0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa +cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom +HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp +b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o +6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q +nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 +0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 +vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv +UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG +LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 +hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj +VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk +ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa +rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ +Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh +fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w +gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y +YNzbPN43ZoP+B/eck1I= + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{3.0000000000000067`, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{3, 11}, {0., 0.9709610360313319}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.8", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9, {3.9925195424141293`*^9, 3.992519543947713*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.195, $CellContext`xmax$$ = + 11.78, $CellContext`xmin$$ = 7.78, $CellContext`ymax$$ = + 0.907, $CellContext`yyv$$ = 2.5749999999999997`, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.8, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.8, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9, + 3.992519475579124*^9, 3.99251954474771*^9}, + CellLabel->"Out[33]=",ExpressionUUID->"b64ff458-9760-4277-be7c-e84d24faa592"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13c41t8bB3AkSUoyo/Hs5/lkFCqRPvfN10oTGdmkoUKUjCSbjGxRWkJK +CqXSkChkVbKibJEkZER6+j2/v871us64zn2//zmH6uRuclCAj49vJz8f3//H +QUaN0IkKCpqvf3wjf1sKrNuz8pZXPQUFOj4lj/onw3SNvvDuBgr2ihemO7km +wyv9Uy6sdxTk57NU6rVNBkvynULrewrG713fvQCSIVwprGBLEwXP3O2/8J4/ +GfqWjJf8aafgla6S3xHnkyCjurouaIiCJsmVxuo3EkFMx2cidgEVP3BGHb// +jIcaidleC0Eq9iR9vNrTFw/hA74fqQupOFd+Sq+7NR64kWceFgtRcYe5Rsn0 +y3gYfRdw+stiKsZnlGRExMdDvW3YnOJyKp6RjnPbqBYP0b6JAnWrqFj2sj2V +/fcCLCq8u0JkMxWPqRkOBFnGgN9H4+/9PIfFlH6+ohMDI1PTFS/VqXjvWNG5 +GsUYaNTU9vLSoOLdiepUM/4YyHjd3NqtRcVzX6KKVPKiQbWNm/H4Pyqm0vkW +zPBHg92/veyDxlRcl6Xz0enZeXi4a2pr2XEqVv2KV0brCLi3slP6oisVsyJb +vM9tj4DbA5Xjrm5UrMtsk6lTj4CrZ9NuyZ+gYsr3iY2xkhEQmb9VwvskFWcL +KR/zG8LBZmnwsJIfFRnqSaoOeuEgWL8s/XIEFbv1604ZaIWB2U7O9OlMKv6Q +DB5l7A4BdHN2gJtUrFEQuOGKIbAu/nrNoiwqJrdemXupGgJ8TbLX0rKpOLky +PDJIJgTuWi82fJpLxaJFWWbePcEgcGw4/e89Kt6KKZlhewfD/fN3t4U+o6Jt +rI/JidtBsLhqQ1hCExUrZic/6nAC4Y5GQuvRZiqGG2tdq5UPhJ13xwndFiqu +TqJO2YoFQnxCUcN0KxXTJ2UNyR/nQNpmo6xNBxUfKf+IYUafA8a4eh6rl9c/ +d8tOj5oAIOXhw7OfVDTaXfjuuvlZ8HTftfqrCA05GVHPPDL9QHAL/7+CJTSs +Tx5z2BrnB6l8xd1nRGl4kyVQu8LfD54mrMoSX0ZDnS1alcNmfiDw8Pu6beI0 +vLdRzIgU8YOE3+e3JMvQkJ8rzDzm5QsFQZWmOgwadvSmu14y84HRJIi6uo2G +nysbVM23ngZhIXW3gyQNcSJBIV3hNNB8lE0UgYbFOrIag/KnwcxmtdxTpOH6 +3pSTWfNe8Jzx53bzfzQcOh4Xl1nqBVHFj96KGtEwsNy6NEfXC1itSovPmNPQ +o2W8/ZLlKbCTWxVp4U5DvYJAjxtXPUH5i/q+9SdoaPTsiJNxvCf8u2ZKWeRB +w7zxpQaiwZ5wnRn95JEnDUe67GoyD3pC74a5IanTNLR6uarRWMkTDhu0bW/y +5/kJtbyg1ANOnEpeYhxFQ7OfSqj57QSENIjGGWXTcG28ouq1x26gO3hmWCKH +hm2V20YTbriBIN93vS88a0p3uCdHu0G4ytt591waFi6ZS622d4Oo5LCjKXk0 +tCwkt40Iu0GCFVevu5CGFPkJfRk7V7j29ee8VykNnQ8xqgokjsMzbuPRG600 +9PNNOpJ/2wVUjxy6d6aNhqd2UwKLUlzgzofZcbNPNBRUCl1ZFeQCl7IoviId +NFwjtCBzjZUL+Bi5RZzs5OWdqf4ibIkLbE5dnKU3QEOZK81NhMcRKFLCL98m +aFgWfFne1+Aw5Nrk71FdRkd725epdasPQq57aIqwGB2d2judcpYehFvB1h2d +PLeVXQyM+esMObmLD0eL07FHwif67BdnyJo8GNAvSUfNtuH28SvOcD1mTX6q +PB0lLOUt5KnOkPY8TuQPh46HLU53qm44AJGrPN9U/EfH5prr0YnujuATlnEp +WpeOyc05mtQDjnBktNLdVI+OR2Nn3zwxdwSDMnm5Pn06dtUethQgHUHI+Y2b +gBEdbTMTXnBFHSEsT1ZWey8dT/55Sbl41wGCNV8eLbWhI/WdaaN6vz34W4ou +L/Gio7ShgIrDOlugrbCuTzhNx7Lva3tqJWzhbe3tqKPedIyn7Bbc/tcGpMFg +4SpfOm7uYLl5v7eBQmbwXIA/HeUCxK1uetvA14mZft0QOjYeNxdSfGsNe2P7 +St7H0zFo6QrLHB8rYJY/PTCUR8dWy57MaCFLeP7BpqDoLh2XTCS4KE1ZgEkP +d94/n47hrc9LOvosIJDvv1Tx+3TcRznRaPvKAj6TtdWaRXSMO7J1eNrfApKf +dSjFPqHjlkO1P09Nm8OC4vkZlTd09L/ieO7AhBn03CJjznTS8b7+71l10X2g +LLzwlXkXHd97bTMPmTcF/yO1UyrddDS/fHa+fcQUZAlL+6EeOr5uv8h3v94U +9t7xUDUboKNH+snPQ3GmUHo3q015hI7ngwazLkubwqVCEWbvLB3vyncKvlA0 +AZNnLS8MpRhosYdUF/DbC5w33ZNrpRlYdb6aaea6F/42DCvM8Gw/Zt9Y6LAX +cnu56dmyDJQfazWINNgL3MXs0wKrGOivJdOUK7UX8iy9lZ/TGNh+aPcS58N7 +QHBa5tr6DQzM1Li26uCPXfBow/5A6R0M3FSxN7xVaQf4xz/S7+I5wq/ecZ/c +DtAZk1iau5OB2cHHtLqEdkDD/YZ0jd0MzLg8V7mm2wgGlHUf2Bgz8IBMgJxu +khFIKq3/mmnBwD25MvJr57eDJ7Fw53pnBnZJeP1sbDUEJVqhjOFZBjYMdZor +FOvDnUbVSmoAAwN6c04H3NQHVsjDU394ZujImncl6AOl//GHe4EM9IswIGrc +9GFFTmm0VCgDi+3bZnQIffhN1P3rjWJgQnmi8JPrelChMjh4No13nna72pF0 +XdivvfrJgwcMbFQQGHx2XwcqDSamAh4yUHU6NZaVqQOqu6vUjIoZKDboteJy +sg6IWnvc737EwFAbz0s3fHWg7NSbnKVPGSi9iPOZrqsDnFzXlMNlDIydcfk7 +3a4Nv5eVesrXM9Dq2KvTt8S0Ie2znVLIVwa+iHh1LIANEBvj7Wo0yEAp9oCs +kThAsFZ8vvgQAyc9fS4y/5BwLOOV0vVvvPnhHx1L3pFA2jCUX4ww8PzAB8Nk +bxIGOr4pz0wwcKDUSiC6dhuodpzacOwfA3NHdy15HaAFtZ+i1ExlmWg/vv39 +6uWacLq9ylphJRO3C84wZv5oAK1DMHSBHBMf2aWIdg9qgN/ngKYH8kx0Ckhy +7n6pAZwuTy/JtUxkb5b7ln5CA8L6rR43M5mo2hwyOtC0BeDnuq2WakwUDAXJ +hFx1eCBYq2O7m4nZ+8aD3/pugt3W1nOsPUzcJ71HyujoJhgu/F44xrPZRF1z +s9UmoNmLUkONmdjLGC9bprUJEkt2/buzj4mFxWn2C/9tBE+3989+WzHRVY/y +jhu+ETa0NW9MPsxbH9LBGLmqBvfyulm1gUzkqi6dEfuhAvymKZXZQUzcklI2 +K9KlAvvmth8KDGbiDVbMxPIPKjBr+CB7UygTDRzXZ20rVgHdr2GM6xG8/fqn +Vq4MUIF2igLN6wIT73mLj70XVwGhVK/VazN4/bIJKhfR3gB2gSKSJx8zMXIg +WKPTVwm2fBB4tP0JE3W55VJaB5RAgvbHglLC69e0pEneTiWorvh+uf4pE03n +bxa/WKsEqovq6ZxSJu52uFZcUKkIiy7EqX15zUQyvoj+WkYRCi5Lmho08uqL +fiFlULkOBB6vSZT/wURhowNJYiYc3vvxaEUfz+zXK7tuIgfSBB9N5o0y8V9k +YZbueg4om+yy0BpjYpvFB988UQ7s/3Fmle0vJi7L2GW6tJoNBfRPOVdnmZj0 +vV5CTpsNdvFJz6hCLLzdezJFXosFJS7CA+y1LBzQ/pYxZsoATUcfLh+FhdLZ +2y6xdBnw3HJIpp3nb/yX2o9sZECZQbVRDI2FU+O2XHEpBlQyIwvGmCz8Imz+ +dqqFDk09i/xLFFl4eVYM/tjQ4ef+RRI7NFmYvulx4QsPGjCNhLTdzFh4aIxM +Vn9OgdSLb79tMWch/373LskCCggPxCQusGDhrbsKM3M3KTByTqI/zZKFP0+8 +9eyJpsDDYkpEhTULd/xhfJO2oYAudWu9rBMLF709kqc1vxacf7vvr3Bj4cYq +WZeh+DWQlfPJQzaShRmSYkP93+Th6pXuVV08f9Db1S7aIg9pyYNV2edZmHk4 +fVCnXB6ig6dWq0Wz8NGh7QqfLsmDp514za4LLFR2lMH8nfKgLb2dFpLMwqBD +89zhIjnoDHvS+OM6C2t8H2r4nl8JMgcvqlWUsHDWrPbDJxsZqL5bXnnpKQsH +bxlmNhnJgM/kj/2ez1goav3U8ssWGWgP0Q2kvmDhygdZO2WlZCAjc7zuXBkL +l4lGsNQapIHaveOQVhULEz41H/+lIw0K1nzpxU0s1FiQpmm+WQrA2IV76ycL +OZqX+87qSED36CDFY4yXh1Ws2o2NEhAYc+g/zXEWXjp36mwDSwLKqw5E1k2w +UK3ZvVd/iQTok3YrxqdYaLDSlrjXtAJ2K5iyNOdZCIf6z+51WQE2C7ftrhNm +43RrbNeDdHHwK1l+dYzKRq/3DlbBUsuh8daD3BoaGxMe5S6eFl4O61LNH2TR +2bhE7v3Cwd9i8Mkzo9qSyUaXo/EuMlVisEWR86uMw0ZJac8QB2cxmL4Khgnr +2fj08ExPeOYy8Ax1m1DZxsZB9yeFLxSXwtE9dfonLdkYKe65t8JLBIqSyrvJ +/Wy8EG1C8XcSgbnWJ34iVmzUU8/7o7NHBKIcsu/dsGbj+NeuvDmOCNzxCJB+ +b8fG+/JFzcu/LIbvSRu+Kh5kY6g7N+idwWI43pYc9tWDjRqDisbGbGFwdbR9 +vT+ajdv01MzMRYVAa89FB2oMG+kl28+kzi8E0W0f5od4rrY36OkZWQh3ZfU2 ++VxgY4hD+85L9Qth5J1iTmoCG5NMG8rj4xbCUXI+4uNFNkqVCGCs1EI4In95 +x64sNs6m9++7QAjCgea2RnzBxi9m0aT4CQEYllC3WFnKxvPwz7PaUQBOmKR0 +jPN8J9P5SZSpAAS8M+7PLGOj7vYy0w3qApD2tmZK8DUbo3/v6+Ry+aHhxXPZ +tzVsNOzUG7gRzw9bcq7bGbexcdefm2sqn/HBMu8jw46/2FgRkOZ5xZ5Lhi2R +4ypMspGw6U3M2c4l56/Vik/zLEpXSXmpxiWHq5U1oqZ55wVPiVOFuWSl3FRE +0Swbh14n3L1e+JcMKA1iLuDjYNxAZWjkor/kj4WXHbJEOXhR+Lttfukfsi65 +vuUrk4PKQ8WsOYtZcs73ZuMrFgdH3y/2XqM7S3LsfRsy2ByUXXXV3GTDLBlC +MCtNCA5WD9cnDgnPkpql/sWlihx8L2Z0t/7pb/L2oEJyqhoH/ZtuDLtTf5Ph +mlHG+tocVK3/VVg+O00C7+OZbcPBnS+V49c3TZKTbg41/rYcPJT5K5R4PUne ++etbbWrHwR1i1vXrH06S0vL5r/kdOCjWv07NMXmSHDGTeGF7gIPfQGaHudkk +mVbblS91lIPyQyLhQZ9+kROPfOLCvDnYUl11NGN4gsyJvWNyMJGDlQFnbeeV +xsmdnjLdSkkcjB3NGb5FHScnzENdp3l2ylAwtpEaJ0mKXWRECgcPcvrju+bH +yOYi8dLbaRzMemq3bk/dGCnY5kOMXuXg/tmc3fXHx8gDNAM+7zwOjmjmrNp0 +5CdJedyXH/magwdyCX7H4hHy7MgputMbDv4K79sncm2EbKcKpW+t5KCPzH6R +N5EjZFIMJ3S0ioNryo44u9mMkEJOrlb7ajl4u/KfTZzgCDkiOiNEaeTgu517 +X3EtvpNPnEQcHnfx8vHr9N6yZJjcs0xlxdc5DnqWaPY4XB8kM9KlZAr/cFCd +X+jS5rhBcpgxJ+8/z8HJKeNa2YBBMnRrBXMFl3dfuU0nBWwGySdHzDRIfgKn +9GU/u8gOkpQKX4fURQTWzHIMgpK+kmPe5ff0JQk8ezPPJyVxgEzoMd1xS4nA +0IXHNc8V9ZGHpP1N3JQJjMoPyvXO6iM1d2Tt37SeQO6qB5J+qX1k/8PJwxUb +COx1n67J8Osjt0SmhHapEbijZmrI8r8+slO59YWMJoGWg9ya7JZeUtHfakOk +PoFm5vwKToK9ZJW0o5SLPYGnBcSlp/y6SZOMfEFtBwILEhs3arh1k53UuV+y +jgTaOjmti3DsJqcVkxqrnQjcP37+DBp2k4z/3sRxDhHYtyK2ly3dTQa7EyJD +xwnMeyR3OvxwF6lVPc495Eeg/Grt+fHvX8gi3+Ah5xQCnY+3rXxIdJDKZrTD +yqkE6o0cHV8t3UHe2VA+MMNz3I+4oRSBDjJzkL8vKo3Ak4mfRQs62slEs6Av +BZcJTEDOipgL7aSnSmDj/A0C2dkXd7ZPfyJVvp19nnyPwMSCe11RH9rIAkvf ++NdVBFaoaosp57eQm14RAdnVBFa6F/OPXmohnxLtx8LfEqgoClnPI1vIijlN +A8NaXr1hpjVhzi1kS8b839oGAulen40rV7WQ893njn1sJrB0nyRnOq6ZNHQJ +1+/tI/DgxYIbrwKbyPoPmzdW9BMYe3b8gPaJJtJEc5CaNUCgq2Kva4N9E2m9 +xPDvwUECl+vLKy+HJtItf/HDb8MEHtes2qzC/Ugmj8dQx8cJ7Bd5vLU74CO5 +0mqbWOMEgZueLT2/3v0jebX8x3zRLwJnz4h6R9t/JG8l7W47NcXLt/mAqAt+ +JJ9uWh73+zeBBgtG+Z8KfCTJq2X+n2YJjH/yUsP1VyNZIeRx9OkcgXV8718p +9jeSda0f9PznCey8uPzy+zeNpDEGq9n+JZB/Jrzt4aNGsiVXlUpyCTT9W0Vm +32okrcT7lq39R+DIOZHXN9IayS7fpPl/PMttjLW7c76R/B/yjkjP + "]]}, + 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:eJwV13c41t8bB3AkSUoyo/Hs5/lkFCqRPvfN10oTGdmkoUKUjCSbjGxRWkJK +CqXSkChkVbKibJEkZER6+j2/v871us64zn2//zmH6uRuclCAj49vJz8f3//H +QUaN0IkKCpqvf3wjf1sKrNuz8pZXPQUFOj4lj/onw3SNvvDuBgr2ihemO7km +wyv9Uy6sdxTk57NU6rVNBkvynULrewrG713fvQCSIVwprGBLEwXP3O2/8J4/ +GfqWjJf8aafgla6S3xHnkyCjurouaIiCJsmVxuo3EkFMx2cidgEVP3BGHb// +jIcaidleC0Eq9iR9vNrTFw/hA74fqQupOFd+Sq+7NR64kWceFgtRcYe5Rsn0 +y3gYfRdw+stiKsZnlGRExMdDvW3YnOJyKp6RjnPbqBYP0b6JAnWrqFj2sj2V +/fcCLCq8u0JkMxWPqRkOBFnGgN9H4+/9PIfFlH6+ohMDI1PTFS/VqXjvWNG5 +GsUYaNTU9vLSoOLdiepUM/4YyHjd3NqtRcVzX6KKVPKiQbWNm/H4Pyqm0vkW +zPBHg92/veyDxlRcl6Xz0enZeXi4a2pr2XEqVv2KV0brCLi3slP6oisVsyJb +vM9tj4DbA5Xjrm5UrMtsk6lTj4CrZ9NuyZ+gYsr3iY2xkhEQmb9VwvskFWcL +KR/zG8LBZmnwsJIfFRnqSaoOeuEgWL8s/XIEFbv1604ZaIWB2U7O9OlMKv6Q +DB5l7A4BdHN2gJtUrFEQuOGKIbAu/nrNoiwqJrdemXupGgJ8TbLX0rKpOLky +PDJIJgTuWi82fJpLxaJFWWbePcEgcGw4/e89Kt6KKZlhewfD/fN3t4U+o6Jt +rI/JidtBsLhqQ1hCExUrZic/6nAC4Y5GQuvRZiqGG2tdq5UPhJ13xwndFiqu +TqJO2YoFQnxCUcN0KxXTJ2UNyR/nQNpmo6xNBxUfKf+IYUafA8a4eh6rl9c/ +d8tOj5oAIOXhw7OfVDTaXfjuuvlZ8HTftfqrCA05GVHPPDL9QHAL/7+CJTSs +Tx5z2BrnB6l8xd1nRGl4kyVQu8LfD54mrMoSX0ZDnS1alcNmfiDw8Pu6beI0 +vLdRzIgU8YOE3+e3JMvQkJ8rzDzm5QsFQZWmOgwadvSmu14y84HRJIi6uo2G +nysbVM23ngZhIXW3gyQNcSJBIV3hNNB8lE0UgYbFOrIag/KnwcxmtdxTpOH6 +3pSTWfNe8Jzx53bzfzQcOh4Xl1nqBVHFj96KGtEwsNy6NEfXC1itSovPmNPQ +o2W8/ZLlKbCTWxVp4U5DvYJAjxtXPUH5i/q+9SdoaPTsiJNxvCf8u2ZKWeRB +w7zxpQaiwZ5wnRn95JEnDUe67GoyD3pC74a5IanTNLR6uarRWMkTDhu0bW/y +5/kJtbyg1ANOnEpeYhxFQ7OfSqj57QSENIjGGWXTcG28ouq1x26gO3hmWCKH +hm2V20YTbriBIN93vS88a0p3uCdHu0G4ytt591waFi6ZS622d4Oo5LCjKXk0 +tCwkt40Iu0GCFVevu5CGFPkJfRk7V7j29ee8VykNnQ8xqgokjsMzbuPRG600 +9PNNOpJ/2wVUjxy6d6aNhqd2UwKLUlzgzofZcbNPNBRUCl1ZFeQCl7IoviId +NFwjtCBzjZUL+Bi5RZzs5OWdqf4ibIkLbE5dnKU3QEOZK81NhMcRKFLCL98m +aFgWfFne1+Aw5Nrk71FdRkd725epdasPQq57aIqwGB2d2judcpYehFvB1h2d +PLeVXQyM+esMObmLD0eL07FHwif67BdnyJo8GNAvSUfNtuH28SvOcD1mTX6q +PB0lLOUt5KnOkPY8TuQPh46HLU53qm44AJGrPN9U/EfH5prr0YnujuATlnEp +WpeOyc05mtQDjnBktNLdVI+OR2Nn3zwxdwSDMnm5Pn06dtUethQgHUHI+Y2b +gBEdbTMTXnBFHSEsT1ZWey8dT/55Sbl41wGCNV8eLbWhI/WdaaN6vz34W4ou +L/Gio7ShgIrDOlugrbCuTzhNx7Lva3tqJWzhbe3tqKPedIyn7Bbc/tcGpMFg +4SpfOm7uYLl5v7eBQmbwXIA/HeUCxK1uetvA14mZft0QOjYeNxdSfGsNe2P7 +St7H0zFo6QrLHB8rYJY/PTCUR8dWy57MaCFLeP7BpqDoLh2XTCS4KE1ZgEkP +d94/n47hrc9LOvosIJDvv1Tx+3TcRznRaPvKAj6TtdWaRXSMO7J1eNrfApKf +dSjFPqHjlkO1P09Nm8OC4vkZlTd09L/ieO7AhBn03CJjznTS8b7+71l10X2g +LLzwlXkXHd97bTMPmTcF/yO1UyrddDS/fHa+fcQUZAlL+6EeOr5uv8h3v94U +9t7xUDUboKNH+snPQ3GmUHo3q015hI7ngwazLkubwqVCEWbvLB3vyncKvlA0 +AZNnLS8MpRhosYdUF/DbC5w33ZNrpRlYdb6aaea6F/42DCvM8Gw/Zt9Y6LAX +cnu56dmyDJQfazWINNgL3MXs0wKrGOivJdOUK7UX8iy9lZ/TGNh+aPcS58N7 +QHBa5tr6DQzM1Li26uCPXfBow/5A6R0M3FSxN7xVaQf4xz/S7+I5wq/ecZ/c +DtAZk1iau5OB2cHHtLqEdkDD/YZ0jd0MzLg8V7mm2wgGlHUf2Bgz8IBMgJxu +khFIKq3/mmnBwD25MvJr57eDJ7Fw53pnBnZJeP1sbDUEJVqhjOFZBjYMdZor +FOvDnUbVSmoAAwN6c04H3NQHVsjDU394ZujImncl6AOl//GHe4EM9IswIGrc +9GFFTmm0VCgDi+3bZnQIffhN1P3rjWJgQnmi8JPrelChMjh4No13nna72pF0 +XdivvfrJgwcMbFQQGHx2XwcqDSamAh4yUHU6NZaVqQOqu6vUjIoZKDboteJy +sg6IWnvc737EwFAbz0s3fHWg7NSbnKVPGSi9iPOZrqsDnFzXlMNlDIydcfk7 +3a4Nv5eVesrXM9Dq2KvTt8S0Ie2znVLIVwa+iHh1LIANEBvj7Wo0yEAp9oCs +kThAsFZ8vvgQAyc9fS4y/5BwLOOV0vVvvPnhHx1L3pFA2jCUX4ww8PzAB8Nk +bxIGOr4pz0wwcKDUSiC6dhuodpzacOwfA3NHdy15HaAFtZ+i1ExlmWg/vv39 +6uWacLq9ylphJRO3C84wZv5oAK1DMHSBHBMf2aWIdg9qgN/ngKYH8kx0Ckhy +7n6pAZwuTy/JtUxkb5b7ln5CA8L6rR43M5mo2hwyOtC0BeDnuq2WakwUDAXJ +hFx1eCBYq2O7m4nZ+8aD3/pugt3W1nOsPUzcJ71HyujoJhgu/F44xrPZRF1z +s9UmoNmLUkONmdjLGC9bprUJEkt2/buzj4mFxWn2C/9tBE+3989+WzHRVY/y +jhu+ETa0NW9MPsxbH9LBGLmqBvfyulm1gUzkqi6dEfuhAvymKZXZQUzcklI2 +K9KlAvvmth8KDGbiDVbMxPIPKjBr+CB7UygTDRzXZ20rVgHdr2GM6xG8/fqn +Vq4MUIF2igLN6wIT73mLj70XVwGhVK/VazN4/bIJKhfR3gB2gSKSJx8zMXIg +WKPTVwm2fBB4tP0JE3W55VJaB5RAgvbHglLC69e0pEneTiWorvh+uf4pE03n +bxa/WKsEqovq6ZxSJu52uFZcUKkIiy7EqX15zUQyvoj+WkYRCi5Lmho08uqL +fiFlULkOBB6vSZT/wURhowNJYiYc3vvxaEUfz+zXK7tuIgfSBB9N5o0y8V9k +YZbueg4om+yy0BpjYpvFB988UQ7s/3Fmle0vJi7L2GW6tJoNBfRPOVdnmZj0 +vV5CTpsNdvFJz6hCLLzdezJFXosFJS7CA+y1LBzQ/pYxZsoATUcfLh+FhdLZ +2y6xdBnw3HJIpp3nb/yX2o9sZECZQbVRDI2FU+O2XHEpBlQyIwvGmCz8Imz+ +dqqFDk09i/xLFFl4eVYM/tjQ4ef+RRI7NFmYvulx4QsPGjCNhLTdzFh4aIxM +Vn9OgdSLb79tMWch/373LskCCggPxCQusGDhrbsKM3M3KTByTqI/zZKFP0+8 +9eyJpsDDYkpEhTULd/xhfJO2oYAudWu9rBMLF709kqc1vxacf7vvr3Bj4cYq +WZeh+DWQlfPJQzaShRmSYkP93+Th6pXuVV08f9Db1S7aIg9pyYNV2edZmHk4 +fVCnXB6ig6dWq0Wz8NGh7QqfLsmDp514za4LLFR2lMH8nfKgLb2dFpLMwqBD +89zhIjnoDHvS+OM6C2t8H2r4nl8JMgcvqlWUsHDWrPbDJxsZqL5bXnnpKQsH +bxlmNhnJgM/kj/2ez1goav3U8ssWGWgP0Q2kvmDhygdZO2WlZCAjc7zuXBkL +l4lGsNQapIHaveOQVhULEz41H/+lIw0K1nzpxU0s1FiQpmm+WQrA2IV76ycL +OZqX+87qSED36CDFY4yXh1Ws2o2NEhAYc+g/zXEWXjp36mwDSwLKqw5E1k2w +UK3ZvVd/iQTok3YrxqdYaLDSlrjXtAJ2K5iyNOdZCIf6z+51WQE2C7ftrhNm +43RrbNeDdHHwK1l+dYzKRq/3DlbBUsuh8daD3BoaGxMe5S6eFl4O61LNH2TR +2bhE7v3Cwd9i8Mkzo9qSyUaXo/EuMlVisEWR86uMw0ZJac8QB2cxmL4Khgnr +2fj08ExPeOYy8Ax1m1DZxsZB9yeFLxSXwtE9dfonLdkYKe65t8JLBIqSyrvJ +/Wy8EG1C8XcSgbnWJ34iVmzUU8/7o7NHBKIcsu/dsGbj+NeuvDmOCNzxCJB+ +b8fG+/JFzcu/LIbvSRu+Kh5kY6g7N+idwWI43pYc9tWDjRqDisbGbGFwdbR9 +vT+ajdv01MzMRYVAa89FB2oMG+kl28+kzi8E0W0f5od4rrY36OkZWQh3ZfU2 ++VxgY4hD+85L9Qth5J1iTmoCG5NMG8rj4xbCUXI+4uNFNkqVCGCs1EI4In95 +x64sNs6m9++7QAjCgea2RnzBxi9m0aT4CQEYllC3WFnKxvPwz7PaUQBOmKR0 +jPN8J9P5SZSpAAS8M+7PLGOj7vYy0w3qApD2tmZK8DUbo3/v6+Ry+aHhxXPZ +tzVsNOzUG7gRzw9bcq7bGbexcdefm2sqn/HBMu8jw46/2FgRkOZ5xZ5Lhi2R +4ypMspGw6U3M2c4l56/Vik/zLEpXSXmpxiWHq5U1oqZ55wVPiVOFuWSl3FRE +0Swbh14n3L1e+JcMKA1iLuDjYNxAZWjkor/kj4WXHbJEOXhR+Lttfukfsi65 +vuUrk4PKQ8WsOYtZcs73ZuMrFgdH3y/2XqM7S3LsfRsy2ByUXXXV3GTDLBlC +MCtNCA5WD9cnDgnPkpql/sWlihx8L2Z0t/7pb/L2oEJyqhoH/ZtuDLtTf5Ph +mlHG+tocVK3/VVg+O00C7+OZbcPBnS+V49c3TZKTbg41/rYcPJT5K5R4PUne ++etbbWrHwR1i1vXrH06S0vL5r/kdOCjWv07NMXmSHDGTeGF7gIPfQGaHudkk +mVbblS91lIPyQyLhQZ9+kROPfOLCvDnYUl11NGN4gsyJvWNyMJGDlQFnbeeV +xsmdnjLdSkkcjB3NGb5FHScnzENdp3l2ylAwtpEaJ0mKXWRECgcPcvrju+bH +yOYi8dLbaRzMemq3bk/dGCnY5kOMXuXg/tmc3fXHx8gDNAM+7zwOjmjmrNp0 +5CdJedyXH/magwdyCX7H4hHy7MgputMbDv4K79sncm2EbKcKpW+t5KCPzH6R +N5EjZFIMJ3S0ioNryo44u9mMkEJOrlb7ajl4u/KfTZzgCDkiOiNEaeTgu517 +X3EtvpNPnEQcHnfx8vHr9N6yZJjcs0xlxdc5DnqWaPY4XB8kM9KlZAr/cFCd +X+jS5rhBcpgxJ+8/z8HJKeNa2YBBMnRrBXMFl3dfuU0nBWwGySdHzDRIfgKn +9GU/u8gOkpQKX4fURQTWzHIMgpK+kmPe5ff0JQk8ezPPJyVxgEzoMd1xS4nA +0IXHNc8V9ZGHpP1N3JQJjMoPyvXO6iM1d2Tt37SeQO6qB5J+qX1k/8PJwxUb +COx1n67J8Osjt0SmhHapEbijZmrI8r8+slO59YWMJoGWg9ya7JZeUtHfakOk +PoFm5vwKToK9ZJW0o5SLPYGnBcSlp/y6SZOMfEFtBwILEhs3arh1k53UuV+y +jgTaOjmti3DsJqcVkxqrnQjcP37+DBp2k4z/3sRxDhHYtyK2ly3dTQa7EyJD +xwnMeyR3OvxwF6lVPc495Eeg/Grt+fHvX8gi3+Ah5xQCnY+3rXxIdJDKZrTD +yqkE6o0cHV8t3UHe2VA+MMNz3I+4oRSBDjJzkL8vKo3Ak4mfRQs62slEs6Av +BZcJTEDOipgL7aSnSmDj/A0C2dkXd7ZPfyJVvp19nnyPwMSCe11RH9rIAkvf ++NdVBFaoaosp57eQm14RAdnVBFa6F/OPXmohnxLtx8LfEqgoClnPI1vIijlN +A8NaXr1hpjVhzi1kS8b839oGAulen40rV7WQ893njn1sJrB0nyRnOq6ZNHQJ +1+/tI/DgxYIbrwKbyPoPmzdW9BMYe3b8gPaJJtJEc5CaNUCgq2Kva4N9E2m9 +xPDvwUECl+vLKy+HJtItf/HDb8MEHtes2qzC/Ugmj8dQx8cJ7Bd5vLU74CO5 +0mqbWOMEgZueLT2/3v0jebX8x3zRLwJnz4h6R9t/JG8l7W47NcXLt/mAqAt+ +JJ9uWh73+zeBBgtG+Z8KfCTJq2X+n2YJjH/yUsP1VyNZIeRx9OkcgXV8718p +9jeSda0f9PznCey8uPzy+zeNpDEGq9n+JZB/Jrzt4aNGsiVXlUpyCTT9W0Vm +32okrcT7lq39R+DIOZHXN9IayS7fpPl/PMttjLW7c76R/B/yjkjP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.020743096347174493`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.020743096347174493`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13c41t8bB3AkSUoyo/Hs5/lkFCqRPvfN10oTGdmkoUKUjCSbjGxRWkJK +CqXSkChkVbKibJEkZER6+j2/v871us64zn2//zmH6uRuclCAj49vJz8f3//H +QUaN0IkKCpqvf3wjf1sKrNuz8pZXPQUFOj4lj/onw3SNvvDuBgr2ihemO7km +wyv9Uy6sdxTk57NU6rVNBkvynULrewrG713fvQCSIVwprGBLEwXP3O2/8J4/ +GfqWjJf8aafgla6S3xHnkyCjurouaIiCJsmVxuo3EkFMx2cidgEVP3BGHb// +jIcaidleC0Eq9iR9vNrTFw/hA74fqQupOFd+Sq+7NR64kWceFgtRcYe5Rsn0 +y3gYfRdw+stiKsZnlGRExMdDvW3YnOJyKp6RjnPbqBYP0b6JAnWrqFj2sj2V +/fcCLCq8u0JkMxWPqRkOBFnGgN9H4+/9PIfFlH6+ohMDI1PTFS/VqXjvWNG5 +GsUYaNTU9vLSoOLdiepUM/4YyHjd3NqtRcVzX6KKVPKiQbWNm/H4Pyqm0vkW +zPBHg92/veyDxlRcl6Xz0enZeXi4a2pr2XEqVv2KV0brCLi3slP6oisVsyJb +vM9tj4DbA5Xjrm5UrMtsk6lTj4CrZ9NuyZ+gYsr3iY2xkhEQmb9VwvskFWcL +KR/zG8LBZmnwsJIfFRnqSaoOeuEgWL8s/XIEFbv1604ZaIWB2U7O9OlMKv6Q +DB5l7A4BdHN2gJtUrFEQuOGKIbAu/nrNoiwqJrdemXupGgJ8TbLX0rKpOLky +PDJIJgTuWi82fJpLxaJFWWbePcEgcGw4/e89Kt6KKZlhewfD/fN3t4U+o6Jt +rI/JidtBsLhqQ1hCExUrZic/6nAC4Y5GQuvRZiqGG2tdq5UPhJ13xwndFiqu +TqJO2YoFQnxCUcN0KxXTJ2UNyR/nQNpmo6xNBxUfKf+IYUafA8a4eh6rl9c/ +d8tOj5oAIOXhw7OfVDTaXfjuuvlZ8HTftfqrCA05GVHPPDL9QHAL/7+CJTSs +Tx5z2BrnB6l8xd1nRGl4kyVQu8LfD54mrMoSX0ZDnS1alcNmfiDw8Pu6beI0 +vLdRzIgU8YOE3+e3JMvQkJ8rzDzm5QsFQZWmOgwadvSmu14y84HRJIi6uo2G +nysbVM23ngZhIXW3gyQNcSJBIV3hNNB8lE0UgYbFOrIag/KnwcxmtdxTpOH6 +3pSTWfNe8Jzx53bzfzQcOh4Xl1nqBVHFj96KGtEwsNy6NEfXC1itSovPmNPQ +o2W8/ZLlKbCTWxVp4U5DvYJAjxtXPUH5i/q+9SdoaPTsiJNxvCf8u2ZKWeRB +w7zxpQaiwZ5wnRn95JEnDUe67GoyD3pC74a5IanTNLR6uarRWMkTDhu0bW/y +5/kJtbyg1ANOnEpeYhxFQ7OfSqj57QSENIjGGWXTcG28ouq1x26gO3hmWCKH +hm2V20YTbriBIN93vS88a0p3uCdHu0G4ytt591waFi6ZS622d4Oo5LCjKXk0 +tCwkt40Iu0GCFVevu5CGFPkJfRk7V7j29ee8VykNnQ8xqgokjsMzbuPRG600 +9PNNOpJ/2wVUjxy6d6aNhqd2UwKLUlzgzofZcbNPNBRUCl1ZFeQCl7IoviId +NFwjtCBzjZUL+Bi5RZzs5OWdqf4ibIkLbE5dnKU3QEOZK81NhMcRKFLCL98m +aFgWfFne1+Aw5Nrk71FdRkd725epdasPQq57aIqwGB2d2judcpYehFvB1h2d +PLeVXQyM+esMObmLD0eL07FHwif67BdnyJo8GNAvSUfNtuH28SvOcD1mTX6q +PB0lLOUt5KnOkPY8TuQPh46HLU53qm44AJGrPN9U/EfH5prr0YnujuATlnEp +WpeOyc05mtQDjnBktNLdVI+OR2Nn3zwxdwSDMnm5Pn06dtUethQgHUHI+Y2b +gBEdbTMTXnBFHSEsT1ZWey8dT/55Sbl41wGCNV8eLbWhI/WdaaN6vz34W4ou +L/Gio7ShgIrDOlugrbCuTzhNx7Lva3tqJWzhbe3tqKPedIyn7Bbc/tcGpMFg +4SpfOm7uYLl5v7eBQmbwXIA/HeUCxK1uetvA14mZft0QOjYeNxdSfGsNe2P7 +St7H0zFo6QrLHB8rYJY/PTCUR8dWy57MaCFLeP7BpqDoLh2XTCS4KE1ZgEkP +d94/n47hrc9LOvosIJDvv1Tx+3TcRznRaPvKAj6TtdWaRXSMO7J1eNrfApKf +dSjFPqHjlkO1P09Nm8OC4vkZlTd09L/ieO7AhBn03CJjznTS8b7+71l10X2g +LLzwlXkXHd97bTMPmTcF/yO1UyrddDS/fHa+fcQUZAlL+6EeOr5uv8h3v94U +9t7xUDUboKNH+snPQ3GmUHo3q015hI7ngwazLkubwqVCEWbvLB3vyncKvlA0 +AZNnLS8MpRhosYdUF/DbC5w33ZNrpRlYdb6aaea6F/42DCvM8Gw/Zt9Y6LAX +cnu56dmyDJQfazWINNgL3MXs0wKrGOivJdOUK7UX8iy9lZ/TGNh+aPcS58N7 +QHBa5tr6DQzM1Li26uCPXfBow/5A6R0M3FSxN7xVaQf4xz/S7+I5wq/ecZ/c +DtAZk1iau5OB2cHHtLqEdkDD/YZ0jd0MzLg8V7mm2wgGlHUf2Bgz8IBMgJxu +khFIKq3/mmnBwD25MvJr57eDJ7Fw53pnBnZJeP1sbDUEJVqhjOFZBjYMdZor +FOvDnUbVSmoAAwN6c04H3NQHVsjDU394ZujImncl6AOl//GHe4EM9IswIGrc +9GFFTmm0VCgDi+3bZnQIffhN1P3rjWJgQnmi8JPrelChMjh4No13nna72pF0 +XdivvfrJgwcMbFQQGHx2XwcqDSamAh4yUHU6NZaVqQOqu6vUjIoZKDboteJy +sg6IWnvc737EwFAbz0s3fHWg7NSbnKVPGSi9iPOZrqsDnFzXlMNlDIydcfk7 +3a4Nv5eVesrXM9Dq2KvTt8S0Ie2znVLIVwa+iHh1LIANEBvj7Wo0yEAp9oCs +kThAsFZ8vvgQAyc9fS4y/5BwLOOV0vVvvPnhHx1L3pFA2jCUX4ww8PzAB8Nk +bxIGOr4pz0wwcKDUSiC6dhuodpzacOwfA3NHdy15HaAFtZ+i1ExlmWg/vv39 +6uWacLq9ylphJRO3C84wZv5oAK1DMHSBHBMf2aWIdg9qgN/ngKYH8kx0Ckhy +7n6pAZwuTy/JtUxkb5b7ln5CA8L6rR43M5mo2hwyOtC0BeDnuq2WakwUDAXJ +hFx1eCBYq2O7m4nZ+8aD3/pugt3W1nOsPUzcJ71HyujoJhgu/F44xrPZRF1z +s9UmoNmLUkONmdjLGC9bprUJEkt2/buzj4mFxWn2C/9tBE+3989+WzHRVY/y +jhu+ETa0NW9MPsxbH9LBGLmqBvfyulm1gUzkqi6dEfuhAvymKZXZQUzcklI2 +K9KlAvvmth8KDGbiDVbMxPIPKjBr+CB7UygTDRzXZ20rVgHdr2GM6xG8/fqn +Vq4MUIF2igLN6wIT73mLj70XVwGhVK/VazN4/bIJKhfR3gB2gSKSJx8zMXIg +WKPTVwm2fBB4tP0JE3W55VJaB5RAgvbHglLC69e0pEneTiWorvh+uf4pE03n +bxa/WKsEqovq6ZxSJu52uFZcUKkIiy7EqX15zUQyvoj+WkYRCi5Lmho08uqL +fiFlULkOBB6vSZT/wURhowNJYiYc3vvxaEUfz+zXK7tuIgfSBB9N5o0y8V9k +YZbueg4om+yy0BpjYpvFB988UQ7s/3Fmle0vJi7L2GW6tJoNBfRPOVdnmZj0 +vV5CTpsNdvFJz6hCLLzdezJFXosFJS7CA+y1LBzQ/pYxZsoATUcfLh+FhdLZ +2y6xdBnw3HJIpp3nb/yX2o9sZECZQbVRDI2FU+O2XHEpBlQyIwvGmCz8Imz+ +dqqFDk09i/xLFFl4eVYM/tjQ4ef+RRI7NFmYvulx4QsPGjCNhLTdzFh4aIxM +Vn9OgdSLb79tMWch/373LskCCggPxCQusGDhrbsKM3M3KTByTqI/zZKFP0+8 +9eyJpsDDYkpEhTULd/xhfJO2oYAudWu9rBMLF709kqc1vxacf7vvr3Bj4cYq +WZeh+DWQlfPJQzaShRmSYkP93+Th6pXuVV08f9Db1S7aIg9pyYNV2edZmHk4 +fVCnXB6ig6dWq0Wz8NGh7QqfLsmDp514za4LLFR2lMH8nfKgLb2dFpLMwqBD +89zhIjnoDHvS+OM6C2t8H2r4nl8JMgcvqlWUsHDWrPbDJxsZqL5bXnnpKQsH +bxlmNhnJgM/kj/2ez1goav3U8ssWGWgP0Q2kvmDhygdZO2WlZCAjc7zuXBkL +l4lGsNQapIHaveOQVhULEz41H/+lIw0K1nzpxU0s1FiQpmm+WQrA2IV76ycL +OZqX+87qSED36CDFY4yXh1Ws2o2NEhAYc+g/zXEWXjp36mwDSwLKqw5E1k2w +UK3ZvVd/iQTok3YrxqdYaLDSlrjXtAJ2K5iyNOdZCIf6z+51WQE2C7ftrhNm +43RrbNeDdHHwK1l+dYzKRq/3DlbBUsuh8daD3BoaGxMe5S6eFl4O61LNH2TR +2bhE7v3Cwd9i8Mkzo9qSyUaXo/EuMlVisEWR86uMw0ZJac8QB2cxmL4Khgnr +2fj08ExPeOYy8Ax1m1DZxsZB9yeFLxSXwtE9dfonLdkYKe65t8JLBIqSyrvJ +/Wy8EG1C8XcSgbnWJ34iVmzUU8/7o7NHBKIcsu/dsGbj+NeuvDmOCNzxCJB+ +b8fG+/JFzcu/LIbvSRu+Kh5kY6g7N+idwWI43pYc9tWDjRqDisbGbGFwdbR9 +vT+ajdv01MzMRYVAa89FB2oMG+kl28+kzi8E0W0f5od4rrY36OkZWQh3ZfU2 ++VxgY4hD+85L9Qth5J1iTmoCG5NMG8rj4xbCUXI+4uNFNkqVCGCs1EI4In95 +x64sNs6m9++7QAjCgea2RnzBxi9m0aT4CQEYllC3WFnKxvPwz7PaUQBOmKR0 +jPN8J9P5SZSpAAS8M+7PLGOj7vYy0w3qApD2tmZK8DUbo3/v6+Ry+aHhxXPZ +tzVsNOzUG7gRzw9bcq7bGbexcdefm2sqn/HBMu8jw46/2FgRkOZ5xZ5Lhi2R +4ypMspGw6U3M2c4l56/Vik/zLEpXSXmpxiWHq5U1oqZ55wVPiVOFuWSl3FRE +0Swbh14n3L1e+JcMKA1iLuDjYNxAZWjkor/kj4WXHbJEOXhR+Lttfukfsi65 +vuUrk4PKQ8WsOYtZcs73ZuMrFgdH3y/2XqM7S3LsfRsy2ByUXXXV3GTDLBlC +MCtNCA5WD9cnDgnPkpql/sWlihx8L2Z0t/7pb/L2oEJyqhoH/ZtuDLtTf5Ph +mlHG+tocVK3/VVg+O00C7+OZbcPBnS+V49c3TZKTbg41/rYcPJT5K5R4PUne ++etbbWrHwR1i1vXrH06S0vL5r/kdOCjWv07NMXmSHDGTeGF7gIPfQGaHudkk +mVbblS91lIPyQyLhQZ9+kROPfOLCvDnYUl11NGN4gsyJvWNyMJGDlQFnbeeV +xsmdnjLdSkkcjB3NGb5FHScnzENdp3l2ylAwtpEaJ0mKXWRECgcPcvrju+bH +yOYi8dLbaRzMemq3bk/dGCnY5kOMXuXg/tmc3fXHx8gDNAM+7zwOjmjmrNp0 +5CdJedyXH/magwdyCX7H4hHy7MgputMbDv4K79sncm2EbKcKpW+t5KCPzH6R +N5EjZFIMJ3S0ioNryo44u9mMkEJOrlb7ajl4u/KfTZzgCDkiOiNEaeTgu517 +X3EtvpNPnEQcHnfx8vHr9N6yZJjcs0xlxdc5DnqWaPY4XB8kM9KlZAr/cFCd +X+jS5rhBcpgxJ+8/z8HJKeNa2YBBMnRrBXMFl3dfuU0nBWwGySdHzDRIfgKn +9GU/u8gOkpQKX4fURQTWzHIMgpK+kmPe5ff0JQk8ezPPJyVxgEzoMd1xS4nA +0IXHNc8V9ZGHpP1N3JQJjMoPyvXO6iM1d2Tt37SeQO6qB5J+qX1k/8PJwxUb +COx1n67J8Osjt0SmhHapEbijZmrI8r8+slO59YWMJoGWg9ya7JZeUtHfakOk +PoFm5vwKToK9ZJW0o5SLPYGnBcSlp/y6SZOMfEFtBwILEhs3arh1k53UuV+y +jgTaOjmti3DsJqcVkxqrnQjcP37+DBp2k4z/3sRxDhHYtyK2ly3dTQa7EyJD +xwnMeyR3OvxwF6lVPc495Eeg/Grt+fHvX8gi3+Ah5xQCnY+3rXxIdJDKZrTD +yqkE6o0cHV8t3UHe2VA+MMNz3I+4oRSBDjJzkL8vKo3Ak4mfRQs62slEs6Av +BZcJTEDOipgL7aSnSmDj/A0C2dkXd7ZPfyJVvp19nnyPwMSCe11RH9rIAkvf ++NdVBFaoaosp57eQm14RAdnVBFa6F/OPXmohnxLtx8LfEqgoClnPI1vIijlN +A8NaXr1hpjVhzi1kS8b839oGAulen40rV7WQ893njn1sJrB0nyRnOq6ZNHQJ +1+/tI/DgxYIbrwKbyPoPmzdW9BMYe3b8gPaJJtJEc5CaNUCgq2Kva4N9E2m9 +xPDvwUECl+vLKy+HJtItf/HDb8MEHtes2qzC/Ugmj8dQx8cJ7Bd5vLU74CO5 +0mqbWOMEgZueLT2/3v0jebX8x3zRLwJnz4h6R9t/JG8l7W47NcXLt/mAqAt+ +JJ9uWh73+zeBBgtG+Z8KfCTJq2X+n2YJjH/yUsP1VyNZIeRx9OkcgXV8718p +9jeSda0f9PznCey8uPzy+zeNpDEGq9n+JZB/Jrzt4aNGsiVXlUpyCTT9W0Vm +32okrcT7lq39R+DIOZHXN9IayS7fpPl/PMttjLW7c76R/B/yjkjP + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.020743096347174493`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.020743096347174493`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643389546776`*^9, 3.9919652326803303`*^9, + 3.99251961571014*^9, 3.992519718611608*^9}, + CellLabel->"Out[38]=",ExpressionUUID->"f85869a9-f515-44a4-a514-4febf3e2e00a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519620160626*^9, + 3.9925196201696377`*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519621835359*^9, + 3.9925196218438673`*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[39]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = + 0.5750000000000001, $CellContext`xmax$$ = 11.18, $CellContext`xmin$$ = + 7, $CellContext`ymax$$ = 0.022, $CellContext`yv$$ = 1.213, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9, + 3.9925196245257998`*^9, 3.992519722137467*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"2b47b05e-3598-4f25-a466-b4f9f340b053"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992519768535355*^9, 3.9925197709020777`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03k0ldsbB3BlVimSw3Hec943nAwRcV1DeR5TQoYyyzXLEDIUGUoyhYyV +OVNIUUoppSJpIEKpiEQ0XikULg2/8/tjr70+a+9n7/2s9d2Ux75d3su5uLiW +OOP/84Z+KR4uLgkcLbikrSw6CNp6kRrTHOvVnPohKjQIFhdf+L5dJoFa2vqs +hWWDEH4su7udWwJNy6Xu3ZsegAdb+PNS+CVw3OSbn1vfAHhVzcivXS2BZdXT +jEtZA1AW3mHJZkpgTvBLp0urB0BSMqJoxxYJJNqCfwSufgkSj4jK2kMSqJCo +dGv8Sz8srVCsa7wpgQlL/FqpXM+gR/Ff5fQ5CXTuGtuRv6kP6hvn1kf8LYnd +rvmq50ufQFi/r/jK/ZIYVayVwWPzGAz+YUdfaZRE49a7+1T/PASetlwnuTlJ +9GmadUtcaodzzYFa2zfT8T5jhj7n0wa7WVkpUWF0DFVUWDhzuwW+0SQH7S/R +cXnB+4aJ6GYIn7Q5s3ySjnd2FtifvHMdBBWHR1o2SuFBlZNlDuyrcOR3h6Sc +nxQeelWuTapfBu4t3A8qzkvhYVsT/+qXdRBh+3Xy82cpLBucnfaXroEebv21 +I2wG8piPF7U6V4IaY/T8uA8D7VPP88cMl0F0x4TeyUoGZhos/GraWAwDgnwW +RVWc/WVD1gXixaBhusGpopqB5vdGrVK4iuFbp1/opRoGluaRjPz+ItjTNVXR +VcfA082di/sOFYFVzwI3byMD/+rl+8X1tBBkn698cOA+A3tLuZ75JRVAz6i6 +qf17BkZ8v3IliJ4HxZN43PEDA/uUhWJMBPLAf2HHk90fGTjb99hAdS4XeNZ4 +73L7zMBzj3UbNjzNBU045eQ3xcCGJVOV+tRcKDv9wz96joG5ofLvqd+nINTp +WlopH4H20tFH3aZOwrr+v7s/sAn8MzUyUTKTAxpRes0DGwic/uNiGTeRA3ak +2bkOOQJ33HjnH/giB/IDXBJrFQisekQv8biZA3TexK37lAn0Mt5s23o0B0iN +pxfm/iIw5rubsOG6HFDID8jgNSIw85x9gJFeNug6l1tKexLIHPHYteSTCfwq +wclyXgQmJVdc1rfIhF5uaFHyJlAw1qb6tHomeNQOK2v6ELjzYJNUxrJMSFyk +CZvvJZAemtlhX5wBXfkZXeFhBFa3+785+jwdHJ9Hm3TGE2iaSL85Ynsc9lvY +GYRUErj6+GTVQloKZN1av8G7ikDFFT7rFQ6mwAWFr0KO1QSKbJDg8fdKgfd8 +x55iDYHE8bt9YltTwL7lhvuaOgJTPa9mr/t6DLRViCP1VwgMWjaS2Wx7DLhE +J259aSMw5GvxsKNSMqQ/D9HwHyPQrrF/cJo7Eeir5a0c3xI4XP6569FsAlRv +H/XbPk6gXnlPVO14AtxptjjNfkdggpj6xxP3EmCqXJFn/COBH1+kbf4WnwBW +Qe/6dn8j8LenynAPXwKI8jsGmv8h8BJ36Zp5sXjI08RKFYKJRg5ZFyx2xkFX +6S1+dSYTG7+Ze1/TjwMufq29f7M46yFbH8urx4Hvc9XNuhQThfkOxKrR4kA7 +VLrVTJaJ07R7hX2vj8BwLd/wHiUmmjwT0lYNPALrWd1rT29l4vcdZ5SOycXC +RV6neEEXJsa8b34zzR0DGvz9OUsce/Vvdq//Eg13BCwqvrgy0c7a4OGhl9Hw +ZIX+3T53JrJzmkTMa6NhSkThT4E3E6mArbZXraNBibkYpRDIxHciGQ5FZ6Og +TqMw1CyGidvEg/qjdkfCOZ9X7umFTBzrnM4VnQ6HV7mSzSeKmBj/Zd6L/Toc +hB44iBUWM/HAZEe3aUc4+Mu8fFBdwkRrNmvL/fJwUBh7pthawcSo16XSsdbh +cN6p+8fMeSYeyjq8tHTjANSZt6Y4NDPx5sbjCW05++GSWvVl6WEmbl9tlTYR +HApWyr0o+5qJevwXBYTcQ+Gb3GIPe4SJJeJG57fsDAUVpsWU/CgTN0WLq3ao +hkK9wJyCygQTx3PKNx2eDYGLr40qt0wycX1FDd0yMgTqkt/l2v5kYlWsZqBx +RjDUDMnEJDNYqKQ86PDrWiAUB++4HkGw8Idhi+LPkkDI5N0/48NkofV8Qfuq +5EAI33TPdzvJQjHN6DV+9oFgGO9uKyjDQhcBVvrvhQB4o1CinKbIQruVSvQC +CADxKNpYhjYLd4wP+Sm/8ocECaFtuQ4sXHx6P4lP3xfIobnOQkcWkhLXHas2 ++kLz6XHLUicW8i3YRNnRfGFm/W3HGmcWBp3p9v066QPuSsGBN91YeIO31mkx +3wd09V+cHPFl4bes2Gs+3/fAwt6KcXYkCy8fZV7RafKGgBbtuOsFLBS0/TTw +INgTdjNkG84XsvDfHIB6N08wjVw9frqIhZoGd8sqrTxBXm3CMOE0C9/V05Wu +qXjC++p0gZ3lLFxySbQOm/YA14zRzM81LBxL71I1P+ABu/5JKiGaWHg90iBG +J8kdNJf6muNfsHBvewN97pQr5EmfXR/6koWvZBed1WJcYc4sJsVtgNPfw1F2 +oocrXC1m2299xcLovMOieza5gopu9Mzcaxa6mRE5Up0uIBcnI+//joUD6XNl +xtwuQOOPyLX6zqnnentVK8EZogUzmoQFSawvWPXQ7rYjHFYfWpPFsepqcXp4 +tSMcdZXzExEisXXdLftzmY6Q2tgmKbaCRAn+bkszD0fId5+PklxF4nNnL7do +AUe4esNtq4wIiR2DUwWHHBxgyk+tTUuSRNqzf7sL+OzBrXPgsZc8iex1EUHP +82wgo00m6jXHFd2U9MUkG2i+GSxnp8C5L7h55OQBGxCvFUg0ViTxoY6K7nFr +G3icpqmroERio6y8L7XGBjTM8y99VSHRQF+ofyjNGlb22p+K0iSxZFBbYlv6 +Lrj+/IVLljGJP4zf3mtotIImL97Na7eTKHuuLyGj2gpuzqrx5nLM3JzfHpFn +BbdEsmuLTEgkinqzQyOtoM3cbKHajMQBK0lCQNcKntxvyb5tSaLIgGDvzhOW +8L6xpv2zPYlxJxhZ7/rNQSw3SsHIl8Q7YvZ3K0pNAWbOWrdwPJ4i2MiXYgr+ +Fs9jtPxIvKDmevJQqCnc5VPpUfIn0c9HYuCMkSkERbwLEw8gcbDd737vpAk8 +crC6/WEfiX3L7CZLdE0gRoptlRpBIterwtjKr8YwXtZ3oCeJROVAm2HtBCN4 +4PFdyziZxJURjTSDUCM4L0P7fYfj9Io5ysnNCIJrnJMuHiOxPMw87OoWI/hZ +/yE3PZXE4Np7tyTmDEGs5dd1swwSJ11fVp7aawjbXssvPjxFYrIAPXyNuwGc +lzx6uLWSxO+7n2lVhumBe2iyj34ViXnhOUGPPfVA4vFxq3aOefLah7hs9CA5 +Jm/9o2oSt30OUMpV1wOvN3UPempIbHqdvdNvDoGoein8po7EVa5CI9UxCFkq +SqW/rpK4R4btascGiDAeaNG+z8kHK96j8bEOOAQO/77Ccdjk4Lz4VR3QPDG6 +VekBiTp66He8WAcWRz42sx6SOCSeWdIQqAOHw/+7ztNB4s5Cj9TPa3QgqYp+ +6UkXp15mi9mikzbkcv9T5tFP4o21XzUUf2nCtZaxI6njJNpJBkSmhGvA3phH +E6smSKxzabjf464BpFb99myOL4nacMuba0BqQ8ya/Hck/r57QFhMRgNcqmhl +VR9IPCe9KrXz6V/An2be0vovibrO/OHn1f4CB7sbv+ZmSRyLDKW1L1eHpcms +KE8eCq/ffjS19FQVfFcHRk5wfObYJO+TNlXoVzU56M1L4YrBPRcuNqjCxfBl +4T58FO6/XBlZlKMKHlyhIXsFKPylW1FKWatC51pr37CVFL44KyT4/IUKFGqv +s4sXo5B/V3k2d98m0DpWoHpGhsK1heFr27w2Qm/E/iQpWQqnhNkhtTs2wh4f +y6ETHK+Lz6GdU98IJ7fxJiawOe/xkF4a5dkIX3lCBrzlKFy+tt5Yr1oRquK2 +x8ptpLCxIiaicVIBRKLnuy6oUbh1omhhMVkePgXa+jbpU/jsQ+hM4Xc22HwX +fattQCEYXms68IYNd6J6d9/meHETfcCzkw0nk80s2wwpvBCiPRxZxgYs19Po +2sbp7zn32jRzNuT2K/GMmlIYJhmroVYrC4Y6fGX81hTOfmKYye6XgVKB6y/t +PClknDTppWmtB3XnsLO9HP/XfSjfW349PKrfFGHqRaGruGpfq+R6mLGrEdf1 +pnCAHrendJECw6oCW1kfCrVP940v3aLgk17Ms1l/zvlng9zkDClQi9bryQql +cGSQl4vbmYSHXx4/6Iyj8KkG/7NpFwLEzh5S1T9KYWiJzxBjGwFubpuKb3Cs +l3brvrMSAYtPc0Jq4ilMcqlcpP9kwMYmR0ZSIoU7+VWWZRYyIOvohxC9FArr +lfrStw1JgQONm2jKopA6+Nf44b10+IjaYVWlFM5fIA0K79FAIPvJ8g1lFGbq +mjc8ukAD+TGPnBqO4Z6+yIp8GvjHpV2uLaew+pSe3eMAGny5O/z18hkKp03Y +fJo0GszoxwbcOUuhuGX74YZ94vDTsN37ZT2F7X9/E72ivA5Wm1g4CLZSmCbj +/tt8TBSc9oxtPcpxB+OJFaNPFCrj90svcTz2aT5ioVUUNO8UTk3epfBjaMG6 +V2Wi4KH2IaH3HiePfSPGeu6icI04cjnvIYUhtVfCT02IgPPMZSF2D4U0XnUv +vh9roKZo3W39EQongixSfQ4IQ/YqyYYOjqVVfPI1HYQhKpZx1uoNhb/374yT +1RGGHZ7S2S6jFB66Mh+5a5kwfFNQ9Y56S+HhuKNycxmrQOvmjlUN7ymsmTn7 +yrx+JXQOxP9DfeX8h6UVhzK4V8AV0+RdNRy7S7bGn/skBMW3Uo03faPQgjVm +9LpHCILKslW3TnPyZptUklEsBKK+pbyOsxR65c2Lif8tBLvnb17ImqfwwP7u +xTPBgmDod6eCtkChrfOHCXAQBOWhu3klHF+cv8mYBUHgankUV/cfhedEVhGl +qwWhMumF7aMlCt+7Of0ndEkA0hcGTS1/UjiuXffJJV8Awv1fwwuOg7ifHOw4 +IgDbLSbkJ35RGGiaQ7zdKQCqrR+Ye39TqPpmn0CWtgDQN/+7dobjq74ntthI +CwB35ZRA5B8KDe50VSqvFIDJdTO//nC8/cofRdYPfvgf693DzA== + "]]}, + 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:eJwV03k0ldsbB3BlVimSw3Hec943nAwRcV1DeR5TQoYyyzXLEDIUGUoyhYyV +OVNIUUoppSJpIEKpiEQ0XikULg2/8/tjr70+a+9n7/2s9d2Ux75d3su5uLiW +OOP/84Z+KR4uLgkcLbikrSw6CNp6kRrTHOvVnPohKjQIFhdf+L5dJoFa2vqs +hWWDEH4su7udWwJNy6Xu3ZsegAdb+PNS+CVw3OSbn1vfAHhVzcivXS2BZdXT +jEtZA1AW3mHJZkpgTvBLp0urB0BSMqJoxxYJJNqCfwSufgkSj4jK2kMSqJCo +dGv8Sz8srVCsa7wpgQlL/FqpXM+gR/Ff5fQ5CXTuGtuRv6kP6hvn1kf8LYnd +rvmq50ufQFi/r/jK/ZIYVayVwWPzGAz+YUdfaZRE49a7+1T/PASetlwnuTlJ +9GmadUtcaodzzYFa2zfT8T5jhj7n0wa7WVkpUWF0DFVUWDhzuwW+0SQH7S/R +cXnB+4aJ6GYIn7Q5s3ySjnd2FtifvHMdBBWHR1o2SuFBlZNlDuyrcOR3h6Sc +nxQeelWuTapfBu4t3A8qzkvhYVsT/+qXdRBh+3Xy82cpLBucnfaXroEebv21 +I2wG8piPF7U6V4IaY/T8uA8D7VPP88cMl0F0x4TeyUoGZhos/GraWAwDgnwW +RVWc/WVD1gXixaBhusGpopqB5vdGrVK4iuFbp1/opRoGluaRjPz+ItjTNVXR +VcfA082di/sOFYFVzwI3byMD/+rl+8X1tBBkn698cOA+A3tLuZ75JRVAz6i6 +qf17BkZ8v3IliJ4HxZN43PEDA/uUhWJMBPLAf2HHk90fGTjb99hAdS4XeNZ4 +73L7zMBzj3UbNjzNBU045eQ3xcCGJVOV+tRcKDv9wz96joG5ofLvqd+nINTp +WlopH4H20tFH3aZOwrr+v7s/sAn8MzUyUTKTAxpRes0DGwic/uNiGTeRA3ak +2bkOOQJ33HjnH/giB/IDXBJrFQisekQv8biZA3TexK37lAn0Mt5s23o0B0iN +pxfm/iIw5rubsOG6HFDID8jgNSIw85x9gJFeNug6l1tKexLIHPHYteSTCfwq +wclyXgQmJVdc1rfIhF5uaFHyJlAw1qb6tHomeNQOK2v6ELjzYJNUxrJMSFyk +CZvvJZAemtlhX5wBXfkZXeFhBFa3+785+jwdHJ9Hm3TGE2iaSL85Ynsc9lvY +GYRUErj6+GTVQloKZN1av8G7ikDFFT7rFQ6mwAWFr0KO1QSKbJDg8fdKgfd8 +x55iDYHE8bt9YltTwL7lhvuaOgJTPa9mr/t6DLRViCP1VwgMWjaS2Wx7DLhE +J259aSMw5GvxsKNSMqQ/D9HwHyPQrrF/cJo7Eeir5a0c3xI4XP6569FsAlRv +H/XbPk6gXnlPVO14AtxptjjNfkdggpj6xxP3EmCqXJFn/COBH1+kbf4WnwBW +Qe/6dn8j8LenynAPXwKI8jsGmv8h8BJ36Zp5sXjI08RKFYKJRg5ZFyx2xkFX +6S1+dSYTG7+Ze1/TjwMufq29f7M46yFbH8urx4Hvc9XNuhQThfkOxKrR4kA7 +VLrVTJaJ07R7hX2vj8BwLd/wHiUmmjwT0lYNPALrWd1rT29l4vcdZ5SOycXC +RV6neEEXJsa8b34zzR0DGvz9OUsce/Vvdq//Eg13BCwqvrgy0c7a4OGhl9Hw +ZIX+3T53JrJzmkTMa6NhSkThT4E3E6mArbZXraNBibkYpRDIxHciGQ5FZ6Og +TqMw1CyGidvEg/qjdkfCOZ9X7umFTBzrnM4VnQ6HV7mSzSeKmBj/Zd6L/Toc +hB44iBUWM/HAZEe3aUc4+Mu8fFBdwkRrNmvL/fJwUBh7pthawcSo16XSsdbh +cN6p+8fMeSYeyjq8tHTjANSZt6Y4NDPx5sbjCW05++GSWvVl6WEmbl9tlTYR +HApWyr0o+5qJevwXBYTcQ+Gb3GIPe4SJJeJG57fsDAUVpsWU/CgTN0WLq3ao +hkK9wJyCygQTx3PKNx2eDYGLr40qt0wycX1FDd0yMgTqkt/l2v5kYlWsZqBx +RjDUDMnEJDNYqKQ86PDrWiAUB++4HkGw8Idhi+LPkkDI5N0/48NkofV8Qfuq +5EAI33TPdzvJQjHN6DV+9oFgGO9uKyjDQhcBVvrvhQB4o1CinKbIQruVSvQC +CADxKNpYhjYLd4wP+Sm/8ocECaFtuQ4sXHx6P4lP3xfIobnOQkcWkhLXHas2 ++kLz6XHLUicW8i3YRNnRfGFm/W3HGmcWBp3p9v066QPuSsGBN91YeIO31mkx +3wd09V+cHPFl4bes2Gs+3/fAwt6KcXYkCy8fZV7RafKGgBbtuOsFLBS0/TTw +INgTdjNkG84XsvDfHIB6N08wjVw9frqIhZoGd8sqrTxBXm3CMOE0C9/V05Wu +qXjC++p0gZ3lLFxySbQOm/YA14zRzM81LBxL71I1P+ABu/5JKiGaWHg90iBG +J8kdNJf6muNfsHBvewN97pQr5EmfXR/6koWvZBed1WJcYc4sJsVtgNPfw1F2 +oocrXC1m2299xcLovMOieza5gopu9Mzcaxa6mRE5Up0uIBcnI+//joUD6XNl +xtwuQOOPyLX6zqnnentVK8EZogUzmoQFSawvWPXQ7rYjHFYfWpPFsepqcXp4 +tSMcdZXzExEisXXdLftzmY6Q2tgmKbaCRAn+bkszD0fId5+PklxF4nNnL7do +AUe4esNtq4wIiR2DUwWHHBxgyk+tTUuSRNqzf7sL+OzBrXPgsZc8iex1EUHP +82wgo00m6jXHFd2U9MUkG2i+GSxnp8C5L7h55OQBGxCvFUg0ViTxoY6K7nFr +G3icpqmroERio6y8L7XGBjTM8y99VSHRQF+ofyjNGlb22p+K0iSxZFBbYlv6 +Lrj+/IVLljGJP4zf3mtotIImL97Na7eTKHuuLyGj2gpuzqrx5nLM3JzfHpFn +BbdEsmuLTEgkinqzQyOtoM3cbKHajMQBK0lCQNcKntxvyb5tSaLIgGDvzhOW +8L6xpv2zPYlxJxhZ7/rNQSw3SsHIl8Q7YvZ3K0pNAWbOWrdwPJ4i2MiXYgr+ +Fs9jtPxIvKDmevJQqCnc5VPpUfIn0c9HYuCMkSkERbwLEw8gcbDd737vpAk8 +crC6/WEfiX3L7CZLdE0gRoptlRpBIterwtjKr8YwXtZ3oCeJROVAm2HtBCN4 +4PFdyziZxJURjTSDUCM4L0P7fYfj9Io5ysnNCIJrnJMuHiOxPMw87OoWI/hZ +/yE3PZXE4Np7tyTmDEGs5dd1swwSJ11fVp7aawjbXssvPjxFYrIAPXyNuwGc +lzx6uLWSxO+7n2lVhumBe2iyj34ViXnhOUGPPfVA4vFxq3aOefLah7hs9CA5 +Jm/9o2oSt30OUMpV1wOvN3UPempIbHqdvdNvDoGoein8po7EVa5CI9UxCFkq +SqW/rpK4R4btascGiDAeaNG+z8kHK96j8bEOOAQO/77Ccdjk4Lz4VR3QPDG6 +VekBiTp66He8WAcWRz42sx6SOCSeWdIQqAOHw/+7ztNB4s5Cj9TPa3QgqYp+ +6UkXp15mi9mikzbkcv9T5tFP4o21XzUUf2nCtZaxI6njJNpJBkSmhGvA3phH +E6smSKxzabjf464BpFb99myOL4nacMuba0BqQ8ya/Hck/r57QFhMRgNcqmhl +VR9IPCe9KrXz6V/An2be0vovibrO/OHn1f4CB7sbv+ZmSRyLDKW1L1eHpcms +KE8eCq/ffjS19FQVfFcHRk5wfObYJO+TNlXoVzU56M1L4YrBPRcuNqjCxfBl +4T58FO6/XBlZlKMKHlyhIXsFKPylW1FKWatC51pr37CVFL44KyT4/IUKFGqv +s4sXo5B/V3k2d98m0DpWoHpGhsK1heFr27w2Qm/E/iQpWQqnhNkhtTs2wh4f +y6ETHK+Lz6GdU98IJ7fxJiawOe/xkF4a5dkIX3lCBrzlKFy+tt5Yr1oRquK2 +x8ptpLCxIiaicVIBRKLnuy6oUbh1omhhMVkePgXa+jbpU/jsQ+hM4Xc22HwX +fattQCEYXms68IYNd6J6d9/meHETfcCzkw0nk80s2wwpvBCiPRxZxgYs19Po +2sbp7zn32jRzNuT2K/GMmlIYJhmroVYrC4Y6fGX81hTOfmKYye6XgVKB6y/t +PClknDTppWmtB3XnsLO9HP/XfSjfW349PKrfFGHqRaGruGpfq+R6mLGrEdf1 +pnCAHrendJECw6oCW1kfCrVP940v3aLgk17Ms1l/zvlng9zkDClQi9bryQql +cGSQl4vbmYSHXx4/6Iyj8KkG/7NpFwLEzh5S1T9KYWiJzxBjGwFubpuKb3Cs +l3brvrMSAYtPc0Jq4ilMcqlcpP9kwMYmR0ZSIoU7+VWWZRYyIOvohxC9FArr +lfrStw1JgQONm2jKopA6+Nf44b10+IjaYVWlFM5fIA0K79FAIPvJ8g1lFGbq +mjc8ukAD+TGPnBqO4Z6+yIp8GvjHpV2uLaew+pSe3eMAGny5O/z18hkKp03Y +fJo0GszoxwbcOUuhuGX74YZ94vDTsN37ZT2F7X9/E72ivA5Wm1g4CLZSmCbj +/tt8TBSc9oxtPcpxB+OJFaNPFCrj90svcTz2aT5ioVUUNO8UTk3epfBjaMG6 +V2Wi4KH2IaH3HiePfSPGeu6icI04cjnvIYUhtVfCT02IgPPMZSF2D4U0XnUv +vh9roKZo3W39EQongixSfQ4IQ/YqyYYOjqVVfPI1HYQhKpZx1uoNhb/374yT +1RGGHZ7S2S6jFB66Mh+5a5kwfFNQ9Y56S+HhuKNycxmrQOvmjlUN7ymsmTn7 +yrx+JXQOxP9DfeX8h6UVhzK4V8AV0+RdNRy7S7bGn/skBMW3Uo03faPQgjVm +9LpHCILKslW3TnPyZptUklEsBKK+pbyOsxR65c2Lif8tBLvnb17ImqfwwP7u +xTPBgmDod6eCtkChrfOHCXAQBOWhu3klHF+cv8mYBUHgankUV/cfhedEVhGl +qwWhMumF7aMlCt+7Of0ndEkA0hcGTS1/UjiuXffJJV8Awv1fwwuOg7ifHOw4 +IgDbLSbkJ35RGGiaQ7zdKQCqrR+Ye39TqPpmn0CWtgDQN/+7dobjq74ntthI +CwB35ZRA5B8KDe50VSqvFIDJdTO//nC8/cofRdYPfvgf693DzA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.39173465472631896`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.39173465472631896`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03k0ldsbB3BlVimSw3Hec943nAwRcV1DeR5TQoYyyzXLEDIUGUoyhYyV +OVNIUUoppSJpIEKpiEQ0XikULg2/8/tjr70+a+9n7/2s9d2Ux75d3su5uLiW +OOP/84Z+KR4uLgkcLbikrSw6CNp6kRrTHOvVnPohKjQIFhdf+L5dJoFa2vqs +hWWDEH4su7udWwJNy6Xu3ZsegAdb+PNS+CVw3OSbn1vfAHhVzcivXS2BZdXT +jEtZA1AW3mHJZkpgTvBLp0urB0BSMqJoxxYJJNqCfwSufgkSj4jK2kMSqJCo +dGv8Sz8srVCsa7wpgQlL/FqpXM+gR/Ff5fQ5CXTuGtuRv6kP6hvn1kf8LYnd +rvmq50ufQFi/r/jK/ZIYVayVwWPzGAz+YUdfaZRE49a7+1T/PASetlwnuTlJ +9GmadUtcaodzzYFa2zfT8T5jhj7n0wa7WVkpUWF0DFVUWDhzuwW+0SQH7S/R +cXnB+4aJ6GYIn7Q5s3ySjnd2FtifvHMdBBWHR1o2SuFBlZNlDuyrcOR3h6Sc +nxQeelWuTapfBu4t3A8qzkvhYVsT/+qXdRBh+3Xy82cpLBucnfaXroEebv21 +I2wG8piPF7U6V4IaY/T8uA8D7VPP88cMl0F0x4TeyUoGZhos/GraWAwDgnwW +RVWc/WVD1gXixaBhusGpopqB5vdGrVK4iuFbp1/opRoGluaRjPz+ItjTNVXR +VcfA082di/sOFYFVzwI3byMD/+rl+8X1tBBkn698cOA+A3tLuZ75JRVAz6i6 +qf17BkZ8v3IliJ4HxZN43PEDA/uUhWJMBPLAf2HHk90fGTjb99hAdS4XeNZ4 +73L7zMBzj3UbNjzNBU045eQ3xcCGJVOV+tRcKDv9wz96joG5ofLvqd+nINTp +WlopH4H20tFH3aZOwrr+v7s/sAn8MzUyUTKTAxpRes0DGwic/uNiGTeRA3ak +2bkOOQJ33HjnH/giB/IDXBJrFQisekQv8biZA3TexK37lAn0Mt5s23o0B0iN +pxfm/iIw5rubsOG6HFDID8jgNSIw85x9gJFeNug6l1tKexLIHPHYteSTCfwq +wclyXgQmJVdc1rfIhF5uaFHyJlAw1qb6tHomeNQOK2v6ELjzYJNUxrJMSFyk +CZvvJZAemtlhX5wBXfkZXeFhBFa3+785+jwdHJ9Hm3TGE2iaSL85Ynsc9lvY +GYRUErj6+GTVQloKZN1av8G7ikDFFT7rFQ6mwAWFr0KO1QSKbJDg8fdKgfd8 +x55iDYHE8bt9YltTwL7lhvuaOgJTPa9mr/t6DLRViCP1VwgMWjaS2Wx7DLhE +J259aSMw5GvxsKNSMqQ/D9HwHyPQrrF/cJo7Eeir5a0c3xI4XP6569FsAlRv +H/XbPk6gXnlPVO14AtxptjjNfkdggpj6xxP3EmCqXJFn/COBH1+kbf4WnwBW +Qe/6dn8j8LenynAPXwKI8jsGmv8h8BJ36Zp5sXjI08RKFYKJRg5ZFyx2xkFX +6S1+dSYTG7+Ze1/TjwMufq29f7M46yFbH8urx4Hvc9XNuhQThfkOxKrR4kA7 +VLrVTJaJ07R7hX2vj8BwLd/wHiUmmjwT0lYNPALrWd1rT29l4vcdZ5SOycXC +RV6neEEXJsa8b34zzR0DGvz9OUsce/Vvdq//Eg13BCwqvrgy0c7a4OGhl9Hw +ZIX+3T53JrJzmkTMa6NhSkThT4E3E6mArbZXraNBibkYpRDIxHciGQ5FZ6Og +TqMw1CyGidvEg/qjdkfCOZ9X7umFTBzrnM4VnQ6HV7mSzSeKmBj/Zd6L/Toc +hB44iBUWM/HAZEe3aUc4+Mu8fFBdwkRrNmvL/fJwUBh7pthawcSo16XSsdbh +cN6p+8fMeSYeyjq8tHTjANSZt6Y4NDPx5sbjCW05++GSWvVl6WEmbl9tlTYR +HApWyr0o+5qJevwXBYTcQ+Gb3GIPe4SJJeJG57fsDAUVpsWU/CgTN0WLq3ao +hkK9wJyCygQTx3PKNx2eDYGLr40qt0wycX1FDd0yMgTqkt/l2v5kYlWsZqBx +RjDUDMnEJDNYqKQ86PDrWiAUB++4HkGw8Idhi+LPkkDI5N0/48NkofV8Qfuq +5EAI33TPdzvJQjHN6DV+9oFgGO9uKyjDQhcBVvrvhQB4o1CinKbIQruVSvQC +CADxKNpYhjYLd4wP+Sm/8ocECaFtuQ4sXHx6P4lP3xfIobnOQkcWkhLXHas2 ++kLz6XHLUicW8i3YRNnRfGFm/W3HGmcWBp3p9v066QPuSsGBN91YeIO31mkx +3wd09V+cHPFl4bes2Gs+3/fAwt6KcXYkCy8fZV7RafKGgBbtuOsFLBS0/TTw +INgTdjNkG84XsvDfHIB6N08wjVw9frqIhZoGd8sqrTxBXm3CMOE0C9/V05Wu +qXjC++p0gZ3lLFxySbQOm/YA14zRzM81LBxL71I1P+ABu/5JKiGaWHg90iBG +J8kdNJf6muNfsHBvewN97pQr5EmfXR/6koWvZBed1WJcYc4sJsVtgNPfw1F2 +oocrXC1m2299xcLovMOieza5gopu9Mzcaxa6mRE5Up0uIBcnI+//joUD6XNl +xtwuQOOPyLX6zqnnentVK8EZogUzmoQFSawvWPXQ7rYjHFYfWpPFsepqcXp4 +tSMcdZXzExEisXXdLftzmY6Q2tgmKbaCRAn+bkszD0fId5+PklxF4nNnL7do +AUe4esNtq4wIiR2DUwWHHBxgyk+tTUuSRNqzf7sL+OzBrXPgsZc8iex1EUHP +82wgo00m6jXHFd2U9MUkG2i+GSxnp8C5L7h55OQBGxCvFUg0ViTxoY6K7nFr +G3icpqmroERio6y8L7XGBjTM8y99VSHRQF+ofyjNGlb22p+K0iSxZFBbYlv6 +Lrj+/IVLljGJP4zf3mtotIImL97Na7eTKHuuLyGj2gpuzqrx5nLM3JzfHpFn +BbdEsmuLTEgkinqzQyOtoM3cbKHajMQBK0lCQNcKntxvyb5tSaLIgGDvzhOW +8L6xpv2zPYlxJxhZ7/rNQSw3SsHIl8Q7YvZ3K0pNAWbOWrdwPJ4i2MiXYgr+ +Fs9jtPxIvKDmevJQqCnc5VPpUfIn0c9HYuCMkSkERbwLEw8gcbDd737vpAk8 +crC6/WEfiX3L7CZLdE0gRoptlRpBIterwtjKr8YwXtZ3oCeJROVAm2HtBCN4 +4PFdyziZxJURjTSDUCM4L0P7fYfj9Io5ysnNCIJrnJMuHiOxPMw87OoWI/hZ +/yE3PZXE4Np7tyTmDEGs5dd1swwSJ11fVp7aawjbXssvPjxFYrIAPXyNuwGc +lzx6uLWSxO+7n2lVhumBe2iyj34ViXnhOUGPPfVA4vFxq3aOefLah7hs9CA5 +Jm/9o2oSt30OUMpV1wOvN3UPempIbHqdvdNvDoGoein8po7EVa5CI9UxCFkq +SqW/rpK4R4btascGiDAeaNG+z8kHK96j8bEOOAQO/77Ccdjk4Lz4VR3QPDG6 +VekBiTp66He8WAcWRz42sx6SOCSeWdIQqAOHw/+7ztNB4s5Cj9TPa3QgqYp+ +6UkXp15mi9mikzbkcv9T5tFP4o21XzUUf2nCtZaxI6njJNpJBkSmhGvA3phH +E6smSKxzabjf464BpFb99myOL4nacMuba0BqQ8ya/Hck/r57QFhMRgNcqmhl +VR9IPCe9KrXz6V/An2be0vovibrO/OHn1f4CB7sbv+ZmSRyLDKW1L1eHpcms +KE8eCq/ffjS19FQVfFcHRk5wfObYJO+TNlXoVzU56M1L4YrBPRcuNqjCxfBl +4T58FO6/XBlZlKMKHlyhIXsFKPylW1FKWatC51pr37CVFL44KyT4/IUKFGqv +s4sXo5B/V3k2d98m0DpWoHpGhsK1heFr27w2Qm/E/iQpWQqnhNkhtTs2wh4f +y6ETHK+Lz6GdU98IJ7fxJiawOe/xkF4a5dkIX3lCBrzlKFy+tt5Yr1oRquK2 +x8ptpLCxIiaicVIBRKLnuy6oUbh1omhhMVkePgXa+jbpU/jsQ+hM4Xc22HwX +fattQCEYXms68IYNd6J6d9/meHETfcCzkw0nk80s2wwpvBCiPRxZxgYs19Po +2sbp7zn32jRzNuT2K/GMmlIYJhmroVYrC4Y6fGX81hTOfmKYye6XgVKB6y/t +PClknDTppWmtB3XnsLO9HP/XfSjfW349PKrfFGHqRaGruGpfq+R6mLGrEdf1 +pnCAHrendJECw6oCW1kfCrVP940v3aLgk17Ms1l/zvlng9zkDClQi9bryQql +cGSQl4vbmYSHXx4/6Iyj8KkG/7NpFwLEzh5S1T9KYWiJzxBjGwFubpuKb3Cs +l3brvrMSAYtPc0Jq4ilMcqlcpP9kwMYmR0ZSIoU7+VWWZRYyIOvohxC9FArr +lfrStw1JgQONm2jKopA6+Nf44b10+IjaYVWlFM5fIA0K79FAIPvJ8g1lFGbq +mjc8ukAD+TGPnBqO4Z6+yIp8GvjHpV2uLaew+pSe3eMAGny5O/z18hkKp03Y +fJo0GszoxwbcOUuhuGX74YZ94vDTsN37ZT2F7X9/E72ivA5Wm1g4CLZSmCbj +/tt8TBSc9oxtPcpxB+OJFaNPFCrj90svcTz2aT5ioVUUNO8UTk3epfBjaMG6 +V2Wi4KH2IaH3HiePfSPGeu6icI04cjnvIYUhtVfCT02IgPPMZSF2D4U0XnUv +vh9roKZo3W39EQongixSfQ4IQ/YqyYYOjqVVfPI1HYQhKpZx1uoNhb/374yT +1RGGHZ7S2S6jFB66Mh+5a5kwfFNQ9Y56S+HhuKNycxmrQOvmjlUN7ymsmTn7 +yrx+JXQOxP9DfeX8h6UVhzK4V8AV0+RdNRy7S7bGn/skBMW3Uo03faPQgjVm +9LpHCILKslW3TnPyZptUklEsBKK+pbyOsxR65c2Lif8tBLvnb17ImqfwwP7u +xTPBgmDod6eCtkChrfOHCXAQBOWhu3klHF+cv8mYBUHgankUV/cfhedEVhGl +qwWhMumF7aMlCt+7Of0ndEkA0hcGTS1/UjiuXffJJV8Awv1fwwuOg7ifHOw4 +IgDbLSbkJ35RGGiaQ7zdKQCqrR+Ye39TqPpmn0CWtgDQN/+7dobjq74ntthI +CwB35ZRA5B8KDe50VSqvFIDJdTO//nC8/cofRdYPfvgf693DzA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.39173465472631896`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.39173465472631896`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.992519764084641*^9, + 3.992519772172501*^9}}, + CellLabel->"Out[42]=",ExpressionUUID->"3bea29bb-b8d0-45da-a9a6-c5ee2d871139"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ +\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", SuperscriptBox[\ +\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ +RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ +SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ +\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ +\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ +\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ +RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ +\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ +\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ +\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ +FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ +RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ +\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", RowBox[{\\\"Power\\\ +\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ +\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ +RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ +\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ +\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ +\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ +\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ +RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ +\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ +SuperscriptBox[RowBox[{\\\"(\\\", \ +RowBox[{RowBox[{\\\"141498.48776203764`\\\", \\\"\[VeryThinSpace]\\\"}], \ +\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ +\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ +\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ +\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ +\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ +\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 40, 4, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9}, + CellLabel-> + "During evaluation of \ +In[40]:=",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, + 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, + 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, + 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, + 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, + 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, + 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, + 137, 112, 88, 65, 42, 191, 164, 138, 113, 89, 66, 43, 192, + 165, 139, 114, 90, 67, 44, 193, 166, 140, 115, 91, 68, 45, 194, + 167, 141, 116, 92, 69, 46, 195, 168, 142, 117, 93, 70, 47, + 196, 169, 143, 118, 94, 71, 48, 197, 170, 144, 119, 95, 72, 49, + 198, 171, 145, 120, 96, 73, 199, 172, 146, 121, 97, 200, 173, + 147, 122, 201, 174, 148, 202, 175, 203, 50}, VertexColors -> + Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, + 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, + VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.000000000000016, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7, 13}, {0., 1.01270012148501}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}}, + CellLabel->"Out[45]=",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX +ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q +rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi +F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M +3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M +3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH +xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A +ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq +B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I +iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 +XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp +HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX +Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 +r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD +YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf +mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 +vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc +4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE +QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd +4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 +Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 +SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q +/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 +Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn +9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws +/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum +sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud +aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ +T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G +T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd +tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ +S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm +q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF +sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 +KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C +QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U +1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 +1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt +wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v +P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu +twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv +0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 +0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp +gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc +k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ +V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM +U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA +e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC +qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe +BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 +fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW +RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW +SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 ++Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH +m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF +E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs +fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 +xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO +Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv +8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r +ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph +NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ +boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT +JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK +GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz +qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE +6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I +CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb +VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F +uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn +XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 +90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI +fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv ++5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp +nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms +ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z +jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ +F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ +Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu +8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v +F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 +XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP +JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl +eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB +lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z +88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH +SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr +yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm +PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca +J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ +2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 +uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx +Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic +nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO +HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y +5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 +sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE +eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ +xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 +sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU +xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD +oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 +eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz +ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI +2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh +gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 +lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf +duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y +NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ +zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 +K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk +Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB +oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB +ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC +KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C +8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM +T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 +AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc +FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o +ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X +jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu +4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur +ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 +UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx +vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe +F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ +8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx +ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh +e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM +hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm +zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY +8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY +CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 +vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA +g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph +k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C +hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 +Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 +HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI +/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 +qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 +bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp +W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP +xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G ++xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX +Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 +RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V +8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l +8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ +XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N +fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y +4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap +zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD +lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN +HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M +4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato +OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 +17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA +z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji +w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ +OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx +DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG +wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 +R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva +m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 +KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO +VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj +HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ +7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf +aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe +JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq +C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 +x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd +JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc +DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ +Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp +mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 ++i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX +RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN +4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb +qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 +xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so +XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf +R/8DuBIZfw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + InterpretationBox[{ + TagBox[{GraphicsComplexBox[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], + LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, + 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, + 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, + 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, + 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, + 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, + 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, + 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, + 42, 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, + 44, 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, + 46, 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, + 48, 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, + 199, 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, + VertexColors->Automatic]}, + Annotation[#, "Charting`Private`Tag#1"]& ]}, + VertexColors->CompressedData[" +1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS +PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j +OI7j/+I30dXt0A== + "]], {}}, + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", { + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, + 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, + 26, 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, + 76, 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, + 102, 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, + 129, 104, 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, + 157, 131, 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, + 186, 159, 133, 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, + 39, 188, 161, 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, + 64, 41, 190, 163, 137, 112, 88, 65, 42, 191, 164, 138, 113, + 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, 193, 166, 140, + 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, 195, 168, + 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, 197, + 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, + 175, 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "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[{ + GraphicsComplex[CompressedData[" +1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc +a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ +5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ +tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF +I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 +5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT +Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 +W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S +BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g +CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H +c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl +vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh +ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs +qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp +Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu +QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom +xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 +nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 +nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv +YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP +byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 +JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq +kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm +DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi +NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y +BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y +59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe +E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 +CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT +hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm +9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH +Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y ++GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp +GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B +xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV +Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC +96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk +FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck +Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF +k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 +P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj +Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l +UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM +/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI +9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC +W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk +3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF +4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs +VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW +lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG +M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej +fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE +hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA +turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx +0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe +NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe +/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu +XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia +t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG +pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp +VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx +ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX +6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT +d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv +ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw +Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy +8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh +Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su +p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ +hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + + "], {{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + + Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, + 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, + 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, + 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, + 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, + 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, + 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, + 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, + 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, + 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, + 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, + 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, + 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, + 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, + 203, 50}, VertexColors -> Automatic]}, + "Charting`Private`Tag#1"]}}, VertexColors -> {{ + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}, { + RGBColor[1, 0, 0]}}], {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.000000000000016, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc +a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ +8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ +y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k +BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT +P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl +phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez +c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh +MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay +3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD +qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf +UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 +cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF +iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 +rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya +picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa +kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o +6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ +4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf +e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 +zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd +F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz +vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu +FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls +Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF +bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa +b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc +yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV +VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 +ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 +v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE +me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S +WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk +3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE +xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 +iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 +I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z +RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN +Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz +ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd +FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A +hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ +wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj +sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj +sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC +UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is +lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ +CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF +0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC +hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH +FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 +ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk +Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn +LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN +LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 +LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 +mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx +0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC +GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 +G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 +FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV +S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 +NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV +0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP +Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b +S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ +0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H +o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go +2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e +4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 13}, {0., 0.9838824269554479}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}}, + CellLabel->"Out[46]=",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[43]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.715, $CellContext`xmax$$ = + 8.98, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.40800000000000003`, $CellContext`yyv$$ = 1.35, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {106.18887954533818`, 111.81387954533818`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {195.1045045453382, 200.7295045453382}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9, + 3.992519776999486*^9}, + CellLabel->"Out[44]=",ExpressionUUID->"3562d92c-1905-41d9-bc61-2ce5516fab4e"] +}, Open ]] +}, +WindowSize->{714, 258}, +WindowMargins->{{-3, Automatic}, {Automatic, 15}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"5ac7bfb4-8067-4fa8-b456-de11e7a01806"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 71, "Output",ExpressionUUID->"2c5ccf60-8632-4f39-ac9c-a6b01c2018ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2581, 75, 149, "Output",ExpressionUUID->"1297fe33-afb3-44bf-9765-d83f70a5f03b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8989, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10672, 334, 2780, 81, 149, "Output",ExpressionUUID->"3736c786-cfbf-470a-b0fd-f515cb49d381"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13489, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15335, 475, 3720, 109, 158, "Output",ExpressionUUID->"d2497acc-11e8-4d55-b1dd-3328f9393a06"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19092, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21175, 650, 4787, 138, 193, "Output",ExpressionUUID->"0e2d106c-4615-4bc3-96ad-c02dea46c1b7"] +}, Open ]], +Cell[25977, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26150, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26501, 804, 303, 5, 33, "Output",ExpressionUUID->"62455ade-5ae5-4918-9788-020049aca192"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26841, 814, 332, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27176, 822, 303, 5, 33, "Output",ExpressionUUID->"fb75b637-66c3-4f96-8afc-aaa9a175d3b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27516, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27695, 837, 275, 4, 33, "Output",ExpressionUUID->"0334c043-4a5b-4aac-909e-211a738ec593"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28007, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28268, 855, 275, 4, 33, "Output",ExpressionUUID->"f4cc4d44-5cd1-49fa-ab22-8215b42fb2d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28580, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28715, 868, 277, 4, 33, "Output",ExpressionUUID->"7027c4bf-ee01-4b1b-a5d0-7f02c24ec268"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29029, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29309, 885, 290, 4, 33, "Output",ExpressionUUID->"42fd1035-ee83-4000-b299-dbae0d9ae546"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29636, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29897, 903, 290, 4, 33, "Output",ExpressionUUID->"f74434d5-606e-438b-aa55-68f6c69760f2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30224, 912, 374, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30601, 920, 154, 2, 33, "Output",ExpressionUUID->"a50039f4-facc-435c-aeac-9311d055930a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30792, 927, 383, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31178, 935, 153, 2, 33, "Output",ExpressionUUID->"5295dd51-e7fa-493f-b9d7-bd2294df405c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31368, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31500, 946, 273, 4, 33, "Output",ExpressionUUID->"e2ea385e-cf6c-4314-a8c2-97bf101ce664"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31810, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31942, 959, 270, 4, 33, "Output",ExpressionUUID->"0b939375-9eaf-4fbd-9a86-05eeb210cbcb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32249, 968, 2071, 52, 217, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34323, 1022, 11444, 234, 239, "Output",ExpressionUUID->"63cc8870-91f2-4458-b722-1957a8c184e8"] +}, Open ]], +Cell[45782, 1259, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[45935, 1266, 2276, 59, 118, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[48214, 1327, 5393, 79, 230, "Message",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], +Cell[53610, 1408, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53986, 1420, 2168, 58, 118, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[56157, 1480, 4376, 63, 181, "Message",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], +Cell[60536, 1545, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60870, 1557, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[61175, 1564, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61415, 1572, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[61725, 1579, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[61975, 1586, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[64499, 1651, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[64654, 1656, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[64818, 1661, 152, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[64995, 1668, 2556, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[67554, 1741, 3577, 68, 420, "Output",ExpressionUUID->"b7a557a8-09b7-4159-b5ef-0579fa737a76"] +}, Open ]], +Cell[CellGroupData[{ +Cell[71168, 1814, 966, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[72137, 1843, 23613, 434, 255, "Output",ExpressionUUID->"e8096e26-560f-42f7-b5fb-8ba21ba913df"] +}, Open ]], +Cell[CellGroupData[{ +Cell[95787, 2282, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[98153, 2345, 5452, 79, 115, "Message",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], +Cell[103608, 2426, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[103959, 2437, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[104188, 2443, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[104400, 2450, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[104655, 2456, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[CellGroupData[{ +Cell[104869, 2463, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[105853, 2491, 111871, 2376, 236, "Output",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217761, 4872, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[217927, 4877, 157319, 3132, 236, "Output",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375283, 8014, 2627, 72, 247, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[377913, 8088, 3601, 68, 420, "Output",ExpressionUUID->"b64ff458-9760-4277-be7c-e84d24faa592"] +}, Open ]], +Cell[381529, 8159, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[381792, 8167, 773, 22, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[382568, 8191, 27096, 490, 248, "Output",ExpressionUUID->"f85869a9-f515-44a4-a514-4febf3e2e00a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[409701, 8686, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[411866, 8745, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[412703, 8762, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413057, 8773, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[413310, 8779, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[413524, 8786, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[413776, 8792, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[413970, 8797, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[416533, 8863, 154, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[416690, 8868, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[416858, 8873, 154, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[417037, 8880, 2529, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[419569, 8953, 3567, 68, 420, "Output",ExpressionUUID->"2b47b05e-3598-4f25-a466-b4f9f340b053"] +}, Open ]], +Cell[CellGroupData[{ +Cell[423173, 9026, 918, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[424094, 9053, 21969, 407, 255, "Output",ExpressionUUID->"3bea29bb-b8d0-45da-a9a6-c5ee2d871139"] +}, Open ]], +Cell[CellGroupData[{ +Cell[446100, 9465, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[448436, 9527, 4044, 60, 103, "Message",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], +Cell[452483, 9589, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[452837, 9600, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[453091, 9606, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453307, 9613, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[453562, 9619, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[453776, 9626, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[456623, 9700, 49805, 1052, 236, "Output",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[506465, 10757, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[506672, 10763, 88691, 1711, 236, "Output",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +}, Open ]], +Cell[CellGroupData[{ +Cell[595400, 12479, 2581, 72, 247, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[597984, 12553, 3568, 68, 432, "Output",ExpressionUUID->"3562d92c-1905-41d9-bc61-2ce5516fab4e"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/rename.zsh b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/160-80_h_Pu240_14-15/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done 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 new file mode 100644 index 0000000..78f75b1 --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw1.nb @@ -0,0 +1,9365 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399390, 9355] +NotebookOptionsPosition[ 375168, 8989] +NotebookOutlinePosition[ 375597, 9006] +CellTagsIndexPosition[ 375554, 9003] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ +fc37192f9bb8"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849229804535*^9, + 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ +3056e2e0b957"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "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->{{120.79808473007536`, + 258.9819285854564}, {-15.577506565567944`, 5.594368434432056}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ +a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_фитирование.nb b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_фитирование.nb new file mode 100644 index 0000000..7582e9d --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/h_162-78_Pu240_16-17_фитирование.nb @@ -0,0 +1,4045 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 172455, 4037] +NotebookOptionsPosition[ 161682, 3851] +NotebookOutlinePosition[ 162095, 3868] +CellTagsIndexPosition[ 162052, 3865] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.992520273263612*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"cce6e8b2-449b-4c77-a53e-b599ac447581"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.992520273566071*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"5c8696f0-1338-4ddd-98e3-f15acf364c34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.992520273592992*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"c9ae7ee3-45e1-4b11-9e89-0aafe7da738d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.992520273619473*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"79f321f1-93fc-4a32-9564-a2c439762eab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.992520273646038*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"d26192c2-d1c2-49c5-932a-ac36516ef698"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.992520273676062*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a8e9bbd2-43c1-4a5c-a366-783e8b7f4110"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.992520273704*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"d5570a9c-1249-46a8-ad45-b01bc0fcc889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "162"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.992520224629056*^9, + 3.992520227028583*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["162"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.99252027372612*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"93c711cf-f83f-4db9-890a-a97666df0f71"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.99252027374823*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"917fcd71-d471-4e4c-be1e-17ee4a7a4457"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5447500000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.992520273772154*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"8401b4e1-abea-47bf-bc0a-9130344e9591"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.992520273794404*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"9bf242cd-4f57-4d39-92ba-9fc3f52c2ebd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.323579663055845`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.9925202738170443`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"4d34736e-74e5-4e1b-bf88-5a412848b169"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.956284070769583`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9925202738381853`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"70041778-77ff-4e2f-90e6-8ccc8a3cf09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.959213413"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, {3.992520249453073*^9, 3.9925202521511374`*^9}}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.959213413`"], "Output", + CellChangeTimes->{3.992520273860278*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"d1580d2d-7e7f-4609-b9d9-b80fb166eefa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.4090669906"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, {3.992520258192844*^9, 3.992520260095668*^9}}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.4090669906`"], "Output", + CellChangeTimes->{3.99252027387985*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"94d637e8-fc78-420e-b410-d15714d2903c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.992520273901066*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"e68ba990-9e79-4c3b-8540-77d6de95b9a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.992520273920931*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"d7828297-d9a0-477e-88f6-519ca6263110"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7.5", ",", "13"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.992520277239477*^9, 3.992520291213707*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVk3k4lIsXxxUVpVsKXdHM2OZ939tyZSd1DsmSUmlhtHDNWCoUSSKSfcsW +6lJCEi6S5EYpW6lIUknUGKKEmRFSlstvfn+c5zyf5/me53u+53mOstMJG+f5 +YmJi70X1/25hH7VITIyGm5qXxq45KgSTHC2Dqnk03OZqJF/gJoRNg9xjPuI0 +tFHbZKkt4g3+Oi0DC2nI18+/aekqBLn03pTXS2ko07dx40lnIfR+MFK5oUjD +b5OzrKK/hHCO9d3ITI+Gb854KXezhHDbzt47zpOGSYaz7nRLIUjShe+On6Th +A3J8NsJCCI79oQZW3jSsc3wmKzAXwgrvYrHFvjSMSI55UWUmBJ9YsYTIQBre +Kuzea20qBINHef+ExNFw2nVL1GEQQr3qWJ9fIQ1HnP2qFXSE8F4Qa+v8hYaP +9SRyR2mi+ZteE2oDNHQ6m+xpKuLlh2xT+77RsKJOsSJ1jRAsnqu8YfNpuON1 +UZWukhCqblRaO43T8MSu9ARvBSFk2n3d5jCfjgatPvKvVwrBpc5Em0WjY/u2 +RdNMSSFMpE4u33mAjmOd9/wYQgHE1C4dELej43Nr7VwbgQBofOXHVSw6Zsq2 +GYTxBWBmut2DPEzHM7bvs/uHBJA2mv5cnEPHySYBK3tAAHq7jEKqvOiocvDF +8pkeAfhJnh8jLtLRKOBU7aa3Apjyl2if30DHH28vVTRXCICvNr+b+4SOCnPj +RrX3BMBrmfta1UjH2tC1Y+XlAniqMj3p3UTHd11Nw3+XCSD5xfc1n9voGL7i +toR9iQDWru52ru+ho4t7rmnZTQEcqqz8ETpHxw8pCr2PLgmgO+DfmJA1DCxr ++uTD9BD5P+MWOdIYuI6d1vvzuADk5Re+2kJnYL8Dz+/ZMQHsKN23cprBwO+f +pNa4ugmgqu97xik1Br7zfqWdzhbl3bmumLOWgY3i2/94zxKANT37lZkBAxWc +rZzytwmgui5Gdsl+BhZ2ED+jVgtA8lXeq2kR719aPTlPQQA2XXUxwwcYmDf9 +17uzqwQwMDYl1mLHwObEHlkXWQHIqh/nJx5i4PTC9usavwnAPdLqqTyHga4K +NzZfnCcApR3SfiqnGPi2nWXl8JUPAe8udhkkifz1znhtus0HE6VaTWYyA40P +qe7wKOaDJHs8esUlBr75u7Hz2j98SBux1x9KYWBxhGD59C0+lC0hU69eYWDJ +Vdemm1l8GDCus567Lspns7DlQRIf9pVM1DaUiOZjGwv6vPmwLtIhf1czA5MT +kqxmNfhgZ7yr211cGWlxWnXtN4fBudFzrwYoI7dSKj1tfAj4+4s2Tvsqoy+P +zKrSGgK30PtyxcXKKKG0MIBrPwj158Z1F3xTxlCZAZNa62+QHmRdx2GooNHh +jj6azgDs2dERc+yQCtrIrH+g2/sFpu9rsGwvq+BITkf50Ol+YGy4lWTVooJ7 +L1yIa5fqA+aJnYu+SKnijc9pKR7HeuHWfZmvkcaq6GmmNOXUyQOplgUSrYGq +mKRy5NszCy4cDnnGnLuvimkBczV7JjphPRTc1RlRxcfkvo+nfryHT42VgSvW +qWGU18Hyt5/eghRr4M4EWw1Hn6cR1uvbgIjuH6pNV0NB86jVqpBXwAxfwdZq +V8PnRweI3xteQFb0YdOipepo3honHvTuKUyzOpyaLNUxmtS14yjUi/5XOfJ1 +mDpGDVosHOx+DDLG0XLdD9RxEW3z0ZyWKngQxuhJ/qmOgb9MNPoZFcBrfSdv +/ScTfTvoQjGvMojj1V8nNZjYJJyJqWaXgcHIHVJ8IxMdp2zHQw6UQfKyeMP7 +mkx8T7gokUZlsNXa7IiKLhNff9E06lpUBnlNFTcnjJhoVFCcyMu6A+5PL2tf +385E20MN/mYfSuHnA5bNiDMTFzs03P7RUAJtMUY+n1yYONjwXT+3qARKWPS0 +F65M3PujtJaTUgIuP/s+5B5l4vkltrmKnBJo1zz5F8uDiTV3rU46SJTAvYKI +k3U+TGRZ/EAdi2I4dflufEooE7MPX77c9PEfEHovbdLPZuI+H21D1CuA4cor +i+VzmHjw95f9J9UKYFBMbfuYiD9levJKZArgS7zh8+JcJoZv9sm2Gc4HbqFr +o0o+E2s7h47q5+RDc29tvfRtJuodjew6vTwf8m18H/IeMjHZS6h/fiIPnDS7 +i6M6mEgVWRYt+5oLCfoOEX4fmKid1NE4vz0XHm7pPuLWyUSPke064k9yYZVV +9zKLj0z03iPHW3sjF5rZ3V6LeEy0uTrroeiYC3qp3ToRX5lYmjFofPzjDZD+ +1V0dOsHEbezTFy9yc6CimvcySJZAa3//mKGF2bDASKrhiByB51K0fnRMZsG+ +qo1VW+QJDClyl2kdzoKxipC82VUE3nCu3trVlgUapWrngxQJpLcat3OuZ0Fh +jptGkAqBaU4nRrcYZkFm5EhyoAaBBw0NE+v5mRC+R8zu3A4CKx9dXSIpdxV2 +L8ZB250Emu97Sm+YywCl+vPntKwJ9F/Q2pkwmAFl2nNZg7sIrC/QWH2gJgO4 +q2a/2e0l0HKfVeJV9wzQ5U4H6NgTuCxeTUzyWTp8OfbzusCVwPWmtBPLYv4G +8zDBV8dQAtl1SooF+pfBZEZl5a4wAl+9j5E+r34ZjHxst2wOJ9BoNtqLs+Iy +aHJqUhQiCXym2O5yeDgNlEyTjdtiCExadbN8YXYajIjrZmxNJpCMD7q1bmka +XAkNtGZmi/Zv8+aeHkmBwRDpe0OPCExVDsxP4yXDwlPf/nv+mMDxAX/u9Otk +UGU/NcuvIXB0s+Ra9/pkOLQ1uINTR6DBQb+vHnnJ0CI+Pv3pCYG33xyX/uGe +DGVhXSatzQQeMKP9tmQmCc5GFLaWdxIY/9bEhK6SBJIxFsOBEwTGmVMNkb8n +wD6D1S2ePwlkVYtHOc7GQ9bA0G2HXwQ2HC8at+6LB33zhFPGUwRq3PoV4l4a +D24S7VMSswR+37Y1Md8yHp4FsaXiFpC4P0osSC74IkSdCmKmy5K4LTO0dudM +LCw6XO5YoUli4KcSycoN0dBido2bo0WimH6YAlchGtI0Ig4laJM4m/6HgeyC +aGBK2Nm56ZKif0vwvNsVBWb/TO9abUii1K1zeg+joyBs0gSCjEnc3KOXNDQQ +CWJpr9eY7Sax+d7KIee7EfCrRdD5zoPEVF4EsdQ3DHo1gn3LPEkcWNRTru0S +Bs3JMisSTpCoVaPk5nYgDK4f0La08CIxPb1WcVw3DMy4Z/+t8iExTWe4MuNX +KFziS6RcDyDRVcPtl2pQKGyQVtx5NFqUL33v/K6kEHC2NH88k0viPPWUyiWd +wRB07OXY0E0SZX6zMepuCoYrsXvJrjyR/u2zpEfVwfDipUNSZT6Jz67R4rOy +g2GDjR/bt4jE/N2Nj0aOBsMv+4JFI3dJ3PDhhu2pyfMQ575k9+c6En8/t1Ob +tT8IyhJe8Z7zSAy5USlvtSMA+OSsZkEPidn92W5tugFA1q0Lj+oV5fEkLhxT +DoDM8WjKvI9EY++Dbc0T/hDLMvVu+Eri2OqHF+1y/IGjWin+WEBiz4lT2y/M +nAX5f3OY5TMkFr6/1lnz0A8CuKfdM3+ncJnYB+LIMV/QLHtgf1aBwoQf8YPL +WL4wED7Pct9qCk+b8iZazH3hwPqL6ouVKOQkijX4qIv053K5p+kUfvCPXXWk +5zQMKrzZvZNJ4b300onMg6fBbr+GzowWhZdL2YWpLB/QbR78j7WLQrgiyLE+ +6w1KDurh5rsp/DNravz1UW8QH3WQ1tlDof6Xai0ne29oXfVu9fK9FBZ8vrOj +YJM3HGM/1nt6gEKZGaq+ddYLrk1d8tI8QuH8+RapAZFeIEFt7l/sQeGKuX7a +ZPZJaAtPaH4QQ2FR01RFz6gHdCZ6e/0dS2HLpbsenl0e8Dljv/yZOAo3aYye +WNrgAeN3FB0140V+dg60kFQPkOPeGstPopCSGbxiauABdro1q9OuiO5hvfu9 +cpg7cL+MuJ3Mo/DfPyK0uczj8M3cZoF6HYUBpbvPh19zA1nBei+legpvynt0 +zka6AaZIfVrZQKF4sOpUjLcbXOHVlM9/SmH72CGzLnM3sDj7J4f3nMKBinnW +9mOukFcoXZ/xmkLSn0Y07HQFp6WNwSt6KJx4XLi2c5kLxN/NGZbqpfD5gFLm +xRlnqGIF2c37TGF2bPOXPd+cQSZPR2Okj8KTzsE10vXOULMlt/vlAIXutpvm +LM84A/3khS3RIxT+FZiu0t7Lge3yhwuDv1PYrPfRMLGVA74P9eX9Rim0esLe +Zv+IAy2SI3yXcQqThwSTa9I5EJR95JrpLwrnueo5OtlwoNDcUMpoksIzQ6nR +6ciBdr7caa0pCh9E1en1buDAesOXO1RmKLySnz98fQkH7Hj59xX+o/CXS2KH +3BQbwiLC1GRmKZzOzlmZMcCG0nWOiZJzFEoaXkr88z0bPrZtmpkT8c8gZZM3 +T9jwP4C8PAA= + "]]}, + 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:eJwVk3k4lIsXxxUVpVsKXdHM2OZ939tyZSd1DsmSUmlhtHDNWCoUSSKSfcsW +6lJCEi6S5EYpW6lIUknUGKKEmRFSlstvfn+c5zyf5/me53u+53mOstMJG+f5 +YmJi70X1/25hH7VITIyGm5qXxq45KgSTHC2Dqnk03OZqJF/gJoRNg9xjPuI0 +tFHbZKkt4g3+Oi0DC2nI18+/aekqBLn03pTXS2ko07dx40lnIfR+MFK5oUjD +b5OzrKK/hHCO9d3ITI+Gb854KXezhHDbzt47zpOGSYaz7nRLIUjShe+On6Th +A3J8NsJCCI79oQZW3jSsc3wmKzAXwgrvYrHFvjSMSI55UWUmBJ9YsYTIQBre +Kuzea20qBINHef+ExNFw2nVL1GEQQr3qWJ9fIQ1HnP2qFXSE8F4Qa+v8hYaP +9SRyR2mi+ZteE2oDNHQ6m+xpKuLlh2xT+77RsKJOsSJ1jRAsnqu8YfNpuON1 +UZWukhCqblRaO43T8MSu9ARvBSFk2n3d5jCfjgatPvKvVwrBpc5Em0WjY/u2 +RdNMSSFMpE4u33mAjmOd9/wYQgHE1C4dELej43Nr7VwbgQBofOXHVSw6Zsq2 +GYTxBWBmut2DPEzHM7bvs/uHBJA2mv5cnEPHySYBK3tAAHq7jEKqvOiocvDF +8pkeAfhJnh8jLtLRKOBU7aa3Apjyl2if30DHH28vVTRXCICvNr+b+4SOCnPj +RrX3BMBrmfta1UjH2tC1Y+XlAniqMj3p3UTHd11Nw3+XCSD5xfc1n9voGL7i +toR9iQDWru52ru+ho4t7rmnZTQEcqqz8ETpHxw8pCr2PLgmgO+DfmJA1DCxr ++uTD9BD5P+MWOdIYuI6d1vvzuADk5Re+2kJnYL8Dz+/ZMQHsKN23cprBwO+f +pNa4ugmgqu97xik1Br7zfqWdzhbl3bmumLOWgY3i2/94zxKANT37lZkBAxWc +rZzytwmgui5Gdsl+BhZ2ED+jVgtA8lXeq2kR719aPTlPQQA2XXUxwwcYmDf9 +17uzqwQwMDYl1mLHwObEHlkXWQHIqh/nJx5i4PTC9usavwnAPdLqqTyHga4K +NzZfnCcApR3SfiqnGPi2nWXl8JUPAe8udhkkifz1znhtus0HE6VaTWYyA40P +qe7wKOaDJHs8esUlBr75u7Hz2j98SBux1x9KYWBxhGD59C0+lC0hU69eYWDJ +Vdemm1l8GDCus567Lspns7DlQRIf9pVM1DaUiOZjGwv6vPmwLtIhf1czA5MT +kqxmNfhgZ7yr211cGWlxWnXtN4fBudFzrwYoI7dSKj1tfAj4+4s2Tvsqoy+P +zKrSGgK30PtyxcXKKKG0MIBrPwj158Z1F3xTxlCZAZNa62+QHmRdx2GooNHh +jj6azgDs2dERc+yQCtrIrH+g2/sFpu9rsGwvq+BITkf50Ol+YGy4lWTVooJ7 +L1yIa5fqA+aJnYu+SKnijc9pKR7HeuHWfZmvkcaq6GmmNOXUyQOplgUSrYGq +mKRy5NszCy4cDnnGnLuvimkBczV7JjphPRTc1RlRxcfkvo+nfryHT42VgSvW +qWGU18Hyt5/eghRr4M4EWw1Hn6cR1uvbgIjuH6pNV0NB86jVqpBXwAxfwdZq +V8PnRweI3xteQFb0YdOipepo3honHvTuKUyzOpyaLNUxmtS14yjUi/5XOfJ1 +mDpGDVosHOx+DDLG0XLdD9RxEW3z0ZyWKngQxuhJ/qmOgb9MNPoZFcBrfSdv +/ScTfTvoQjGvMojj1V8nNZjYJJyJqWaXgcHIHVJ8IxMdp2zHQw6UQfKyeMP7 +mkx8T7gokUZlsNXa7IiKLhNff9E06lpUBnlNFTcnjJhoVFCcyMu6A+5PL2tf +385E20MN/mYfSuHnA5bNiDMTFzs03P7RUAJtMUY+n1yYONjwXT+3qARKWPS0 +F65M3PujtJaTUgIuP/s+5B5l4vkltrmKnBJo1zz5F8uDiTV3rU46SJTAvYKI +k3U+TGRZ/EAdi2I4dflufEooE7MPX77c9PEfEHovbdLPZuI+H21D1CuA4cor +i+VzmHjw95f9J9UKYFBMbfuYiD9levJKZArgS7zh8+JcJoZv9sm2Gc4HbqFr +o0o+E2s7h47q5+RDc29tvfRtJuodjew6vTwf8m18H/IeMjHZS6h/fiIPnDS7 +i6M6mEgVWRYt+5oLCfoOEX4fmKid1NE4vz0XHm7pPuLWyUSPke064k9yYZVV +9zKLj0z03iPHW3sjF5rZ3V6LeEy0uTrroeiYC3qp3ToRX5lYmjFofPzjDZD+ +1V0dOsHEbezTFy9yc6CimvcySJZAa3//mKGF2bDASKrhiByB51K0fnRMZsG+ +qo1VW+QJDClyl2kdzoKxipC82VUE3nCu3trVlgUapWrngxQJpLcat3OuZ0Fh +jptGkAqBaU4nRrcYZkFm5EhyoAaBBw0NE+v5mRC+R8zu3A4CKx9dXSIpdxV2 +L8ZB250Emu97Sm+YywCl+vPntKwJ9F/Q2pkwmAFl2nNZg7sIrC/QWH2gJgO4 +q2a/2e0l0HKfVeJV9wzQ5U4H6NgTuCxeTUzyWTp8OfbzusCVwPWmtBPLYv4G +8zDBV8dQAtl1SooF+pfBZEZl5a4wAl+9j5E+r34ZjHxst2wOJ9BoNtqLs+Iy +aHJqUhQiCXym2O5yeDgNlEyTjdtiCExadbN8YXYajIjrZmxNJpCMD7q1bmka +XAkNtGZmi/Zv8+aeHkmBwRDpe0OPCExVDsxP4yXDwlPf/nv+mMDxAX/u9Otk +UGU/NcuvIXB0s+Ra9/pkOLQ1uINTR6DBQb+vHnnJ0CI+Pv3pCYG33xyX/uGe +DGVhXSatzQQeMKP9tmQmCc5GFLaWdxIY/9bEhK6SBJIxFsOBEwTGmVMNkb8n +wD6D1S2ePwlkVYtHOc7GQ9bA0G2HXwQ2HC8at+6LB33zhFPGUwRq3PoV4l4a +D24S7VMSswR+37Y1Md8yHp4FsaXiFpC4P0osSC74IkSdCmKmy5K4LTO0dudM +LCw6XO5YoUli4KcSycoN0dBido2bo0WimH6YAlchGtI0Ig4laJM4m/6HgeyC +aGBK2Nm56ZKif0vwvNsVBWb/TO9abUii1K1zeg+joyBs0gSCjEnc3KOXNDQQ +CWJpr9eY7Sax+d7KIee7EfCrRdD5zoPEVF4EsdQ3DHo1gn3LPEkcWNRTru0S +Bs3JMisSTpCoVaPk5nYgDK4f0La08CIxPb1WcVw3DMy4Z/+t8iExTWe4MuNX +KFziS6RcDyDRVcPtl2pQKGyQVtx5NFqUL33v/K6kEHC2NH88k0viPPWUyiWd +wRB07OXY0E0SZX6zMepuCoYrsXvJrjyR/u2zpEfVwfDipUNSZT6Jz67R4rOy +g2GDjR/bt4jE/N2Nj0aOBsMv+4JFI3dJ3PDhhu2pyfMQ575k9+c6En8/t1Ob +tT8IyhJe8Z7zSAy5USlvtSMA+OSsZkEPidn92W5tugFA1q0Lj+oV5fEkLhxT +DoDM8WjKvI9EY++Dbc0T/hDLMvVu+Eri2OqHF+1y/IGjWin+WEBiz4lT2y/M +nAX5f3OY5TMkFr6/1lnz0A8CuKfdM3+ncJnYB+LIMV/QLHtgf1aBwoQf8YPL +WL4wED7Pct9qCk+b8iZazH3hwPqL6ouVKOQkijX4qIv053K5p+kUfvCPXXWk +5zQMKrzZvZNJ4b300onMg6fBbr+GzowWhZdL2YWpLB/QbR78j7WLQrgiyLE+ +6w1KDurh5rsp/DNravz1UW8QH3WQ1tlDof6Xai0ne29oXfVu9fK9FBZ8vrOj +YJM3HGM/1nt6gEKZGaq+ddYLrk1d8tI8QuH8+RapAZFeIEFt7l/sQeGKuX7a +ZPZJaAtPaH4QQ2FR01RFz6gHdCZ6e/0dS2HLpbsenl0e8Dljv/yZOAo3aYye +WNrgAeN3FB0140V+dg60kFQPkOPeGstPopCSGbxiauABdro1q9OuiO5hvfu9 +cpg7cL+MuJ3Mo/DfPyK0uczj8M3cZoF6HYUBpbvPh19zA1nBei+legpvynt0 +zka6AaZIfVrZQKF4sOpUjLcbXOHVlM9/SmH72CGzLnM3sDj7J4f3nMKBinnW +9mOukFcoXZ/xmkLSn0Y07HQFp6WNwSt6KJx4XLi2c5kLxN/NGZbqpfD5gFLm +xRlnqGIF2c37TGF2bPOXPd+cQSZPR2Okj8KTzsE10vXOULMlt/vlAIXutpvm +LM84A/3khS3RIxT+FZiu0t7Lge3yhwuDv1PYrPfRMLGVA74P9eX9Rim0esLe +Zv+IAy2SI3yXcQqThwSTa9I5EJR95JrpLwrnueo5OtlwoNDcUMpoksIzQ6nR +6ciBdr7caa0pCh9E1en1buDAesOXO1RmKLySnz98fQkH7Hj59xX+o/CXS2KH +3BQbwiLC1GRmKZzOzlmZMcCG0nWOiZJzFEoaXkr88z0bPrZtmpkT8c8gZZM3 +T9jwP4C8PAA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9815814700981557}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9815814700981557}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVk3k4lIsXxxUVpVsKXdHM2OZ939tyZSd1DsmSUmlhtHDNWCoUSSKSfcsW +6lJCEi6S5EYpW6lIUknUGKKEmRFSlstvfn+c5zyf5/me53u+53mOstMJG+f5 +YmJi70X1/25hH7VITIyGm5qXxq45KgSTHC2Dqnk03OZqJF/gJoRNg9xjPuI0 +tFHbZKkt4g3+Oi0DC2nI18+/aekqBLn03pTXS2ko07dx40lnIfR+MFK5oUjD +b5OzrKK/hHCO9d3ITI+Gb854KXezhHDbzt47zpOGSYaz7nRLIUjShe+On6Th +A3J8NsJCCI79oQZW3jSsc3wmKzAXwgrvYrHFvjSMSI55UWUmBJ9YsYTIQBre +Kuzea20qBINHef+ExNFw2nVL1GEQQr3qWJ9fIQ1HnP2qFXSE8F4Qa+v8hYaP +9SRyR2mi+ZteE2oDNHQ6m+xpKuLlh2xT+77RsKJOsSJ1jRAsnqu8YfNpuON1 +UZWukhCqblRaO43T8MSu9ARvBSFk2n3d5jCfjgatPvKvVwrBpc5Em0WjY/u2 +RdNMSSFMpE4u33mAjmOd9/wYQgHE1C4dELej43Nr7VwbgQBofOXHVSw6Zsq2 +GYTxBWBmut2DPEzHM7bvs/uHBJA2mv5cnEPHySYBK3tAAHq7jEKqvOiocvDF +8pkeAfhJnh8jLtLRKOBU7aa3Apjyl2if30DHH28vVTRXCICvNr+b+4SOCnPj +RrX3BMBrmfta1UjH2tC1Y+XlAniqMj3p3UTHd11Nw3+XCSD5xfc1n9voGL7i +toR9iQDWru52ru+ho4t7rmnZTQEcqqz8ETpHxw8pCr2PLgmgO+DfmJA1DCxr ++uTD9BD5P+MWOdIYuI6d1vvzuADk5Re+2kJnYL8Dz+/ZMQHsKN23cprBwO+f +pNa4ugmgqu97xik1Br7zfqWdzhbl3bmumLOWgY3i2/94zxKANT37lZkBAxWc +rZzytwmgui5Gdsl+BhZ2ED+jVgtA8lXeq2kR719aPTlPQQA2XXUxwwcYmDf9 +17uzqwQwMDYl1mLHwObEHlkXWQHIqh/nJx5i4PTC9usavwnAPdLqqTyHga4K +NzZfnCcApR3SfiqnGPi2nWXl8JUPAe8udhkkifz1znhtus0HE6VaTWYyA40P +qe7wKOaDJHs8esUlBr75u7Hz2j98SBux1x9KYWBxhGD59C0+lC0hU69eYWDJ +Vdemm1l8GDCus567Lspns7DlQRIf9pVM1DaUiOZjGwv6vPmwLtIhf1czA5MT +kqxmNfhgZ7yr211cGWlxWnXtN4fBudFzrwYoI7dSKj1tfAj4+4s2Tvsqoy+P +zKrSGgK30PtyxcXKKKG0MIBrPwj158Z1F3xTxlCZAZNa62+QHmRdx2GooNHh +jj6azgDs2dERc+yQCtrIrH+g2/sFpu9rsGwvq+BITkf50Ol+YGy4lWTVooJ7 +L1yIa5fqA+aJnYu+SKnijc9pKR7HeuHWfZmvkcaq6GmmNOXUyQOplgUSrYGq +mKRy5NszCy4cDnnGnLuvimkBczV7JjphPRTc1RlRxcfkvo+nfryHT42VgSvW +qWGU18Hyt5/eghRr4M4EWw1Hn6cR1uvbgIjuH6pNV0NB86jVqpBXwAxfwdZq +V8PnRweI3xteQFb0YdOipepo3honHvTuKUyzOpyaLNUxmtS14yjUi/5XOfJ1 +mDpGDVosHOx+DDLG0XLdD9RxEW3z0ZyWKngQxuhJ/qmOgb9MNPoZFcBrfSdv +/ScTfTvoQjGvMojj1V8nNZjYJJyJqWaXgcHIHVJ8IxMdp2zHQw6UQfKyeMP7 +mkx8T7gokUZlsNXa7IiKLhNff9E06lpUBnlNFTcnjJhoVFCcyMu6A+5PL2tf +385E20MN/mYfSuHnA5bNiDMTFzs03P7RUAJtMUY+n1yYONjwXT+3qARKWPS0 +F65M3PujtJaTUgIuP/s+5B5l4vkltrmKnBJo1zz5F8uDiTV3rU46SJTAvYKI +k3U+TGRZ/EAdi2I4dflufEooE7MPX77c9PEfEHovbdLPZuI+H21D1CuA4cor +i+VzmHjw95f9J9UKYFBMbfuYiD9levJKZArgS7zh8+JcJoZv9sm2Gc4HbqFr +o0o+E2s7h47q5+RDc29tvfRtJuodjew6vTwf8m18H/IeMjHZS6h/fiIPnDS7 +i6M6mEgVWRYt+5oLCfoOEX4fmKid1NE4vz0XHm7pPuLWyUSPke064k9yYZVV +9zKLj0z03iPHW3sjF5rZ3V6LeEy0uTrroeiYC3qp3ToRX5lYmjFofPzjDZD+ +1V0dOsHEbezTFy9yc6CimvcySJZAa3//mKGF2bDASKrhiByB51K0fnRMZsG+ +qo1VW+QJDClyl2kdzoKxipC82VUE3nCu3trVlgUapWrngxQJpLcat3OuZ0Fh +jptGkAqBaU4nRrcYZkFm5EhyoAaBBw0NE+v5mRC+R8zu3A4CKx9dXSIpdxV2 +L8ZB250Emu97Sm+YywCl+vPntKwJ9F/Q2pkwmAFl2nNZg7sIrC/QWH2gJgO4 +q2a/2e0l0HKfVeJV9wzQ5U4H6NgTuCxeTUzyWTp8OfbzusCVwPWmtBPLYv4G +8zDBV8dQAtl1SooF+pfBZEZl5a4wAl+9j5E+r34ZjHxst2wOJ9BoNtqLs+Iy +aHJqUhQiCXym2O5yeDgNlEyTjdtiCExadbN8YXYajIjrZmxNJpCMD7q1bmka +XAkNtGZmi/Zv8+aeHkmBwRDpe0OPCExVDsxP4yXDwlPf/nv+mMDxAX/u9Otk +UGU/NcuvIXB0s+Ra9/pkOLQ1uINTR6DBQb+vHnnJ0CI+Pv3pCYG33xyX/uGe +DGVhXSatzQQeMKP9tmQmCc5GFLaWdxIY/9bEhK6SBJIxFsOBEwTGmVMNkb8n +wD6D1S2ePwlkVYtHOc7GQ9bA0G2HXwQ2HC8at+6LB33zhFPGUwRq3PoV4l4a +D24S7VMSswR+37Y1Md8yHp4FsaXiFpC4P0osSC74IkSdCmKmy5K4LTO0dudM +LCw6XO5YoUli4KcSycoN0dBido2bo0WimH6YAlchGtI0Ig4laJM4m/6HgeyC +aGBK2Nm56ZKif0vwvNsVBWb/TO9abUii1K1zeg+joyBs0gSCjEnc3KOXNDQQ +CWJpr9eY7Sax+d7KIee7EfCrRdD5zoPEVF4EsdQ3DHo1gn3LPEkcWNRTru0S +Bs3JMisSTpCoVaPk5nYgDK4f0La08CIxPb1WcVw3DMy4Z/+t8iExTWe4MuNX +KFziS6RcDyDRVcPtl2pQKGyQVtx5NFqUL33v/K6kEHC2NH88k0viPPWUyiWd +wRB07OXY0E0SZX6zMepuCoYrsXvJrjyR/u2zpEfVwfDipUNSZT6Jz67R4rOy +g2GDjR/bt4jE/N2Nj0aOBsMv+4JFI3dJ3PDhhu2pyfMQ575k9+c6En8/t1Ob +tT8IyhJe8Z7zSAy5USlvtSMA+OSsZkEPidn92W5tugFA1q0Lj+oV5fEkLhxT +DoDM8WjKvI9EY++Dbc0T/hDLMvVu+Eri2OqHF+1y/IGjWin+WEBiz4lT2y/M +nAX5f3OY5TMkFr6/1lnz0A8CuKfdM3+ncJnYB+LIMV/QLHtgf1aBwoQf8YPL +WL4wED7Pct9qCk+b8iZazH3hwPqL6ouVKOQkijX4qIv053K5p+kUfvCPXXWk +5zQMKrzZvZNJ4b300onMg6fBbr+GzowWhZdL2YWpLB/QbR78j7WLQrgiyLE+ +6w1KDurh5rsp/DNravz1UW8QH3WQ1tlDof6Xai0ne29oXfVu9fK9FBZ8vrOj +YJM3HGM/1nt6gEKZGaq+ddYLrk1d8tI8QuH8+RapAZFeIEFt7l/sQeGKuX7a +ZPZJaAtPaH4QQ2FR01RFz6gHdCZ6e/0dS2HLpbsenl0e8Dljv/yZOAo3aYye +WNrgAeN3FB0140V+dg60kFQPkOPeGstPopCSGbxiauABdro1q9OuiO5hvfu9 +cpg7cL+MuJ3Mo/DfPyK0uczj8M3cZoF6HYUBpbvPh19zA1nBei+legpvynt0 +zka6AaZIfVrZQKF4sOpUjLcbXOHVlM9/SmH72CGzLnM3sDj7J4f3nMKBinnW +9mOukFcoXZ/xmkLSn0Y07HQFp6WNwSt6KJx4XLi2c5kLxN/NGZbqpfD5gFLm +xRlnqGIF2c37TGF2bPOXPd+cQSZPR2Okj8KTzsE10vXOULMlt/vlAIXutpvm +LM84A/3khS3RIxT+FZiu0t7Lge3yhwuDv1PYrPfRMLGVA74P9eX9Rim0esLe +Zv+IAy2SI3yXcQqThwSTa9I5EJR95JrpLwrnueo5OtlwoNDcUMpoksIzQ6nR +6ciBdr7caa0pCh9E1en1buDAesOXO1RmKLySnz98fQkH7Hj59xX+o/CXS2KH +3BQbwiLC1GRmKZzOzlmZMcCG0nWOiZJzFEoaXkr88z0bPrZtmpkT8c8gZZM3 +T9jwP4C8PAA= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{7.5, 13}, {0., 0.9815814700981557}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {7.500000000000017, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{7.500000000000017, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{7.5, 13}, {0., 0.9815814700981557}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.992520274102029*^9, 3.992520291792519*^9}}, + CellLabel->"Out[21]=",ExpressionUUID->"642e75a9-9a16-41fd-9f03-b287dde83629"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519988325634*^9, + 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925199899203997`*^9, + 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = + 0.8049999999999999, $CellContext`xmax$$ = 12.5, $CellContext`xmin$$ = + 6, $CellContext`ymax$$ = 1, $CellContext`yv$$ = 1.925, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691962`, 115.83105478691962`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9, + 3.992520416745933*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"1f9414cc-6de2-41fc-ba19-3f4d15414c69"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.992520505585657*^9, + 3.9925205099461193`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk4lk0XAHASlXpVlH333PfdghBFlnMQoShKsmfJvkRCRESI9IZsSQhl +LWtSQijRopAWIlnDg7eFhPru76+5ftfMNWfOnDkjYe9tcmIFCwsLLysLy/9H +QeVH9CCO106cDxLZzYTOsMVX2bTX+3qtyFFiQmybSoYmqzienVp8KaXIhN8W +93ZGrBBH/1dPZCl5JnwIuevIwS6Oq25d5yK2MyGtOefpOk5xNF7jyLYsyoTN +B6NiBTaJo/fHlVlCHEzY4HSQe+cWcazBfQ4rOqfA8UJ9U+thcZSPzfz3rukU +/F7lK3LmrDgKlI6TTp2TEO27T8wmTxzfnWN5xtCaBJ9XC4/zOsSxP/Bcd3/i +BNyIn+Va/UscrdUVwvz7vsIWjZalF1ISuOa0cYcE61co6KlNeGIkgT0Nbdc2 +84yDe+f31x/9JXBSPSrbTXwM4ho4y41vSuDhtoQjiytGYXq9k+pIuwTG3DVz +sh4ehn16Qx4l3yRQJn/p6mDtEPzxUYe3IpLYcqazv8nxC8z/6X0oqCuJwptd +kpUEBsEoxOzDYx9JbJDN4VlxcAAyhn5kXr8uiYbfLEI2efXBttKedVdbJHHV +BhHp0voPwOeSLMyckcRkaRdbvs89oBuV1mPPL4ViRo1z33S7oSs5UH7PXink +JZ/tMEp9A0fjg3bqeEuhQ036WXWNVyA03jjgkSqFK/Le1TOX2kBDcVh6rkkK +3yzwv0x58QRyh/Yzrk9K4YtCjcVaoyb4G/S26TQPAxVbliUsrtTDfTa1FeUa +DNQZEh4J7b8PVTOjk6udGVgiY1DseKQKtq3f2FlD+3jKwjY9rSrIklW97+TC +wBXL/LeV5aog1vPfyBZXBq7coRGG66rAdnK3SJgHAz+0BZGTLZXAORZjNO/D +wBOLZg9uK1fC8f5t5SNnGZgfs3tT+tYK+Oell39TIgMlazTntsuVgaSf0nav +JAaeTNS55iZRBspCSwMCVxkoOszlW8VdBvauF/V9khk41O9l1DVxF+6x5wmL +pzHQhZoQrfS/C8c1PjSFZDKQ7/5FseTEO1B1V3u9SgEDe3xEcpI/loBVIn/B +3UcMPLfNNVuwsBD+GMR0HKxn4IWNY4PBiYWQzfZrboa2yI1ru6eDC2HE752O +XCMDV0vKL7IfLAQvs5ShsiYGLnOxDrPMFUCY8CaxilYG/rqRpS28rwDyb61P +qXrDwGTl7xGFP2/B9AOOyNoRBiqtM98jeT4Pjo4tyDuPMtBsjjkz7ZkH9TzM +gU1jdHy/KxtfmudBvEeX6slxBipwRrs/ks8DadHs7+QkA99w+6p5fskFt3AV +h6uztJ3d3P/q5sLoPg8t70U6n6KH+7KEb8Kn7jcsxEYCrXMLehuns6CT20ui +lfb1zW2jUa+z4OkhTi1XbgJt3c3DnSqyoOyFVkQpD4FsTnfEfP2zILKlkn0X +L4E3thSK1v69Aduqkjn3CRHIXPeOMc97A/yTzDe5EgS+looMrzO7DutNBqlS +FQLDOi87tIumQx6fIN+BPQQ+n/PLmOBIB+VPJhyTtK+sSnUXm0kDe5eW4S1q +BN1PAelPG9KgKvR2Tp4GgetYff5dY58G5sWeQte1CVy81MBnWpQKuSt/c8UZ +Eui0biI+Uz8Fdtdwz7nYEagxeTR9sCEJEmdfuW+2J3Ala/Nv3uIkmNoaN/iY +9vS1y6HHU5Ig+zrbS0FHAtcIOBbt8EyC1ed/5L5wIrBojOVxnVASvD/QYyzn +QaC0iu2ZiLOJEPQlvXTen8BoNZlLxgcSoFvoqFReAL3f+GLspEoCyJpypx8K +JLDkY+ztVCoBvrTGRhaeIXCt+qdFgi0B9pcGW1qeJfCyvpCdwMMrIBxovaYh +nMBjesyHhrJX4NE/EieiLhH49YjUnlXalyHvWJQhFU9g/OLArirGZbiUO6n0 +jHbOROK5EI7LYKFyj4PzXwK17vWmOrbHw5zj/oL4BAKrwxhW5w/Hw46605NX +Uwi8E2LJGHe7BDlu7T652QSGV+yXaSiNhZjqHRZ7cwhUDNUtbUuMhZMsyVoj +tJu+3y5hBsSCRootD5VLYEtEW1e4Vix8fPyjqiifwO3r2zzfv78IPAJiv8qL +CPwwwmIszXkRLrSeCm2sItBC1q76U2g0KERZMb2qCVRWlahgOkZD/14dK5F7 +BO5W3nmdf380KDfx7gmqIXCo+mNXPV80TNTV/tz5gPZ/SrwGFVFgVPHX43YD +gQ398Qd0py4Af2ac5eV2At/F2wZJn4qEFku/drXnBJbFWH90s4oEH0FrlUna +jVWR1GOdSGhPleXTe0ngJzZu2Wr+SAhJfNPJ+prAyUvuPvcbIuBLNJ/B6bcE +iuQUKfFzR0Cxb66y1WcCVcrE/XNbw2FYS0nwL+3gKc8v7NXhIMrTupgzSGBg +w8WXQTfDIbFyon7sC4E77//qywgJh8Af8jqnRgh8z7Ppn1rFcNDxbzSOnSBw +yYYA41thMHDmk9v9HwS6lnu9Xi9zDvgNvA9Y/iRQYFhDQmndOTARZJX9Q3uo +IcIjeDIUnj5g/Kc9T+DB7NBAt6JQKFl0D+hYoOM3s/N2bA2FMyG/I0b/EGgw +Y66YJhsCPOF8mZvWkLiRzQSsDwbD1HsdwyraSV8Ppi0oBMNTOb/lw5wksugf +JSt4gyHw82vrpLUkxlimngnoD4J+iBXl5iJxb6/CtkPeQVD0ZylrPQ+JdUlN +dlIpZ0Dr7JebnCIkFqRNPLk5HwDC3RsOF9FmWI/PXO0PgJ/bgc1AlMRTI4m7 +sp8EQEFvhsNFMRLbDTbXsV4NAC5VU8ZqSRIzuAWEpuUD4ONCaz47RaLoJtUV +x3z9wSegtIBFnsSt5p+Eulaehg3atgOltMvCXn/tn/KDO1wbeS0VSMxn9fy1 +8q0fTOX7RVTvJBED292z8v3ApVvVxm0XiQd9Ux5x6vnBcfl2nm5VEq+/Sv4v +N+EUHJwcDb2tS6LI75oC6d2+MH0vrfrIPhItNZv4jSR94dJ5gylWPRINz15I +i/rHF9oF7phb6ZPIFFJwVhv2AV2904obD5AolDqdfz/RBzTy2SaCjEm8EWvP +P/D9JMjYipsaWZF4jtGUEH3JG46pBf+Zof1NnBmV5eYNkQI9txOs6fUzPA8+ +6nlDX1fc724b+nw3bx18wO4Nl/TmsyztSCzNHTolGO4FU/KvJlycSBx2zBzB +UE8oWXk2LOIkiezOtS0aCe7wfrBnK+FD329AZVzIKXdY2SDf9ZT2287Hfr2m +7mB1ZozgPEXixQBd+R+C7rBu2uT5ldMkztvrzSffcgOPd1t5bwSRqPDthkxY +sytsL3pXfD+SxEMzJ1LEeVxAeLG61/kCidsT+qT65pyB68DVtXxRJLpTsrM1 +H51hlnnI/XQ0iY9D1tR23HSGe/Lt2xRiSXRaGFc7q+gMWrV1hcX/khhx9+ua +YmsnMH+Wc/vGNRIVuVIz/Z86goFA2DvDDBIvv3uU8qvUEdTcbFYt01Ya5ytN +SXYE0XVCzpaZ9H1jRzV5whGGD14l+bNJfFfB8ymR3RFOvovKT8gnUTM+my98 +vwNEj7rnRpbR8VdrE+MTdsDfMJojV07inLr/MG+PHRSl2mX30e5pi1OzfmwH +L/TMMhUrSRS/f/WQXJodcBdrpQ5Xk+hpbqbB1LWD694CcXsfkvi9+/DukoLj +UPbrqe/Kp/R8Q8zaLQs2oPlG06eM9sZ/NefWvrWBzsI6b6tWEs9cbOUQKLeB +nxYVHlXPSNTYEjZc6moDex5lOjk+J9FM71Hxoz5raAn3s2h5TXtzTJtRuxV8 +4JTUiuwlUd227fzaJgv49UOnktFH1+/vk+/v8yyAd8CV8YR2sY9YypNoCzCp +LOfg6Cfx7iH+6UVDC3hhqfk8+jO9vs7I40OvOdSXHD8SN0Lif6sVNqotH4M8 +oyynxBkS/cv+VrWZmkGTcvM7hVm630v05TXVzOCz5JheF+3q2EDubkkzEJmX +3b7pG4nJ2rkJ+2ePQkpW/UzyDxLv8ZIeoZeOwsXZT4HpCyTO1nUo9raZglei +cFw2G4W5J/PqK82OgMls83mjlRR2zv6WOw9HYJeRe9ASbVadJ0Me1BFYXvPA +9RgHhTuW0mNT5g/DpXAzvQ1rKKxS2+y4O/0wFJ1MZA/jorBn5Z+ppEETGDNa +HWYrQKHItg/2wxeMob3kbsA/ghR6731/+O9JY7jDaeb9kPaVhs0tClbG4P80 +34ZPmMIOvqiKLwrGwKGhrd4hSqFGxrkGh8FDwJAJ/a3BoHDdndr6Tq1DcHzt +Dz/RHRTKf575c1TGCN4E7R1opM2z1bOoYK0RaE1c1XeQo1DZttVMbMIQpNqU +RAvkKRwJChUIvm0Io1EBrfKKFH6W6JkckzIEzxWLAjoqFLaLHxrzkzoAQQus +De7aFOLZHIapmgFMuphs5dpL4QdiaPuyqAFYvb+ZVEY7pDUo7gmrAWjUaLv8 +1KGQ6LB7dq9VH1hPX9h4To/C8ktMHz5TfYiZXe2YaEjh4MnvDZWn9SB5bP2a +WjMK/bOa9/u81IVb/Uuax45R+HApuNuhShfuvf0aNE/7dm9ZpE+GLrxvbp5S +sqBwZ6vD+CdXXRDMDnhdYUVh+sC2zPlVupB9bCC1xI7C/o4KEV59HShqu0Nm +u1PY5vLUEvu14WFjhi14UJj0Snyb/TNteFETk9ZPm/N5f11GhTYw8+05Rbwo +9DAxaDeN1ga587zT6ScpTOn9+eSLvDZU7wmtTjpN18eoL9MgTgsaiw33Rp+j +cF/qwy+FRpqQwlvPphhG4cXjTvzzKprgES7b/Jl2zn7uJ1aEJvCbrdfac57C +SPufG32WEHxWvAFmJIUuetecHhQjSJofUT0cS6F9yq5nNVwIkRyWCmLJ9H7m +Iqp7n6uDhc/z/57TNvV6sT7ptjrI9amWB6ZQ2GvHJbcuUh36yoXlOlMpbNli +cfmsujooWffLXLj2/3xK3A9VqMFopd3WySwKPZe8iq7lqoKenYt4TRGFTn/q +1fxyVaD4U7jJsWL6/WYGXa+PUgEui4zIBdot7mUdW9xU4K3Jq3HVUgolw2oJ +K3kVsN+rWN54l67HnWsv9jxWhmCKRau9ikLXr29sH4zuhjvMVIdP9RTahXDc +69u3Cza6lSeHNlDYaHZr+rPsLvAbbW8Va6TwZtnSGAvvLtgzsLzd/jGFZZo2 +uUnDStD62uHHaDOFXYns31gilOBz5Y4Ls88o3Mo8wTLYogg8Qa232LroeDrV +XUzLnWDgLJFWQzvHzkeoRHsnnD8SfNG9m0ItcfPImO07YVZ2h0fXWwqtwsXJ +jEUFeDWUIp/7nkITHdciqUwFiDF0qtPqp1DsqM/+myPysCTO3hn+lcITqSp6 +DnFysJPLtllpgsJNcuwuOf5y4LZ4v+or7ZiXx60X7OTgw1uPVOMpChVSh/Tn +lOXgXmy3lcQMhc0bbP00X+8Anx+5Y40/KLR8ODKmkiILBYPL7/1+UnhAXvB+ +l7csfH5l1r5ljsLHTpo2mfqyYFS4tvTKPN2PhcKaDcsyIG1zyvf4bwqvBQWw +7naRAYf9Lx02LVIo8+2hmL62DFxTpkyf0b6gc2HvRVEZWMPTu1tuma5/nGBD +4ltpQBalrcO0nZv251mWS0Mg87Jg2h/6/6h7fsc4Xhrufhxfe+AvhYkzc7f8 +XKVhtFVr+S/tNHlP0xYdafgf6xm76A== + "]]}, + 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:eJwV1Hk4lk0XAHASlXpVlH333PfdghBFlnMQoShKsmfJvkRCRESI9IZsSQhl +LWtSQijRopAWIlnDg7eFhPru76+5ftfMNWfOnDkjYe9tcmIFCwsLLysLy/9H +QeVH9CCO106cDxLZzYTOsMVX2bTX+3qtyFFiQmybSoYmqzienVp8KaXIhN8W +93ZGrBBH/1dPZCl5JnwIuevIwS6Oq25d5yK2MyGtOefpOk5xNF7jyLYsyoTN +B6NiBTaJo/fHlVlCHEzY4HSQe+cWcazBfQ4rOqfA8UJ9U+thcZSPzfz3rukU +/F7lK3LmrDgKlI6TTp2TEO27T8wmTxzfnWN5xtCaBJ9XC4/zOsSxP/Bcd3/i +BNyIn+Va/UscrdUVwvz7vsIWjZalF1ISuOa0cYcE61co6KlNeGIkgT0Nbdc2 +84yDe+f31x/9JXBSPSrbTXwM4ho4y41vSuDhtoQjiytGYXq9k+pIuwTG3DVz +sh4ehn16Qx4l3yRQJn/p6mDtEPzxUYe3IpLYcqazv8nxC8z/6X0oqCuJwptd +kpUEBsEoxOzDYx9JbJDN4VlxcAAyhn5kXr8uiYbfLEI2efXBttKedVdbJHHV +BhHp0voPwOeSLMyckcRkaRdbvs89oBuV1mPPL4ViRo1z33S7oSs5UH7PXink +JZ/tMEp9A0fjg3bqeEuhQ036WXWNVyA03jjgkSqFK/Le1TOX2kBDcVh6rkkK +3yzwv0x58QRyh/Yzrk9K4YtCjcVaoyb4G/S26TQPAxVbliUsrtTDfTa1FeUa +DNQZEh4J7b8PVTOjk6udGVgiY1DseKQKtq3f2FlD+3jKwjY9rSrIklW97+TC +wBXL/LeV5aog1vPfyBZXBq7coRGG66rAdnK3SJgHAz+0BZGTLZXAORZjNO/D +wBOLZg9uK1fC8f5t5SNnGZgfs3tT+tYK+Oell39TIgMlazTntsuVgaSf0nav +JAaeTNS55iZRBspCSwMCVxkoOszlW8VdBvauF/V9khk41O9l1DVxF+6x5wmL +pzHQhZoQrfS/C8c1PjSFZDKQ7/5FseTEO1B1V3u9SgEDe3xEcpI/loBVIn/B +3UcMPLfNNVuwsBD+GMR0HKxn4IWNY4PBiYWQzfZrboa2yI1ru6eDC2HE752O +XCMDV0vKL7IfLAQvs5ShsiYGLnOxDrPMFUCY8CaxilYG/rqRpS28rwDyb61P +qXrDwGTl7xGFP2/B9AOOyNoRBiqtM98jeT4Pjo4tyDuPMtBsjjkz7ZkH9TzM +gU1jdHy/KxtfmudBvEeX6slxBipwRrs/ks8DadHs7+QkA99w+6p5fskFt3AV +h6uztJ3d3P/q5sLoPg8t70U6n6KH+7KEb8Kn7jcsxEYCrXMLehuns6CT20ui +lfb1zW2jUa+z4OkhTi1XbgJt3c3DnSqyoOyFVkQpD4FsTnfEfP2zILKlkn0X +L4E3thSK1v69Aduqkjn3CRHIXPeOMc97A/yTzDe5EgS+looMrzO7DutNBqlS +FQLDOi87tIumQx6fIN+BPQQ+n/PLmOBIB+VPJhyTtK+sSnUXm0kDe5eW4S1q +BN1PAelPG9KgKvR2Tp4GgetYff5dY58G5sWeQte1CVy81MBnWpQKuSt/c8UZ +Eui0biI+Uz8Fdtdwz7nYEagxeTR9sCEJEmdfuW+2J3Ala/Nv3uIkmNoaN/iY +9vS1y6HHU5Ig+zrbS0FHAtcIOBbt8EyC1ed/5L5wIrBojOVxnVASvD/QYyzn +QaC0iu2ZiLOJEPQlvXTen8BoNZlLxgcSoFvoqFReAL3f+GLspEoCyJpypx8K +JLDkY+ztVCoBvrTGRhaeIXCt+qdFgi0B9pcGW1qeJfCyvpCdwMMrIBxovaYh +nMBjesyHhrJX4NE/EieiLhH49YjUnlXalyHvWJQhFU9g/OLArirGZbiUO6n0 +jHbOROK5EI7LYKFyj4PzXwK17vWmOrbHw5zj/oL4BAKrwxhW5w/Hw46605NX +Uwi8E2LJGHe7BDlu7T652QSGV+yXaSiNhZjqHRZ7cwhUDNUtbUuMhZMsyVoj +tJu+3y5hBsSCRootD5VLYEtEW1e4Vix8fPyjqiifwO3r2zzfv78IPAJiv8qL +CPwwwmIszXkRLrSeCm2sItBC1q76U2g0KERZMb2qCVRWlahgOkZD/14dK5F7 +BO5W3nmdf380KDfx7gmqIXCo+mNXPV80TNTV/tz5gPZ/SrwGFVFgVPHX43YD +gQ398Qd0py4Af2ac5eV2At/F2wZJn4qEFku/drXnBJbFWH90s4oEH0FrlUna +jVWR1GOdSGhPleXTe0ngJzZu2Wr+SAhJfNPJ+prAyUvuPvcbIuBLNJ/B6bcE +iuQUKfFzR0Cxb66y1WcCVcrE/XNbw2FYS0nwL+3gKc8v7NXhIMrTupgzSGBg +w8WXQTfDIbFyon7sC4E77//qywgJh8Af8jqnRgh8z7Ppn1rFcNDxbzSOnSBw +yYYA41thMHDmk9v9HwS6lnu9Xi9zDvgNvA9Y/iRQYFhDQmndOTARZJX9Q3uo +IcIjeDIUnj5g/Kc9T+DB7NBAt6JQKFl0D+hYoOM3s/N2bA2FMyG/I0b/EGgw +Y66YJhsCPOF8mZvWkLiRzQSsDwbD1HsdwyraSV8Ppi0oBMNTOb/lw5wksugf +JSt4gyHw82vrpLUkxlimngnoD4J+iBXl5iJxb6/CtkPeQVD0ZylrPQ+JdUlN +dlIpZ0Dr7JebnCIkFqRNPLk5HwDC3RsOF9FmWI/PXO0PgJ/bgc1AlMRTI4m7 +sp8EQEFvhsNFMRLbDTbXsV4NAC5VU8ZqSRIzuAWEpuUD4ONCaz47RaLoJtUV +x3z9wSegtIBFnsSt5p+Eulaehg3atgOltMvCXn/tn/KDO1wbeS0VSMxn9fy1 +8q0fTOX7RVTvJBED292z8v3ApVvVxm0XiQd9Ux5x6vnBcfl2nm5VEq+/Sv4v +N+EUHJwcDb2tS6LI75oC6d2+MH0vrfrIPhItNZv4jSR94dJ5gylWPRINz15I +i/rHF9oF7phb6ZPIFFJwVhv2AV2904obD5AolDqdfz/RBzTy2SaCjEm8EWvP +P/D9JMjYipsaWZF4jtGUEH3JG46pBf+Zof1NnBmV5eYNkQI9txOs6fUzPA8+ +6nlDX1fc724b+nw3bx18wO4Nl/TmsyztSCzNHTolGO4FU/KvJlycSBx2zBzB +UE8oWXk2LOIkiezOtS0aCe7wfrBnK+FD329AZVzIKXdY2SDf9ZT2287Hfr2m +7mB1ZozgPEXixQBd+R+C7rBu2uT5ldMkztvrzSffcgOPd1t5bwSRqPDthkxY +sytsL3pXfD+SxEMzJ1LEeVxAeLG61/kCidsT+qT65pyB68DVtXxRJLpTsrM1 +H51hlnnI/XQ0iY9D1tR23HSGe/Lt2xRiSXRaGFc7q+gMWrV1hcX/khhx9+ua +YmsnMH+Wc/vGNRIVuVIz/Z86goFA2DvDDBIvv3uU8qvUEdTcbFYt01Ya5ytN +SXYE0XVCzpaZ9H1jRzV5whGGD14l+bNJfFfB8ymR3RFOvovKT8gnUTM+my98 +vwNEj7rnRpbR8VdrE+MTdsDfMJojV07inLr/MG+PHRSl2mX30e5pi1OzfmwH +L/TMMhUrSRS/f/WQXJodcBdrpQ5Xk+hpbqbB1LWD694CcXsfkvi9+/DukoLj +UPbrqe/Kp/R8Q8zaLQs2oPlG06eM9sZ/NefWvrWBzsI6b6tWEs9cbOUQKLeB +nxYVHlXPSNTYEjZc6moDex5lOjk+J9FM71Hxoz5raAn3s2h5TXtzTJtRuxV8 +4JTUiuwlUd227fzaJgv49UOnktFH1+/vk+/v8yyAd8CV8YR2sY9YypNoCzCp +LOfg6Cfx7iH+6UVDC3hhqfk8+jO9vs7I40OvOdSXHD8SN0Lif6sVNqotH4M8 +oyynxBkS/cv+VrWZmkGTcvM7hVm630v05TXVzOCz5JheF+3q2EDubkkzEJmX +3b7pG4nJ2rkJ+2ePQkpW/UzyDxLv8ZIeoZeOwsXZT4HpCyTO1nUo9raZglei +cFw2G4W5J/PqK82OgMls83mjlRR2zv6WOw9HYJeRe9ASbVadJ0Me1BFYXvPA +9RgHhTuW0mNT5g/DpXAzvQ1rKKxS2+y4O/0wFJ1MZA/jorBn5Z+ppEETGDNa +HWYrQKHItg/2wxeMob3kbsA/ghR6731/+O9JY7jDaeb9kPaVhs0tClbG4P80 +34ZPmMIOvqiKLwrGwKGhrd4hSqFGxrkGh8FDwJAJ/a3BoHDdndr6Tq1DcHzt +Dz/RHRTKf575c1TGCN4E7R1opM2z1bOoYK0RaE1c1XeQo1DZttVMbMIQpNqU +RAvkKRwJChUIvm0Io1EBrfKKFH6W6JkckzIEzxWLAjoqFLaLHxrzkzoAQQus +De7aFOLZHIapmgFMuphs5dpL4QdiaPuyqAFYvb+ZVEY7pDUo7gmrAWjUaLv8 +1KGQ6LB7dq9VH1hPX9h4To/C8ktMHz5TfYiZXe2YaEjh4MnvDZWn9SB5bP2a +WjMK/bOa9/u81IVb/Uuax45R+HApuNuhShfuvf0aNE/7dm9ZpE+GLrxvbp5S +sqBwZ6vD+CdXXRDMDnhdYUVh+sC2zPlVupB9bCC1xI7C/o4KEV59HShqu0Nm +u1PY5vLUEvu14WFjhi14UJj0Snyb/TNteFETk9ZPm/N5f11GhTYw8+05Rbwo +9DAxaDeN1ga587zT6ScpTOn9+eSLvDZU7wmtTjpN18eoL9MgTgsaiw33Rp+j +cF/qwy+FRpqQwlvPphhG4cXjTvzzKprgES7b/Jl2zn7uJ1aEJvCbrdfac57C +SPufG32WEHxWvAFmJIUuetecHhQjSJofUT0cS6F9yq5nNVwIkRyWCmLJ9H7m +Iqp7n6uDhc/z/57TNvV6sT7ptjrI9amWB6ZQ2GvHJbcuUh36yoXlOlMpbNli +cfmsujooWffLXLj2/3xK3A9VqMFopd3WySwKPZe8iq7lqoKenYt4TRGFTn/q +1fxyVaD4U7jJsWL6/WYGXa+PUgEui4zIBdot7mUdW9xU4K3Jq3HVUgolw2oJ +K3kVsN+rWN54l67HnWsv9jxWhmCKRau9ikLXr29sH4zuhjvMVIdP9RTahXDc +69u3Cza6lSeHNlDYaHZr+rPsLvAbbW8Va6TwZtnSGAvvLtgzsLzd/jGFZZo2 +uUnDStD62uHHaDOFXYns31gilOBz5Y4Ls88o3Mo8wTLYogg8Qa232LroeDrV +XUzLnWDgLJFWQzvHzkeoRHsnnD8SfNG9m0ItcfPImO07YVZ2h0fXWwqtwsXJ +jEUFeDWUIp/7nkITHdciqUwFiDF0qtPqp1DsqM/+myPysCTO3hn+lcITqSp6 +DnFysJPLtllpgsJNcuwuOf5y4LZ4v+or7ZiXx60X7OTgw1uPVOMpChVSh/Tn +lOXgXmy3lcQMhc0bbP00X+8Anx+5Y40/KLR8ODKmkiILBYPL7/1+UnhAXvB+ +l7csfH5l1r5ljsLHTpo2mfqyYFS4tvTKPN2PhcKaDcsyIG1zyvf4bwqvBQWw +7naRAYf9Lx02LVIo8+2hmL62DFxTpkyf0b6gc2HvRVEZWMPTu1tuma5/nGBD +4ltpQBalrcO0nZv251mWS0Mg87Jg2h/6/6h7fsc4Xhrufhxfe+AvhYkzc7f8 +XKVhtFVr+S/tNHlP0xYdafgf6xm76A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9129779236565583}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9129779236565583}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk4lk0XAHASlXpVlH333PfdghBFlnMQoShKsmfJvkRCRESI9IZsSQhl +LWtSQijRopAWIlnDg7eFhPru76+5ftfMNWfOnDkjYe9tcmIFCwsLLysLy/9H +QeVH9CCO106cDxLZzYTOsMVX2bTX+3qtyFFiQmybSoYmqzienVp8KaXIhN8W +93ZGrBBH/1dPZCl5JnwIuevIwS6Oq25d5yK2MyGtOefpOk5xNF7jyLYsyoTN +B6NiBTaJo/fHlVlCHEzY4HSQe+cWcazBfQ4rOqfA8UJ9U+thcZSPzfz3rukU +/F7lK3LmrDgKlI6TTp2TEO27T8wmTxzfnWN5xtCaBJ9XC4/zOsSxP/Bcd3/i +BNyIn+Va/UscrdUVwvz7vsIWjZalF1ISuOa0cYcE61co6KlNeGIkgT0Nbdc2 +84yDe+f31x/9JXBSPSrbTXwM4ho4y41vSuDhtoQjiytGYXq9k+pIuwTG3DVz +sh4ehn16Qx4l3yRQJn/p6mDtEPzxUYe3IpLYcqazv8nxC8z/6X0oqCuJwptd +kpUEBsEoxOzDYx9JbJDN4VlxcAAyhn5kXr8uiYbfLEI2efXBttKedVdbJHHV +BhHp0voPwOeSLMyckcRkaRdbvs89oBuV1mPPL4ViRo1z33S7oSs5UH7PXink +JZ/tMEp9A0fjg3bqeEuhQ036WXWNVyA03jjgkSqFK/Le1TOX2kBDcVh6rkkK +3yzwv0x58QRyh/Yzrk9K4YtCjcVaoyb4G/S26TQPAxVbliUsrtTDfTa1FeUa +DNQZEh4J7b8PVTOjk6udGVgiY1DseKQKtq3f2FlD+3jKwjY9rSrIklW97+TC +wBXL/LeV5aog1vPfyBZXBq7coRGG66rAdnK3SJgHAz+0BZGTLZXAORZjNO/D +wBOLZg9uK1fC8f5t5SNnGZgfs3tT+tYK+Oell39TIgMlazTntsuVgaSf0nav +JAaeTNS55iZRBspCSwMCVxkoOszlW8VdBvauF/V9khk41O9l1DVxF+6x5wmL +pzHQhZoQrfS/C8c1PjSFZDKQ7/5FseTEO1B1V3u9SgEDe3xEcpI/loBVIn/B +3UcMPLfNNVuwsBD+GMR0HKxn4IWNY4PBiYWQzfZrboa2yI1ru6eDC2HE752O +XCMDV0vKL7IfLAQvs5ShsiYGLnOxDrPMFUCY8CaxilYG/rqRpS28rwDyb61P +qXrDwGTl7xGFP2/B9AOOyNoRBiqtM98jeT4Pjo4tyDuPMtBsjjkz7ZkH9TzM +gU1jdHy/KxtfmudBvEeX6slxBipwRrs/ks8DadHs7+QkA99w+6p5fskFt3AV +h6uztJ3d3P/q5sLoPg8t70U6n6KH+7KEb8Kn7jcsxEYCrXMLehuns6CT20ui +lfb1zW2jUa+z4OkhTi1XbgJt3c3DnSqyoOyFVkQpD4FsTnfEfP2zILKlkn0X +L4E3thSK1v69Aduqkjn3CRHIXPeOMc97A/yTzDe5EgS+looMrzO7DutNBqlS +FQLDOi87tIumQx6fIN+BPQQ+n/PLmOBIB+VPJhyTtK+sSnUXm0kDe5eW4S1q +BN1PAelPG9KgKvR2Tp4GgetYff5dY58G5sWeQte1CVy81MBnWpQKuSt/c8UZ +Eui0biI+Uz8Fdtdwz7nYEagxeTR9sCEJEmdfuW+2J3Ala/Nv3uIkmNoaN/iY +9vS1y6HHU5Ig+zrbS0FHAtcIOBbt8EyC1ed/5L5wIrBojOVxnVASvD/QYyzn +QaC0iu2ZiLOJEPQlvXTen8BoNZlLxgcSoFvoqFReAL3f+GLspEoCyJpypx8K +JLDkY+ztVCoBvrTGRhaeIXCt+qdFgi0B9pcGW1qeJfCyvpCdwMMrIBxovaYh +nMBjesyHhrJX4NE/EieiLhH49YjUnlXalyHvWJQhFU9g/OLArirGZbiUO6n0 +jHbOROK5EI7LYKFyj4PzXwK17vWmOrbHw5zj/oL4BAKrwxhW5w/Hw46605NX +Uwi8E2LJGHe7BDlu7T652QSGV+yXaSiNhZjqHRZ7cwhUDNUtbUuMhZMsyVoj +tJu+3y5hBsSCRootD5VLYEtEW1e4Vix8fPyjqiifwO3r2zzfv78IPAJiv8qL +CPwwwmIszXkRLrSeCm2sItBC1q76U2g0KERZMb2qCVRWlahgOkZD/14dK5F7 +BO5W3nmdf380KDfx7gmqIXCo+mNXPV80TNTV/tz5gPZ/SrwGFVFgVPHX43YD +gQ398Qd0py4Af2ac5eV2At/F2wZJn4qEFku/drXnBJbFWH90s4oEH0FrlUna +jVWR1GOdSGhPleXTe0ngJzZu2Wr+SAhJfNPJ+prAyUvuPvcbIuBLNJ/B6bcE +iuQUKfFzR0Cxb66y1WcCVcrE/XNbw2FYS0nwL+3gKc8v7NXhIMrTupgzSGBg +w8WXQTfDIbFyon7sC4E77//qywgJh8Af8jqnRgh8z7Ppn1rFcNDxbzSOnSBw +yYYA41thMHDmk9v9HwS6lnu9Xi9zDvgNvA9Y/iRQYFhDQmndOTARZJX9Q3uo +IcIjeDIUnj5g/Kc9T+DB7NBAt6JQKFl0D+hYoOM3s/N2bA2FMyG/I0b/EGgw +Y66YJhsCPOF8mZvWkLiRzQSsDwbD1HsdwyraSV8Ppi0oBMNTOb/lw5wksugf +JSt4gyHw82vrpLUkxlimngnoD4J+iBXl5iJxb6/CtkPeQVD0ZylrPQ+JdUlN +dlIpZ0Dr7JebnCIkFqRNPLk5HwDC3RsOF9FmWI/PXO0PgJ/bgc1AlMRTI4m7 +sp8EQEFvhsNFMRLbDTbXsV4NAC5VU8ZqSRIzuAWEpuUD4ONCaz47RaLoJtUV +x3z9wSegtIBFnsSt5p+Eulaehg3atgOltMvCXn/tn/KDO1wbeS0VSMxn9fy1 +8q0fTOX7RVTvJBED292z8v3ApVvVxm0XiQd9Ux5x6vnBcfl2nm5VEq+/Sv4v +N+EUHJwcDb2tS6LI75oC6d2+MH0vrfrIPhItNZv4jSR94dJ5gylWPRINz15I +i/rHF9oF7phb6ZPIFFJwVhv2AV2904obD5AolDqdfz/RBzTy2SaCjEm8EWvP +P/D9JMjYipsaWZF4jtGUEH3JG46pBf+Zof1NnBmV5eYNkQI9txOs6fUzPA8+ +6nlDX1fc724b+nw3bx18wO4Nl/TmsyztSCzNHTolGO4FU/KvJlycSBx2zBzB +UE8oWXk2LOIkiezOtS0aCe7wfrBnK+FD329AZVzIKXdY2SDf9ZT2287Hfr2m +7mB1ZozgPEXixQBd+R+C7rBu2uT5ldMkztvrzSffcgOPd1t5bwSRqPDthkxY +sytsL3pXfD+SxEMzJ1LEeVxAeLG61/kCidsT+qT65pyB68DVtXxRJLpTsrM1 +H51hlnnI/XQ0iY9D1tR23HSGe/Lt2xRiSXRaGFc7q+gMWrV1hcX/khhx9+ua +YmsnMH+Wc/vGNRIVuVIz/Z86goFA2DvDDBIvv3uU8qvUEdTcbFYt01Ya5ytN +SXYE0XVCzpaZ9H1jRzV5whGGD14l+bNJfFfB8ymR3RFOvovKT8gnUTM+my98 +vwNEj7rnRpbR8VdrE+MTdsDfMJojV07inLr/MG+PHRSl2mX30e5pi1OzfmwH +L/TMMhUrSRS/f/WQXJodcBdrpQ5Xk+hpbqbB1LWD694CcXsfkvi9+/DukoLj +UPbrqe/Kp/R8Q8zaLQs2oPlG06eM9sZ/NefWvrWBzsI6b6tWEs9cbOUQKLeB +nxYVHlXPSNTYEjZc6moDex5lOjk+J9FM71Hxoz5raAn3s2h5TXtzTJtRuxV8 +4JTUiuwlUd227fzaJgv49UOnktFH1+/vk+/v8yyAd8CV8YR2sY9YypNoCzCp +LOfg6Cfx7iH+6UVDC3hhqfk8+jO9vs7I40OvOdSXHD8SN0Lif6sVNqotH4M8 +oyynxBkS/cv+VrWZmkGTcvM7hVm630v05TXVzOCz5JheF+3q2EDubkkzEJmX +3b7pG4nJ2rkJ+2ePQkpW/UzyDxLv8ZIeoZeOwsXZT4HpCyTO1nUo9raZglei +cFw2G4W5J/PqK82OgMls83mjlRR2zv6WOw9HYJeRe9ASbVadJ0Me1BFYXvPA +9RgHhTuW0mNT5g/DpXAzvQ1rKKxS2+y4O/0wFJ1MZA/jorBn5Z+ppEETGDNa +HWYrQKHItg/2wxeMob3kbsA/ghR6731/+O9JY7jDaeb9kPaVhs0tClbG4P80 +34ZPmMIOvqiKLwrGwKGhrd4hSqFGxrkGh8FDwJAJ/a3BoHDdndr6Tq1DcHzt +Dz/RHRTKf575c1TGCN4E7R1opM2z1bOoYK0RaE1c1XeQo1DZttVMbMIQpNqU +RAvkKRwJChUIvm0Io1EBrfKKFH6W6JkckzIEzxWLAjoqFLaLHxrzkzoAQQus +De7aFOLZHIapmgFMuphs5dpL4QdiaPuyqAFYvb+ZVEY7pDUo7gmrAWjUaLv8 +1KGQ6LB7dq9VH1hPX9h4To/C8ktMHz5TfYiZXe2YaEjh4MnvDZWn9SB5bP2a +WjMK/bOa9/u81IVb/Uuax45R+HApuNuhShfuvf0aNE/7dm9ZpE+GLrxvbp5S +sqBwZ6vD+CdXXRDMDnhdYUVh+sC2zPlVupB9bCC1xI7C/o4KEV59HShqu0Nm +u1PY5vLUEvu14WFjhi14UJj0Snyb/TNteFETk9ZPm/N5f11GhTYw8+05Rbwo +9DAxaDeN1ga587zT6ScpTOn9+eSLvDZU7wmtTjpN18eoL9MgTgsaiw33Rp+j +cF/qwy+FRpqQwlvPphhG4cXjTvzzKprgES7b/Jl2zn7uJ1aEJvCbrdfac57C +SPufG32WEHxWvAFmJIUuetecHhQjSJofUT0cS6F9yq5nNVwIkRyWCmLJ9H7m +Iqp7n6uDhc/z/57TNvV6sT7ptjrI9amWB6ZQ2GvHJbcuUh36yoXlOlMpbNli +cfmsujooWffLXLj2/3xK3A9VqMFopd3WySwKPZe8iq7lqoKenYt4TRGFTn/q +1fxyVaD4U7jJsWL6/WYGXa+PUgEui4zIBdot7mUdW9xU4K3Jq3HVUgolw2oJ +K3kVsN+rWN54l67HnWsv9jxWhmCKRau9ikLXr29sH4zuhjvMVIdP9RTahXDc +69u3Cza6lSeHNlDYaHZr+rPsLvAbbW8Va6TwZtnSGAvvLtgzsLzd/jGFZZo2 +uUnDStD62uHHaDOFXYns31gilOBz5Y4Ls88o3Mo8wTLYogg8Qa232LroeDrV +XUzLnWDgLJFWQzvHzkeoRHsnnD8SfNG9m0ItcfPImO07YVZ2h0fXWwqtwsXJ +jEUFeDWUIp/7nkITHdciqUwFiDF0qtPqp1DsqM/+myPysCTO3hn+lcITqSp6 +DnFysJPLtllpgsJNcuwuOf5y4LZ4v+or7ZiXx60X7OTgw1uPVOMpChVSh/Tn +lOXgXmy3lcQMhc0bbP00X+8Anx+5Y40/KLR8ODKmkiILBYPL7/1+UnhAXvB+ +l7csfH5l1r5ljsLHTpo2mfqyYFS4tvTKPN2PhcKaDcsyIG1zyvf4bwqvBQWw +7naRAYf9Lx02LVIo8+2hmL62DFxTpkyf0b6gc2HvRVEZWMPTu1tuma5/nGBD +4ltpQBalrcO0nZv251mWS0Mg87Jg2h/6/6h7fsc4Xhrufhxfe+AvhYkzc7f8 +XKVhtFVr+S/tNHlP0xYdafgf6xm76A== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9129779236565583}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.9129779236565583}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.9925205012232227`*^9, + 3.992520510620716*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"7df8d60c-e113-4532-bba7-7129dec8fbbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519993740715*^9, + 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ +f05e39e52441"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519995212555*^9, + 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ +f5e698425a9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9}, + CellLabel->"In[27]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.165, $CellContext`xmax$$ = + 11.92, $CellContext`xmin$$ = 7.4, $CellContext`ymax$$ = + 0.895, $CellContext`yyv$$ = 2.5, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {108.8450822477815, 114.4700822477815}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {197.7607072477815, 203.3857072477815}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9, + 3.992520514669971*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"a7410862-a79b-43ab-aa03-d8027e362762"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[32]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.992520622804646*^9, 3.9925206243210278`*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVx3k41AkYwHGTrmmNNpKU5Te/g8gRXXjofTs2cpsem81ia2ozSkiOHbVt +B8k968g2mYa0WmGjSBjGs7SWbCJHemzFhAfjfPYp69rZP77P9/lwj4fwTi5T +U1NzU/X/149wVCPQa9WxADezXJBI7cXRKoca1BdymVzYcuT0jimVDbYRvZ++ +yAX7hqbv+lkEqg0mvPttbS7wJVdbGtQJ3Jw6HYwzUijjzWbcWEVgWKCheKRK +Cp7VCmPttQTy6K42X1cpJCdVuxkZEEgdL8waH5eAhkKzvXMPgZeiGwY6b4lh +IVan66gfgUc7Olz127JhKDPi5sEYAu8vCE04PlnQfTRGVC0mMKYs1mFkIh1s +g3Z8trKKwDmDyrTuURHkWqTLXvcSKJ2Kj5CPpcKyYy7m6+cIPLTfvtrzYhJ0 +9lXo03pcXPJTXg/KuQEla5sOyGy52LZreINJexzMJiaNbfXh4iPPYqXbhWtg +H1noxYrkIk9riqUXfAVidc5OBGRxUcYuyfQ78yPgkkIj4zEXn8ZWOI1fuggs +CYvv1clFzJwPfItCqC6Mioz4h4vr6CfRsYIoGGLlskO0SbRtn/GcYEeAnmZo +59R2En27UtQ4NedAdmKacOaRODZ+z63wRSicCt10b2s4iRMKkTzvQzCsGREP +hqeTOAIFwu67QWBY0lYgKiXRKVyQ0zt6CuyMH+TatJNo5mHy/vNDJ+GPEZvN +5ZMkmoT0qJtt4IOrPsHL1qSQE6VsLDM6Bt3LiuuXW1LoxvcaOJ/oD6+2Kx8e +dKOwPHrQeDjQF7r1OnrWnaVw42yysjTABzqCtWr3p1BItV69/U2lN+zVWEG5 +FFFYIXffc+HyYSgPyJG/eU6hcWmrUYuvF4gXhvv2jlKYhTG1FaQHCNkplZps +Glu8jV6WzrlAQHNPywkTGp8KXljrjjlBRWeXf5ojjTGViQkC/4OgnSU0/TKQ +RqefJoPMPuyHfunLiBdxNP4StWVxd+de+FXvyg/yfBpvsaoa5csRIh176uwa +aRxyFfTxr9lDed37HxMGaNxo7ZDWn2EL/46lCfnLGZQkhzxNke0Cm/ifre7S +DDKFg2F6+3bAcLB3YOU+Bi3Dg24vWlqDZPWT7q/4DJp79PPtLbbBM2XLs+bL +DK4xCmutVzeHIbQLv3eHwZ35IRbKdaagecjdhy1nUOA40Ou1yxgKxDqyfX8z +yOPNXqFf0ZDG0Sv7U+XW2TMu2s00CC/pF3i+ZVAkPjK1Uk6DK58S+b9jMH+r +2fP5BzRMmlqdFPYzaCJ0vkBeo8GmypVTNsig9olW2eGdNDT3XPXjTjDoFa+o +dhBT8Mj5Ou++yjUhRPXvIgpu1yQ4Wk4yWJzY6O4eT8FZqcjKYYpBu4ZzpmER +FGgF3lnx9QyDVnn3I5QeFPh+rCpO+8gg+3FUWO0KCg4IavN0PzHowtZ9mDRP +gsWb+psSlY+P7f42YIYEtbqmy0WzDC4QAg2t9yTkx3V5N80xWJVZ4lNUQ0Ly +p9fOHvMMAj96KOcRCZFBfdClcovh4670QhKc3BUmigUGnTZx/krKJsFKPmRw +epHBjLrpl6mpJGyyHtWeVtmH+8b8ZhwJ6vnjq79fYtBwseht3kUSxnSmF5ZU +ztb1/FB2noT/ADi/IyU= + "]]}, + 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:eJwVx3k41AkYwHGTrmmNNpKU5Te/g8gRXXjofTs2cpsem81ia2ozSkiOHbVt +B8k968g2mYa0WmGjSBjGs7SWbCJHemzFhAfjfPYp69rZP77P9/lwj4fwTi5T +U1NzU/X/149wVCPQa9WxADezXJBI7cXRKoca1BdymVzYcuT0jimVDbYRvZ++ +yAX7hqbv+lkEqg0mvPttbS7wJVdbGtQJ3Jw6HYwzUijjzWbcWEVgWKCheKRK +Cp7VCmPttQTy6K42X1cpJCdVuxkZEEgdL8waH5eAhkKzvXMPgZeiGwY6b4lh +IVan66gfgUc7Olz127JhKDPi5sEYAu8vCE04PlnQfTRGVC0mMKYs1mFkIh1s +g3Z8trKKwDmDyrTuURHkWqTLXvcSKJ2Kj5CPpcKyYy7m6+cIPLTfvtrzYhJ0 +9lXo03pcXPJTXg/KuQEla5sOyGy52LZreINJexzMJiaNbfXh4iPPYqXbhWtg +H1noxYrkIk9riqUXfAVidc5OBGRxUcYuyfQ78yPgkkIj4zEXn8ZWOI1fuggs +CYvv1clFzJwPfItCqC6Mioz4h4vr6CfRsYIoGGLlskO0SbRtn/GcYEeAnmZo +59R2En27UtQ4NedAdmKacOaRODZ+z63wRSicCt10b2s4iRMKkTzvQzCsGREP +hqeTOAIFwu67QWBY0lYgKiXRKVyQ0zt6CuyMH+TatJNo5mHy/vNDJ+GPEZvN +5ZMkmoT0qJtt4IOrPsHL1qSQE6VsLDM6Bt3LiuuXW1LoxvcaOJ/oD6+2Kx8e +dKOwPHrQeDjQF7r1OnrWnaVw42yysjTABzqCtWr3p1BItV69/U2lN+zVWEG5 +FFFYIXffc+HyYSgPyJG/eU6hcWmrUYuvF4gXhvv2jlKYhTG1FaQHCNkplZps +Glu8jV6WzrlAQHNPywkTGp8KXljrjjlBRWeXf5ojjTGViQkC/4OgnSU0/TKQ +RqefJoPMPuyHfunLiBdxNP4StWVxd+de+FXvyg/yfBpvsaoa5csRIh176uwa +aRxyFfTxr9lDed37HxMGaNxo7ZDWn2EL/46lCfnLGZQkhzxNke0Cm/ifre7S +DDKFg2F6+3bAcLB3YOU+Bi3Dg24vWlqDZPWT7q/4DJp79PPtLbbBM2XLs+bL +DK4xCmutVzeHIbQLv3eHwZ35IRbKdaagecjdhy1nUOA40Ou1yxgKxDqyfX8z +yOPNXqFf0ZDG0Sv7U+XW2TMu2s00CC/pF3i+ZVAkPjK1Uk6DK58S+b9jMH+r +2fP5BzRMmlqdFPYzaCJ0vkBeo8GmypVTNsig9olW2eGdNDT3XPXjTjDoFa+o +dhBT8Mj5Ou++yjUhRPXvIgpu1yQ4Wk4yWJzY6O4eT8FZqcjKYYpBu4ZzpmER +FGgF3lnx9QyDVnn3I5QeFPh+rCpO+8gg+3FUWO0KCg4IavN0PzHowtZ9mDRP +gsWb+psSlY+P7f42YIYEtbqmy0WzDC4QAg2t9yTkx3V5N80xWJVZ4lNUQ0Ly +p9fOHvMMAj96KOcRCZFBfdClcovh4670QhKc3BUmigUGnTZx/krKJsFKPmRw +epHBjLrpl6mpJGyyHtWeVtmH+8b8ZhwJ6vnjq79fYtBwseht3kUSxnSmF5ZU +ztb1/FB2noT/ADi/IyU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11}, {0., 0.033541124241777916`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11}, {0., 0.033541124241777916`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3k41AkYwHGTrmmNNpKU5Te/g8gRXXjofTs2cpsem81ia2ozSkiOHbVt +B8k968g2mYa0WmGjSBjGs7SWbCJHemzFhAfjfPYp69rZP77P9/lwj4fwTi5T +U1NzU/X/149wVCPQa9WxADezXJBI7cXRKoca1BdymVzYcuT0jimVDbYRvZ++ +yAX7hqbv+lkEqg0mvPttbS7wJVdbGtQJ3Jw6HYwzUijjzWbcWEVgWKCheKRK +Cp7VCmPttQTy6K42X1cpJCdVuxkZEEgdL8waH5eAhkKzvXMPgZeiGwY6b4lh +IVan66gfgUc7Olz127JhKDPi5sEYAu8vCE04PlnQfTRGVC0mMKYs1mFkIh1s +g3Z8trKKwDmDyrTuURHkWqTLXvcSKJ2Kj5CPpcKyYy7m6+cIPLTfvtrzYhJ0 +9lXo03pcXPJTXg/KuQEla5sOyGy52LZreINJexzMJiaNbfXh4iPPYqXbhWtg +H1noxYrkIk9riqUXfAVidc5OBGRxUcYuyfQ78yPgkkIj4zEXn8ZWOI1fuggs +CYvv1clFzJwPfItCqC6Mioz4h4vr6CfRsYIoGGLlskO0SbRtn/GcYEeAnmZo +59R2En27UtQ4NedAdmKacOaRODZ+z63wRSicCt10b2s4iRMKkTzvQzCsGREP +hqeTOAIFwu67QWBY0lYgKiXRKVyQ0zt6CuyMH+TatJNo5mHy/vNDJ+GPEZvN +5ZMkmoT0qJtt4IOrPsHL1qSQE6VsLDM6Bt3LiuuXW1LoxvcaOJ/oD6+2Kx8e +dKOwPHrQeDjQF7r1OnrWnaVw42yysjTABzqCtWr3p1BItV69/U2lN+zVWEG5 +FFFYIXffc+HyYSgPyJG/eU6hcWmrUYuvF4gXhvv2jlKYhTG1FaQHCNkplZps +Glu8jV6WzrlAQHNPywkTGp8KXljrjjlBRWeXf5ojjTGViQkC/4OgnSU0/TKQ +RqefJoPMPuyHfunLiBdxNP4StWVxd+de+FXvyg/yfBpvsaoa5csRIh176uwa +aRxyFfTxr9lDed37HxMGaNxo7ZDWn2EL/46lCfnLGZQkhzxNke0Cm/ifre7S +DDKFg2F6+3bAcLB3YOU+Bi3Dg24vWlqDZPWT7q/4DJp79PPtLbbBM2XLs+bL +DK4xCmutVzeHIbQLv3eHwZ35IRbKdaagecjdhy1nUOA40Ou1yxgKxDqyfX8z +yOPNXqFf0ZDG0Sv7U+XW2TMu2s00CC/pF3i+ZVAkPjK1Uk6DK58S+b9jMH+r +2fP5BzRMmlqdFPYzaCJ0vkBeo8GmypVTNsig9olW2eGdNDT3XPXjTjDoFa+o +dhBT8Mj5Ou++yjUhRPXvIgpu1yQ4Wk4yWJzY6O4eT8FZqcjKYYpBu4ZzpmER +FGgF3lnx9QyDVnn3I5QeFPh+rCpO+8gg+3FUWO0KCg4IavN0PzHowtZ9mDRP +gsWb+psSlY+P7f42YIYEtbqmy0WzDC4QAg2t9yTkx3V5N80xWJVZ4lNUQ0Ly +p9fOHvMMAj96KOcRCZFBfdClcovh4670QhKc3BUmigUGnTZx/krKJsFKPmRw +epHBjLrpl6mpJGyyHtWeVtmH+8b8ZhwJ6vnjq79fYtBwseht3kUSxnSmF5ZU +ztb1/FB2noT/ADi/IyU= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11}, {0., 0.033541124241777916`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11}, {0., 0.033541124241777916`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.992520611572049*^9, + 3.992520624917741*^9}}, + CellLabel->"Out[30]=",ExpressionUUID->"152566a6-a669-49d8-ad11-fa9dbc71a607"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519998013506*^9, + 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519999593614*^9, + 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[31]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.57, $CellContext`xmax$$ = + 11.040000000000001`, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 0.036000000000000004`, $CellContext`yv$$ = 1.213, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691962`, 115.83105478691962`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9, + 3.9925206355923433`*^9, 3.9925207154936523`*^9}, + CellLabel->"Out[32]=",ExpressionUUID->"a9470095-054c-491b-91f5-c640b3d7f854"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "8.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9925207528418407`*^9, 3.992520755779234*^9}}, + CellLabel->"In[34]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0nk81PsaB3Ak2SpJGmP5fRGGDAZTOjHPk7JNWbImN2S4KFlKpVQUTsI5 +lsq0kQplOSoq+3IoFVIpjo5LUZHUtSUqzbm/+8fzel7v/z6v1+ejGRDhGiQh +JiZ2kb7/f81fwxaIiTGQG/xhTNa5G6R21kg8pv2gLjYszb4bPq2XlsgSZ+Dm +jX/+vsS6G6omr4mtWsBArYaLNUrcbnDZ0ffTToqBl2OUGlmq3XDMnD+XLs9A +2biOrxEjL6FvSO8zpcJA+x82s8fiX8JZeNsDpgx86xYZXH/nBTTohldUhzBw +xZu6xNaFXfD9VGeg8CIDG2UMpBNPPAMDZ5Xr+58wUONu4fI8dicstY6Z+m2B +Co72O8TnQjssul2qKLtGBS8EGpo8L34Edxxn1jeFqWD/njESLtcKHltYXw9c +VUHfto1eA4UtIPPQJCnzpQomyo80C8/+CXsjHNWHZZn4YyZ046xsI/z3NKTk +WjERqjIncpJqwZepluwVwcT94g4zZn5VkNApn84vYOK7bMeNAru7UCvq2nXl +LyYOGH5l/11WDjf+9Yez6RJVFJw6O1lvcAuS1fY+aNmoihcbBxovfCmBI9vk +Far3qyL7w2rbtx43QKe5RvChRBVTtwk6A1/nw+B1XlrsgCrGmdaV7JO5Cq61 +PfX2K9TwZd1xF8u7uXDPxDteebMaSifMByXqXAC21u2V9kfVsORtWhIjOhu8 +N6hXVVSo4YyZ7VamKAvO/ceXnTCshlp3c+2N12RA+6sUMzeGOq7S3RV85F4q +VEi2W+9wUsdU66zQY+4noazkjW57vDrK9I9MDHYngG+8rNK+SnWU1xWX/udi +PEhUamSpflZHyfEaIt8fC9Wh0u/1KA18fk/xl4Lcg6DDl9oQ7qGBx99b2lpV +7YP8wldRjGQN1PHJ5g/kR8LKIKFZS7UGMlxN21r0wwC2hoquj2tgxdJ6vZKD +wXC4WiF3QpNCrcHbWtyHAui6XnGjTYvC1mqNhl+rBGCQ7VmRr03h7pJLs0NF +Ani199KjbToUZtp469WmCcDCkDXdxKLwU0596airAL7mgn2mMYUzg9MzFoMB +sDcxfIpjRWHynoLS8IUBsMu5w3bfNgoZ3Sb993b5Q/np5jc8bwovjYQa2fv5 +w/e/qg7LbqfQeETPdtDNH1L8C8qu+FDIM+++Y2DlD8VRx5Sf+VJ4/scKcaaC +P4ydNhk2DKLwoWrPm/ZwPwjrPZM0HEVhBieRr7nSF/bs3HHfO5VC/RIbZacs +H7B0FvprplE4XOLIDYnzAXmr5/MfaEf63BBPD/OBUoYNN+Z3Cms0Dh2XsPOB +T08NC7MzKVyy+bxF/Px22MWbP/lCSGHTbNOep6HbIUT14mbHfAo57BdWSY7e +IOju7cJ6CmeZEol5a73g4/K1XioNFI7Wrshw0vWCSNezfZO0zZlH7GRWeMGx +p1vfXW2i8Hiux5n8KU8497htRvI+hWMOGqVRZZ7QWV/HeNxGYXbHY2VflidY +FOb5bu2lMLZ6YtVGHQ9YcjDk485pCi9L1Xjv3uAGSXJM0eovFK5KWD7z1cwN +5i+3L/tKe/+nyx2pum7w8ZHRupSvFNYWla58LucGrcyZk+Xf6PzC8ajHPa4A +r5uyxMUINmqWD+8Od4XZE44mrlIEDSwTVjrlb4Xgtn/vnlYkuOyQsbStvguI +6raO+i8nyKpmuImpu8CZm5bBnbQFgdzHLQou0HxGUVCkRFBe7g+Ljgln0PBr +2O6nTLDIttLeOMMZeqZX8NtVCJZkRM26dDnBJvUHrGuEoLizMOqGwBE0I7WH +XY0IXl98pXu6kg9H1poENdC2V0n2/naNDz0iy3f6xgSd3VrOLs7gQ9pvnkNi +JgTHr/TIB4TwYa741EAZh+C+heGd1Sp86Hw/3iPLJTjaZBynGucAsT51D5vX +E0wW71zs724P3bYeRaYOBF/mRvo90rUFVrXcRDbtQZKqx19pC4dXN6/5QTtj +dUdezyJbIArG91v4BLXC+k8tHbWBsFfSr923ECyuX7hHrNQGJMPqlA46EzzO +UbTqNbMB80zt+FoPgp5TjtrGmzfB6b5Jz00BBDX6o26JC63B+kDNstu0rU2N +Pr9JtoYJhYQOdQFB7wzug7bD1rDFVsl6lvblZaN6Db7WIHV7Dbs4iKDtl+gB +LT1rOPRr7AKFUIJW/c88+6s3gB9n4a2+CIKGiQkPB4cRVp9kyOw7SlCpa1RS +v5YHXR0pqb20M+bX85wKeBCj+HMx7xjBkMwDPSfSedCaM6goE0dwbJX+N5VA +HvjfKVa7HE/w+ZNbr0WLeXBm0NKkPYHOe3JM5kKgFcyv3+mlnUIwgi8h1alm +CU8migpeZBN8YmTiJ1m5DizkePprhQS7ikTKSwrWwVWdrtILtO8ph/6y6vQ6 +OLD9e8XOc3SeDZuu7o9YB+Q+v3n8PEGh9k3ZUtY6iBaODcjlEHR1j5zxy7EA +Jo/N2HSNoJ7zgGxJ+loISb2VcucmQd+qmwHK2Vww6vQ8QW4R3CSYHqpI4sIX +hZ+H0minbSq/u2M/F+KzHUIDbxN0t1Mz6nHngvDKkJ1SBUHVij1h3kpcaK1U +Whh9j+CPyA/WV86ag/a7mDizeoKMgcOP5vLMYMByQ3R5G93H4TKj8V4OXDLI +NFvZTnD4YLC/TQcHtjMGp2Jpv1+1PDa/kUPvPT7KpoPgalGi69FCDnQWN4X3 +PiFYo5Pefy6aAw0MDBU9I+hg/nTpXkUO5H7h+fL/IthQPcdIcDcB31JL+6G3 +BB/YFz+rG2RD3hulRtd3BPudn7Fl29gwpPSZ20L77ZcQzq5yNgQfzdHOf0+w +pX5mcmcCGyKdRKKgEYIdV8UfGOmy4cRE493RjwS5S6d+4UQYwnXzjdqTkwRn +hby+g0tWw8cQ1Qs7pwh2xwXVi+YMwDBnWqGL9rx5Xkr2WwO4tTBfVD5NMNUi +7/ZclQHU9Ej+HT1D8GM7qyUp0AA6Yloz5uYIKvQuyqts0Iclf+QuCv1G8GZl +kKpdsT64DB449oq2hYawYvisPnQ76IXVfCcYk7he2nOPPgwwk+2OzBOcGl7x +flpNH4izf8Mn2n0eXqMSMvoQkGDB3fGT4IjTdKHmDAtGxj5o8UT0/oZN1X9/ +wgID8uf5MtrKsrvq+6pZEOZ+XoH6h+C5O1rDFoUsKEuOOplOe4ssL7UgiwUT +dQ6if2gPHS3M04xjwf8AyCU0FQ== + "]]}, + 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:eJwV0nk81PsaB3Ak2SpJGmP5fRGGDAZTOjHPk7JNWbImN2S4KFlKpVQUTsI5 +lsq0kQplOSoq+3IoFVIpjo5LUZHUtSUqzbm/+8fzel7v/z6v1+ejGRDhGiQh +JiZ2kb7/f81fwxaIiTGQG/xhTNa5G6R21kg8pv2gLjYszb4bPq2XlsgSZ+Dm +jX/+vsS6G6omr4mtWsBArYaLNUrcbnDZ0ffTToqBl2OUGlmq3XDMnD+XLs9A +2biOrxEjL6FvSO8zpcJA+x82s8fiX8JZeNsDpgx86xYZXH/nBTTohldUhzBw +xZu6xNaFXfD9VGeg8CIDG2UMpBNPPAMDZ5Xr+58wUONu4fI8dicstY6Z+m2B +Co72O8TnQjssul2qKLtGBS8EGpo8L34Edxxn1jeFqWD/njESLtcKHltYXw9c +VUHfto1eA4UtIPPQJCnzpQomyo80C8/+CXsjHNWHZZn4YyZ046xsI/z3NKTk +WjERqjIncpJqwZepluwVwcT94g4zZn5VkNApn84vYOK7bMeNAru7UCvq2nXl +LyYOGH5l/11WDjf+9Yez6RJVFJw6O1lvcAuS1fY+aNmoihcbBxovfCmBI9vk +Far3qyL7w2rbtx43QKe5RvChRBVTtwk6A1/nw+B1XlrsgCrGmdaV7JO5Cq61 +PfX2K9TwZd1xF8u7uXDPxDteebMaSifMByXqXAC21u2V9kfVsORtWhIjOhu8 +N6hXVVSo4YyZ7VamKAvO/ceXnTCshlp3c+2N12RA+6sUMzeGOq7S3RV85F4q +VEi2W+9wUsdU66zQY+4noazkjW57vDrK9I9MDHYngG+8rNK+SnWU1xWX/udi +PEhUamSpflZHyfEaIt8fC9Wh0u/1KA18fk/xl4Lcg6DDl9oQ7qGBx99b2lpV +7YP8wldRjGQN1PHJ5g/kR8LKIKFZS7UGMlxN21r0wwC2hoquj2tgxdJ6vZKD +wXC4WiF3QpNCrcHbWtyHAui6XnGjTYvC1mqNhl+rBGCQ7VmRr03h7pJLs0NF +Ani199KjbToUZtp469WmCcDCkDXdxKLwU0596airAL7mgn2mMYUzg9MzFoMB +sDcxfIpjRWHynoLS8IUBsMu5w3bfNgoZ3Sb993b5Q/np5jc8bwovjYQa2fv5 +w/e/qg7LbqfQeETPdtDNH1L8C8qu+FDIM+++Y2DlD8VRx5Sf+VJ4/scKcaaC +P4ydNhk2DKLwoWrPm/ZwPwjrPZM0HEVhBieRr7nSF/bs3HHfO5VC/RIbZacs +H7B0FvprplE4XOLIDYnzAXmr5/MfaEf63BBPD/OBUoYNN+Z3Cms0Dh2XsPOB +T08NC7MzKVyy+bxF/Px22MWbP/lCSGHTbNOep6HbIUT14mbHfAo57BdWSY7e +IOju7cJ6CmeZEol5a73g4/K1XioNFI7Wrshw0vWCSNezfZO0zZlH7GRWeMGx +p1vfXW2i8Hiux5n8KU8497htRvI+hWMOGqVRZZ7QWV/HeNxGYXbHY2VflidY +FOb5bu2lMLZ6YtVGHQ9YcjDk485pCi9L1Xjv3uAGSXJM0eovFK5KWD7z1cwN +5i+3L/tKe/+nyx2pum7w8ZHRupSvFNYWla58LucGrcyZk+Xf6PzC8ajHPa4A +r5uyxMUINmqWD+8Od4XZE44mrlIEDSwTVjrlb4Xgtn/vnlYkuOyQsbStvguI +6raO+i8nyKpmuImpu8CZm5bBnbQFgdzHLQou0HxGUVCkRFBe7g+Ljgln0PBr +2O6nTLDIttLeOMMZeqZX8NtVCJZkRM26dDnBJvUHrGuEoLizMOqGwBE0I7WH +XY0IXl98pXu6kg9H1poENdC2V0n2/naNDz0iy3f6xgSd3VrOLs7gQ9pvnkNi +JgTHr/TIB4TwYa741EAZh+C+heGd1Sp86Hw/3iPLJTjaZBynGucAsT51D5vX +E0wW71zs724P3bYeRaYOBF/mRvo90rUFVrXcRDbtQZKqx19pC4dXN6/5QTtj +dUdezyJbIArG91v4BLXC+k8tHbWBsFfSr923ECyuX7hHrNQGJMPqlA46EzzO +UbTqNbMB80zt+FoPgp5TjtrGmzfB6b5Jz00BBDX6o26JC63B+kDNstu0rU2N +Pr9JtoYJhYQOdQFB7wzug7bD1rDFVsl6lvblZaN6Db7WIHV7Dbs4iKDtl+gB +LT1rOPRr7AKFUIJW/c88+6s3gB9n4a2+CIKGiQkPB4cRVp9kyOw7SlCpa1RS +v5YHXR0pqb20M+bX85wKeBCj+HMx7xjBkMwDPSfSedCaM6goE0dwbJX+N5VA +HvjfKVa7HE/w+ZNbr0WLeXBm0NKkPYHOe3JM5kKgFcyv3+mlnUIwgi8h1alm +CU8migpeZBN8YmTiJ1m5DizkePprhQS7ikTKSwrWwVWdrtILtO8ph/6y6vQ6 +OLD9e8XOc3SeDZuu7o9YB+Q+v3n8PEGh9k3ZUtY6iBaODcjlEHR1j5zxy7EA +Jo/N2HSNoJ7zgGxJ+loISb2VcucmQd+qmwHK2Vww6vQ8QW4R3CSYHqpI4sIX +hZ+H0minbSq/u2M/F+KzHUIDbxN0t1Mz6nHngvDKkJ1SBUHVij1h3kpcaK1U +Whh9j+CPyA/WV86ag/a7mDizeoKMgcOP5vLMYMByQ3R5G93H4TKj8V4OXDLI +NFvZTnD4YLC/TQcHtjMGp2Jpv1+1PDa/kUPvPT7KpoPgalGi69FCDnQWN4X3 +PiFYo5Pefy6aAw0MDBU9I+hg/nTpXkUO5H7h+fL/IthQPcdIcDcB31JL+6G3 +BB/YFz+rG2RD3hulRtd3BPudn7Fl29gwpPSZ20L77ZcQzq5yNgQfzdHOf0+w +pX5mcmcCGyKdRKKgEYIdV8UfGOmy4cRE493RjwS5S6d+4UQYwnXzjdqTkwRn +hby+g0tWw8cQ1Qs7pwh2xwXVi+YMwDBnWqGL9rx5Xkr2WwO4tTBfVD5NMNUi +7/ZclQHU9Ej+HT1D8GM7qyUp0AA6Yloz5uYIKvQuyqts0Iclf+QuCv1G8GZl +kKpdsT64DB449oq2hYawYvisPnQ76IXVfCcYk7he2nOPPgwwk+2OzBOcGl7x +flpNH4izf8Mn2n0eXqMSMvoQkGDB3fGT4IjTdKHmDAtGxj5o8UT0/oZN1X9/ +wgID8uf5MtrKsrvq+6pZEOZ+XoH6h+C5O1rDFoUsKEuOOplOe4ssL7UgiwUT +dQ6if2gPHS3M04xjwf8AyCU0FQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 8.5}, {0., 0.3329493812358238}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 8.5}, {0., 0.3329493812358238}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0nk81PsaB3Ak2SpJGmP5fRGGDAZTOjHPk7JNWbImN2S4KFlKpVQUTsI5 +lsq0kQplOSoq+3IoFVIpjo5LUZHUtSUqzbm/+8fzel7v/z6v1+ejGRDhGiQh +JiZ2kb7/f81fwxaIiTGQG/xhTNa5G6R21kg8pv2gLjYszb4bPq2XlsgSZ+Dm +jX/+vsS6G6omr4mtWsBArYaLNUrcbnDZ0ffTToqBl2OUGlmq3XDMnD+XLs9A +2biOrxEjL6FvSO8zpcJA+x82s8fiX8JZeNsDpgx86xYZXH/nBTTohldUhzBw +xZu6xNaFXfD9VGeg8CIDG2UMpBNPPAMDZ5Xr+58wUONu4fI8dicstY6Z+m2B +Co72O8TnQjssul2qKLtGBS8EGpo8L34Edxxn1jeFqWD/njESLtcKHltYXw9c +VUHfto1eA4UtIPPQJCnzpQomyo80C8/+CXsjHNWHZZn4YyZ046xsI/z3NKTk +WjERqjIncpJqwZepluwVwcT94g4zZn5VkNApn84vYOK7bMeNAru7UCvq2nXl +LyYOGH5l/11WDjf+9Yez6RJVFJw6O1lvcAuS1fY+aNmoihcbBxovfCmBI9vk +Far3qyL7w2rbtx43QKe5RvChRBVTtwk6A1/nw+B1XlrsgCrGmdaV7JO5Cq61 +PfX2K9TwZd1xF8u7uXDPxDteebMaSifMByXqXAC21u2V9kfVsORtWhIjOhu8 +N6hXVVSo4YyZ7VamKAvO/ceXnTCshlp3c+2N12RA+6sUMzeGOq7S3RV85F4q +VEi2W+9wUsdU66zQY+4noazkjW57vDrK9I9MDHYngG+8rNK+SnWU1xWX/udi +PEhUamSpflZHyfEaIt8fC9Wh0u/1KA18fk/xl4Lcg6DDl9oQ7qGBx99b2lpV +7YP8wldRjGQN1PHJ5g/kR8LKIKFZS7UGMlxN21r0wwC2hoquj2tgxdJ6vZKD +wXC4WiF3QpNCrcHbWtyHAui6XnGjTYvC1mqNhl+rBGCQ7VmRr03h7pJLs0NF +Ani199KjbToUZtp469WmCcDCkDXdxKLwU0596airAL7mgn2mMYUzg9MzFoMB +sDcxfIpjRWHynoLS8IUBsMu5w3bfNgoZ3Sb993b5Q/np5jc8bwovjYQa2fv5 +w/e/qg7LbqfQeETPdtDNH1L8C8qu+FDIM+++Y2DlD8VRx5Sf+VJ4/scKcaaC +P4ydNhk2DKLwoWrPm/ZwPwjrPZM0HEVhBieRr7nSF/bs3HHfO5VC/RIbZacs +H7B0FvprplE4XOLIDYnzAXmr5/MfaEf63BBPD/OBUoYNN+Z3Cms0Dh2XsPOB +T08NC7MzKVyy+bxF/Px22MWbP/lCSGHTbNOep6HbIUT14mbHfAo57BdWSY7e +IOju7cJ6CmeZEol5a73g4/K1XioNFI7Wrshw0vWCSNezfZO0zZlH7GRWeMGx +p1vfXW2i8Hiux5n8KU8497htRvI+hWMOGqVRZZ7QWV/HeNxGYXbHY2VflidY +FOb5bu2lMLZ6YtVGHQ9YcjDk485pCi9L1Xjv3uAGSXJM0eovFK5KWD7z1cwN +5i+3L/tKe/+nyx2pum7w8ZHRupSvFNYWla58LucGrcyZk+Xf6PzC8ajHPa4A +r5uyxMUINmqWD+8Od4XZE44mrlIEDSwTVjrlb4Xgtn/vnlYkuOyQsbStvguI +6raO+i8nyKpmuImpu8CZm5bBnbQFgdzHLQou0HxGUVCkRFBe7g+Ljgln0PBr +2O6nTLDIttLeOMMZeqZX8NtVCJZkRM26dDnBJvUHrGuEoLizMOqGwBE0I7WH +XY0IXl98pXu6kg9H1poENdC2V0n2/naNDz0iy3f6xgSd3VrOLs7gQ9pvnkNi +JgTHr/TIB4TwYa741EAZh+C+heGd1Sp86Hw/3iPLJTjaZBynGucAsT51D5vX +E0wW71zs724P3bYeRaYOBF/mRvo90rUFVrXcRDbtQZKqx19pC4dXN6/5QTtj +dUdezyJbIArG91v4BLXC+k8tHbWBsFfSr923ECyuX7hHrNQGJMPqlA46EzzO +UbTqNbMB80zt+FoPgp5TjtrGmzfB6b5Jz00BBDX6o26JC63B+kDNstu0rU2N +Pr9JtoYJhYQOdQFB7wzug7bD1rDFVsl6lvblZaN6Db7WIHV7Dbs4iKDtl+gB +LT1rOPRr7AKFUIJW/c88+6s3gB9n4a2+CIKGiQkPB4cRVp9kyOw7SlCpa1RS +v5YHXR0pqb20M+bX85wKeBCj+HMx7xjBkMwDPSfSedCaM6goE0dwbJX+N5VA +HvjfKVa7HE/w+ZNbr0WLeXBm0NKkPYHOe3JM5kKgFcyv3+mlnUIwgi8h1alm +CU8migpeZBN8YmTiJ1m5DizkePprhQS7ikTKSwrWwVWdrtILtO8ph/6y6vQ6 +OLD9e8XOc3SeDZuu7o9YB+Q+v3n8PEGh9k3ZUtY6iBaODcjlEHR1j5zxy7EA +Jo/N2HSNoJ7zgGxJ+loISb2VcucmQd+qmwHK2Vww6vQ8QW4R3CSYHqpI4sIX +hZ+H0minbSq/u2M/F+KzHUIDbxN0t1Mz6nHngvDKkJ1SBUHVij1h3kpcaK1U +Whh9j+CPyA/WV86ag/a7mDizeoKMgcOP5vLMYMByQ3R5G93H4TKj8V4OXDLI +NFvZTnD4YLC/TQcHtjMGp2Jpv1+1PDa/kUPvPT7KpoPgalGi69FCDnQWN4X3 +PiFYo5Pefy6aAw0MDBU9I+hg/nTpXkUO5H7h+fL/IthQPcdIcDcB31JL+6G3 +BB/YFz+rG2RD3hulRtd3BPudn7Fl29gwpPSZ20L77ZcQzq5yNgQfzdHOf0+w +pX5mcmcCGyKdRKKgEYIdV8UfGOmy4cRE493RjwS5S6d+4UQYwnXzjdqTkwRn +hby+g0tWw8cQ1Qs7pwh2xwXVi+YMwDBnWqGL9rx5Xkr2WwO4tTBfVD5NMNUi +7/ZclQHU9Ej+HT1D8GM7qyUp0AA6Yloz5uYIKvQuyqts0Iclf+QuCv1G8GZl +kKpdsT64DB449oq2hYawYvisPnQ76IXVfCcYk7he2nOPPgwwk+2OzBOcGl7x +flpNH4izf8Mn2n0eXqMSMvoQkGDB3fGT4IjTdKHmDAtGxj5o8UT0/oZN1X9/ +wgID8uf5MtrKsrvq+6pZEOZ+XoH6h+C5O1rDFoUsKEuOOplOe4ssL7UgiwUT +dQ6if2gPHS3M04xjwf8AyCU0FQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 8.5}, {0., 0.3329493812358238}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 8.5}, {0., 0.3329493812358238}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.992520748291418*^9, + 3.992520757457056*^9}}, + CellLabel->"Out[34]=",ExpressionUUID->"ce0732be-6b1a-4616-8b51-126fdcf7d170"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992520003015276*^9, + 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ +40714b1d68e9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925200045686483`*^9, + 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ +0db8ce2e2f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[35]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.695, $CellContext`xmax$$ = + 8.52, $CellContext`xmin$$ = 6.04, $CellContext`ymax$$ = + 0.374, $CellContext`yyv$$ = 1.35, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {105.37697910651403`, 111.00197910651403`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {194.29260410651403`, 199.91760410651403`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9, + 3.9925207627272367`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"4d4842e6-058c-4ddb-aaa9-50176f4ece98"] +}, Open ]] +}, +WindowSize->{714, 390}, +WindowMargins->{{-3, Automatic}, {Automatic, 15}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"cce6e8b2-449b-4c77-a53e-b599ac447581"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 71, "Output",ExpressionUUID->"5c8696f0-1338-4ddd-98e3-f15acf364c34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2581, 75, 149, "Output",ExpressionUUID->"c9ae7ee3-45e1-4b11-9e89-0aafe7da738d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8989, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10672, 334, 2780, 81, 149, "Output",ExpressionUUID->"79f321f1-93fc-4a32-9564-a2c439762eab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13489, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15335, 475, 3718, 109, 158, "Output",ExpressionUUID->"d26192c2-d1c2-49c5-932a-ac36516ef698"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19090, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21173, 650, 4787, 138, 193, "Output",ExpressionUUID->"a8e9bbd2-43c1-4a5c-a366-783e8b7f4110"] +}, Open ]], +Cell[25975, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26148, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26499, 804, 300, 5, 33, "Output",ExpressionUUID->"d5570a9c-1249-46a8-ad45-b01bc0fcc889"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26836, 814, 332, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27171, 822, 302, 5, 33, "Output",ExpressionUUID->"93c711cf-f83f-4db9-890a-a97666df0f71"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27510, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27689, 837, 274, 4, 33, "Output",ExpressionUUID->"917fcd71-d471-4e4c-be1e-17ee4a7a4457"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28000, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28261, 855, 288, 4, 33, "Output",ExpressionUUID->"8401b4e1-abea-47bf-bc0a-9130344e9591"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28586, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28721, 868, 277, 4, 33, "Output",ExpressionUUID->"9bf242cd-4f57-4d39-92ba-9fc3f52c2ebd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29035, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29315, 885, 292, 4, 33, "Output",ExpressionUUID->"4d34736e-74e5-4e1b-bf88-5a412848b169"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29644, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29905, 903, 289, 4, 33, "Output",ExpressionUUID->"70041778-77ff-4e2f-90e6-8ccc8a3cf09a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30231, 912, 380, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30614, 920, 160, 2, 33, "Output",ExpressionUUID->"d1580d2d-7e7f-4609-b9d9-b80fb166eefa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30811, 927, 383, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31197, 935, 160, 2, 33, "Output",ExpressionUUID->"94d637e8-fc78-420e-b410-d15714d2903c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31394, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31526, 946, 273, 4, 33, "Output",ExpressionUUID->"e68ba990-9e79-4c3b-8540-77d6de95b9a1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31836, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31968, 959, 270, 4, 33, "Output",ExpressionUUID->"d7828297-d9a0-477e-88f6-519ca6263110"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32275, 968, 2016, 51, 217, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34294, 1021, 19888, 374, 236, "Output",ExpressionUUID->"642e75a9-9a16-41fd-9f03-b287dde83629"] +}, Open ]], +Cell[54197, 1398, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[54350, 1405, 2276, 59, 118, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[56629, 1466, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[57005, 1478, 2168, 58, 118, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[59176, 1538, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[59510, 1550, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[59815, 1557, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[60055, 1565, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[60365, 1572, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[60615, 1579, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[63139, 1644, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[63294, 1649, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[63458, 1654, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[63639, 1661, 2556, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[66198, 1734, 3545, 68, 420, "Output",ExpressionUUID->"1f9414cc-6de2-41fc-ba19-3f4d15414c69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[69780, 1807, 966, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[70749, 1836, 23601, 434, 255, "Output",ExpressionUUID->"7df8d60c-e113-4532-bba7-7129dec8fbbc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[94387, 2275, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[96753, 2338, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[97104, 2349, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[97333, 2355, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[97545, 2362, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[97800, 2368, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[97992, 2373, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[98976, 2401, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], +Cell[99130, 2406, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[99296, 2411, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], +Cell[CellGroupData[{ +Cell[99473, 2418, 2579, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[102055, 2492, 3555, 68, 418, "Output",ExpressionUUID->"a7410862-a79b-43ab-aa03-d8027e362762"] +}, Open ]], +Cell[105625, 2563, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[105888, 2571, 841, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[106732, 2596, 11269, 233, 229, "Output",ExpressionUUID->"152566a6-a669-49d8-ad11-fa9dbc71a607"] +}, Open ]], +Cell[CellGroupData[{ +Cell[118038, 2834, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[120203, 2893, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[121040, 2910, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[121394, 2921, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[121647, 2927, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[121861, 2934, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[122113, 2940, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[122307, 2945, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[124870, 3011, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[125025, 3016, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[125193, 3021, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[125370, 3028, 2529, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[127902, 3101, 3585, 68, 420, "Output",ExpressionUUID->"a9470095-054c-491b-91f5-c640b3d7f854"] +}, Open ]], +Cell[CellGroupData[{ +Cell[131524, 3174, 920, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[132447, 3201, 16041, 311, 256, "Output",ExpressionUUID->"ce0732be-6b1a-4616-8b51-126fdcf7d170"] +}, Open ]], +Cell[CellGroupData[{ +Cell[148525, 3517, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[150861, 3579, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[151215, 3590, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[151469, 3596, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[151685, 3603, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[151940, 3609, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[152132, 3614, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[154979, 3688, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], +Cell[155134, 3693, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[155341, 3699, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], +Cell[CellGroupData[{ +Cell[155520, 3706, 2581, 72, 247, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[158104, 3780, 3562, 68, 430, "Output",ExpressionUUID->"4d4842e6-058c-4ddb-aaa9-50176f4ece98"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/rename.zsh b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/162-78_h_Pu240_16-17/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done 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 new file mode 100644 index 0000000..b66829d --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw1.nb @@ -0,0 +1,9355 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399174, 9347] +NotebookOptionsPosition[ 375132, 8983] +NotebookOutlinePosition[ 375544, 9000] +CellTagsIndexPosition[ 375501, 8997] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.991849227197853*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.9918492290557346`*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_фитирование.nb b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_фитирование.nb new file mode 100644 index 0000000..cc16979 --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/h_164-76_Pu240_18-19_фитирование.nb @@ -0,0 +1,4202 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 182233, 4194] +NotebookOptionsPosition[ 171073, 4004] +NotebookOutlinePosition[ 171478, 4021] +CellTagsIndexPosition[ 171435, 4018] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.993135511858419*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"fba5d0aa-5962-4be9-9088-e4eced07c977"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.993135512142844*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"ed2de54d-707e-4cd6-8d5d-c2be38404497"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.993135512167061*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"cf49c22e-611d-4276-8297-e8dd947e7e8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.9931355121900797`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"98af4754-6d2d-44f1-8f89-a1ad77c8d100"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.99313551221425*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"9832fda7-32cc-4337-95be-2c4cebef9b84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.993135512241276*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"f23e5308-fdbe-4a2b-8b82-4f2b5dbb5ded"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.993135512272336*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"1233ef82-900a-4c2d-95a8-f54e01813a8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "164"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.993135484423792*^9, + 3.993135485020001*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["164"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9931355123013477`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"a8086991-8106-4642-a91a-30b27069f0ed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.993135512329185*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"b4cdd837-949b-46fc-8a3d-d320181d521e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5445000000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.9931355123561077`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"4eca85b5-ed54-480b-9bb0-7305e7685129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.993135512384054*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"3b1879f9-3eb3-4d14-ba04-cfe35bf71e34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.349496262766175`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.993135512410858*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"11711768-a14e-48d1-85ec-95472a53c200"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.913555357735675`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.993135512436846*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"fd05a8cc-5009-477e-a199-863f3d750794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9635732174"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, 3.993135498903141*^9}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.9635732174`"], "Output", + CellChangeTimes->{3.993135512462315*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"8b2c81ac-1053-4c23-9b7f-5b7dc5ab7548"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3900315152"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, 3.9931355028494053`*^9}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.3900315152`"], "Output", + CellChangeTimes->{3.993135512489386*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"b02b8802-6391-4653-9f25-c11fcc5f0361"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.993135512516185*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"5cd5011b-e67a-48f3-9c47-c779efec1169"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.993135512542069*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"48ea16a6-9343-4ac7-8d4a-8ef2b9070891"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.993135521235858*^9, 3.993135529557103*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0Xk4lYkXB3BJTFLTZsvEvbje9y1CMtMwnEMlUYrGJJUhLq4sWSJrdpKS +7SJSt2wJhRYJCdmjLqFMInXJYCwRQr/7++M85/k8z/njnPOln3YzYwoKCAik +8+v/nR7pvFJAgIaMs56N0aXjIGxTLtjEt3NowOusknEY1f5JMGEFDYV6evdW +F49D2eRtAcWVNCzL3M2auTcOR071Lu0XpqHht5uZFgXjELTLaC5OjIYx5ZYu +gtnj0PuRGJOTpmE7kSAzkDwOyTDYBTtpOM+1gUfnxqFKybX0iSMNh83bzjgr +jcPCxTa7lHQaqrMCjCXax2DbYenccy9pKL6h6euOM2Pws/75qcsr6fhWY4Nk +0egoiBQXbBT9lY7KppUm0baj8ODQjHa1Mx0DL6zubn/8L5gfJGe9b9ExXy9g +oXxmBFY3qEXEd9LRRI5TfowcAQ+3Q1t5ovK4x9FxgKfyBcYTISZTRx6/7Lpu +VUINg9WWX6KPucljacWGzRYbhyCsTSzOKFseNZ6xP5Q1fYany1wnTrc8GgjK +i7eGfIK8k4WHd65TQOWLUhrMNYMQ/YvHi9o9CijR9fNb6soABFiIrX9yTgH3 +Zfmel1TsB0ZNue3wXQUUmSwZ6tV8DwO5urH+fQpYYvH6LMv2HZg97ao0FFdE +WroXS861Gx6pHQ+WMFZE7wyWdN/dTlCRL5Y0DFTEkQfbtJn6XDiut7WstFQR +CzwHR4rut0PqP1YqYTxFPBlUlLOY3AItb2M0jkoxMC068eje6QYoFWrRP2XC +wBZ31/RrbnVQdLdfqSWYgcIVL/PtLj0Hq2DRzZ6PGdhV23GCeb0SBB/LJsiM +MVCPcW0ta6EMnrB++kzIKaGR88k+DjwEhpGwnqu5EgrNvnM0biyGrJy37lLR +Siiys3iGtbYIJJkpGrVPlLDHd67uN7c7AKas5dz/lDC4levwQzUb/J6sz5yg +Eyi5ZNM62s0Bbm5pXrM8gT4HRCfSmzmwjf1XaZYCgZMF+/L+rOTAW4+MRgsG +gWX+IpUfb3FgtzI5XU0SyPD2rD/ryoHZTDCMVyWw747wOxMRDniEu06p6xB4 +STjy2RDcBKfDrQaeFgQGbpXp9GNfh5LEmn7d4wTektXMfxpyHRa6y/xELQnU +Z2GmqMt1iLHOLuKcILBuULmCu+c65LsHSbyyItAxIrBTdCoD/k1U4ykzCbwR +uXBvo2kGOPckRfDcCTQq3dazRzodXGxO1R2/RKD3b2nlpq9S4Y/DKdb0WAKN +nYI6VJ6lgpjO68VhvtV9g86LF6VCgdQ+zfNX+PtcMDsgEpsKo+3KOex4Ai82 +Nu32MkwFJ93FqI4UAo9MBE4416aAo0y68aEsAi0sfmTnPmeD7ZseLlYSuHQg +xLnqfRKMbPrtmHQVwc97pkKsLQnOmiX3TvJtuu5Zhn1VEgS1m366VU2gonb1 +lz9uJEFqU/OMUB2BDcXpXR42SdBWWSHV1EygW03ezOJQIuzOuWll2kPgKq05 +haNLCbDOx3HEZprAoi6Oo9X+eIhYs2V5+1cC84Ti59S142HxRsuGWb596IWz +a1XjYaRxx+8xswRmmg8rfZCIh/otM1El8wQqr0go/8y7CkFVIYyVAiQ+sNPq +CIq+CmOr0q2zxEh8NR2hd+52HLQmveziMUh8rUOLt5uNhQXf29znSiT+uPTx +2e7+WCD/9m3LIEjszbt2Z2tzLIRRjHozikTdr/8FSGfGglZVwMMqZRIPomxb +t0Es3BnansTWILEyzfKyXfoliNSKMTXQI7FVatWLM0diAPoNWrNPksjm3PB+ +OBQFX12tmwNOkVheIx9e8iYK8pd8G49akThGCH2vqI0CCZnCuhXWJGoM/Ls0 +fyMKRs03VZ6yJXHiytoDm45HQWrLh0JxJxL/c7G7Wv4yEqYenY+L8CHR49ii +9LXqCMi5nG/GTCBxKbjw/u3mMDjoIdmvkkjiw5Eq4dKKMJj6K9xllm/m+mXx +1qIw0KVZRUclkyix32OfTGIYvCnZUHUnlcSmDllVlZNhINRznhrPJHEvsdlT +eiIUbOX3C/jcJZG3ZWMTTzYUaI8HC6PrSJwTbk5dYAdD4KiXwukXJGaUyVka +xQTDO7pwmnY9if7N+U9vBwZDYiwZPt5AYkHzXX1Pu2AQPu1i+WcLiavsI1LD +dwbDqNg3YRqXxIH5qDOdNy9A2WlR68cf+PONoTfpSkFweJ36Rt4C/1+qjrn3 +7fwhI01csvg7Py/2+2xpU38YUVyQCVgkcfnvh1eu6vhDuHYtY+MyiTNd8XO5 +Ev5Q5mj+u+4KCl0i0rYGNPkBrdbXmi1CoWTBof3F6n4w4VNTZLCZwjTXQ7hW +zBfiB44a56pQWH1ZlB3P8wZ7iQAz1x0Urukk3gV1eYOWcdZxTVUKh4788pdP +vTd8evDVoVaNQn2NtK6LOd6wOzo5/IMGhevnWfK7HLyhb0d3paQWhbO3E7VS +Rs6BcoClWrQBhSEiJnTbeS9okLARZ/1NIWY6si9oeoJZRqGQnjWFDTqWIv8o +eUIffWFayoZCNcbHhD1SnjCrnMhtPE0ht/5Ej8Z3D1Dc8yKOtKdQOaRvV+pz +Dwh1o0SHnSmMCToqwjriAX80Ti7b+1FY8Urh89Q5dyjxDR22S6bwrP7mrVOV +brDDXN5hB5vCe/Pf9lrmukG+Ws3nb3zLhpW7c6+6wa2hFYMxqRTC9/aCKVs3 +SDAPeX8/ncKEN+luk6Ju4KEezF3kUNiuIuTVd8IV1L8EViQVUajForO2rXaB ++xa+V+saKMwS6rirF+cEms+poOxGCuWGdaoU/ZygnHp3JrKJQmdHk0tSTCeo +XdDab9hC4bHNlbSd2k7QlbG41NJGoZECu3n7MAsW+y+c6XhDod/KqCaVfSww +ZEUafBzk58l59m3TGkd4+frXXbWfKFQhRzJmvjmAmdYQPeszhYIJV5x4nxzg +xBrDJeYQhRrK4YdnqhzAtXD1gy8jFDp0DE7XezpA0mQsfXKSwqLOnNOq/fYg +banzM3eKwh+5vNXLL+0hs2ZssWSawoPv62R7n9pDbqJJj9cMhasuDthWp9hD +ueb6uLk5/v0CqnK/HrEH3czqgLfzFH6NeDTrrWsPtcLuTuULFDZ2twy8ULaH +1u7X+wIWKTxRpVN/ebU9mGKoxqklCkMHg+4IzzGhK28nXXeZQtUvEl6XeUyw +3DC4Tu4HhXXpa2Xk3zDhg2/i4g++iWOeiXW1TPgfuK12Mg== + "]]}, + 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:eJwV0Xk4lYkXB3BJTFLTZsvEvbje9y1CMtMwnEMlUYrGJJUhLq4sWSJrdpKS +7SJSt2wJhRYJCdmjLqFMInXJYCwRQr/7++M85/k8z/njnPOln3YzYwoKCAik +8+v/nR7pvFJAgIaMs56N0aXjIGxTLtjEt3NowOusknEY1f5JMGEFDYV6evdW +F49D2eRtAcWVNCzL3M2auTcOR071Lu0XpqHht5uZFgXjELTLaC5OjIYx5ZYu +gtnj0PuRGJOTpmE7kSAzkDwOyTDYBTtpOM+1gUfnxqFKybX0iSMNh83bzjgr +jcPCxTa7lHQaqrMCjCXax2DbYenccy9pKL6h6euOM2Pws/75qcsr6fhWY4Nk +0egoiBQXbBT9lY7KppUm0baj8ODQjHa1Mx0DL6zubn/8L5gfJGe9b9ExXy9g +oXxmBFY3qEXEd9LRRI5TfowcAQ+3Q1t5ovK4x9FxgKfyBcYTISZTRx6/7Lpu +VUINg9WWX6KPucljacWGzRYbhyCsTSzOKFseNZ6xP5Q1fYany1wnTrc8GgjK +i7eGfIK8k4WHd65TQOWLUhrMNYMQ/YvHi9o9CijR9fNb6soABFiIrX9yTgH3 +Zfmel1TsB0ZNue3wXQUUmSwZ6tV8DwO5urH+fQpYYvH6LMv2HZg97ao0FFdE +WroXS861Gx6pHQ+WMFZE7wyWdN/dTlCRL5Y0DFTEkQfbtJn6XDiut7WstFQR +CzwHR4rut0PqP1YqYTxFPBlUlLOY3AItb2M0jkoxMC068eje6QYoFWrRP2XC +wBZ31/RrbnVQdLdfqSWYgcIVL/PtLj0Hq2DRzZ6PGdhV23GCeb0SBB/LJsiM +MVCPcW0ta6EMnrB++kzIKaGR88k+DjwEhpGwnqu5EgrNvnM0biyGrJy37lLR +Siiys3iGtbYIJJkpGrVPlLDHd67uN7c7AKas5dz/lDC4levwQzUb/J6sz5yg +Eyi5ZNM62s0Bbm5pXrM8gT4HRCfSmzmwjf1XaZYCgZMF+/L+rOTAW4+MRgsG +gWX+IpUfb3FgtzI5XU0SyPD2rD/ryoHZTDCMVyWw747wOxMRDniEu06p6xB4 +STjy2RDcBKfDrQaeFgQGbpXp9GNfh5LEmn7d4wTektXMfxpyHRa6y/xELQnU +Z2GmqMt1iLHOLuKcILBuULmCu+c65LsHSbyyItAxIrBTdCoD/k1U4ykzCbwR +uXBvo2kGOPckRfDcCTQq3dazRzodXGxO1R2/RKD3b2nlpq9S4Y/DKdb0WAKN +nYI6VJ6lgpjO68VhvtV9g86LF6VCgdQ+zfNX+PtcMDsgEpsKo+3KOex4Ai82 +Nu32MkwFJ93FqI4UAo9MBE4416aAo0y68aEsAi0sfmTnPmeD7ZseLlYSuHQg +xLnqfRKMbPrtmHQVwc97pkKsLQnOmiX3TvJtuu5Zhn1VEgS1m366VU2gonb1 +lz9uJEFqU/OMUB2BDcXpXR42SdBWWSHV1EygW03ezOJQIuzOuWll2kPgKq05 +haNLCbDOx3HEZprAoi6Oo9X+eIhYs2V5+1cC84Ti59S142HxRsuGWb596IWz +a1XjYaRxx+8xswRmmg8rfZCIh/otM1El8wQqr0go/8y7CkFVIYyVAiQ+sNPq +CIq+CmOr0q2zxEh8NR2hd+52HLQmveziMUh8rUOLt5uNhQXf29znSiT+uPTx +2e7+WCD/9m3LIEjszbt2Z2tzLIRRjHozikTdr/8FSGfGglZVwMMqZRIPomxb +t0Es3BnansTWILEyzfKyXfoliNSKMTXQI7FVatWLM0diAPoNWrNPksjm3PB+ +OBQFX12tmwNOkVheIx9e8iYK8pd8G49akThGCH2vqI0CCZnCuhXWJGoM/Ls0 +fyMKRs03VZ6yJXHiytoDm45HQWrLh0JxJxL/c7G7Wv4yEqYenY+L8CHR49ii +9LXqCMi5nG/GTCBxKbjw/u3mMDjoIdmvkkjiw5Eq4dKKMJj6K9xllm/m+mXx +1qIw0KVZRUclkyix32OfTGIYvCnZUHUnlcSmDllVlZNhINRznhrPJHEvsdlT +eiIUbOX3C/jcJZG3ZWMTTzYUaI8HC6PrSJwTbk5dYAdD4KiXwukXJGaUyVka +xQTDO7pwmnY9if7N+U9vBwZDYiwZPt5AYkHzXX1Pu2AQPu1i+WcLiavsI1LD +dwbDqNg3YRqXxIH5qDOdNy9A2WlR68cf+PONoTfpSkFweJ36Rt4C/1+qjrn3 +7fwhI01csvg7Py/2+2xpU38YUVyQCVgkcfnvh1eu6vhDuHYtY+MyiTNd8XO5 +Ev5Q5mj+u+4KCl0i0rYGNPkBrdbXmi1CoWTBof3F6n4w4VNTZLCZwjTXQ7hW +zBfiB44a56pQWH1ZlB3P8wZ7iQAz1x0Urukk3gV1eYOWcdZxTVUKh4788pdP +vTd8evDVoVaNQn2NtK6LOd6wOzo5/IMGhevnWfK7HLyhb0d3paQWhbO3E7VS +Rs6BcoClWrQBhSEiJnTbeS9okLARZ/1NIWY6si9oeoJZRqGQnjWFDTqWIv8o +eUIffWFayoZCNcbHhD1SnjCrnMhtPE0ht/5Ej8Z3D1Dc8yKOtKdQOaRvV+pz +Dwh1o0SHnSmMCToqwjriAX80Ti7b+1FY8Urh89Q5dyjxDR22S6bwrP7mrVOV +brDDXN5hB5vCe/Pf9lrmukG+Ws3nb3zLhpW7c6+6wa2hFYMxqRTC9/aCKVs3 +SDAPeX8/ncKEN+luk6Ju4KEezF3kUNiuIuTVd8IV1L8EViQVUajForO2rXaB ++xa+V+saKMwS6rirF+cEms+poOxGCuWGdaoU/ZygnHp3JrKJQmdHk0tSTCeo +XdDab9hC4bHNlbSd2k7QlbG41NJGoZECu3n7MAsW+y+c6XhDod/KqCaVfSww +ZEUafBzk58l59m3TGkd4+frXXbWfKFQhRzJmvjmAmdYQPeszhYIJV5x4nxzg +xBrDJeYQhRrK4YdnqhzAtXD1gy8jFDp0DE7XezpA0mQsfXKSwqLOnNOq/fYg +banzM3eKwh+5vNXLL+0hs2ZssWSawoPv62R7n9pDbqJJj9cMhasuDthWp9hD +ueb6uLk5/v0CqnK/HrEH3czqgLfzFH6NeDTrrWsPtcLuTuULFDZ2twy8ULaH +1u7X+wIWKTxRpVN/ebU9mGKoxqklCkMHg+4IzzGhK28nXXeZQtUvEl6XeUyw +3DC4Tu4HhXXpa2Xk3zDhg2/i4g++iWOeiXW1TPgfuK12Mg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9594158091599679}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9594158091599679}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Xk4lYkXB3BJTFLTZsvEvbje9y1CMtMwnEMlUYrGJJUhLq4sWSJrdpKS +7SJSt2wJhRYJCdmjLqFMInXJYCwRQr/7++M85/k8z/njnPOln3YzYwoKCAik +8+v/nR7pvFJAgIaMs56N0aXjIGxTLtjEt3NowOusknEY1f5JMGEFDYV6evdW +F49D2eRtAcWVNCzL3M2auTcOR071Lu0XpqHht5uZFgXjELTLaC5OjIYx5ZYu +gtnj0PuRGJOTpmE7kSAzkDwOyTDYBTtpOM+1gUfnxqFKybX0iSMNh83bzjgr +jcPCxTa7lHQaqrMCjCXax2DbYenccy9pKL6h6euOM2Pws/75qcsr6fhWY4Nk +0egoiBQXbBT9lY7KppUm0baj8ODQjHa1Mx0DL6zubn/8L5gfJGe9b9ExXy9g +oXxmBFY3qEXEd9LRRI5TfowcAQ+3Q1t5ovK4x9FxgKfyBcYTISZTRx6/7Lpu +VUINg9WWX6KPucljacWGzRYbhyCsTSzOKFseNZ6xP5Q1fYany1wnTrc8GgjK +i7eGfIK8k4WHd65TQOWLUhrMNYMQ/YvHi9o9CijR9fNb6soABFiIrX9yTgH3 +Zfmel1TsB0ZNue3wXQUUmSwZ6tV8DwO5urH+fQpYYvH6LMv2HZg97ao0FFdE +WroXS861Gx6pHQ+WMFZE7wyWdN/dTlCRL5Y0DFTEkQfbtJn6XDiut7WstFQR +CzwHR4rut0PqP1YqYTxFPBlUlLOY3AItb2M0jkoxMC068eje6QYoFWrRP2XC +wBZ31/RrbnVQdLdfqSWYgcIVL/PtLj0Hq2DRzZ6PGdhV23GCeb0SBB/LJsiM +MVCPcW0ta6EMnrB++kzIKaGR88k+DjwEhpGwnqu5EgrNvnM0biyGrJy37lLR +Siiys3iGtbYIJJkpGrVPlLDHd67uN7c7AKas5dz/lDC4levwQzUb/J6sz5yg +Eyi5ZNM62s0Bbm5pXrM8gT4HRCfSmzmwjf1XaZYCgZMF+/L+rOTAW4+MRgsG +gWX+IpUfb3FgtzI5XU0SyPD2rD/ryoHZTDCMVyWw747wOxMRDniEu06p6xB4 +STjy2RDcBKfDrQaeFgQGbpXp9GNfh5LEmn7d4wTektXMfxpyHRa6y/xELQnU +Z2GmqMt1iLHOLuKcILBuULmCu+c65LsHSbyyItAxIrBTdCoD/k1U4ykzCbwR +uXBvo2kGOPckRfDcCTQq3dazRzodXGxO1R2/RKD3b2nlpq9S4Y/DKdb0WAKN +nYI6VJ6lgpjO68VhvtV9g86LF6VCgdQ+zfNX+PtcMDsgEpsKo+3KOex4Ai82 +Nu32MkwFJ93FqI4UAo9MBE4416aAo0y68aEsAi0sfmTnPmeD7ZseLlYSuHQg +xLnqfRKMbPrtmHQVwc97pkKsLQnOmiX3TvJtuu5Zhn1VEgS1m366VU2gonb1 +lz9uJEFqU/OMUB2BDcXpXR42SdBWWSHV1EygW03ezOJQIuzOuWll2kPgKq05 +haNLCbDOx3HEZprAoi6Oo9X+eIhYs2V5+1cC84Ti59S142HxRsuGWb596IWz +a1XjYaRxx+8xswRmmg8rfZCIh/otM1El8wQqr0go/8y7CkFVIYyVAiQ+sNPq +CIq+CmOr0q2zxEh8NR2hd+52HLQmveziMUh8rUOLt5uNhQXf29znSiT+uPTx +2e7+WCD/9m3LIEjszbt2Z2tzLIRRjHozikTdr/8FSGfGglZVwMMqZRIPomxb +t0Es3BnansTWILEyzfKyXfoliNSKMTXQI7FVatWLM0diAPoNWrNPksjm3PB+ +OBQFX12tmwNOkVheIx9e8iYK8pd8G49akThGCH2vqI0CCZnCuhXWJGoM/Ls0 +fyMKRs03VZ6yJXHiytoDm45HQWrLh0JxJxL/c7G7Wv4yEqYenY+L8CHR49ii +9LXqCMi5nG/GTCBxKbjw/u3mMDjoIdmvkkjiw5Eq4dKKMJj6K9xllm/m+mXx +1qIw0KVZRUclkyix32OfTGIYvCnZUHUnlcSmDllVlZNhINRznhrPJHEvsdlT +eiIUbOX3C/jcJZG3ZWMTTzYUaI8HC6PrSJwTbk5dYAdD4KiXwukXJGaUyVka +xQTDO7pwmnY9if7N+U9vBwZDYiwZPt5AYkHzXX1Pu2AQPu1i+WcLiavsI1LD +dwbDqNg3YRqXxIH5qDOdNy9A2WlR68cf+PONoTfpSkFweJ36Rt4C/1+qjrn3 +7fwhI01csvg7Py/2+2xpU38YUVyQCVgkcfnvh1eu6vhDuHYtY+MyiTNd8XO5 +Ev5Q5mj+u+4KCl0i0rYGNPkBrdbXmi1CoWTBof3F6n4w4VNTZLCZwjTXQ7hW +zBfiB44a56pQWH1ZlB3P8wZ7iQAz1x0Urukk3gV1eYOWcdZxTVUKh4788pdP +vTd8evDVoVaNQn2NtK6LOd6wOzo5/IMGhevnWfK7HLyhb0d3paQWhbO3E7VS +Rs6BcoClWrQBhSEiJnTbeS9okLARZ/1NIWY6si9oeoJZRqGQnjWFDTqWIv8o +eUIffWFayoZCNcbHhD1SnjCrnMhtPE0ht/5Ej8Z3D1Dc8yKOtKdQOaRvV+pz +Dwh1o0SHnSmMCToqwjriAX80Ti7b+1FY8Urh89Q5dyjxDR22S6bwrP7mrVOV +brDDXN5hB5vCe/Pf9lrmukG+Ws3nb3zLhpW7c6+6wa2hFYMxqRTC9/aCKVs3 +SDAPeX8/ncKEN+luk6Ju4KEezF3kUNiuIuTVd8IV1L8EViQVUajForO2rXaB ++xa+V+saKMwS6rirF+cEms+poOxGCuWGdaoU/ZygnHp3JrKJQmdHk0tSTCeo +XdDab9hC4bHNlbSd2k7QlbG41NJGoZECu3n7MAsW+y+c6XhDod/KqCaVfSww +ZEUafBzk58l59m3TGkd4+frXXbWfKFQhRzJmvjmAmdYQPeszhYIJV5x4nxzg +xBrDJeYQhRrK4YdnqhzAtXD1gy8jFDp0DE7XezpA0mQsfXKSwqLOnNOq/fYg +banzM3eKwh+5vNXLL+0hs2ZssWSawoPv62R7n9pDbqJJj9cMhasuDthWp9hD +ueb6uLk5/v0CqnK/HrEH3czqgLfzFH6NeDTrrWsPtcLuTuULFDZ2twy8ULaH +1u7X+wIWKTxRpVN/ebU9mGKoxqklCkMHg+4IzzGhK28nXXeZQtUvEl6XeUyw +3DC4Tu4HhXXpa2Xk3zDhg2/i4g++iWOeiXW1TPgfuK12Mg== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9594158091599679}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.9594158091599679}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.993135512752788*^9, 3.9931355310471478`*^9}}, + CellLabel->"Out[21]=",ExpressionUUID->"7e43d5c0-68b0-4ff6-9b48-2d325a962551"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519988325634*^9, + 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925199899203997`*^9, + 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = + 0.8049999999999999, $CellContext`xmax$$ = 12.5, $CellContext`xmin$$ = + 6, $CellContext`ymax$$ = 1, $CellContext`yv$$ = 1.99, Typeset`show$$ = + True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691962`, 115.83105478691962`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9931357499883738`*^9, + 3.99313575364819*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV02k8VW0XB2ClVHpShgwlDp29dzRwSIZkLVJkjBIhhIwnIVNIpiSKyFDh +QREZQglJCKUkyVRJKGOG6ElJone/n+7f9eFee93/tbaE7SnjE0s5ODh4l3Bw +/P/coPSYPhjoX9z/ONZrEtqC51syaAst8o6yTk9C1AvlFPUlDDwkUGrb7jEJ +v83L5MOWMlDxlbi2wKlJeH+2yJ5rOQN7xR1eXnaehGv1mc/+4Wbgjf4/HtZW +k7DeMCJKRICB0c7sHQFak7DOwZBPfgsDHUXm74QJTYL9+eq6xkMMdLA78qI3 +awJ+r/DcdCaQgRL71MYjtk7ABU8tcassBqoeI6mP2ePg0TL3JOs1A48w6l/P +Lx2Hfy9P86z8Rdd/yigfNRuDLWoNf5o3SyCfGI9jZvQXyO16GPfUQAIltnLo +d+ePgmvb99ZuHwl8zHnFMefZCETXcJcY3ZRAmWzJXZnlw/B1rcPuoSYJNPnn +ilF/9hBoaQ+wC/6TQD+9hcPLLgzCosce6NwkiTsaHsd8Uh2A2cUPjzbsl8Tl +qSWDl+Y+gcFZ0/dPPCTxiqHvW86YfkgZmElLTZXELt+RR3XYC9KFXf8kNEii +rofyKd0rH0DIKVF0ckoSQ0xHVljceQf7I6512QpvxtSrOSJPlnRBe6IfS0Vz +MwacKImq2N0ORy77y+87tRnZ+4tM7ue0wsbR2j528mbUbI3l+vGmGdR2Dm77 +WbcZu0lx3yPmz+HWgC4zdXwzXu5IUv6Z1AB//TvrvPmZeFOixWdG9wlUcKou +LVFjYrn/Q8H7JlVQOjU8vtKRibtSp8gQvXKQXsvbVk5b0p7YbqxUDuk7dlc4 +ODGxRytoUpZZDlEnY8MbnJl4Uv9FlNCfMrAeV9wUzGZiiT1XZWRBGXCPRBrM +ejBR71315M+1ZWDTK10yFMjEshDJ9k/9pbDmlZtPXTwTu1rDTn+8cw8kvRS2 +ul1l4tKaA4L7r98DpY1/+kQS6HpC2+sqI++BrfPFAx6JTPxv4h3jueM9KFue +Jcq4xkT54XUunuQ9sFF7X3c2jYmRAca3OW6XQGnR3rXKuUyUc21i9BUWg2W8 +cG7RYyYebfEW+1ZdCIs6ka8Nq5lY7e9wXi+7EDI4f/2cor3C0e5iZXQhDHm9 +3SdbS/erGKnZYlYIbqZJA8V1TNQ2sYpu/14AwaIC4vcamXi4XMFHf3sBZN9e +m1T6hol//eVtawrz4GslV/jDISauC3sf9u/nHDgyMsdyHGai3fpLlTEvc6Ca +f7JPYISJHVaVW+JLc+Ayu323+ygTHWWlz7ZF5MA2sYzv5DgTi2QHnihuywGX +EGW7hGkmnprmvxHlfxuGtdgap+aZ+Kim8hEHkQ0fO95wELwEfvRySy28exPa ++NwkGmlnCjfd0E+7Cc8Ocms48xGYu0S6Zz76JhQ3a4QV8hP4wLqKM8z5JoQ3 +3F++S5DA+pR/vqgQN0G6NJFbayOBtquKpQ+kZ4LP1aMCzgSBq97xz2akZcBa +409UoTKBd/ke99wMTYMsoQ1CeioEsoRsg7kc00DpozHXOG1b0UWzEN00sHVq +GNyiSqClcrdzlUAalAblZGapEaj6Iu3g/txUOJp/cmPqXgJ1BBXPpLSnwK1l +v3mi9QmU3lid1atyAxTL+X46HSdwaYLjd1/tZIifbnFdb0ug9SHiiq5sMkxI +RX96QjvG4zvPLuFkyEjlfLXBnkCnb1POhqNJsDJ05lazA4HJKyqvx11Mgnd6 +XUaybAKbNGIlNFsTwf/z9cJZHwIFFl8/HTqZAI/XSJyIuETgwBGnjebDcZBl +FqFPXSawEdd0ZXbEwaVb4wrPad/7tqdxri4OzJXLuLhjCSSk3op0p8fBT3vd +3MtxBLp9ixexMI8DmSrv8YQkAj+cvOx0qO0KZLo0edzKIFDokFJ/dEosRD6Q +MdfMJHD8OrXnV0AsuHMkagzRtjKwmwixjAW1JGt+6haBicIqnyc2xUL3k5nS +vGwCb9iMx4ndjAF+EfFfJXkEco9qnugpugznG08H1ZYS+N5i8bt4fzTIRVhO +uj0g0JdrnHX3STT0au6z3FRG3xczDrG4FQ1KdYIq/uUEXlsqOsjnGA1jVQ9/ +yFcSWP6rIe/bVBQY3PvLzqkh0FtHgMt0RRQIp0VbxDQR2FY5o8GpFwkNFl5N +qi/pPMcE89RYkeCx4ZjyOO2nOwwbEgUjoSl5h5D2KwI7LmrkJ326AGfj37Qt +aSXwZJ+EX7/fBfh8QUjHu5NAuY0m388WREC+5y0ly34Cq79u8ZGnzsOghsKG +v7SDajNPafCeBzH+xvnMTwT+zh0bcJgPh/j7Y9Ujnwn8NtY+PfU6HPxmWPtO +D9H74mURxeEfDvt8ao2ixgh8orjacnVbGPSd+ehSMUPgOlEvDa24UBDWOaVn +8YOeB5Ov6tPZUDDesGTHIu1zEXecY11C4Vkl89veWQIN9J03MjVDoWDe1ff1 +HIE9jy/9lP0VAmfO/g4bXiTQQk8k84VdCPCHCKUJrCJxRKRCOFQ7GCbe7dMv +pT1xSUeuQjEYnsl6LRziJrEh8Wr9IhkMfv2tx66uJjHBZ5L38fJg6IUoMT4e +Elc89QqZu3AO8hb/pK/lJ1GDMNSajQgCjcDPN7k3kTh3qPQ4lRoIoh3rDuXR +/sIhkHcmKBB+bAVOHTESDc1rjnyxCYTcDyl2F8VJ9JEw8GCQgcCz24S5UpJE +5U7t6rGSAOiea8xeTpG4Zi134rsWf/DwLczlYJEo9t7JyX7TGVi317qvkLZd +wJriOY4zcJeHV9BCjsSw7TH1hYN+MJHtFfZAnu6v7PsbjwI/cOrYbeWyi37f +wuI2hz1+YMNq4u/YTaJibpfKkL0vGI4PB+XsJ3HrLm6pky+84WvZtQeHtUjk +4Y+pyyz2hkuhOhNLtEl02Rt05luyNzSJ3D1qeYDEzNLbrZ8cvGG/tvdOXj0S +FTqKGZxc3qCWzTnmb0Si2qJLkOwBL9huzTAxsCSx/WzNVOBnTzBTDVicos0m ++7yNWjwhXKQrJ+4Yia4Bu2tUKj2hpz36d4cViao7VXV14z3hkvZsusVxEvl5 +ZERs93rCBKtlzMmBxNpk1DO54wEFywKDw9xJ3PG2PvJlmDu8+9QlRXiQSAo/ +eMrn6Q7Laljtz2hz1n63Zdu4g+WZEYL7NIk3HA76HNnjDv98NX55xZvELEac +0MrpU8B+KyX4rz+dF0fwX5dPbrA1721+RTiJoodnzP/7yAbR+QcfHM//vz/n +C6pVbODRS1gtFEHieonnnQU32DA9edDV+wKJ133O7/xryoYyVpO0XBSJrO1X +Ih06XEHjYdWd/FgSS7b3h4h2uMDR55k5/94gcRkccVv/1Ql0RILf6qeQ2Ctd +5fa21QlUXaxWLNC+q+L8uPK+E4j9s9HRIo3EX68WSwfPOMGgYQIpnEGiqUwT +o26FE7i/jciOyyYxYHPzQpiUI1wYdr0VXkyibb77VfnwEyBcM5wpW0JiRdjI +FyPXE5CXfDyjh7bVtXS8ZHwCmrVN03bep/POB5/DEieAL18jefABiUVyL6tk +au0h9ZRItOYjEjmapCZnl9pD8a9nnsuekTjbXB/BlWoL6m/UPYppT1WY5LEj +bKHtTtUpy0YS02N2qI+728IP83vs0uckHjrnacXabwsqj9Mc7F+SeCzG1Lv3 +23FoCPEyb2glsTIuzzJb/zi855bUCP9A97+dJ19B0AZ+zey7z+wh8bnNBsXK +ZTYg2OfMfEp7YE1S9s1hazC+X8LF1UuidI9998lMa2i2UH95oZ/E0x0Rex4J +W0N1gc3h6CESRUYaXHh5rCDLIN0hforEo2XLb9/ls4Q6pfq3ctMk9on/rBWY +sYB+yRHtdtrP8kWCUzotYNPsjq0C/5E49iLUnvu6BSSlV08lzpDI51Aj7iJh +ARenP/pdn6P/l4q/1wSUzMEtXjQ6g5NC00iTHoVAMzCerg81WEZhsHKzLcva +DHYZuPr/oc0TsJBqoGEGC6sqnc24KGxI4EqcXGkGl0JMtdetonDiR6Pvw2RT +yHOPXx7MQ2HCaES+06MjMGKwMthahEJJvvBBqQ0m0FRQ5LtmA13vB4/9+iUm +cJfb9NQj2lXZxwix0cPg8yzbSkiUwuGsttGIssPApbZ3z2sxCptTqj+UHD4M +zO1Bv9WYFF5vNpc2SjoENqtnvMRkKNS95aLWvd0Y3vhr9tXS7l1xvjtdxBg0 +xhIO2MlSmH9gdVLAcmPY/EJBLJdF4abqPWu8PxrBcIRvI2snhVbHb7udjDGC +k0vnRfYpU6je7dNrPXMQ/OeW1LjupXDW4DvbKt0Qxp2MpXg0Kfws8fepSKAh +WL67ebWY9lzfzo55M0NQK9/r9GMfhTNFUS7y/IawxPs87zltCg8KSSxhXzSA +yOmV9vH6FCbn5Xr0BepD4sjaVQ9NKfzguC27KkgXbvf+UTczo/Df574dKTa6 +UNb5xX+Wdqnwz4spGrrwrr5+QsGczj/n9OI8ly5syPBtvWdJYeeWEyZ74nQg +w6wvueA4hf0SVq5Z+Qcg78VdMsOVwotna28wZrXgUW2KNbAplI2suNPaowXN +5ZHXemnLB0jtSqvTgslsW+5NbhT6XWw1iI7RAtlQwa/X3Sm8pu2sXEFpwQOV +oAdXvenvLzOS2m29H2rz9TUvnKPnHbRWedNnTUgSrObcGUyhxw4TK7kXmsAO +2VHfT1vMtqPHvlgThE3XaqiE0vMa2GglcU4TPJa+gclwCs2XH302s0kTJI8e +3n0oikK2PZ/eqM1eCOeykBNPpLD7TEa85Lw6mHu8/PaS9n/pxkuyhtRBtmd3 +iV8ShWp/2e1qrerQUyIq25ZM7+8F5W212eqgcKx3+/kbFBY8WBb81Ugdhu8f +lxpPp7BI5PP1/rsI2sedGOV5FIYdcGkqnlGD/I8hxmb59LzTm8OE29SAxzwl +fI52eqjJmdtFatBp3DK6u5BCe6Vuz52uamCrubOktohCr4o94gKDeyCA4tBo +KqXQubdkpLpHFe5OJtt9rKbw+8htmaJRFeB1KUkMqqFQZWnd1rgmFfAabmoU +r6X3/29AeEKBCqj0LWy1fUKhAJ6uXHRXgcZWu5nhegrXrHHVOjavDP33Zc5P +P6dwmY1S92ZBZeD3b7zN2U7hw6FiYthWEXQcJa6V035WZpOUvU8RQg8HXHTt +oFD7GFvz4hZFmN4hw27vpFBHqTOn6usuaBlIYt16R6GqtFhdS+AuiNR3qNLo +pdBSaHWGf7oC/GEsbwv5QmHtAqdcy4I8yPNY1yuMUWg72+lVPygPLvMVpV9o +p24Xe/32pTy872QnG01QuDP+C+vYDXkoi+qwlJiiMNpQO65LSR48Zm6N1M5Q +6CnDZ2QXIAe5nxbeef2g8O1U5VUleznobzFt2vKTwtCVAZnS+nJgcGd14ZVZ +Ci1kGHH24nKwzeq0p81vCvv2Hvm69SkL7HRf2QnMUyhTN/Rg4C4LbihRJs9p +8w7EypVfY8Eq/g+Ksgt0vst164vZLEAOBalB2mP3Xl3tOsICv8mYDdcWKXw0 +px8vpM6Cou7R1Xp/KYxd6ZJ2eisLhhs1Fv7SBo3Rq2PrWfA/wL2bng== + "]]}, + 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:eJwV02k8VW0XB2ClVHpShgwlDp29dzRwSIZkLVJkjBIhhIwnIVNIpiSKyFDh +QREZQglJCKUkyVRJKGOG6ElJone/n+7f9eFee93/tbaE7SnjE0s5ODh4l3Bw +/P/coPSYPhjoX9z/ONZrEtqC51syaAst8o6yTk9C1AvlFPUlDDwkUGrb7jEJ +v83L5MOWMlDxlbi2wKlJeH+2yJ5rOQN7xR1eXnaehGv1mc/+4Wbgjf4/HtZW +k7DeMCJKRICB0c7sHQFak7DOwZBPfgsDHUXm74QJTYL9+eq6xkMMdLA78qI3 +awJ+r/DcdCaQgRL71MYjtk7ABU8tcassBqoeI6mP2ePg0TL3JOs1A48w6l/P +Lx2Hfy9P86z8Rdd/yigfNRuDLWoNf5o3SyCfGI9jZvQXyO16GPfUQAIltnLo +d+ePgmvb99ZuHwl8zHnFMefZCETXcJcY3ZRAmWzJXZnlw/B1rcPuoSYJNPnn +ilF/9hBoaQ+wC/6TQD+9hcPLLgzCosce6NwkiTsaHsd8Uh2A2cUPjzbsl8Tl +qSWDl+Y+gcFZ0/dPPCTxiqHvW86YfkgZmElLTZXELt+RR3XYC9KFXf8kNEii +rofyKd0rH0DIKVF0ckoSQ0xHVljceQf7I6512QpvxtSrOSJPlnRBe6IfS0Vz +MwacKImq2N0ORy77y+87tRnZ+4tM7ue0wsbR2j528mbUbI3l+vGmGdR2Dm77 +WbcZu0lx3yPmz+HWgC4zdXwzXu5IUv6Z1AB//TvrvPmZeFOixWdG9wlUcKou +LVFjYrn/Q8H7JlVQOjU8vtKRibtSp8gQvXKQXsvbVk5b0p7YbqxUDuk7dlc4 +ODGxRytoUpZZDlEnY8MbnJl4Uv9FlNCfMrAeV9wUzGZiiT1XZWRBGXCPRBrM +ejBR71315M+1ZWDTK10yFMjEshDJ9k/9pbDmlZtPXTwTu1rDTn+8cw8kvRS2 +ul1l4tKaA4L7r98DpY1/+kQS6HpC2+sqI++BrfPFAx6JTPxv4h3jueM9KFue +Jcq4xkT54XUunuQ9sFF7X3c2jYmRAca3OW6XQGnR3rXKuUyUc21i9BUWg2W8 +cG7RYyYebfEW+1ZdCIs6ka8Nq5lY7e9wXi+7EDI4f/2cor3C0e5iZXQhDHm9 +3SdbS/erGKnZYlYIbqZJA8V1TNQ2sYpu/14AwaIC4vcamXi4XMFHf3sBZN9e +m1T6hol//eVtawrz4GslV/jDISauC3sf9u/nHDgyMsdyHGai3fpLlTEvc6Ca +f7JPYISJHVaVW+JLc+Ayu323+ygTHWWlz7ZF5MA2sYzv5DgTi2QHnihuywGX +EGW7hGkmnprmvxHlfxuGtdgap+aZ+Kim8hEHkQ0fO95wELwEfvRySy28exPa ++NwkGmlnCjfd0E+7Cc8Ocms48xGYu0S6Zz76JhQ3a4QV8hP4wLqKM8z5JoQ3 +3F++S5DA+pR/vqgQN0G6NJFbayOBtquKpQ+kZ4LP1aMCzgSBq97xz2akZcBa +409UoTKBd/ke99wMTYMsoQ1CeioEsoRsg7kc00DpozHXOG1b0UWzEN00sHVq +GNyiSqClcrdzlUAalAblZGapEaj6Iu3g/txUOJp/cmPqXgJ1BBXPpLSnwK1l +v3mi9QmU3lid1atyAxTL+X46HSdwaYLjd1/tZIifbnFdb0ug9SHiiq5sMkxI +RX96QjvG4zvPLuFkyEjlfLXBnkCnb1POhqNJsDJ05lazA4HJKyqvx11Mgnd6 +XUaybAKbNGIlNFsTwf/z9cJZHwIFFl8/HTqZAI/XSJyIuETgwBGnjebDcZBl +FqFPXSawEdd0ZXbEwaVb4wrPad/7tqdxri4OzJXLuLhjCSSk3op0p8fBT3vd +3MtxBLp9ixexMI8DmSrv8YQkAj+cvOx0qO0KZLo0edzKIFDokFJ/dEosRD6Q +MdfMJHD8OrXnV0AsuHMkagzRtjKwmwixjAW1JGt+6haBicIqnyc2xUL3k5nS +vGwCb9iMx4ndjAF+EfFfJXkEco9qnugpugznG08H1ZYS+N5i8bt4fzTIRVhO +uj0g0JdrnHX3STT0au6z3FRG3xczDrG4FQ1KdYIq/uUEXlsqOsjnGA1jVQ9/ +yFcSWP6rIe/bVBQY3PvLzqkh0FtHgMt0RRQIp0VbxDQR2FY5o8GpFwkNFl5N +qi/pPMcE89RYkeCx4ZjyOO2nOwwbEgUjoSl5h5D2KwI7LmrkJ326AGfj37Qt +aSXwZJ+EX7/fBfh8QUjHu5NAuY0m388WREC+5y0ly34Cq79u8ZGnzsOghsKG +v7SDajNPafCeBzH+xvnMTwT+zh0bcJgPh/j7Y9Ujnwn8NtY+PfU6HPxmWPtO +D9H74mURxeEfDvt8ao2ixgh8orjacnVbGPSd+ehSMUPgOlEvDa24UBDWOaVn +8YOeB5Ov6tPZUDDesGTHIu1zEXecY11C4Vkl89veWQIN9J03MjVDoWDe1ff1 +HIE9jy/9lP0VAmfO/g4bXiTQQk8k84VdCPCHCKUJrCJxRKRCOFQ7GCbe7dMv +pT1xSUeuQjEYnsl6LRziJrEh8Wr9IhkMfv2tx66uJjHBZ5L38fJg6IUoMT4e +Elc89QqZu3AO8hb/pK/lJ1GDMNSajQgCjcDPN7k3kTh3qPQ4lRoIoh3rDuXR +/sIhkHcmKBB+bAVOHTESDc1rjnyxCYTcDyl2F8VJ9JEw8GCQgcCz24S5UpJE +5U7t6rGSAOiea8xeTpG4Zi134rsWf/DwLczlYJEo9t7JyX7TGVi317qvkLZd +wJriOY4zcJeHV9BCjsSw7TH1hYN+MJHtFfZAnu6v7PsbjwI/cOrYbeWyi37f +wuI2hz1+YMNq4u/YTaJibpfKkL0vGI4PB+XsJ3HrLm6pky+84WvZtQeHtUjk +4Y+pyyz2hkuhOhNLtEl02Rt05luyNzSJ3D1qeYDEzNLbrZ8cvGG/tvdOXj0S +FTqKGZxc3qCWzTnmb0Si2qJLkOwBL9huzTAxsCSx/WzNVOBnTzBTDVicos0m ++7yNWjwhXKQrJ+4Yia4Bu2tUKj2hpz36d4cViao7VXV14z3hkvZsusVxEvl5 +ZERs93rCBKtlzMmBxNpk1DO54wEFywKDw9xJ3PG2PvJlmDu8+9QlRXiQSAo/ +eMrn6Q7Laljtz2hz1n63Zdu4g+WZEYL7NIk3HA76HNnjDv98NX55xZvELEac +0MrpU8B+KyX4rz+dF0fwX5dPbrA1721+RTiJoodnzP/7yAbR+QcfHM//vz/n +C6pVbODRS1gtFEHieonnnQU32DA9edDV+wKJ133O7/xryoYyVpO0XBSJrO1X +Ih06XEHjYdWd/FgSS7b3h4h2uMDR55k5/94gcRkccVv/1Ql0RILf6qeQ2Ctd +5fa21QlUXaxWLNC+q+L8uPK+E4j9s9HRIo3EX68WSwfPOMGgYQIpnEGiqUwT +o26FE7i/jciOyyYxYHPzQpiUI1wYdr0VXkyibb77VfnwEyBcM5wpW0JiRdjI +FyPXE5CXfDyjh7bVtXS8ZHwCmrVN03bep/POB5/DEieAL18jefABiUVyL6tk +au0h9ZRItOYjEjmapCZnl9pD8a9nnsuekTjbXB/BlWoL6m/UPYppT1WY5LEj +bKHtTtUpy0YS02N2qI+728IP83vs0uckHjrnacXabwsqj9Mc7F+SeCzG1Lv3 +23FoCPEyb2glsTIuzzJb/zi855bUCP9A97+dJ19B0AZ+zey7z+wh8bnNBsXK +ZTYg2OfMfEp7YE1S9s1hazC+X8LF1UuidI9998lMa2i2UH95oZ/E0x0Rex4J +W0N1gc3h6CESRUYaXHh5rCDLIN0hforEo2XLb9/ls4Q6pfq3ctMk9on/rBWY +sYB+yRHtdtrP8kWCUzotYNPsjq0C/5E49iLUnvu6BSSlV08lzpDI51Aj7iJh +ARenP/pdn6P/l4q/1wSUzMEtXjQ6g5NC00iTHoVAMzCerg81WEZhsHKzLcva +DHYZuPr/oc0TsJBqoGEGC6sqnc24KGxI4EqcXGkGl0JMtdetonDiR6Pvw2RT +yHOPXx7MQ2HCaES+06MjMGKwMthahEJJvvBBqQ0m0FRQ5LtmA13vB4/9+iUm +cJfb9NQj2lXZxwix0cPg8yzbSkiUwuGsttGIssPApbZ3z2sxCptTqj+UHD4M +zO1Bv9WYFF5vNpc2SjoENqtnvMRkKNS95aLWvd0Y3vhr9tXS7l1xvjtdxBg0 +xhIO2MlSmH9gdVLAcmPY/EJBLJdF4abqPWu8PxrBcIRvI2snhVbHb7udjDGC +k0vnRfYpU6je7dNrPXMQ/OeW1LjupXDW4DvbKt0Qxp2MpXg0Kfws8fepSKAh +WL67ebWY9lzfzo55M0NQK9/r9GMfhTNFUS7y/IawxPs87zltCg8KSSxhXzSA +yOmV9vH6FCbn5Xr0BepD4sjaVQ9NKfzguC27KkgXbvf+UTczo/Df574dKTa6 +UNb5xX+Wdqnwz4spGrrwrr5+QsGczj/n9OI8ly5syPBtvWdJYeeWEyZ74nQg +w6wvueA4hf0SVq5Z+Qcg78VdMsOVwotna28wZrXgUW2KNbAplI2suNPaowXN +5ZHXemnLB0jtSqvTgslsW+5NbhT6XWw1iI7RAtlQwa/X3Sm8pu2sXEFpwQOV +oAdXvenvLzOS2m29H2rz9TUvnKPnHbRWedNnTUgSrObcGUyhxw4TK7kXmsAO +2VHfT1vMtqPHvlgThE3XaqiE0vMa2GglcU4TPJa+gclwCs2XH302s0kTJI8e +3n0oikK2PZ/eqM1eCOeykBNPpLD7TEa85Lw6mHu8/PaS9n/pxkuyhtRBtmd3 +iV8ShWp/2e1qrerQUyIq25ZM7+8F5W212eqgcKx3+/kbFBY8WBb81Ugdhu8f +lxpPp7BI5PP1/rsI2sedGOV5FIYdcGkqnlGD/I8hxmb59LzTm8OE29SAxzwl +fI52eqjJmdtFatBp3DK6u5BCe6Vuz52uamCrubOktohCr4o94gKDeyCA4tBo +KqXQubdkpLpHFe5OJtt9rKbw+8htmaJRFeB1KUkMqqFQZWnd1rgmFfAabmoU +r6X3/29AeEKBCqj0LWy1fUKhAJ6uXHRXgcZWu5nhegrXrHHVOjavDP33Zc5P +P6dwmY1S92ZBZeD3b7zN2U7hw6FiYthWEXQcJa6V035WZpOUvU8RQg8HXHTt +oFD7GFvz4hZFmN4hw27vpFBHqTOn6usuaBlIYt16R6GqtFhdS+AuiNR3qNLo +pdBSaHWGf7oC/GEsbwv5QmHtAqdcy4I8yPNY1yuMUWg72+lVPygPLvMVpV9o +p24Xe/32pTy872QnG01QuDP+C+vYDXkoi+qwlJiiMNpQO65LSR48Zm6N1M5Q +6CnDZ2QXIAe5nxbeef2g8O1U5VUleznobzFt2vKTwtCVAZnS+nJgcGd14ZVZ +Ci1kGHH24nKwzeq0p81vCvv2Hvm69SkL7HRf2QnMUyhTN/Rg4C4LbihRJs9p +8w7EypVfY8Eq/g+Ksgt0vst164vZLEAOBalB2mP3Xl3tOsICv8mYDdcWKXw0 +px8vpM6Cou7R1Xp/KYxd6ZJ2eisLhhs1Fv7SBo3Rq2PrWfA/wL2bng== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9204786976383865}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9204786976383865}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV02k8VW0XB2ClVHpShgwlDp29dzRwSIZkLVJkjBIhhIwnIVNIpiSKyFDh +QREZQglJCKUkyVRJKGOG6ElJone/n+7f9eFee93/tbaE7SnjE0s5ODh4l3Bw +/P/coPSYPhjoX9z/ONZrEtqC51syaAst8o6yTk9C1AvlFPUlDDwkUGrb7jEJ +v83L5MOWMlDxlbi2wKlJeH+2yJ5rOQN7xR1eXnaehGv1mc/+4Wbgjf4/HtZW +k7DeMCJKRICB0c7sHQFak7DOwZBPfgsDHUXm74QJTYL9+eq6xkMMdLA78qI3 +awJ+r/DcdCaQgRL71MYjtk7ABU8tcassBqoeI6mP2ePg0TL3JOs1A48w6l/P +Lx2Hfy9P86z8Rdd/yigfNRuDLWoNf5o3SyCfGI9jZvQXyO16GPfUQAIltnLo +d+ePgmvb99ZuHwl8zHnFMefZCETXcJcY3ZRAmWzJXZnlw/B1rcPuoSYJNPnn +ilF/9hBoaQ+wC/6TQD+9hcPLLgzCosce6NwkiTsaHsd8Uh2A2cUPjzbsl8Tl +qSWDl+Y+gcFZ0/dPPCTxiqHvW86YfkgZmElLTZXELt+RR3XYC9KFXf8kNEii +rofyKd0rH0DIKVF0ckoSQ0xHVljceQf7I6512QpvxtSrOSJPlnRBe6IfS0Vz +MwacKImq2N0ORy77y+87tRnZ+4tM7ue0wsbR2j528mbUbI3l+vGmGdR2Dm77 +WbcZu0lx3yPmz+HWgC4zdXwzXu5IUv6Z1AB//TvrvPmZeFOixWdG9wlUcKou +LVFjYrn/Q8H7JlVQOjU8vtKRibtSp8gQvXKQXsvbVk5b0p7YbqxUDuk7dlc4 +ODGxRytoUpZZDlEnY8MbnJl4Uv9FlNCfMrAeV9wUzGZiiT1XZWRBGXCPRBrM +ejBR71315M+1ZWDTK10yFMjEshDJ9k/9pbDmlZtPXTwTu1rDTn+8cw8kvRS2 +ul1l4tKaA4L7r98DpY1/+kQS6HpC2+sqI++BrfPFAx6JTPxv4h3jueM9KFue +Jcq4xkT54XUunuQ9sFF7X3c2jYmRAca3OW6XQGnR3rXKuUyUc21i9BUWg2W8 +cG7RYyYebfEW+1ZdCIs6ka8Nq5lY7e9wXi+7EDI4f/2cor3C0e5iZXQhDHm9 +3SdbS/erGKnZYlYIbqZJA8V1TNQ2sYpu/14AwaIC4vcamXi4XMFHf3sBZN9e +m1T6hol//eVtawrz4GslV/jDISauC3sf9u/nHDgyMsdyHGai3fpLlTEvc6Ca +f7JPYISJHVaVW+JLc+Ayu323+ygTHWWlz7ZF5MA2sYzv5DgTi2QHnihuywGX +EGW7hGkmnprmvxHlfxuGtdgap+aZ+Kim8hEHkQ0fO95wELwEfvRySy28exPa ++NwkGmlnCjfd0E+7Cc8Ocms48xGYu0S6Zz76JhQ3a4QV8hP4wLqKM8z5JoQ3 +3F++S5DA+pR/vqgQN0G6NJFbayOBtquKpQ+kZ4LP1aMCzgSBq97xz2akZcBa +409UoTKBd/ke99wMTYMsoQ1CeioEsoRsg7kc00DpozHXOG1b0UWzEN00sHVq +GNyiSqClcrdzlUAalAblZGapEaj6Iu3g/txUOJp/cmPqXgJ1BBXPpLSnwK1l +v3mi9QmU3lid1atyAxTL+X46HSdwaYLjd1/tZIifbnFdb0ug9SHiiq5sMkxI +RX96QjvG4zvPLuFkyEjlfLXBnkCnb1POhqNJsDJ05lazA4HJKyqvx11Mgnd6 +XUaybAKbNGIlNFsTwf/z9cJZHwIFFl8/HTqZAI/XSJyIuETgwBGnjebDcZBl +FqFPXSawEdd0ZXbEwaVb4wrPad/7tqdxri4OzJXLuLhjCSSk3op0p8fBT3vd +3MtxBLp9ixexMI8DmSrv8YQkAj+cvOx0qO0KZLo0edzKIFDokFJ/dEosRD6Q +MdfMJHD8OrXnV0AsuHMkagzRtjKwmwixjAW1JGt+6haBicIqnyc2xUL3k5nS +vGwCb9iMx4ndjAF+EfFfJXkEco9qnugpugznG08H1ZYS+N5i8bt4fzTIRVhO +uj0g0JdrnHX3STT0au6z3FRG3xczDrG4FQ1KdYIq/uUEXlsqOsjnGA1jVQ9/ +yFcSWP6rIe/bVBQY3PvLzqkh0FtHgMt0RRQIp0VbxDQR2FY5o8GpFwkNFl5N +qi/pPMcE89RYkeCx4ZjyOO2nOwwbEgUjoSl5h5D2KwI7LmrkJ326AGfj37Qt +aSXwZJ+EX7/fBfh8QUjHu5NAuY0m388WREC+5y0ly34Cq79u8ZGnzsOghsKG +v7SDajNPafCeBzH+xvnMTwT+zh0bcJgPh/j7Y9Ujnwn8NtY+PfU6HPxmWPtO +D9H74mURxeEfDvt8ao2ixgh8orjacnVbGPSd+ehSMUPgOlEvDa24UBDWOaVn +8YOeB5Ov6tPZUDDesGTHIu1zEXecY11C4Vkl89veWQIN9J03MjVDoWDe1ff1 +HIE9jy/9lP0VAmfO/g4bXiTQQk8k84VdCPCHCKUJrCJxRKRCOFQ7GCbe7dMv +pT1xSUeuQjEYnsl6LRziJrEh8Wr9IhkMfv2tx66uJjHBZ5L38fJg6IUoMT4e +Elc89QqZu3AO8hb/pK/lJ1GDMNSajQgCjcDPN7k3kTh3qPQ4lRoIoh3rDuXR +/sIhkHcmKBB+bAVOHTESDc1rjnyxCYTcDyl2F8VJ9JEw8GCQgcCz24S5UpJE +5U7t6rGSAOiea8xeTpG4Zi134rsWf/DwLczlYJEo9t7JyX7TGVi317qvkLZd +wJriOY4zcJeHV9BCjsSw7TH1hYN+MJHtFfZAnu6v7PsbjwI/cOrYbeWyi37f +wuI2hz1+YMNq4u/YTaJibpfKkL0vGI4PB+XsJ3HrLm6pky+84WvZtQeHtUjk +4Y+pyyz2hkuhOhNLtEl02Rt05luyNzSJ3D1qeYDEzNLbrZ8cvGG/tvdOXj0S +FTqKGZxc3qCWzTnmb0Si2qJLkOwBL9huzTAxsCSx/WzNVOBnTzBTDVicos0m ++7yNWjwhXKQrJ+4Yia4Bu2tUKj2hpz36d4cViao7VXV14z3hkvZsusVxEvl5 +ZERs93rCBKtlzMmBxNpk1DO54wEFywKDw9xJ3PG2PvJlmDu8+9QlRXiQSAo/ +eMrn6Q7Laljtz2hz1n63Zdu4g+WZEYL7NIk3HA76HNnjDv98NX55xZvELEac +0MrpU8B+KyX4rz+dF0fwX5dPbrA1721+RTiJoodnzP/7yAbR+QcfHM//vz/n +C6pVbODRS1gtFEHieonnnQU32DA9edDV+wKJ133O7/xryoYyVpO0XBSJrO1X +Ih06XEHjYdWd/FgSS7b3h4h2uMDR55k5/94gcRkccVv/1Ql0RILf6qeQ2Ctd +5fa21QlUXaxWLNC+q+L8uPK+E4j9s9HRIo3EX68WSwfPOMGgYQIpnEGiqUwT +o26FE7i/jciOyyYxYHPzQpiUI1wYdr0VXkyibb77VfnwEyBcM5wpW0JiRdjI +FyPXE5CXfDyjh7bVtXS8ZHwCmrVN03bep/POB5/DEieAL18jefABiUVyL6tk +au0h9ZRItOYjEjmapCZnl9pD8a9nnsuekTjbXB/BlWoL6m/UPYppT1WY5LEj +bKHtTtUpy0YS02N2qI+728IP83vs0uckHjrnacXabwsqj9Mc7F+SeCzG1Lv3 +23FoCPEyb2glsTIuzzJb/zi855bUCP9A97+dJ19B0AZ+zey7z+wh8bnNBsXK +ZTYg2OfMfEp7YE1S9s1hazC+X8LF1UuidI9998lMa2i2UH95oZ/E0x0Rex4J +W0N1gc3h6CESRUYaXHh5rCDLIN0hforEo2XLb9/ls4Q6pfq3ctMk9on/rBWY +sYB+yRHtdtrP8kWCUzotYNPsjq0C/5E49iLUnvu6BSSlV08lzpDI51Aj7iJh +ARenP/pdn6P/l4q/1wSUzMEtXjQ6g5NC00iTHoVAMzCerg81WEZhsHKzLcva +DHYZuPr/oc0TsJBqoGEGC6sqnc24KGxI4EqcXGkGl0JMtdetonDiR6Pvw2RT +yHOPXx7MQ2HCaES+06MjMGKwMthahEJJvvBBqQ0m0FRQ5LtmA13vB4/9+iUm +cJfb9NQj2lXZxwix0cPg8yzbSkiUwuGsttGIssPApbZ3z2sxCptTqj+UHD4M +zO1Bv9WYFF5vNpc2SjoENqtnvMRkKNS95aLWvd0Y3vhr9tXS7l1xvjtdxBg0 +xhIO2MlSmH9gdVLAcmPY/EJBLJdF4abqPWu8PxrBcIRvI2snhVbHb7udjDGC +k0vnRfYpU6je7dNrPXMQ/OeW1LjupXDW4DvbKt0Qxp2MpXg0Kfws8fepSKAh +WL67ebWY9lzfzo55M0NQK9/r9GMfhTNFUS7y/IawxPs87zltCg8KSSxhXzSA +yOmV9vH6FCbn5Xr0BepD4sjaVQ9NKfzguC27KkgXbvf+UTczo/Df574dKTa6 +UNb5xX+Wdqnwz4spGrrwrr5+QsGczj/n9OI8ly5syPBtvWdJYeeWEyZ74nQg +w6wvueA4hf0SVq5Z+Qcg78VdMsOVwotna28wZrXgUW2KNbAplI2suNPaowXN +5ZHXemnLB0jtSqvTgslsW+5NbhT6XWw1iI7RAtlQwa/X3Sm8pu2sXEFpwQOV +oAdXvenvLzOS2m29H2rz9TUvnKPnHbRWedNnTUgSrObcGUyhxw4TK7kXmsAO +2VHfT1vMtqPHvlgThE3XaqiE0vMa2GglcU4TPJa+gclwCs2XH302s0kTJI8e +3n0oikK2PZ/eqM1eCOeykBNPpLD7TEa85Lw6mHu8/PaS9n/pxkuyhtRBtmd3 +iV8ShWp/2e1qrerQUyIq25ZM7+8F5W212eqgcKx3+/kbFBY8WBb81Ugdhu8f +lxpPp7BI5PP1/rsI2sedGOV5FIYdcGkqnlGD/I8hxmb59LzTm8OE29SAxzwl +fI52eqjJmdtFatBp3DK6u5BCe6Vuz52uamCrubOktohCr4o94gKDeyCA4tBo +KqXQubdkpLpHFe5OJtt9rKbw+8htmaJRFeB1KUkMqqFQZWnd1rgmFfAabmoU +r6X3/29AeEKBCqj0LWy1fUKhAJ6uXHRXgcZWu5nhegrXrHHVOjavDP33Zc5P +P6dwmY1S92ZBZeD3b7zN2U7hw6FiYthWEXQcJa6V035WZpOUvU8RQg8HXHTt +oFD7GFvz4hZFmN4hw27vpFBHqTOn6usuaBlIYt16R6GqtFhdS+AuiNR3qNLo +pdBSaHWGf7oC/GEsbwv5QmHtAqdcy4I8yPNY1yuMUWg72+lVPygPLvMVpV9o +p24Xe/32pTy872QnG01QuDP+C+vYDXkoi+qwlJiiMNpQO65LSR48Zm6N1M5Q +6CnDZ2QXIAe5nxbeef2g8O1U5VUleznobzFt2vKTwtCVAZnS+nJgcGd14ZVZ +Ci1kGHH24nKwzeq0p81vCvv2Hvm69SkL7HRf2QnMUyhTN/Rg4C4LbihRJs9p +8w7EypVfY8Eq/g+Ksgt0vst164vZLEAOBalB2mP3Xl3tOsICv8mYDdcWKXw0 +px8vpM6Cou7R1Xp/KYxd6ZJ2eisLhhs1Fv7SBo3Rq2PrWfA/wL2bng== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9204786976383865}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.9204786976383865}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.99313574630928*^9, + 3.993135754247123*^9}}, + CellLabel->"Out[23]=",ExpressionUUID->"f551cb4a-f97b-4c24-a786-263cfa55ee7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519993740715*^9, + 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ +f05e39e52441"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519995212555*^9, + 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ +f5e698425a9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9, {3.993135838056897*^9, 3.993135838995708*^9}}, + CellLabel->"In[24]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.175, $CellContext`xmax$$ = + 11.92, $CellContext`xmin$$ = 7.84, $CellContext`ymax$$ = + 0.924, $CellContext`yyv$$ = 2.65, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.7, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {108.6547752288461, 114.2797752288461}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.7, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {197.5704002288461, 203.1954002288461}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{ + 3.9924889078442383`*^9, 3.992489848193634*^9, {3.99313581832227*^9, + 3.9931358400965023`*^9}}, + CellLabel->"Out[25]=",ExpressionUUID->"1142e8fd-e129-48a9-9532-f7b1753b614b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.99313593440448*^9, 3.993135937119914*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVx3881HccwPGrh7hzpUVFWnbfu+99Trk2NSI/er/zI6Pkxz2SCt38SEkq +j/wWQnQ3pUtzLWXW0oOwOZwy+1GhubTS9ohcyTUPmUZtfuUedXe7/fF6vB5P +KvpwaNx8BoPha+z/F12h6MCDHLy5te7gy5wy0N3t0I4lcjDSZfnuSXEZuBZG +7fm9lIMfaq5uU3NlUH3+h9WNSg5GeM3daH53GsazLBeZDXDwclOxVW2KFOJa +HSJFBg7eV6nIAtti6KvIHxqnKbQiz244uxQCFf441eBHIatNdOTOkxNQGT+W +aZZE4brq5Ef8tbkwE6gtOyWj0LdIXrE2Iwu8h7YMhbVQSJm+iC/3SYeOjh1y +WzWFm1gjMRXOKbAqVxy7U0fhdOjPqYPNyVB7Wlgp4XHR1Svo5paQIyD022DO +8uei+OjICpU0EaT97l/MS+SiUtf9o6njAVjRPj/jjYyLy1e3mpro46AgpSsr +TMnFPrFgn6M4BuwK/P9uesrFJrMH0wPDYlC4s09HzOPhqNZ2VFMYCXY93d65 +NA+XDT6sSDPbDT81+MXLA3jYUJznIVeGwYb4O1/bJ/EwR81fuVIvgms9meZm +Mh62y3a9X1AdAp8VTL9Qt/JQeHz92/7e7dC5JOGBQM1D7gRliBRsheSpKkEC +g8aWbcEZX9X7gU3esmYtn8Y39Qm9ROEDF4ZPiub701jqb14xDV4QcPGGmHGY +xlsX3MKXqAH6BCP5aedoxOuqwCMLPWCXOLjfXUnjIQe7cM0dV7AYz74wo6bx +ZsTMi6dVznB5e3WSvZ7GFPuaq0EffApRJqWKYJqPvZeGheurHEF79hhr0o+P +zZcu1oV5r4WSbnmZJoGPAfafc3wfrYYQUba08ywfLVSHPsqVEPinJaKcauFj +SMPRKS81D24f0FscU/PRJzTrdWUgBRLVYJsVg6Azmy+c8LADB0ZbhpBHsKpm +WBJeawsGyY5rbv4EPymamTrpZQ0NryZGbycSFGJljk3mUhDNduwpLyV4xb11 +OMPSEhx27PEQKwnO7ZVY2ZxdDIPS1+u+fUKwyMVJyutlQ5LbqmocICjdee5V +8i026Me22jw3unr2O7qnkQ12/rV6m6cEdU0fW5bL2BBlFttzZpAgI32935ci +NmgKBmIz/yRoq+xUOQ2Yw3B2pzxknOC92lDfvlcsOCacMn9jdF0NiXd5xgKT +Z1ROyQRBRX1wd9VvLKDdc2N/fU3QQ7NoQ0kjC2K1G9d5/kswf5vMsyuVBS9T +vr9nP0vwQcC+uXYTFqTyn3veNdpw12q0cpYJpo8XKmLeEux4qOmR/MUEgVOC +vHKOYJpiJC7tPhP2T9KxS98RbBMfj1KcZ8LcN6J+hdGb7Oby/ihiwqmQ/ICg +9wT3+o6n6NKZUNM45CjVEczefblrfyQTXMUWVwV6gms6z1hfD2JC92JP6y6j +N5ZEr5nazITwXw5Kow0EU6k2rbcTE8aSLuoMRtcccD5xiTDhP9F45dQ= + "]]}, + 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:eJwVx3881HccwPGrh7hzpUVFWnbfu+99Trk2NSI/er/zI6Pkxz2SCt38SEkq +j/wWQnQ3pUtzLWXW0oOwOZwy+1GhubTS9ohcyTUPmUZtfuUedXe7/fF6vB5P +KvpwaNx8BoPha+z/F12h6MCDHLy5te7gy5wy0N3t0I4lcjDSZfnuSXEZuBZG +7fm9lIMfaq5uU3NlUH3+h9WNSg5GeM3daH53GsazLBeZDXDwclOxVW2KFOJa +HSJFBg7eV6nIAtti6KvIHxqnKbQiz244uxQCFf441eBHIatNdOTOkxNQGT+W +aZZE4brq5Ef8tbkwE6gtOyWj0LdIXrE2Iwu8h7YMhbVQSJm+iC/3SYeOjh1y +WzWFm1gjMRXOKbAqVxy7U0fhdOjPqYPNyVB7Wlgp4XHR1Svo5paQIyD022DO +8uei+OjICpU0EaT97l/MS+SiUtf9o6njAVjRPj/jjYyLy1e3mpro46AgpSsr +TMnFPrFgn6M4BuwK/P9uesrFJrMH0wPDYlC4s09HzOPhqNZ2VFMYCXY93d65 +NA+XDT6sSDPbDT81+MXLA3jYUJznIVeGwYb4O1/bJ/EwR81fuVIvgms9meZm +Mh62y3a9X1AdAp8VTL9Qt/JQeHz92/7e7dC5JOGBQM1D7gRliBRsheSpKkEC +g8aWbcEZX9X7gU3esmYtn8Y39Qm9ROEDF4ZPiub701jqb14xDV4QcPGGmHGY +xlsX3MKXqAH6BCP5aedoxOuqwCMLPWCXOLjfXUnjIQe7cM0dV7AYz74wo6bx +ZsTMi6dVznB5e3WSvZ7GFPuaq0EffApRJqWKYJqPvZeGheurHEF79hhr0o+P +zZcu1oV5r4WSbnmZJoGPAfafc3wfrYYQUba08ywfLVSHPsqVEPinJaKcauFj +SMPRKS81D24f0FscU/PRJzTrdWUgBRLVYJsVg6Azmy+c8LADB0ZbhpBHsKpm +WBJeawsGyY5rbv4EPymamTrpZQ0NryZGbycSFGJljk3mUhDNduwpLyV4xb11 +OMPSEhx27PEQKwnO7ZVY2ZxdDIPS1+u+fUKwyMVJyutlQ5LbqmocICjdee5V +8i026Me22jw3unr2O7qnkQ12/rV6m6cEdU0fW5bL2BBlFttzZpAgI32935ci +NmgKBmIz/yRoq+xUOQ2Yw3B2pzxknOC92lDfvlcsOCacMn9jdF0NiXd5xgKT +Z1ROyQRBRX1wd9VvLKDdc2N/fU3QQ7NoQ0kjC2K1G9d5/kswf5vMsyuVBS9T +vr9nP0vwQcC+uXYTFqTyn3veNdpw12q0cpYJpo8XKmLeEux4qOmR/MUEgVOC +vHKOYJpiJC7tPhP2T9KxS98RbBMfj1KcZ8LcN6J+hdGb7Oby/ihiwqmQ/ICg +9wT3+o6n6NKZUNM45CjVEczefblrfyQTXMUWVwV6gms6z1hfD2JC92JP6y6j +N5ZEr5nazITwXw5Kow0EU6k2rbcTE8aSLuoMRtcccD5xiTDhP9F45dQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.019038772889711203`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.019038772889711203`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3881HccwPGrh7hzpUVFWnbfu+99Trk2NSI/er/zI6Pkxz2SCt38SEkq +j/wWQnQ3pUtzLWXW0oOwOZwy+1GhubTS9ohcyTUPmUZtfuUedXe7/fF6vB5P +KvpwaNx8BoPha+z/F12h6MCDHLy5te7gy5wy0N3t0I4lcjDSZfnuSXEZuBZG +7fm9lIMfaq5uU3NlUH3+h9WNSg5GeM3daH53GsazLBeZDXDwclOxVW2KFOJa +HSJFBg7eV6nIAtti6KvIHxqnKbQiz244uxQCFf441eBHIatNdOTOkxNQGT+W +aZZE4brq5Ef8tbkwE6gtOyWj0LdIXrE2Iwu8h7YMhbVQSJm+iC/3SYeOjh1y +WzWFm1gjMRXOKbAqVxy7U0fhdOjPqYPNyVB7Wlgp4XHR1Svo5paQIyD022DO +8uei+OjICpU0EaT97l/MS+SiUtf9o6njAVjRPj/jjYyLy1e3mpro46AgpSsr +TMnFPrFgn6M4BuwK/P9uesrFJrMH0wPDYlC4s09HzOPhqNZ2VFMYCXY93d65 +NA+XDT6sSDPbDT81+MXLA3jYUJznIVeGwYb4O1/bJ/EwR81fuVIvgms9meZm +Mh62y3a9X1AdAp8VTL9Qt/JQeHz92/7e7dC5JOGBQM1D7gRliBRsheSpKkEC +g8aWbcEZX9X7gU3esmYtn8Y39Qm9ROEDF4ZPiub701jqb14xDV4QcPGGmHGY +xlsX3MKXqAH6BCP5aedoxOuqwCMLPWCXOLjfXUnjIQe7cM0dV7AYz74wo6bx +ZsTMi6dVznB5e3WSvZ7GFPuaq0EffApRJqWKYJqPvZeGheurHEF79hhr0o+P +zZcu1oV5r4WSbnmZJoGPAfafc3wfrYYQUba08ywfLVSHPsqVEPinJaKcauFj +SMPRKS81D24f0FscU/PRJzTrdWUgBRLVYJsVg6Azmy+c8LADB0ZbhpBHsKpm +WBJeawsGyY5rbv4EPymamTrpZQ0NryZGbycSFGJljk3mUhDNduwpLyV4xb11 +OMPSEhx27PEQKwnO7ZVY2ZxdDIPS1+u+fUKwyMVJyutlQ5LbqmocICjdee5V +8i026Me22jw3unr2O7qnkQ12/rV6m6cEdU0fW5bL2BBlFttzZpAgI32935ci +NmgKBmIz/yRoq+xUOQ2Yw3B2pzxknOC92lDfvlcsOCacMn9jdF0NiXd5xgKT +Z1ROyQRBRX1wd9VvLKDdc2N/fU3QQ7NoQ0kjC2K1G9d5/kswf5vMsyuVBS9T +vr9nP0vwQcC+uXYTFqTyn3veNdpw12q0cpYJpo8XKmLeEux4qOmR/MUEgVOC +vHKOYJpiJC7tPhP2T9KxS98RbBMfj1KcZ8LcN6J+hdGb7Oby/ihiwqmQ/ICg +9wT3+o6n6NKZUNM45CjVEczefblrfyQTXMUWVwV6gms6z1hfD2JC92JP6y6j +N5ZEr5nazITwXw5Kow0EU6k2rbcTE8aSLuoMRtcccD5xiTDhP9F45dQ= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.019038772889711203`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.5}, {0., 0.019038772889711203`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.993135883212154*^9, + 3.993135885488761*^9}, {3.993135922977275*^9, 3.993135937689786*^9}}, + CellLabel->"Out[30]=",ExpressionUUID->"db9396b8-dcfa-4fc1-8923-badc9e96d9a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519998013506*^9, + 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519999593614*^9, + 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.595, $CellContext`xmax$$ = + 13.120000000000001`, $CellContext`xmin$$ = + 8.040000000000001, $CellContext`ymax$$ = 0.022, $CellContext`yv$$ = 0.795, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {102.49597752624105`, 108.12097752624105`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {191.41160252624104`, 197.03660252624104`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.993136005956761*^9, 3.993136007549959*^9}}, + CellLabel->"In[32]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03c41W8bAHCyNVDW4YzvNyN7RkbOfSMjIxp2ychOWb/MZCtFlIQIhSSU +igYZDZUUDVEplCIVIocKvef967k+13M997ruh/Tav81nGQcHBzcnB8f/zx+t +7TotY5Lo1Wyw5bL8Q+hW/qaWyZJEekHl0ZyYDrjcwFobuYGCFsulE4RO3IPw +V/7iKyIo6Gp5KPSlZDuY7pKPvdZAwbrehvjLrneA+26eqwKLgm/et0dR6Lfg +YlOwvqWWFCYUPbpncKYB3BjZR2LCpTBouFa2GK/ClATljdMVKYyPE2IKClyG +A993nF/2XQq3+a1ZreNWDQLKAx9aVaTx4sKsitPvCkhYekxRCJBGf6lE6+io +c8C1kavjXDX7nho/bR5zFiIdJr+Pj0ujzq97UhIyBaBRevjW22/SePUUBzks +XADj42Ra53dpbH6IxI2lfNiZsINRPSGNjOySybS3+WBy6dbWgGlp3MeQkm44 +kQ8rOVMaR39LY0GlOcuMJx/O10gmjPBT0ThZpGnFTB50c5ms+SBPxT3rXVue +TuaCRlyp4sd1VLyRGpIqPpgLJ34twRcFKlJqHY8EPcsFx89NeyeUqGjvukrR +oDYXBjp0OpbUqDhbaTzjH5QLY0cUoxkbqCjW+EuMd/wkcAqLDHpYUPGH1HEn +wakToE0dqv7kR0WpD/1J52k5MKa2Mfi1PxVn3ERHa4Vz4KxxvvrjACrymxZ7 +tnPlAL+f/fW6ICo+MfNP5hrPhoH6tjvR+6nYqSk7ONOYDakWZT1CkVT88tJB +MWFbNvSFebEM06joXWWna0Ich9jHI8a55VTUPL5d+7blMegX4N1ypoKKI798 +9HU1j4Gu1TrXc5VU/DcymHCfcgymOgPCrlRRUajjdZnEt6Pg2zVxrquGioef +vHual3UU7LvnuXgaqBiu4fvrR38GyPWu6PjvARUvjFTxVcccge6h9VZOX6io ++5spe28yDYq+4zGXUSqaH9S+0zmQBoHzNs/cxqiY7GckNfw4DbiFfbZ5jFPR +N1p7Tr88DfTglGvABBX/GrpTz7ikQWnxbGAsi4pftaJlVz9MhTDXxqMlvDTk +W/d++FhNCoi92vB0VJ6G3FnyUadKkkA3xripfx0NRxp3HV6ekwSOhPXFxwo0 +/C/tnsuxpCTI3+ueekmJhiq14jJ1PkkgxZNqtF+NhhVEWWqoShIQui9qWTo0 +bOV8afazKRGU8vdm8ZjRMM6e3/v8xwRg7iyzk/GmYWB8pdbFwnjg0whJV9hD +w9Nj+oGJCfHQwwWtqj40nOQamdjnGw9elwbU9PzY8RXSS45oxUPqH4lVtkE0 +tCs9NdT05CB05Wd1HQinYZtbtwTvsoPg0hu7uTOZhvfMdtEfHIyFiC2OpqHl +NEw6XKZSUxcF2c1r1/lU0NAw4Krq48IoqFWaFHSppGHX0PPDs2lR8IX38Aus +oiGvoRQZtzsKnFpveQrX0DD0s08liESBgQYt4fI1Gt7WtjiUFxkJHKtHmn/c +peGMBdTo2R2AzN5Q3cBhGrbviv65SiECpIQU7V0+0pBTgr5smWQEVFoOBVh+ +ouEOl/7dnPwR0NK0pVj+Mw2fLq4blB0Lh4kyZe5PYzSkvLzEWqwKB/t9n5+7 +TdGw1y17dEolHFbzuQTb/qNh0H65sWKjMDith+UaNDoOkeYL5gkh0FXSzLee +TscVipPS30NDgINPP2gDg4761i02xd4h4N+rqcUk6Sj5M6JJxiIEDMJk2qzl +6Nj20v5u66oQGLjEO+CrSsd+PvsAZ9wPaxlP1xQb0dElyXS5yulgqONxTRZw +Z8c/cdw9NjUQdPlenfjLtnGWlVXX/kBo4d9y7sduOv4w3OGv5hoIz5abtD/3 +pKNZeRCfvHogTIgo/SvwoSMXn5X/8JsAUKX/iVEKpqOshmD6Qa0AqNEtDLOO +oyPDvCl/ZtIPLvq99cwspOMykRFp3QIfeJtHaTp5ho48FTO+rFQfEOxwFi0s +ouP2jUHeD8N8IFC2r6PyLB39eVX1z9j4gNLwS+W2c3TMWZXxmp/TB6pdn85O +V9Ox7umLycm9e6DGtu2IcxMd1/xgRWbbe8MV7cp6mQE6Pslqadu2yRPs1XpQ +7j0dT3dOLRI6njCl8Kdb/gMdQzLFLRfkPEGDvmVCcYiO/7gZ/W/4POEyP0tJ +Y4SOui7rmtS7PKDuvVn5xu90XLy6w9LIyQNq0j/nOSzQcd5JhF/thztUvZON +S6cyMCg0flznihsUhdjciKQxsIf3i6l7gRsc54mY9qMz0MegcFVBkhscUL/n +b0kwUPGkR4uZgxtsSvZ0EJBloO/CEiv6rysMKp1VO6rMwBHnJ0HG1q4gHiMx +nGXAQKH+orhvc86QIilonufMwOj8D/0PkhyBeMfqLHRh4ElCXTlznyM0FX+y +K3Fl5xuv2uLr6gjTa++4VO1kYMEbvS5bLUfwVA0Jvu3BwA86Xn8mPzoA0+R1 +7gd/BirJdAhFWDjAfNC5T/LR7PziWxdFaTtgb6tB4o0CBjZ6KH+sm9sKblS5 +q9WFDOxz7CzIHNsKVtFCn4rPMJCptq8v6s1WUNQe2ZRSzMA9YvuaI5q2wpfK +TP6tZQycv18uypmwFXZnDR0fr2LgYtzgVu/lW2HbrrSztJsMlJxBFUFle9D7 ++7wp+TUD8y43HGqQsIXTMhfWhvUxcFk6r37RPxtgWccd8ehnoE5qRmHeqA1c +L5J3MnrLwGyuAomOGzagwYydZr1nIGdagPkqFxtQSJRVDPzMwJR9Wct0S6xB +gi8yz/4XO//XiMZofSuIFci6uUqAwJN3l/PXnrOA+PXvhLPZbpabaXfPtICk +3QoBIoIEVqvxBstEWUBGw12K6HICN3E+3fHZ1gLyPediKCsJHNl/vXTzH3O4 +fsvDSFaEwN8JR3jSHM1hIkD7rj6FwNZeetluqhl4dPY/2aNIYHKYT5jtWxPI +uisb855tdxXX9z6dJtB0O0TBUYnABjHNI0dvm4D4Jf5UC2UCV+vrRC0VmsCT +o3pMJVV2fAOztMSdJqBrm39lUoNA0+DXa2aGjWFFj9OpGD0Cx66s1TFkIdzo +fe2ebUGgdEr9uF8KE27u4dFaY8n2+vv5+/yZcHtGmyePba9Ah/NZNkxoFsm5 +dGYzgfc0C8OlxJhw19Z6vtKaQM6B5GPuF4zg2YPWnDt2BC78EmKm9myELw1V +98edCMzUaP6vYb0hiObFKJn5E9j2n+EVGdQDmL6wvZVtL1vtQzuU9SBwS2+c +fgCBdbzPF/LE9aCdV6NbNZBAZZHXj+x/bIB9kZ/DxfcSaNedw593ZgM8cra/ +M7qfwDKdXWGuf3UhTlrePiOSwMpffNf8HurAp9Ln/3WnEUh78m1FSZY2dHj9 +0rdIJ9DXxDhrbbw2VMtKLLWwHddt/vpasDaEVO1MqztMYM7AwrF/NtqwcHk0 +LzODwNJcOxeDFdog2rp4wzqLwHEX6VrtTC0wf6/45+EpAgv3U4S/5mtCNSUp +vq2c3V98bIFWtTp4hqX7mVQQ2GJlvV8rUx0knxyzv8/2g2bDEpsQdUiPO732 +USWBQolTdd266rBnsKaju4r9/va2hZUP1IBW0bdqsIbA+ZabfE5fVCFbQ7Vk +8Tq7390Gj+IMVSDSor/V4AGBi9wPs32UFcE5eGDpGtsVHPu6+8QUQe/kkJFq +Bzv+QRmvnRyK8OfDWBPjIYEl5ZLmRb0KEH/g9w3uxwTefZzhNpugAGkVUlee +dRF47uKbhH9v10Ee165Sr1cEdr4b2L2iSB4aW4cTMj4RmDoT0vpriywExT0a +WTlC4OFlU3NiG2WB0L9smcP2hpLfRZaKspBxNU44/zOBbwcXvg9zyYJ7hURp +xSiBxzMkxj/ekgG+o7atbd/Y8zl+pV5YUQacHW8tsmYI3H4wQ7x+zVr4+z07 +xpubRGPpsifvxQnwFwqOHmHbu+jnSmV+Al5pbo7y4SExMI7XYfkMA+oOcB7w +4yXxefyVlAc3GeDFERYaxE/igKKZ0QEzBnSu2e4fvoLEPE3dA9e96VBoIOaY +LEqi72pjF65rVNA/XKB5XpZEDp5Bf/l8CvRERqRJy5HYYlnlZZdEAV8/u3cn +2T6oUT6asZcCueY8qSnyJEbrtO7QN6bAJHdov48CiYkd6wTCvklCRaLlIQUV +EvttxMLMTCVBJHauq1abRAe55bnLOSTga7CD/00TEtO9h23nqkVhx6/VHw1M +STRXMSp8eVoUWmJ63O6w7S7cfrQ9RRRy063t7m4icYlaR3vhLgpYZqzbZU7i +pnWbN95fIwp5r1S5h6xIHLHfmPkhYQ1sMuQt5dtOokTTrouH/FZDCf+NPkdv +Evm0XI4YewvD+p3hF3rY/ukLyasdhOHRZfVIqz0kdpnuujFpLgzTjlXiTB8S +U7J3lz9TEoZNFQUOcn4kqlbmDxh8EYKvxnEvZwLZ9ftzZnxbLgTascbd2WHs +eY4aN+b5r4SHP550dCaS+JSQ3TXmJQiiFw5qmiSR2D1dx5lgIwgeHupFt9i2 +emlTpKQrCH9enAitSmbXa/o7/KaAIKjcdKGmpZJoJJf483q9AGQnjYYaHyEx +9Fh3uAyPADhLcNFuZpMo2TdSG3SLD8bQILyihMSbhcM7Y3bwAH/Os2XrSkn8 +uhb39yAPKA57nahiO4Uj8aSeKg8EJh6tv1RG4qXps91MXh740T4wWX+eRFN3 +M2vyFjdMmxza23KBRHGnowoaa7lhYdN9n77LJH7c8Hk9HycXCG3e4izQRmJD +PavfYYIDXH2HjZLYTlrSgbuDHFCeHCHzl20s4VQ0fM4Bei2FE9/bSfTQPbhz +23UO8NIeTem5R+KQaTNFLJYDGmkJ9acfkjh/PqLtoyAH7JyuF5TvJrH9pPLm +Ot8lZtUZsTsmH9j7KaqCvNZ/mTkrKVcfsz18fcWFRxp/mTGHqBfsB0lszOHR +Kxf/y7TxlslxHyIxWEUtqvLjH+aUkqZPzEcSi//19b6K/cPUv22z8uoXEqUf +GEbcv/qb2dmfvIucZO+PY5iKndY885pV+rYqttOWIn8KSM8zi5ozLNSn2PNP +mRN4xzXP3Feao2n0k93/acpQa+8cc7V/CY/LDPt+3ronJ2aO6TZ3uzZ7jkRO +b4GDmx6xmJsCWs5JzLP/g3xQuetVFlPtXfvps2z/HJF9mVrEYnK0Pkqs+U2i +8qQpSyqUxSxPe+3w6C+JuR2vZJnSLGbm/BsruwUSRQREnf/wsJgHAt/Da7Yn +Pw/OdE7NMi23jCiOLJK4/Q5V4mLHLFOzbZQetERi0O2myMb6WaaU1rc102yv +XG8601c0y+Qqn+CP/kfiW72oAysPzzK/i00v/mNbWUZrwjF8lvk/wcj6Xw== + + "]]}, + 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:eJwV03c41W8bAHCyNVDW4YzvNyN7RkbOfSMjIxp2ychOWb/MZCtFlIQIhSSU +igYZDZUUDVEplCIVIocKvef967k+13M997ruh/Tav81nGQcHBzcnB8f/zx+t +7TotY5Lo1Wyw5bL8Q+hW/qaWyZJEekHl0ZyYDrjcwFobuYGCFsulE4RO3IPw +V/7iKyIo6Gp5KPSlZDuY7pKPvdZAwbrehvjLrneA+26eqwKLgm/et0dR6Lfg +YlOwvqWWFCYUPbpncKYB3BjZR2LCpTBouFa2GK/ClATljdMVKYyPE2IKClyG +A993nF/2XQq3+a1ZreNWDQLKAx9aVaTx4sKsitPvCkhYekxRCJBGf6lE6+io +c8C1kavjXDX7nho/bR5zFiIdJr+Pj0ujzq97UhIyBaBRevjW22/SePUUBzks +XADj42Ra53dpbH6IxI2lfNiZsINRPSGNjOySybS3+WBy6dbWgGlp3MeQkm44 +kQ8rOVMaR39LY0GlOcuMJx/O10gmjPBT0ThZpGnFTB50c5ms+SBPxT3rXVue +TuaCRlyp4sd1VLyRGpIqPpgLJ34twRcFKlJqHY8EPcsFx89NeyeUqGjvukrR +oDYXBjp0OpbUqDhbaTzjH5QLY0cUoxkbqCjW+EuMd/wkcAqLDHpYUPGH1HEn +wakToE0dqv7kR0WpD/1J52k5MKa2Mfi1PxVn3ERHa4Vz4KxxvvrjACrymxZ7 +tnPlAL+f/fW6ICo+MfNP5hrPhoH6tjvR+6nYqSk7ONOYDakWZT1CkVT88tJB +MWFbNvSFebEM06joXWWna0Ich9jHI8a55VTUPL5d+7blMegX4N1ypoKKI798 +9HU1j4Gu1TrXc5VU/DcymHCfcgymOgPCrlRRUajjdZnEt6Pg2zVxrquGioef +vHual3UU7LvnuXgaqBiu4fvrR38GyPWu6PjvARUvjFTxVcccge6h9VZOX6io ++5spe28yDYq+4zGXUSqaH9S+0zmQBoHzNs/cxqiY7GckNfw4DbiFfbZ5jFPR +N1p7Tr88DfTglGvABBX/GrpTz7ikQWnxbGAsi4pftaJlVz9MhTDXxqMlvDTk +W/d++FhNCoi92vB0VJ6G3FnyUadKkkA3xripfx0NRxp3HV6ekwSOhPXFxwo0 +/C/tnsuxpCTI3+ueekmJhiq14jJ1PkkgxZNqtF+NhhVEWWqoShIQui9qWTo0 +bOV8afazKRGU8vdm8ZjRMM6e3/v8xwRg7iyzk/GmYWB8pdbFwnjg0whJV9hD +w9Nj+oGJCfHQwwWtqj40nOQamdjnGw9elwbU9PzY8RXSS45oxUPqH4lVtkE0 +tCs9NdT05CB05Wd1HQinYZtbtwTvsoPg0hu7uTOZhvfMdtEfHIyFiC2OpqHl +NEw6XKZSUxcF2c1r1/lU0NAw4Krq48IoqFWaFHSppGHX0PPDs2lR8IX38Aus +oiGvoRQZtzsKnFpveQrX0DD0s08liESBgQYt4fI1Gt7WtjiUFxkJHKtHmn/c +peGMBdTo2R2AzN5Q3cBhGrbviv65SiECpIQU7V0+0pBTgr5smWQEVFoOBVh+ +ouEOl/7dnPwR0NK0pVj+Mw2fLq4blB0Lh4kyZe5PYzSkvLzEWqwKB/t9n5+7 +TdGw1y17dEolHFbzuQTb/qNh0H65sWKjMDith+UaNDoOkeYL5gkh0FXSzLee +TscVipPS30NDgINPP2gDg4761i02xd4h4N+rqcUk6Sj5M6JJxiIEDMJk2qzl +6Nj20v5u66oQGLjEO+CrSsd+PvsAZ9wPaxlP1xQb0dElyXS5yulgqONxTRZw +Z8c/cdw9NjUQdPlenfjLtnGWlVXX/kBo4d9y7sduOv4w3OGv5hoIz5abtD/3 +pKNZeRCfvHogTIgo/SvwoSMXn5X/8JsAUKX/iVEKpqOshmD6Qa0AqNEtDLOO +oyPDvCl/ZtIPLvq99cwspOMykRFp3QIfeJtHaTp5ho48FTO+rFQfEOxwFi0s +ouP2jUHeD8N8IFC2r6PyLB39eVX1z9j4gNLwS+W2c3TMWZXxmp/TB6pdn85O +V9Ox7umLycm9e6DGtu2IcxMd1/xgRWbbe8MV7cp6mQE6Pslqadu2yRPs1XpQ +7j0dT3dOLRI6njCl8Kdb/gMdQzLFLRfkPEGDvmVCcYiO/7gZ/W/4POEyP0tJ +Y4SOui7rmtS7PKDuvVn5xu90XLy6w9LIyQNq0j/nOSzQcd5JhF/thztUvZON +S6cyMCg0flznihsUhdjciKQxsIf3i6l7gRsc54mY9qMz0MegcFVBkhscUL/n +b0kwUPGkR4uZgxtsSvZ0EJBloO/CEiv6rysMKp1VO6rMwBHnJ0HG1q4gHiMx +nGXAQKH+orhvc86QIilonufMwOj8D/0PkhyBeMfqLHRh4ElCXTlznyM0FX+y +K3Fl5xuv2uLr6gjTa++4VO1kYMEbvS5bLUfwVA0Jvu3BwA86Xn8mPzoA0+R1 +7gd/BirJdAhFWDjAfNC5T/LR7PziWxdFaTtgb6tB4o0CBjZ6KH+sm9sKblS5 +q9WFDOxz7CzIHNsKVtFCn4rPMJCptq8v6s1WUNQe2ZRSzMA9YvuaI5q2wpfK +TP6tZQycv18uypmwFXZnDR0fr2LgYtzgVu/lW2HbrrSztJsMlJxBFUFle9D7 ++7wp+TUD8y43HGqQsIXTMhfWhvUxcFk6r37RPxtgWccd8ehnoE5qRmHeqA1c +L5J3MnrLwGyuAomOGzagwYydZr1nIGdagPkqFxtQSJRVDPzMwJR9Wct0S6xB +gi8yz/4XO//XiMZofSuIFci6uUqAwJN3l/PXnrOA+PXvhLPZbpabaXfPtICk +3QoBIoIEVqvxBstEWUBGw12K6HICN3E+3fHZ1gLyPediKCsJHNl/vXTzH3O4 +fsvDSFaEwN8JR3jSHM1hIkD7rj6FwNZeetluqhl4dPY/2aNIYHKYT5jtWxPI +uisb855tdxXX9z6dJtB0O0TBUYnABjHNI0dvm4D4Jf5UC2UCV+vrRC0VmsCT +o3pMJVV2fAOztMSdJqBrm39lUoNA0+DXa2aGjWFFj9OpGD0Cx66s1TFkIdzo +fe2ebUGgdEr9uF8KE27u4dFaY8n2+vv5+/yZcHtGmyePba9Ah/NZNkxoFsm5 +dGYzgfc0C8OlxJhw19Z6vtKaQM6B5GPuF4zg2YPWnDt2BC78EmKm9myELw1V +98edCMzUaP6vYb0hiObFKJn5E9j2n+EVGdQDmL6wvZVtL1vtQzuU9SBwS2+c +fgCBdbzPF/LE9aCdV6NbNZBAZZHXj+x/bIB9kZ/DxfcSaNedw593ZgM8cra/ +M7qfwDKdXWGuf3UhTlrePiOSwMpffNf8HurAp9Ln/3WnEUh78m1FSZY2dHj9 +0rdIJ9DXxDhrbbw2VMtKLLWwHddt/vpasDaEVO1MqztMYM7AwrF/NtqwcHk0 +LzODwNJcOxeDFdog2rp4wzqLwHEX6VrtTC0wf6/45+EpAgv3U4S/5mtCNSUp +vq2c3V98bIFWtTp4hqX7mVQQ2GJlvV8rUx0knxyzv8/2g2bDEpsQdUiPO732 +USWBQolTdd266rBnsKaju4r9/va2hZUP1IBW0bdqsIbA+ZabfE5fVCFbQ7Vk +8Tq7390Gj+IMVSDSor/V4AGBi9wPs32UFcE5eGDpGtsVHPu6+8QUQe/kkJFq +Bzv+QRmvnRyK8OfDWBPjIYEl5ZLmRb0KEH/g9w3uxwTefZzhNpugAGkVUlee +dRF47uKbhH9v10Ee165Sr1cEdr4b2L2iSB4aW4cTMj4RmDoT0vpriywExT0a +WTlC4OFlU3NiG2WB0L9smcP2hpLfRZaKspBxNU44/zOBbwcXvg9zyYJ7hURp +xSiBxzMkxj/ekgG+o7atbd/Y8zl+pV5YUQacHW8tsmYI3H4wQ7x+zVr4+z07 +xpubRGPpsifvxQnwFwqOHmHbu+jnSmV+Al5pbo7y4SExMI7XYfkMA+oOcB7w +4yXxefyVlAc3GeDFERYaxE/igKKZ0QEzBnSu2e4fvoLEPE3dA9e96VBoIOaY +LEqi72pjF65rVNA/XKB5XpZEDp5Bf/l8CvRERqRJy5HYYlnlZZdEAV8/u3cn +2T6oUT6asZcCueY8qSnyJEbrtO7QN6bAJHdov48CiYkd6wTCvklCRaLlIQUV +EvttxMLMTCVBJHauq1abRAe55bnLOSTga7CD/00TEtO9h23nqkVhx6/VHw1M +STRXMSp8eVoUWmJ63O6w7S7cfrQ9RRRy063t7m4icYlaR3vhLgpYZqzbZU7i +pnWbN95fIwp5r1S5h6xIHLHfmPkhYQ1sMuQt5dtOokTTrouH/FZDCf+NPkdv +Evm0XI4YewvD+p3hF3rY/ukLyasdhOHRZfVIqz0kdpnuujFpLgzTjlXiTB8S +U7J3lz9TEoZNFQUOcn4kqlbmDxh8EYKvxnEvZwLZ9ftzZnxbLgTascbd2WHs +eY4aN+b5r4SHP550dCaS+JSQ3TXmJQiiFw5qmiSR2D1dx5lgIwgeHupFt9i2 +emlTpKQrCH9enAitSmbXa/o7/KaAIKjcdKGmpZJoJJf483q9AGQnjYYaHyEx +9Fh3uAyPADhLcNFuZpMo2TdSG3SLD8bQILyihMSbhcM7Y3bwAH/Os2XrSkn8 +uhb39yAPKA57nahiO4Uj8aSeKg8EJh6tv1RG4qXps91MXh740T4wWX+eRFN3 +M2vyFjdMmxza23KBRHGnowoaa7lhYdN9n77LJH7c8Hk9HycXCG3e4izQRmJD +PavfYYIDXH2HjZLYTlrSgbuDHFCeHCHzl20s4VQ0fM4Bei2FE9/bSfTQPbhz +23UO8NIeTem5R+KQaTNFLJYDGmkJ9acfkjh/PqLtoyAH7JyuF5TvJrH9pPLm +Ot8lZtUZsTsmH9j7KaqCvNZ/mTkrKVcfsz18fcWFRxp/mTGHqBfsB0lszOHR +Kxf/y7TxlslxHyIxWEUtqvLjH+aUkqZPzEcSi//19b6K/cPUv22z8uoXEqUf +GEbcv/qb2dmfvIucZO+PY5iKndY885pV+rYqttOWIn8KSM8zi5ozLNSn2PNP +mRN4xzXP3Feao2n0k93/acpQa+8cc7V/CY/LDPt+3ronJ2aO6TZ3uzZ7jkRO +b4GDmx6xmJsCWs5JzLP/g3xQuetVFlPtXfvps2z/HJF9mVrEYnK0Pkqs+U2i +8qQpSyqUxSxPe+3w6C+JuR2vZJnSLGbm/BsruwUSRQREnf/wsJgHAt/Da7Yn +Pw/OdE7NMi23jCiOLJK4/Q5V4mLHLFOzbZQetERi0O2myMb6WaaU1rc102yv +XG8601c0y+Qqn+CP/kfiW72oAysPzzK/i00v/mNbWUZrwjF8lvk/wcj6Xw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.18086806602284172`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.18086806602284172`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c41W8bAHCyNVDW4YzvNyN7RkbOfSMjIxp2ychOWb/MZCtFlIQIhSSU +igYZDZUUDVEplCIVIocKvef967k+13M997ruh/Tav81nGQcHBzcnB8f/zx+t +7TotY5Lo1Wyw5bL8Q+hW/qaWyZJEekHl0ZyYDrjcwFobuYGCFsulE4RO3IPw +V/7iKyIo6Gp5KPSlZDuY7pKPvdZAwbrehvjLrneA+26eqwKLgm/et0dR6Lfg +YlOwvqWWFCYUPbpncKYB3BjZR2LCpTBouFa2GK/ClATljdMVKYyPE2IKClyG +A993nF/2XQq3+a1ZreNWDQLKAx9aVaTx4sKsitPvCkhYekxRCJBGf6lE6+io +c8C1kavjXDX7nho/bR5zFiIdJr+Pj0ujzq97UhIyBaBRevjW22/SePUUBzks +XADj42Ra53dpbH6IxI2lfNiZsINRPSGNjOySybS3+WBy6dbWgGlp3MeQkm44 +kQ8rOVMaR39LY0GlOcuMJx/O10gmjPBT0ThZpGnFTB50c5ms+SBPxT3rXVue +TuaCRlyp4sd1VLyRGpIqPpgLJ34twRcFKlJqHY8EPcsFx89NeyeUqGjvukrR +oDYXBjp0OpbUqDhbaTzjH5QLY0cUoxkbqCjW+EuMd/wkcAqLDHpYUPGH1HEn +wakToE0dqv7kR0WpD/1J52k5MKa2Mfi1PxVn3ERHa4Vz4KxxvvrjACrymxZ7 +tnPlAL+f/fW6ICo+MfNP5hrPhoH6tjvR+6nYqSk7ONOYDakWZT1CkVT88tJB +MWFbNvSFebEM06joXWWna0Ich9jHI8a55VTUPL5d+7blMegX4N1ypoKKI798 +9HU1j4Gu1TrXc5VU/DcymHCfcgymOgPCrlRRUajjdZnEt6Pg2zVxrquGioef +vHual3UU7LvnuXgaqBiu4fvrR38GyPWu6PjvARUvjFTxVcccge6h9VZOX6io ++5spe28yDYq+4zGXUSqaH9S+0zmQBoHzNs/cxqiY7GckNfw4DbiFfbZ5jFPR +N1p7Tr88DfTglGvABBX/GrpTz7ikQWnxbGAsi4pftaJlVz9MhTDXxqMlvDTk +W/d++FhNCoi92vB0VJ6G3FnyUadKkkA3xripfx0NRxp3HV6ekwSOhPXFxwo0 +/C/tnsuxpCTI3+ueekmJhiq14jJ1PkkgxZNqtF+NhhVEWWqoShIQui9qWTo0 +bOV8afazKRGU8vdm8ZjRMM6e3/v8xwRg7iyzk/GmYWB8pdbFwnjg0whJV9hD +w9Nj+oGJCfHQwwWtqj40nOQamdjnGw9elwbU9PzY8RXSS45oxUPqH4lVtkE0 +tCs9NdT05CB05Wd1HQinYZtbtwTvsoPg0hu7uTOZhvfMdtEfHIyFiC2OpqHl +NEw6XKZSUxcF2c1r1/lU0NAw4Krq48IoqFWaFHSppGHX0PPDs2lR8IX38Aus +oiGvoRQZtzsKnFpveQrX0DD0s08liESBgQYt4fI1Gt7WtjiUFxkJHKtHmn/c +peGMBdTo2R2AzN5Q3cBhGrbviv65SiECpIQU7V0+0pBTgr5smWQEVFoOBVh+ +ouEOl/7dnPwR0NK0pVj+Mw2fLq4blB0Lh4kyZe5PYzSkvLzEWqwKB/t9n5+7 +TdGw1y17dEolHFbzuQTb/qNh0H65sWKjMDith+UaNDoOkeYL5gkh0FXSzLee +TscVipPS30NDgINPP2gDg4761i02xd4h4N+rqcUk6Sj5M6JJxiIEDMJk2qzl +6Nj20v5u66oQGLjEO+CrSsd+PvsAZ9wPaxlP1xQb0dElyXS5yulgqONxTRZw +Z8c/cdw9NjUQdPlenfjLtnGWlVXX/kBo4d9y7sduOv4w3OGv5hoIz5abtD/3 +pKNZeRCfvHogTIgo/SvwoSMXn5X/8JsAUKX/iVEKpqOshmD6Qa0AqNEtDLOO +oyPDvCl/ZtIPLvq99cwspOMykRFp3QIfeJtHaTp5ho48FTO+rFQfEOxwFi0s +ouP2jUHeD8N8IFC2r6PyLB39eVX1z9j4gNLwS+W2c3TMWZXxmp/TB6pdn85O +V9Ox7umLycm9e6DGtu2IcxMd1/xgRWbbe8MV7cp6mQE6Pslqadu2yRPs1XpQ +7j0dT3dOLRI6njCl8Kdb/gMdQzLFLRfkPEGDvmVCcYiO/7gZ/W/4POEyP0tJ +Y4SOui7rmtS7PKDuvVn5xu90XLy6w9LIyQNq0j/nOSzQcd5JhF/thztUvZON +S6cyMCg0flznihsUhdjciKQxsIf3i6l7gRsc54mY9qMz0MegcFVBkhscUL/n +b0kwUPGkR4uZgxtsSvZ0EJBloO/CEiv6rysMKp1VO6rMwBHnJ0HG1q4gHiMx +nGXAQKH+orhvc86QIilonufMwOj8D/0PkhyBeMfqLHRh4ElCXTlznyM0FX+y +K3Fl5xuv2uLr6gjTa++4VO1kYMEbvS5bLUfwVA0Jvu3BwA86Xn8mPzoA0+R1 +7gd/BirJdAhFWDjAfNC5T/LR7PziWxdFaTtgb6tB4o0CBjZ6KH+sm9sKblS5 +q9WFDOxz7CzIHNsKVtFCn4rPMJCptq8v6s1WUNQe2ZRSzMA9YvuaI5q2wpfK +TP6tZQycv18uypmwFXZnDR0fr2LgYtzgVu/lW2HbrrSztJsMlJxBFUFle9D7 ++7wp+TUD8y43HGqQsIXTMhfWhvUxcFk6r37RPxtgWccd8ehnoE5qRmHeqA1c +L5J3MnrLwGyuAomOGzagwYydZr1nIGdagPkqFxtQSJRVDPzMwJR9Wct0S6xB +gi8yz/4XO//XiMZofSuIFci6uUqAwJN3l/PXnrOA+PXvhLPZbpabaXfPtICk +3QoBIoIEVqvxBstEWUBGw12K6HICN3E+3fHZ1gLyPediKCsJHNl/vXTzH3O4 +fsvDSFaEwN8JR3jSHM1hIkD7rj6FwNZeetluqhl4dPY/2aNIYHKYT5jtWxPI +uisb855tdxXX9z6dJtB0O0TBUYnABjHNI0dvm4D4Jf5UC2UCV+vrRC0VmsCT +o3pMJVV2fAOztMSdJqBrm39lUoNA0+DXa2aGjWFFj9OpGD0Cx66s1TFkIdzo +fe2ebUGgdEr9uF8KE27u4dFaY8n2+vv5+/yZcHtGmyePba9Ah/NZNkxoFsm5 +dGYzgfc0C8OlxJhw19Z6vtKaQM6B5GPuF4zg2YPWnDt2BC78EmKm9myELw1V +98edCMzUaP6vYb0hiObFKJn5E9j2n+EVGdQDmL6wvZVtL1vtQzuU9SBwS2+c +fgCBdbzPF/LE9aCdV6NbNZBAZZHXj+x/bIB9kZ/DxfcSaNedw593ZgM8cra/ +M7qfwDKdXWGuf3UhTlrePiOSwMpffNf8HurAp9Ln/3WnEUh78m1FSZY2dHj9 +0rdIJ9DXxDhrbbw2VMtKLLWwHddt/vpasDaEVO1MqztMYM7AwrF/NtqwcHk0 +LzODwNJcOxeDFdog2rp4wzqLwHEX6VrtTC0wf6/45+EpAgv3U4S/5mtCNSUp +vq2c3V98bIFWtTp4hqX7mVQQ2GJlvV8rUx0knxyzv8/2g2bDEpsQdUiPO732 +USWBQolTdd266rBnsKaju4r9/va2hZUP1IBW0bdqsIbA+ZabfE5fVCFbQ7Vk +8Tq7390Gj+IMVSDSor/V4AGBi9wPs32UFcE5eGDpGtsVHPu6+8QUQe/kkJFq +Bzv+QRmvnRyK8OfDWBPjIYEl5ZLmRb0KEH/g9w3uxwTefZzhNpugAGkVUlee +dRF47uKbhH9v10Ee165Sr1cEdr4b2L2iSB4aW4cTMj4RmDoT0vpriywExT0a +WTlC4OFlU3NiG2WB0L9smcP2hpLfRZaKspBxNU44/zOBbwcXvg9zyYJ7hURp +xSiBxzMkxj/ekgG+o7atbd/Y8zl+pV5YUQacHW8tsmYI3H4wQ7x+zVr4+z07 +xpubRGPpsifvxQnwFwqOHmHbu+jnSmV+Al5pbo7y4SExMI7XYfkMA+oOcB7w +4yXxefyVlAc3GeDFERYaxE/igKKZ0QEzBnSu2e4fvoLEPE3dA9e96VBoIOaY +LEqi72pjF65rVNA/XKB5XpZEDp5Bf/l8CvRERqRJy5HYYlnlZZdEAV8/u3cn +2T6oUT6asZcCueY8qSnyJEbrtO7QN6bAJHdov48CiYkd6wTCvklCRaLlIQUV +EvttxMLMTCVBJHauq1abRAe55bnLOSTga7CD/00TEtO9h23nqkVhx6/VHw1M +STRXMSp8eVoUWmJ63O6w7S7cfrQ9RRRy063t7m4icYlaR3vhLgpYZqzbZU7i +pnWbN95fIwp5r1S5h6xIHLHfmPkhYQ1sMuQt5dtOokTTrouH/FZDCf+NPkdv +Evm0XI4YewvD+p3hF3rY/ukLyasdhOHRZfVIqz0kdpnuujFpLgzTjlXiTB8S +U7J3lz9TEoZNFQUOcn4kqlbmDxh8EYKvxnEvZwLZ9ftzZnxbLgTascbd2WHs +eY4aN+b5r4SHP550dCaS+JSQ3TXmJQiiFw5qmiSR2D1dx5lgIwgeHupFt9i2 +emlTpKQrCH9enAitSmbXa/o7/KaAIKjcdKGmpZJoJJf483q9AGQnjYYaHyEx +9Fh3uAyPADhLcNFuZpMo2TdSG3SLD8bQILyihMSbhcM7Y3bwAH/Os2XrSkn8 +uhb39yAPKA57nahiO4Uj8aSeKg8EJh6tv1RG4qXps91MXh740T4wWX+eRFN3 +M2vyFjdMmxza23KBRHGnowoaa7lhYdN9n77LJH7c8Hk9HycXCG3e4izQRmJD +PavfYYIDXH2HjZLYTlrSgbuDHFCeHCHzl20s4VQ0fM4Bei2FE9/bSfTQPbhz +23UO8NIeTem5R+KQaTNFLJYDGmkJ9acfkjh/PqLtoyAH7JyuF5TvJrH9pPLm +Ot8lZtUZsTsmH9j7KaqCvNZ/mTkrKVcfsz18fcWFRxp/mTGHqBfsB0lszOHR +Kxf/y7TxlslxHyIxWEUtqvLjH+aUkqZPzEcSi//19b6K/cPUv22z8uoXEqUf +GEbcv/qb2dmfvIucZO+PY5iKndY885pV+rYqttOWIn8KSM8zi5ozLNSn2PNP +mRN4xzXP3Feao2n0k93/acpQa+8cc7V/CY/LDPt+3ronJ2aO6TZ3uzZ7jkRO +b4GDmx6xmJsCWs5JzLP/g3xQuetVFlPtXfvps2z/HJF9mVrEYnK0Pkqs+U2i +8qQpSyqUxSxPe+3w6C+JuR2vZJnSLGbm/BsruwUSRQREnf/wsJgHAt/Da7Yn +Pw/OdE7NMi23jCiOLJK4/Q5V4mLHLFOzbZQetERi0O2myMb6WaaU1rc102yv +XG8601c0y+Qqn+CP/kfiW72oAysPzzK/i00v/mNbWUZrwjF8lvk/wcj6Xw== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.18086806602284172`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.18086806602284172`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.993136002249071*^9, + 3.99313600894576*^9}}, + CellLabel->"Out[32]=",ExpressionUUID->"db813616-e964-47ac-93f1-351e913bfe3d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992520003015276*^9, + 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ +40714b1d68e9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925200045686483`*^9, + 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ +0db8ce2e2f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.655, $CellContext`xmax$$ = + 8.98, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.47, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {104.3058084932592, 109.9308084932592}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {193.2214334932592, 198.8464334932592}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 11, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9924899121466837`*^9}, + CellLabel->"",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 12, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99248991233014*^9}, + CellLabel->"",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], + +Cell["\<\ +Show::gcomb: Could not combine the graphics objects in + Show[l1111, -Graphics-, PlotRange -> {{6, 13}, {0, 0.15}}].\ +\>", "Message", "MSG", + CellChangeTimes->{3.992520011711594*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[List[List[], List[], TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], List[]], \ +List[Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, \ +List[6.000000000000013`, 0]], Rule[FrameTicks, List[List[Automatic, \ +Automatic], List[Automatic, Automatic]]], Rule[GridLines, List[None, None]], \ +Rule[DisplayFunction, Identity], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.05`], \ +Scaled[0.05`]]]], Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +Rule[DisplayFunction, Identity], Rule[AspectRatio, NCache[Power[GoldenRatio, \ +-1], 0.6180339887498948`]], Rule[Axes, List[True, True]], Rule[AxesLabel, \ +List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, \ +0.18167729113927156`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.02`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", \ +RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \ +\\\"13\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \ +\\\",\\\", \\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \ +\\\"]\\\"}]\\).\"", 2, 31, 1, 25986016694332307851, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9931360008326674`*^9}, + CellLabel->"",ExpressionUUID->"81522ad3-6a13-42b6-9f1d-91ed70ccb1bd"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, 18}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"fba5d0aa-5962-4be9-9088-e4eced07c977"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 71, "Output",ExpressionUUID->"ed2de54d-707e-4cd6-8d5d-c2be38404497"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2581, 75, 149, "Output",ExpressionUUID->"cf49c22e-611d-4276-8297-e8dd947e7e8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8989, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10672, 334, 2782, 81, 149, "Output",ExpressionUUID->"98af4754-6d2d-44f1-8f89-a1ad77c8d100"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13491, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15337, 475, 3717, 109, 158, "Output",ExpressionUUID->"9832fda7-32cc-4337-95be-2c4cebef9b84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19091, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21174, 650, 4787, 138, 193, "Output",ExpressionUUID->"f23e5308-fdbe-4a2b-8b82-4f2b5dbb5ded"] +}, Open ]], +Cell[25976, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26149, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26500, 804, 303, 5, 33, "Output",ExpressionUUID->"1233ef82-900a-4c2d-95a8-f54e01813a8f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26840, 814, 327, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27170, 822, 305, 5, 33, "Output",ExpressionUUID->"a8086991-8106-4642-a91a-30b27069f0ed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27512, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27691, 837, 275, 4, 33, "Output",ExpressionUUID->"b4cdd837-949b-46fc-8a3d-d320181d521e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28003, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28264, 855, 290, 4, 33, "Output",ExpressionUUID->"4eca85b5-ed54-480b-9bb0-7305e7685129"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28591, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28726, 868, 277, 4, 33, "Output",ExpressionUUID->"3b1879f9-3eb3-4d14-ba04-cfe35bf71e34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29040, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29320, 885, 290, 4, 33, "Output",ExpressionUUID->"11711768-a14e-48d1-85ec-95472a53c200"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29647, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29908, 903, 287, 4, 33, "Output",ExpressionUUID->"fd05a8cc-5009-477e-a199-863f3d750794"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30232, 912, 355, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30590, 920, 161, 2, 33, "Output",ExpressionUUID->"8b2c81ac-1053-4c23-9b7f-5b7dc5ab7548"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30788, 927, 361, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31152, 935, 161, 2, 33, "Output",ExpressionUUID->"b02b8802-6391-4653-9f25-c11fcc5f0361"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31350, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31482, 946, 273, 4, 33, "Output",ExpressionUUID->"5cd5011b-e67a-48f3-9c47-c779efec1169"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31792, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31924, 959, 270, 4, 33, "Output",ExpressionUUID->"48ea16a6-9343-4ac7-8d4a-8ef2b9070891"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32231, 968, 2014, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34248, 1021, 16147, 311, 239, "Output",ExpressionUUID->"7e43d5c0-68b0-4ff6-9b48-2d325a962551"] +}, Open ]], +Cell[50410, 1335, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[50563, 1342, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[52842, 1403, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53218, 1415, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[55389, 1475, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[55723, 1487, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[56028, 1494, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[56268, 1502, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[56578, 1509, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[56828, 1516, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[59352, 1581, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[59507, 1586, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[59671, 1591, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[59852, 1598, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[62410, 1671, 3518, 67, 420, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[65965, 1743, 965, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[66933, 1772, 23304, 428, 236, "Output",ExpressionUUID->"f551cb4a-f97b-4c24-a786-263cfa55ee7f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[90274, 2205, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[92640, 2268, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[92991, 2279, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[93220, 2285, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93432, 2292, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[93687, 2298, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[93879, 2303, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[94863, 2331, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], +Cell[95017, 2336, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[95183, 2341, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], +Cell[CellGroupData[{ +Cell[95360, 2348, 2625, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[97988, 2422, 3586, 69, 417, "Output",ExpressionUUID->"1142e8fd-e129-48a9-9532-f7b1753b614b"] +}, Open ]], +Cell[101589, 2494, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[101852, 2502, 840, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[102695, 2527, 10882, 224, 231, "Output",ExpressionUUID->"db9396b8-dcfa-4fc1-8923-badc9e96d9a4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[113614, 2756, 2162, 57, 118, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[115779, 2815, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[116616, 2832, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[116970, 2843, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[117223, 2849, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117437, 2856, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[117689, 2862, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[117883, 2867, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[120446, 2933, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[120601, 2938, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[120769, 2943, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[120946, 2950, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[123477, 3023, 3534, 67, 405, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127048, 3095, 916, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[127967, 3122, 22544, 419, 232, "Output",ExpressionUUID->"db813616-e964-47ac-93f1-351e913bfe3d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[150548, 3546, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[152884, 3608, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153238, 3619, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[153492, 3625, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[153708, 3632, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[153963, 3638, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[154155, 3643, 2844, 72, 338, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[157002, 3717, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], +Cell[157157, 3722, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[157364, 3728, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], +Cell[CellGroupData[{ +Cell[157543, 3735, 2580, 72, 95, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[160126, 3809, 3522, 67, 409, "Output",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], +Cell[163651, 3878, 2324, 36, 54, "Message",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], +Cell[165978, 3916, 2321, 36, 54, "Message",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], +Cell[168302, 3954, 299, 7, 36, "Message",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"], +Cell[168604, 3963, 2453, 38, 59, "Message",ExpressionUUID->"81522ad3-6a13-42b6-9f1d-91ed70ccb1bd"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/rename.zsh b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/164-76_h_Pu240_18-19/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done 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 new file mode 100644 index 0000000..b66829d --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw1.nb @@ -0,0 +1,9355 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399174, 9347] +NotebookOptionsPosition[ 375132, 8983] +NotebookOutlinePosition[ 375544, 9000] +CellTagsIndexPosition[ 375501, 8997] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.991849227197853*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.9918492290557346`*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_фитирование.nb b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_фитирование.nb new file mode 100644 index 0000000..35b6643 --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/h_166-74_Pu240_20-21_фитирование.nb @@ -0,0 +1,4118 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 176820, 4110] +NotebookOptionsPosition[ 165655, 3920] +NotebookOutlinePosition[ 166069, 3937] +CellTagsIndexPosition[ 166026, 3934] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.993136284680585*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"5f68e988-e6e3-4a94-b481-3e7ea1da0382"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.9931362850012903`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"a14c987a-84ae-4ee5-8121-f2d3bb3b8e49"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.99313628502485*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"b0682d3e-f147-466d-bef4-173d06992504"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.9931362850514517`*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"09e3d15b-ac16-4ddf-a33d-77d7cafea94f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9931362850791903`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"5e1ea612-7fa6-46b8-bcfe-2eb5c5623855"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.993136285107699*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"490e2649-0b7b-453e-8225-62c9a14243d1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.993136285142117*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"e9937db5-7b7c-461b-b4ad-0dc5fc5647af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "166"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.9931362518857727`*^9, + 3.993136252785791*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["166"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.993136285168229*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"48bb3397-86e0-4088-8a68-d4ea6d5ca010"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.993136285194111*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"4fbb8110-f81f-42ab-b921-7793c402a86b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.54425`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.993136285220545*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"be445857-f3f7-40ae-9b90-db30f517dca6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.993136285247418*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"decb9343-ed0e-46bb-a11a-87944daaae80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.3752030057102145`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.993136285273539*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"a9ef34a4-6098-47aa-a661-03ef077e3b16"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.870070286417752`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.993136285300478*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"d949e559-ca16-4645-bdbb-5f8415628d9a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.9035518425"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, 3.993136266368506*^9}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.9035518425`"], "Output", + CellChangeTimes->{3.993136285325347*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"8c6b5b79-bb53-4f44-ad77-9bb16ded28dd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3863821951"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, 3.9931362699184647`*^9}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.3863821951`"], "Output", + CellChangeTimes->{3.9931362853502293`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"08feeb38-7ac5-4a99-91bd-573d69a575a3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.9931362853725758`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"5a160910-0827-477e-b9c9-94fbcf20c28f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.993136285393117*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"c19045c0-75a6-4e46-be6b-7b2fff5557f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12.5"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.993136275974256*^9, 3.993136279943079*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0/k/1Akcx/FJKmnoGEcPUt+5v2uJyaNH2tTn40hW2kqkZYV1rVVhzYyR +skPCdigJyVST1dI8kKMcqYbEZhwlIaKcyTGTjbRJWfvD+/F6PP+AN/3nEGd/ +NQqFsmt+/3fta52FFAqBRYlpGsEuKlBOdL29PW/XbkpgwD4V3FO73hy0gMDE +y25mPs4qcOeYXm5VI/ByZOasyx4VpB7ezstZRKDDNrOYjU4qoM4KvH5YRqBU +s/5dp60KPq3uqJToEThY//eOgg0qeO6cwd9sSiCXXl8Zrq0C2n69SjxIYNoS +n460UiV8cSCsNc4QWC82aG11U0K3t/nASDmB+cUDlmnKcbDT2OyeMULgLGHY +0Rg0Dm7Xmlcs1afjIbdRx4aeMZis/Uli70DHlfp3nKZ4YxC38h/bqyI6Nlm4 +hiSEj0KV06pvS2/QcatsXU5K/gic1DcZzmyno+WgdapF1Vv40PKs31qdgY4n +8sMcmobBvej3mQU8BrbZsvfXNbwBB4I9fM6HgQ/pTzTp0iHoi3ajvUpi4L2s +7sqrEYOw8HCszoycgYLddbc+cAbAQFzCM59gYFmVh7laSx90x4YlcYyYeEH8 +zfjH073A1SWrRncx0b4kY9pw3yswSg/mhUQxUVpXekW75iVIcnMiqvOYeC3w +KoNG7YQVr0c6TXuYWNyzpKjvaDuYLaqIctdkYdjcAyrT4jl03BW/d9nCwmN5 +WjLT3hYw9m7LXR7EQqlXbUFE+RP4zdg8ajCVhQF8bnMkrRFs404wEupYKN/p +gn6Rj0He5Lt0dJKFWikldp9Da+HRX1a1Bmw2EkMaGX7ih/Ag2/CKvysb928h +7r8fkoPvhYTbobFs7Nr76l54USUkLx+Xfl/CxgGjCs/xwjL49VhPY38vG1uO +6J3LPHIbLLXbdNK0OHjy/MCjmj+L4JxZLU9/GweD/HOsdi4ugGS0SToQzMHB +nNh3eYqbsKavTB4o4eBsgdbjZS9ugHPYXfNNCg4edF+lu/ZWFhzn1NwnPnLw +8xPPdE11KfCCH617weXi3o9N+i9pmXD+mnP1blcuJt+htN+kp4PIt3NTajwX +OV+DazYfTwFXpwDFVCkXT1Estv4iPA89LLFEZ5CLuQl7WFNGZ0B15oKtmi6J +fdGaJha3EkA2yDMutCHRRHdVk5VJHHj4dJiIQkgEqp6tx5aY+T8I1LWlJNL8 +JGejNY/D0SCpoV8TiRWWf2RnyUVw4CL79PpmEtvs/Ic+5Ytgo1w28++8N3iK +8zwlIpjQudN59imJbl+9ZY6RIgisqk8vayXxekN6aIWFCFz0J2nLukhUZxZc +6pdFwPra7dTiNyR6nRKvJrOEQJ1QRB0bJlGVtCNlLlkIIwZ7xuzfkuixryu+ +P0YI2aHuipcjJNpc5JUrfIRguCYkcZGSxMUvxL5MhhA0wi+p/zhJ4vYMb6Uq +WwBvrhjxmVMkalgd+u5oqgBqHmcNKOfdFTcdsyJeANFr8x/GTpNINy7s8wwU +wIf6anHeJxLf989Ro4wF8GzKfkI4Q6IsnunmaSiAwnWNXtafSbTacP2gI1UA +hwTt29pnSUxqi0qwU/HBUepRIP1CIt+nOWPvaz5wG3qNgr+S6KIXsDPoKR/U +p/3PbpwjMSRXcfF0NR/6ibHZuXn7TiQeKS/mw3/UYDO+ + "]]}, + 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:eJwV0/k/1Akcx/FJKmnoGEcPUt+5v2uJyaNH2tTn40hW2kqkZYV1rVVhzYyR +skPCdigJyVST1dI8kKMcqYbEZhwlIaKcyTGTjbRJWfvD+/F6PP+AN/3nEGd/ +NQqFsmt+/3fta52FFAqBRYlpGsEuKlBOdL29PW/XbkpgwD4V3FO73hy0gMDE +y25mPs4qcOeYXm5VI/ByZOasyx4VpB7ezstZRKDDNrOYjU4qoM4KvH5YRqBU +s/5dp60KPq3uqJToEThY//eOgg0qeO6cwd9sSiCXXl8Zrq0C2n69SjxIYNoS +n460UiV8cSCsNc4QWC82aG11U0K3t/nASDmB+cUDlmnKcbDT2OyeMULgLGHY +0Rg0Dm7Xmlcs1afjIbdRx4aeMZis/Uli70DHlfp3nKZ4YxC38h/bqyI6Nlm4 +hiSEj0KV06pvS2/QcatsXU5K/gic1DcZzmyno+WgdapF1Vv40PKs31qdgY4n +8sMcmobBvej3mQU8BrbZsvfXNbwBB4I9fM6HgQ/pTzTp0iHoi3ajvUpi4L2s +7sqrEYOw8HCszoycgYLddbc+cAbAQFzCM59gYFmVh7laSx90x4YlcYyYeEH8 +zfjH073A1SWrRncx0b4kY9pw3yswSg/mhUQxUVpXekW75iVIcnMiqvOYeC3w +KoNG7YQVr0c6TXuYWNyzpKjvaDuYLaqIctdkYdjcAyrT4jl03BW/d9nCwmN5 +WjLT3hYw9m7LXR7EQqlXbUFE+RP4zdg8ajCVhQF8bnMkrRFs404wEupYKN/p +gn6Rj0He5Lt0dJKFWikldp9Da+HRX1a1Bmw2EkMaGX7ih/Ag2/CKvysb928h +7r8fkoPvhYTbobFs7Nr76l54USUkLx+Xfl/CxgGjCs/xwjL49VhPY38vG1uO +6J3LPHIbLLXbdNK0OHjy/MCjmj+L4JxZLU9/GweD/HOsdi4ugGS0SToQzMHB +nNh3eYqbsKavTB4o4eBsgdbjZS9ugHPYXfNNCg4edF+lu/ZWFhzn1NwnPnLw +8xPPdE11KfCCH617weXi3o9N+i9pmXD+mnP1blcuJt+htN+kp4PIt3NTajwX +OV+DazYfTwFXpwDFVCkXT1Estv4iPA89LLFEZ5CLuQl7WFNGZ0B15oKtmi6J +fdGaJha3EkA2yDMutCHRRHdVk5VJHHj4dJiIQkgEqp6tx5aY+T8I1LWlJNL8 +JGejNY/D0SCpoV8TiRWWf2RnyUVw4CL79PpmEtvs/Ic+5Ytgo1w28++8N3iK +8zwlIpjQudN59imJbl+9ZY6RIgisqk8vayXxekN6aIWFCFz0J2nLukhUZxZc +6pdFwPra7dTiNyR6nRKvJrOEQJ1QRB0bJlGVtCNlLlkIIwZ7xuzfkuixryu+ +P0YI2aHuipcjJNpc5JUrfIRguCYkcZGSxMUvxL5MhhA0wi+p/zhJ4vYMb6Uq +WwBvrhjxmVMkalgd+u5oqgBqHmcNKOfdFTcdsyJeANFr8x/GTpNINy7s8wwU +wIf6anHeJxLf989Ro4wF8GzKfkI4Q6IsnunmaSiAwnWNXtafSbTacP2gI1UA +hwTt29pnSUxqi0qwU/HBUepRIP1CIt+nOWPvaz5wG3qNgr+S6KIXsDPoKR/U +p/3PbpwjMSRXcfF0NR/6ibHZuXn7TiQeKS/mw3/UYDO+ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9478049438223676}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9478049438223676}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0/k/1Akcx/FJKmnoGEcPUt+5v2uJyaNH2tTn40hW2kqkZYV1rVVhzYyR +skPCdigJyVST1dI8kKMcqYbEZhwlIaKcyTGTjbRJWfvD+/F6PP+AN/3nEGd/ +NQqFsmt+/3fta52FFAqBRYlpGsEuKlBOdL29PW/XbkpgwD4V3FO73hy0gMDE +y25mPs4qcOeYXm5VI/ByZOasyx4VpB7ezstZRKDDNrOYjU4qoM4KvH5YRqBU +s/5dp60KPq3uqJToEThY//eOgg0qeO6cwd9sSiCXXl8Zrq0C2n69SjxIYNoS +n460UiV8cSCsNc4QWC82aG11U0K3t/nASDmB+cUDlmnKcbDT2OyeMULgLGHY +0Rg0Dm7Xmlcs1afjIbdRx4aeMZis/Uli70DHlfp3nKZ4YxC38h/bqyI6Nlm4 +hiSEj0KV06pvS2/QcatsXU5K/gic1DcZzmyno+WgdapF1Vv40PKs31qdgY4n +8sMcmobBvej3mQU8BrbZsvfXNbwBB4I9fM6HgQ/pTzTp0iHoi3ajvUpi4L2s +7sqrEYOw8HCszoycgYLddbc+cAbAQFzCM59gYFmVh7laSx90x4YlcYyYeEH8 +zfjH073A1SWrRncx0b4kY9pw3yswSg/mhUQxUVpXekW75iVIcnMiqvOYeC3w +KoNG7YQVr0c6TXuYWNyzpKjvaDuYLaqIctdkYdjcAyrT4jl03BW/d9nCwmN5 +WjLT3hYw9m7LXR7EQqlXbUFE+RP4zdg8ajCVhQF8bnMkrRFs404wEupYKN/p +gn6Rj0He5Lt0dJKFWikldp9Da+HRX1a1Bmw2EkMaGX7ih/Ag2/CKvysb928h +7r8fkoPvhYTbobFs7Nr76l54USUkLx+Xfl/CxgGjCs/xwjL49VhPY38vG1uO +6J3LPHIbLLXbdNK0OHjy/MCjmj+L4JxZLU9/GweD/HOsdi4ugGS0SToQzMHB +nNh3eYqbsKavTB4o4eBsgdbjZS9ugHPYXfNNCg4edF+lu/ZWFhzn1NwnPnLw +8xPPdE11KfCCH617weXi3o9N+i9pmXD+mnP1blcuJt+htN+kp4PIt3NTajwX +OV+DazYfTwFXpwDFVCkXT1Estv4iPA89LLFEZ5CLuQl7WFNGZ0B15oKtmi6J +fdGaJha3EkA2yDMutCHRRHdVk5VJHHj4dJiIQkgEqp6tx5aY+T8I1LWlJNL8 +JGejNY/D0SCpoV8TiRWWf2RnyUVw4CL79PpmEtvs/Ic+5Ytgo1w28++8N3iK +8zwlIpjQudN59imJbl+9ZY6RIgisqk8vayXxekN6aIWFCFz0J2nLukhUZxZc +6pdFwPra7dTiNyR6nRKvJrOEQJ1QRB0bJlGVtCNlLlkIIwZ7xuzfkuixryu+ +P0YI2aHuipcjJNpc5JUrfIRguCYkcZGSxMUvxL5MhhA0wi+p/zhJ4vYMb6Uq +WwBvrhjxmVMkalgd+u5oqgBqHmcNKOfdFTcdsyJeANFr8x/GTpNINy7s8wwU +wIf6anHeJxLf989Ro4wF8GzKfkI4Q6IsnunmaSiAwnWNXtafSbTacP2gI1UA +hwTt29pnSUxqi0qwU/HBUepRIP1CIt+nOWPvaz5wG3qNgr+S6KIXsDPoKR/U +p/3PbpwjMSRXcfF0NR/6ibHZuXn7TiQeKS/mw3/UYDO+ + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.9478049438223676}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12.5}, {0., 0.9478049438223676}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, 3.9931362854333878`*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"56c3bdb1-5918-4d6c-9eb9-29e441aa88b5"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519988325634*^9, + 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925199899203997`*^9, + 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.755, $CellContext`xmax$$ = + 12.040000000000001`, $CellContext`xmin$$ = 7.84, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 2.185, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"], + +Cell["\<\ +Show::gcomb: Could not combine the graphics objects in + Show[l1, -Graphics-, PlotRange -> {{6, 12.5}, {0, 1}}].\ +\>", "Message", "MSG", + CellChangeTimes->{3.99313627257006*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"dddb584d-5059-4e25-bd10-2633402e9dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9931363743646793`*^9, + 3.9931363856021547`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03c8198XB3CjZKVQKdk+7/c7KTNl5Rwrkk2yykxW+GSmiERWJSVURCiR +FUkLRYiGkIaMyMjum1Kkfu/fX+fxfNzH49x7z+teSVd/y4NsLCwskqwsLP+v +wqqP6SKBYqGO7lTdJHRELb7Kof3JcMEs4PEkJD5Xu6LNKoHHNJZ51jychAX7 +auUYNgmU1hIW2VUzCR8iytw5lktgi15E0r6KSchoyG3i5ZZAuRMRaJk3CWvN +4hI3rJHA4wvCL/PjJmG1h5mA8iYJrBgrKbttNAnusbVPm60k8PAd3v1sjyZg +YcUR0aPHJTBgd6nyCnICTh8xED+QL4HG9tPJnCfHgfnq95P81xI4bmA7Nfbw +K2SfmeXj/CWBo203dHlnxmCTVuOfF9KSKF01evDUwigUdt8//8xUEruGN6g7 +fB8Bn47v7R9DJFFlfh0z6uswJNVxV1hcl8SV71jtZiu/wPQqD43hVknczNW3 +JTlqCAwMh3xv/yeJKaIUknqD8Je5E96KSuGL1Vdf6/YPwPzfnofCu6RQc94+ ++qxAP5hG7PvwhCmFFtMmzEDpT3BlaC7r6lUpnLxteW2X7gfYXNLNe7FRCq99 +vajOkdMNQp5pIlMzUlgkzJP972Mn7IrL6HZdL43SC+fOX3B/A51pYYrqetLI +829desXzl2BzJlxZ318az4vz7/pm8Bw2jtX3+6ZLo2HOqKpw2DPQ2vZly8+n +0vjhl0tse8sTyBvaw7g6IY27G3tG5+Mfw7/wt0+DBRn42qSUOuReAzXsmmwV +WgwMUlc7aJNbCZ5lgy6WwEBrOSFxofOVsN4h4cl32qfjgh8ORlVC2J3uqO3a +DDxcoZ102bkSVF2Y/x7qMlAjJlwwWaIS7tXe+NNkyMCar9JSgdfvQPVR/vlP +lgxccB2/oVxaAVUzIxOchxhYrhBqKvS8DDav4u+4R7srsCcxorgMrslp1Hh4 +MvCWS27bwpkySDx87lSjFwMVk8kt6lZl4DSxQzTKl4GXjPSItr5S4B6NN51n +MvDgFLNddqEEnPs2VwwfZ6CsqJP1Je3bsPKlX8jTVAZSQ4nPjq++BVJBKrJ+ +F2iLu3bX/CoE1Y1/+jdcZOC86Rhyfi4EV6+E3cw0BsZtEP45UFEI1cvzRSQy +GHgn6eWNMOtCcNb68DQii4HPq2PMd2TdhKoy3VVqhQxUI1v252neAMfU9YVl +jxno/XJXZlN5Hvw1in9tVsvAbQKvU15k50EO+6+fM7TZVwjNDSTnwXDQO32F +egae9Uz8uM0rD/z2XRoqf8pAA+lB+XipPIgSWSN+p5mBfAVRu9+mX4eCG6su +Vb1h4KHS75wvknNh+gHHqfvDDDRU+e9JquY1sBn9rXhohIFa/I/XdIlcg1rB +qf41oww8taNJX2kpG874dmoEjDGwanD3tF5tNmwRy/lOTjBQfVcj7xPtbPCO +VnO7OMtAO6nr29lMs2DEwFfHf5Huz9t7VejYFejtesNC8BMoojykS0hnQIeA +n2Qz7Y1rh/4r5MmAJnNuHS8BAu9EOvlqz6VD+QudmBJBArXX7Ywuf5YOpxor +l29fR2CSGiM21isdNlelcRtsJPCLylDuUtUlCLlgt8aLIHDqrBLvY/s0WGX5 +mSpRI/CVCkuGQV8q5AsJCxmrEyituzpttC0VVHstOSZo89qH8mfcTwVXz8Yv +mzRpk5p7N6elQlXkzdx8LQI7G+rzBUxSwa748MarugS2aGc4jNadh7xlC3xJ +JgQaRt7fa1SRAqqtSn9lTAl0DtrLMZiTAi/O+Uy10O5iFy+OT0mBn8K9bRzm +BHIuFOayBaSAoWJ9/ElLAnvTJOZvyqfA1P44tvB9BD438FlycDsHO+4J/PR0 +IXDvLa+kkqgzkDr7ymetK4GFsXr9s85nYFIm6fMT2g1vOzistc9AzlX2l8Lu +BAprOjkfZTsDnCfn8l54EDj6qnrLzrhkeG/cbaHgS2CUe9GXlAtJED6YWTIf +QqC/fGVMUWMCdG20kc4PJfBqAa9kZWECyO0VyDQPI/DAyWaF98kJMNiceOrW +UQIfVItg6N4E2FNyzMHhOIGug35mHGPxIBK2n6sumsAeB5+fFgLx8Hil5MG4 +ZAJv31hu9S08DvJt40yoMwS27fPK+eMWB8l5EyottA/ebmIVM4kDe7VqDu5z +BC6uGqm8Lh4HP933FJ45T+CvX9P1Fc9iQf5R8MTFS/R+Ms/Zu9fGQq53KzMv +hz5veAt/9bMYiL8rb6+XS/eb+dnsVBEDASxpOsO0WVeRBqJZMaB1yUmQyiMw +8+l5+86gGPj4ZK6qqIDAnTqPpmWIGBDcIP6roohAzTeCdcyEkxDbHBhZX0Xg +VqaO7E+naFCKc5zyu0vg3e8tZcHG0dCnp+8oWk2g74r0JS61aFB9uk49/B6B +gm5jeQEC0TD+6P4P5QcEvtwqOqrcFAWmd/753qwjMKtb4VOUYhSsz0pyONtK +4Lv46yx2WyOh0SGoVbONQJZ2PiUtnkhgCu9Xm6B9guWIlOHXCGhNlxMyfElg +1Vfe0ucFERCR+qaDtZ1AhYofYSckImDwtJBR8FsCJQK2xF0SOQ7FR/JUHQcI +HEjtWBYpFw5fdFSE/9E+nSAWVioQDmKCzYu5nwlcv9VffvHnUUitHK8dHSTw +co/3v7G6oxA2p6gfOEyg1YNyLUGro6AfUm+ROE5gh4mMRVJkGPQf7fWumSPw +zeChIZuvIbDeyN/Y4QeBP8u4n/S2h4ClMKvcX9pORqurI2pCoOkB45vuPJ2X +o2wcZ3wI3F70CX39m8Dw+ENSBptC4GjEQszIXwIXmmyKrQ4Hg2C0UNYaLhI3 +TYmt4eIKgsn3+iZVtMd/nk789j0QmhSClqy4SVy/8p3zTF8ghA2077/AQ+Lh +i+09m+8GQh8kignwkXj0ZubbbNdAKPr759oqQRIFK7jcvZ4cAZ3jg9e5RUks +sWSrZTnLBJGu1VZFtHFJm9f/GBN+yAK7kRiJXva9ZrOeTCjsueKWIE6idbOE +n6weE/g09jI4pUiUXU/ynFwMgI+/mwuWUyTa6kuK5h4OAGZoSSGLIokNGeK/ +bGv9YLWuU38J7Xz5pfsTl/2glI9/nYMSiYU1E4sFoX4wWRAUc1eZxJU3RexS +FP3As0vjgPd2Ep8qH/u24+ZhcFZsFezSINHfbOBzaaYvmE2MRN7cRWIBm/ci +cdkbpqsz7lobkPiu+M8b+2PekHzSaJLVkERdizmNO47e0Lqh1M5xN4nnKbvt +LeLesMsweBu/MYl/NnY+Tb7pBVoF7OPhFiROwmy27WNP2OoksdfUkcTI6coH +y1kPga3msb8ztL35zxavGvOAUxu6b57fT+LGsAPflF97wKfOpIWuAyRm2jby +t2V5QLLh/DUHFxIN32s2Kmh6wKTiq3FPDxJzjL5va4g4CLeXHY+KCSAxYccf +OytBd3j/uVuGYJKoxj9iHLLkBsvqFDubaHeT15nlo27geHSU4A4k8WEP/Of1 +yA14py3bUoJJdH39AGc83MD3ncy67HASh1b5D8jVu4Js0bvimlMkSrNNcw6f +dAGRxbs9h2JJ7MttVZLxcwE+44s8QnEkCqz4ZRFr5wKzU+Y+wadJPDP0dnms +ggtUK7ZuVkok8bdfjvO1fmfQuf/oVvE5EsXZkCGj4wx2Lbk3sy+TeGF5ZU+9 +/AEw2hD1zuQKiX/j1h0c4jkAmt4HVizRZiQrZciP7Qcx3o2HHLJIzPs+g3q5 +++GL2UVyfQ7dv/NZst3a/RDwLq7gfAGdb0eyPO9yRzg94pN3qpzExV/vfR1Z +7WF93UiuQgWJuz4PZk0N2kFRukvOJ9oVVcbluY128MJwX9a2Svo+ewr6mPF2 +IFCsk/7lLonMZzwKpfx2cNV/Q5LeQxKjdotmB2+2hfJfTUeWNZG4Y/ZJAATZ +gPYbbWY57cYL27q/2NlAx61H/o7NJA54fkgtBBv4YX/Ht6qFxK2hxomJPDag +/jjLw72NRIOY6mdV+XuhMTrIvrGdxKahmejYT9bwgVtK51QPieHKas92uFjB +rzn9SsYnEtM5z7vN7rGCdf1ejGe0eZR0f9RttwLLygoOjj4S44JjUvN4reCF +g3bb6QF6Xdtiffh9S6i97WydNEzi1N5VtWZClpBves0jdYbE5N8dWUuD5vBU +teGd0iyJ6hN5rYfazWFAatSwk7bRstS1I4/NQXReTnbNf/S8vX+Xi2Waw6Vr +tTNpcyS+0FpZEWFuDgmzvWGZv+m8Dnd6Pok1A79UkaQcdgoXvldNOPiYgOVs +w0nTZRR+cu/hljM0ge2mPuF/aD8fmk6TIUxgieuBly0HhToOVxSv9htDcvQ+ +w9VcFOYr1dh42xhDUUDq8ig+Ck+L76+L3rMHRk05o5w2UNivFpjjarkbWm+X +ha4UpvAm7/oerm27oZR7n/9D2tMn/850rd0NIU0FB4REKHwsx8He/cEQOLR0 +d74Wo9D4s5HFCTdDYGyNXNBiUBjdzq21J8IAnHnmgsTkKbQ2Nx+rfq4Pb8L1 ++utpBzS1OxtW6IPO+MXdbgoU/jG7ODiXoQ/Sz1XEChUpTB99mpztqQ8jcaHN +itsovJcQZ6rIpQ+H2RY36KtReLBoZ7SGmR6E/2at89GlsJo79ITEtA5MeFrK +8OlR+Ei3LePTex1wfH/9Qjnt/X33jcobdEDrnq7nD30KNXVq+bMzdYA1OJb/ +hCGFXlDtlrJLB+JnOd1TTSi0FL4o8yBfG9JGV3Hd30fhx7WFZBgT4UbfH21b +Wwpf20qHWjshVL/9Gj5Pu/XVv3N6JgjvGxomVewpLNOnmpxkEIRzQtvvOFJo +xrVx9l8jQI5tf/ptFwqVM0fKi8q1oOh5KZnjQ2FsMKv8uTxNeFh/xQl8KSxR +XmCfiNGEF/fiM/pod+5w9fdy14SpAlduUT8Kl0/3B70kNEHh5LrpzAAK2wvK +lOSKNOCueuTdC8EUKqo51yjdV4f6YhO90yconMrpOmsxowqX1tWyb4uisPvE +zkD3N6rgGy3XMEB7ZXLM6OVKVVi/b5WO+kk6zwf2H5hhqsBkewNTpyjc+Szc +uYFdFaTsrDWsEim8ZTN/+o3EDjjF4aAknkahwK+3E6cDVcCe2fatjXapjUdB +nZ0KKHzSqAi7RGHSTn3BdagCnypEFDrSKZQy7D8mtlIFVPb3bY29TKFboFhm +ZuE2GKl0kZm4RmHBQX5T4WFlMHTxlLhXRGH49+8CtoFKUNwbbWlbTOEV7x9d +2QeUgM/+yqnftMW2Gxb/2a0Eby1fjWmUUCjnFi2/JKEErnrbKurLKGzLv9DN +164IxygWndYqCj80Tv0+oKQIpVPpbr21FJ44cbmVe4UC8HtXpEXWUbiBVBjk +GpeHoJHWZvF6Cpc8nh8km+RBvX9J1vUJhVHHHzi9i5SH5na3uZEGCu8v7bJY +858cDFTKx862UNgXIufQ1b8VBMObb7B3UrgiNWfe4J0sGB2SzLhHW1tt17hJ +lSyctD6W4NNFYUiw67ET52VhVk7et/MthXzHhK67G8vCq6FLinnvKTTXsZJX +bNwM8SYej3T66Plv6k0oeCgDfySWd0R/pTCudvOyyy0UKPM5NaiM0+/v95JV +eREF3os1VV9pqyeVs04mU/DhrW+6xSSFEeWStR0WFFQndjlKzlA4bBz40LaX +BOZc3mj9HIX7oioixRcJKPy89D7oB4UpEl8jQvoJGHi1r3XTT/p/dOXwzzYQ +YHqLpyRlnkL+42f2GJ0hYMuBwCPOCxRq+eQduiRJgNuel25rFincWnTn0BIH +AZdVqb0ttPPljhXHTjKAS7Bnh8IShefmsux+32MAsqjIfKF99+qmI1+yGBA2 +dVY44y+FD/pfbJ6NYUDZxzEe438UTlqLO4h4M2CkWWfpH+2N48MfPc0Z8D9k +hgWr + "]]}, + 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:eJwV03c8198XB3CjZKVQKdk+7/c7KTNl5Rwrkk2yykxW+GSmiERWJSVURCiR +FUkLRYiGkIaMyMjum1Kkfu/fX+fxfNzH49x7z+teSVd/y4NsLCwskqwsLP+v +wqqP6SKBYqGO7lTdJHRELb7Kof3JcMEs4PEkJD5Xu6LNKoHHNJZ51jychAX7 +auUYNgmU1hIW2VUzCR8iytw5lktgi15E0r6KSchoyG3i5ZZAuRMRaJk3CWvN +4hI3rJHA4wvCL/PjJmG1h5mA8iYJrBgrKbttNAnusbVPm60k8PAd3v1sjyZg +YcUR0aPHJTBgd6nyCnICTh8xED+QL4HG9tPJnCfHgfnq95P81xI4bmA7Nfbw +K2SfmeXj/CWBo203dHlnxmCTVuOfF9KSKF01evDUwigUdt8//8xUEruGN6g7 +fB8Bn47v7R9DJFFlfh0z6uswJNVxV1hcl8SV71jtZiu/wPQqD43hVknczNW3 +JTlqCAwMh3xv/yeJKaIUknqD8Je5E96KSuGL1Vdf6/YPwPzfnofCu6RQc94+ ++qxAP5hG7PvwhCmFFtMmzEDpT3BlaC7r6lUpnLxteW2X7gfYXNLNe7FRCq99 +vajOkdMNQp5pIlMzUlgkzJP972Mn7IrL6HZdL43SC+fOX3B/A51pYYrqetLI +829desXzl2BzJlxZ318az4vz7/pm8Bw2jtX3+6ZLo2HOqKpw2DPQ2vZly8+n +0vjhl0tse8sTyBvaw7g6IY27G3tG5+Mfw7/wt0+DBRn42qSUOuReAzXsmmwV +WgwMUlc7aJNbCZ5lgy6WwEBrOSFxofOVsN4h4cl32qfjgh8ORlVC2J3uqO3a +DDxcoZ102bkSVF2Y/x7qMlAjJlwwWaIS7tXe+NNkyMCar9JSgdfvQPVR/vlP +lgxccB2/oVxaAVUzIxOchxhYrhBqKvS8DDav4u+4R7srsCcxorgMrslp1Hh4 +MvCWS27bwpkySDx87lSjFwMVk8kt6lZl4DSxQzTKl4GXjPSItr5S4B6NN51n +MvDgFLNddqEEnPs2VwwfZ6CsqJP1Je3bsPKlX8jTVAZSQ4nPjq++BVJBKrJ+ +F2iLu3bX/CoE1Y1/+jdcZOC86Rhyfi4EV6+E3cw0BsZtEP45UFEI1cvzRSQy +GHgn6eWNMOtCcNb68DQii4HPq2PMd2TdhKoy3VVqhQxUI1v252neAMfU9YVl +jxno/XJXZlN5Hvw1in9tVsvAbQKvU15k50EO+6+fM7TZVwjNDSTnwXDQO32F +egae9Uz8uM0rD/z2XRoqf8pAA+lB+XipPIgSWSN+p5mBfAVRu9+mX4eCG6su +Vb1h4KHS75wvknNh+gHHqfvDDDRU+e9JquY1sBn9rXhohIFa/I/XdIlcg1rB +qf41oww8taNJX2kpG874dmoEjDGwanD3tF5tNmwRy/lOTjBQfVcj7xPtbPCO +VnO7OMtAO6nr29lMs2DEwFfHf5Huz9t7VejYFejtesNC8BMoojykS0hnQIeA +n2Qz7Y1rh/4r5MmAJnNuHS8BAu9EOvlqz6VD+QudmBJBArXX7Ywuf5YOpxor +l29fR2CSGiM21isdNlelcRtsJPCLylDuUtUlCLlgt8aLIHDqrBLvY/s0WGX5 +mSpRI/CVCkuGQV8q5AsJCxmrEyituzpttC0VVHstOSZo89qH8mfcTwVXz8Yv +mzRpk5p7N6elQlXkzdx8LQI7G+rzBUxSwa748MarugS2aGc4jNadh7xlC3xJ +JgQaRt7fa1SRAqqtSn9lTAl0DtrLMZiTAi/O+Uy10O5iFy+OT0mBn8K9bRzm +BHIuFOayBaSAoWJ9/ElLAnvTJOZvyqfA1P44tvB9BD438FlycDsHO+4J/PR0 +IXDvLa+kkqgzkDr7ymetK4GFsXr9s85nYFIm6fMT2g1vOzistc9AzlX2l8Lu +BAprOjkfZTsDnCfn8l54EDj6qnrLzrhkeG/cbaHgS2CUe9GXlAtJED6YWTIf +QqC/fGVMUWMCdG20kc4PJfBqAa9kZWECyO0VyDQPI/DAyWaF98kJMNiceOrW +UQIfVItg6N4E2FNyzMHhOIGug35mHGPxIBK2n6sumsAeB5+fFgLx8Hil5MG4 +ZAJv31hu9S08DvJt40yoMwS27fPK+eMWB8l5EyottA/ebmIVM4kDe7VqDu5z +BC6uGqm8Lh4HP933FJ45T+CvX9P1Fc9iQf5R8MTFS/R+Ms/Zu9fGQq53KzMv +hz5veAt/9bMYiL8rb6+XS/eb+dnsVBEDASxpOsO0WVeRBqJZMaB1yUmQyiMw +8+l5+86gGPj4ZK6qqIDAnTqPpmWIGBDcIP6roohAzTeCdcyEkxDbHBhZX0Xg +VqaO7E+naFCKc5zyu0vg3e8tZcHG0dCnp+8oWk2g74r0JS61aFB9uk49/B6B +gm5jeQEC0TD+6P4P5QcEvtwqOqrcFAWmd/753qwjMKtb4VOUYhSsz0pyONtK +4Lv46yx2WyOh0SGoVbONQJZ2PiUtnkhgCu9Xm6B9guWIlOHXCGhNlxMyfElg +1Vfe0ucFERCR+qaDtZ1AhYofYSckImDwtJBR8FsCJQK2xF0SOQ7FR/JUHQcI +HEjtWBYpFw5fdFSE/9E+nSAWVioQDmKCzYu5nwlcv9VffvHnUUitHK8dHSTw +co/3v7G6oxA2p6gfOEyg1YNyLUGro6AfUm+ROE5gh4mMRVJkGPQf7fWumSPw +zeChIZuvIbDeyN/Y4QeBP8u4n/S2h4ClMKvcX9pORqurI2pCoOkB45vuPJ2X +o2wcZ3wI3F70CX39m8Dw+ENSBptC4GjEQszIXwIXmmyKrQ4Hg2C0UNYaLhI3 +TYmt4eIKgsn3+iZVtMd/nk789j0QmhSClqy4SVy/8p3zTF8ghA2077/AQ+Lh +i+09m+8GQh8kignwkXj0ZubbbNdAKPr759oqQRIFK7jcvZ4cAZ3jg9e5RUks +sWSrZTnLBJGu1VZFtHFJm9f/GBN+yAK7kRiJXva9ZrOeTCjsueKWIE6idbOE +n6weE/g09jI4pUiUXU/ynFwMgI+/mwuWUyTa6kuK5h4OAGZoSSGLIokNGeK/ +bGv9YLWuU38J7Xz5pfsTl/2glI9/nYMSiYU1E4sFoX4wWRAUc1eZxJU3RexS +FP3As0vjgPd2Ep8qH/u24+ZhcFZsFezSINHfbOBzaaYvmE2MRN7cRWIBm/ci +cdkbpqsz7lobkPiu+M8b+2PekHzSaJLVkERdizmNO47e0Lqh1M5xN4nnKbvt +LeLesMsweBu/MYl/NnY+Tb7pBVoF7OPhFiROwmy27WNP2OoksdfUkcTI6coH +y1kPga3msb8ztL35zxavGvOAUxu6b57fT+LGsAPflF97wKfOpIWuAyRm2jby +t2V5QLLh/DUHFxIN32s2Kmh6wKTiq3FPDxJzjL5va4g4CLeXHY+KCSAxYccf +OytBd3j/uVuGYJKoxj9iHLLkBsvqFDubaHeT15nlo27geHSU4A4k8WEP/Of1 +yA14py3bUoJJdH39AGc83MD3ncy67HASh1b5D8jVu4Js0bvimlMkSrNNcw6f +dAGRxbs9h2JJ7MttVZLxcwE+44s8QnEkCqz4ZRFr5wKzU+Y+wadJPDP0dnms +ggtUK7ZuVkok8bdfjvO1fmfQuf/oVvE5EsXZkCGj4wx2Lbk3sy+TeGF5ZU+9 +/AEw2hD1zuQKiX/j1h0c4jkAmt4HVizRZiQrZciP7Qcx3o2HHLJIzPs+g3q5 +++GL2UVyfQ7dv/NZst3a/RDwLq7gfAGdb0eyPO9yRzg94pN3qpzExV/vfR1Z +7WF93UiuQgWJuz4PZk0N2kFRukvOJ9oVVcbluY128MJwX9a2Svo+ewr6mPF2 +IFCsk/7lLonMZzwKpfx2cNV/Q5LeQxKjdotmB2+2hfJfTUeWNZG4Y/ZJAATZ +gPYbbWY57cYL27q/2NlAx61H/o7NJA54fkgtBBv4YX/Ht6qFxK2hxomJPDag +/jjLw72NRIOY6mdV+XuhMTrIvrGdxKahmejYT9bwgVtK51QPieHKas92uFjB +rzn9SsYnEtM5z7vN7rGCdf1ejGe0eZR0f9RttwLLygoOjj4S44JjUvN4reCF +g3bb6QF6Xdtiffh9S6i97WydNEzi1N5VtWZClpBves0jdYbE5N8dWUuD5vBU +teGd0iyJ6hN5rYfazWFAatSwk7bRstS1I4/NQXReTnbNf/S8vX+Xi2Waw6Vr +tTNpcyS+0FpZEWFuDgmzvWGZv+m8Dnd6Pok1A79UkaQcdgoXvldNOPiYgOVs +w0nTZRR+cu/hljM0ge2mPuF/aD8fmk6TIUxgieuBly0HhToOVxSv9htDcvQ+ +w9VcFOYr1dh42xhDUUDq8ig+Ck+L76+L3rMHRk05o5w2UNivFpjjarkbWm+X +ha4UpvAm7/oerm27oZR7n/9D2tMn/850rd0NIU0FB4REKHwsx8He/cEQOLR0 +d74Wo9D4s5HFCTdDYGyNXNBiUBjdzq21J8IAnHnmgsTkKbQ2Nx+rfq4Pb8L1 ++utpBzS1OxtW6IPO+MXdbgoU/jG7ODiXoQ/Sz1XEChUpTB99mpztqQ8jcaHN +itsovJcQZ6rIpQ+H2RY36KtReLBoZ7SGmR6E/2at89GlsJo79ITEtA5MeFrK +8OlR+Ei3LePTex1wfH/9Qjnt/X33jcobdEDrnq7nD30KNXVq+bMzdYA1OJb/ +hCGFXlDtlrJLB+JnOd1TTSi0FL4o8yBfG9JGV3Hd30fhx7WFZBgT4UbfH21b +Wwpf20qHWjshVL/9Gj5Pu/XVv3N6JgjvGxomVewpLNOnmpxkEIRzQtvvOFJo +xrVx9l8jQI5tf/ptFwqVM0fKi8q1oOh5KZnjQ2FsMKv8uTxNeFh/xQl8KSxR +XmCfiNGEF/fiM/pod+5w9fdy14SpAlduUT8Kl0/3B70kNEHh5LrpzAAK2wvK +lOSKNOCueuTdC8EUKqo51yjdV4f6YhO90yconMrpOmsxowqX1tWyb4uisPvE +zkD3N6rgGy3XMEB7ZXLM6OVKVVi/b5WO+kk6zwf2H5hhqsBkewNTpyjc+Szc +uYFdFaTsrDWsEim8ZTN/+o3EDjjF4aAknkahwK+3E6cDVcCe2fatjXapjUdB +nZ0KKHzSqAi7RGHSTn3BdagCnypEFDrSKZQy7D8mtlIFVPb3bY29TKFboFhm +ZuE2GKl0kZm4RmHBQX5T4WFlMHTxlLhXRGH49+8CtoFKUNwbbWlbTOEV7x9d +2QeUgM/+yqnftMW2Gxb/2a0Eby1fjWmUUCjnFi2/JKEErnrbKurLKGzLv9DN +164IxygWndYqCj80Tv0+oKQIpVPpbr21FJ44cbmVe4UC8HtXpEXWUbiBVBjk +GpeHoJHWZvF6Cpc8nh8km+RBvX9J1vUJhVHHHzi9i5SH5na3uZEGCu8v7bJY +858cDFTKx862UNgXIufQ1b8VBMObb7B3UrgiNWfe4J0sGB2SzLhHW1tt17hJ +lSyctD6W4NNFYUiw67ET52VhVk7et/MthXzHhK67G8vCq6FLinnvKTTXsZJX +bNwM8SYej3T66Plv6k0oeCgDfySWd0R/pTCudvOyyy0UKPM5NaiM0+/v95JV +eREF3os1VV9pqyeVs04mU/DhrW+6xSSFEeWStR0WFFQndjlKzlA4bBz40LaX +BOZc3mj9HIX7oioixRcJKPy89D7oB4UpEl8jQvoJGHi1r3XTT/p/dOXwzzYQ +YHqLpyRlnkL+42f2GJ0hYMuBwCPOCxRq+eQduiRJgNuel25rFincWnTn0BIH +AZdVqb0ttPPljhXHTjKAS7Bnh8IShefmsux+32MAsqjIfKF99+qmI1+yGBA2 +dVY44y+FD/pfbJ6NYUDZxzEe438UTlqLO4h4M2CkWWfpH+2N48MfPc0Z8D9k +hgWr + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.8983342132739585}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.8983342132739585}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c8198XB3CjZKVQKdk+7/c7KTNl5Rwrkk2yykxW+GSmiERWJSVURCiR +FUkLRYiGkIaMyMjum1Kkfu/fX+fxfNzH49x7z+teSVd/y4NsLCwskqwsLP+v +wqqP6SKBYqGO7lTdJHRELb7Kof3JcMEs4PEkJD5Xu6LNKoHHNJZ51jychAX7 +auUYNgmU1hIW2VUzCR8iytw5lktgi15E0r6KSchoyG3i5ZZAuRMRaJk3CWvN +4hI3rJHA4wvCL/PjJmG1h5mA8iYJrBgrKbttNAnusbVPm60k8PAd3v1sjyZg +YcUR0aPHJTBgd6nyCnICTh8xED+QL4HG9tPJnCfHgfnq95P81xI4bmA7Nfbw +K2SfmeXj/CWBo203dHlnxmCTVuOfF9KSKF01evDUwigUdt8//8xUEruGN6g7 +fB8Bn47v7R9DJFFlfh0z6uswJNVxV1hcl8SV71jtZiu/wPQqD43hVknczNW3 +JTlqCAwMh3xv/yeJKaIUknqD8Je5E96KSuGL1Vdf6/YPwPzfnofCu6RQc94+ ++qxAP5hG7PvwhCmFFtMmzEDpT3BlaC7r6lUpnLxteW2X7gfYXNLNe7FRCq99 +vajOkdMNQp5pIlMzUlgkzJP972Mn7IrL6HZdL43SC+fOX3B/A51pYYrqetLI +829desXzl2BzJlxZ318az4vz7/pm8Bw2jtX3+6ZLo2HOqKpw2DPQ2vZly8+n +0vjhl0tse8sTyBvaw7g6IY27G3tG5+Mfw7/wt0+DBRn42qSUOuReAzXsmmwV +WgwMUlc7aJNbCZ5lgy6WwEBrOSFxofOVsN4h4cl32qfjgh8ORlVC2J3uqO3a +DDxcoZ102bkSVF2Y/x7qMlAjJlwwWaIS7tXe+NNkyMCar9JSgdfvQPVR/vlP +lgxccB2/oVxaAVUzIxOchxhYrhBqKvS8DDav4u+4R7srsCcxorgMrslp1Hh4 +MvCWS27bwpkySDx87lSjFwMVk8kt6lZl4DSxQzTKl4GXjPSItr5S4B6NN51n +MvDgFLNddqEEnPs2VwwfZ6CsqJP1Je3bsPKlX8jTVAZSQ4nPjq++BVJBKrJ+ +F2iLu3bX/CoE1Y1/+jdcZOC86Rhyfi4EV6+E3cw0BsZtEP45UFEI1cvzRSQy +GHgn6eWNMOtCcNb68DQii4HPq2PMd2TdhKoy3VVqhQxUI1v252neAMfU9YVl +jxno/XJXZlN5Hvw1in9tVsvAbQKvU15k50EO+6+fM7TZVwjNDSTnwXDQO32F +egae9Uz8uM0rD/z2XRoqf8pAA+lB+XipPIgSWSN+p5mBfAVRu9+mX4eCG6su +Vb1h4KHS75wvknNh+gHHqfvDDDRU+e9JquY1sBn9rXhohIFa/I/XdIlcg1rB +qf41oww8taNJX2kpG874dmoEjDGwanD3tF5tNmwRy/lOTjBQfVcj7xPtbPCO +VnO7OMtAO6nr29lMs2DEwFfHf5Huz9t7VejYFejtesNC8BMoojykS0hnQIeA +n2Qz7Y1rh/4r5MmAJnNuHS8BAu9EOvlqz6VD+QudmBJBArXX7Ywuf5YOpxor +l29fR2CSGiM21isdNlelcRtsJPCLylDuUtUlCLlgt8aLIHDqrBLvY/s0WGX5 +mSpRI/CVCkuGQV8q5AsJCxmrEyituzpttC0VVHstOSZo89qH8mfcTwVXz8Yv +mzRpk5p7N6elQlXkzdx8LQI7G+rzBUxSwa748MarugS2aGc4jNadh7xlC3xJ +JgQaRt7fa1SRAqqtSn9lTAl0DtrLMZiTAi/O+Uy10O5iFy+OT0mBn8K9bRzm +BHIuFOayBaSAoWJ9/ElLAnvTJOZvyqfA1P44tvB9BD438FlycDsHO+4J/PR0 +IXDvLa+kkqgzkDr7ymetK4GFsXr9s85nYFIm6fMT2g1vOzistc9AzlX2l8Lu +BAprOjkfZTsDnCfn8l54EDj6qnrLzrhkeG/cbaHgS2CUe9GXlAtJED6YWTIf +QqC/fGVMUWMCdG20kc4PJfBqAa9kZWECyO0VyDQPI/DAyWaF98kJMNiceOrW +UQIfVItg6N4E2FNyzMHhOIGug35mHGPxIBK2n6sumsAeB5+fFgLx8Hil5MG4 +ZAJv31hu9S08DvJt40yoMwS27fPK+eMWB8l5EyottA/ebmIVM4kDe7VqDu5z +BC6uGqm8Lh4HP933FJ45T+CvX9P1Fc9iQf5R8MTFS/R+Ms/Zu9fGQq53KzMv +hz5veAt/9bMYiL8rb6+XS/eb+dnsVBEDASxpOsO0WVeRBqJZMaB1yUmQyiMw +8+l5+86gGPj4ZK6qqIDAnTqPpmWIGBDcIP6roohAzTeCdcyEkxDbHBhZX0Xg +VqaO7E+naFCKc5zyu0vg3e8tZcHG0dCnp+8oWk2g74r0JS61aFB9uk49/B6B +gm5jeQEC0TD+6P4P5QcEvtwqOqrcFAWmd/753qwjMKtb4VOUYhSsz0pyONtK +4Lv46yx2WyOh0SGoVbONQJZ2PiUtnkhgCu9Xm6B9guWIlOHXCGhNlxMyfElg +1Vfe0ucFERCR+qaDtZ1AhYofYSckImDwtJBR8FsCJQK2xF0SOQ7FR/JUHQcI +HEjtWBYpFw5fdFSE/9E+nSAWVioQDmKCzYu5nwlcv9VffvHnUUitHK8dHSTw +co/3v7G6oxA2p6gfOEyg1YNyLUGro6AfUm+ROE5gh4mMRVJkGPQf7fWumSPw +zeChIZuvIbDeyN/Y4QeBP8u4n/S2h4ClMKvcX9pORqurI2pCoOkB45vuPJ2X +o2wcZ3wI3F70CX39m8Dw+ENSBptC4GjEQszIXwIXmmyKrQ4Hg2C0UNYaLhI3 +TYmt4eIKgsn3+iZVtMd/nk789j0QmhSClqy4SVy/8p3zTF8ghA2077/AQ+Lh +i+09m+8GQh8kignwkXj0ZubbbNdAKPr759oqQRIFK7jcvZ4cAZ3jg9e5RUks +sWSrZTnLBJGu1VZFtHFJm9f/GBN+yAK7kRiJXva9ZrOeTCjsueKWIE6idbOE +n6weE/g09jI4pUiUXU/ynFwMgI+/mwuWUyTa6kuK5h4OAGZoSSGLIokNGeK/ +bGv9YLWuU38J7Xz5pfsTl/2glI9/nYMSiYU1E4sFoX4wWRAUc1eZxJU3RexS +FP3As0vjgPd2Ep8qH/u24+ZhcFZsFezSINHfbOBzaaYvmE2MRN7cRWIBm/ci +cdkbpqsz7lobkPiu+M8b+2PekHzSaJLVkERdizmNO47e0Lqh1M5xN4nnKbvt +LeLesMsweBu/MYl/NnY+Tb7pBVoF7OPhFiROwmy27WNP2OoksdfUkcTI6coH +y1kPga3msb8ztL35zxavGvOAUxu6b57fT+LGsAPflF97wKfOpIWuAyRm2jby +t2V5QLLh/DUHFxIN32s2Kmh6wKTiq3FPDxJzjL5va4g4CLeXHY+KCSAxYccf +OytBd3j/uVuGYJKoxj9iHLLkBsvqFDubaHeT15nlo27geHSU4A4k8WEP/Of1 +yA14py3bUoJJdH39AGc83MD3ncy67HASh1b5D8jVu4Js0bvimlMkSrNNcw6f +dAGRxbs9h2JJ7MttVZLxcwE+44s8QnEkCqz4ZRFr5wKzU+Y+wadJPDP0dnms +ggtUK7ZuVkok8bdfjvO1fmfQuf/oVvE5EsXZkCGj4wx2Lbk3sy+TeGF5ZU+9 +/AEw2hD1zuQKiX/j1h0c4jkAmt4HVizRZiQrZciP7Qcx3o2HHLJIzPs+g3q5 +++GL2UVyfQ7dv/NZst3a/RDwLq7gfAGdb0eyPO9yRzg94pN3qpzExV/vfR1Z +7WF93UiuQgWJuz4PZk0N2kFRukvOJ9oVVcbluY128MJwX9a2Svo+ewr6mPF2 +IFCsk/7lLonMZzwKpfx2cNV/Q5LeQxKjdotmB2+2hfJfTUeWNZG4Y/ZJAATZ +gPYbbWY57cYL27q/2NlAx61H/o7NJA54fkgtBBv4YX/Ht6qFxK2hxomJPDag +/jjLw72NRIOY6mdV+XuhMTrIvrGdxKahmejYT9bwgVtK51QPieHKas92uFjB +rzn9SsYnEtM5z7vN7rGCdf1ejGe0eZR0f9RttwLLygoOjj4S44JjUvN4reCF +g3bb6QF6Xdtiffh9S6i97WydNEzi1N5VtWZClpBves0jdYbE5N8dWUuD5vBU +teGd0iyJ6hN5rYfazWFAatSwk7bRstS1I4/NQXReTnbNf/S8vX+Xi2Waw6Vr +tTNpcyS+0FpZEWFuDgmzvWGZv+m8Dnd6Pok1A79UkaQcdgoXvldNOPiYgOVs +w0nTZRR+cu/hljM0ge2mPuF/aD8fmk6TIUxgieuBly0HhToOVxSv9htDcvQ+ +w9VcFOYr1dh42xhDUUDq8ig+Ck+L76+L3rMHRk05o5w2UNivFpjjarkbWm+X +ha4UpvAm7/oerm27oZR7n/9D2tMn/850rd0NIU0FB4REKHwsx8He/cEQOLR0 +d74Wo9D4s5HFCTdDYGyNXNBiUBjdzq21J8IAnHnmgsTkKbQ2Nx+rfq4Pb8L1 ++utpBzS1OxtW6IPO+MXdbgoU/jG7ODiXoQ/Sz1XEChUpTB99mpztqQ8jcaHN +itsovJcQZ6rIpQ+H2RY36KtReLBoZ7SGmR6E/2at89GlsJo79ITEtA5MeFrK +8OlR+Ei3LePTex1wfH/9Qjnt/X33jcobdEDrnq7nD30KNXVq+bMzdYA1OJb/ +hCGFXlDtlrJLB+JnOd1TTSi0FL4o8yBfG9JGV3Hd30fhx7WFZBgT4UbfH21b +Wwpf20qHWjshVL/9Gj5Pu/XVv3N6JgjvGxomVewpLNOnmpxkEIRzQtvvOFJo +xrVx9l8jQI5tf/ptFwqVM0fKi8q1oOh5KZnjQ2FsMKv8uTxNeFh/xQl8KSxR +XmCfiNGEF/fiM/pod+5w9fdy14SpAlduUT8Kl0/3B70kNEHh5LrpzAAK2wvK +lOSKNOCueuTdC8EUKqo51yjdV4f6YhO90yconMrpOmsxowqX1tWyb4uisPvE +zkD3N6rgGy3XMEB7ZXLM6OVKVVi/b5WO+kk6zwf2H5hhqsBkewNTpyjc+Szc +uYFdFaTsrDWsEim8ZTN/+o3EDjjF4aAknkahwK+3E6cDVcCe2fatjXapjUdB +nZ0KKHzSqAi7RGHSTn3BdagCnypEFDrSKZQy7D8mtlIFVPb3bY29TKFboFhm +ZuE2GKl0kZm4RmHBQX5T4WFlMHTxlLhXRGH49+8CtoFKUNwbbWlbTOEV7x9d +2QeUgM/+yqnftMW2Gxb/2a0Eby1fjWmUUCjnFi2/JKEErnrbKurLKGzLv9DN +164IxygWndYqCj80Tv0+oKQIpVPpbr21FJ44cbmVe4UC8HtXpEXWUbiBVBjk +GpeHoJHWZvF6Cpc8nh8km+RBvX9J1vUJhVHHHzi9i5SH5na3uZEGCu8v7bJY +858cDFTKx862UNgXIufQ1b8VBMObb7B3UrgiNWfe4J0sGB2SzLhHW1tt17hJ +lSyctD6W4NNFYUiw67ET52VhVk7et/MthXzHhK67G8vCq6FLinnvKTTXsZJX +bNwM8SYej3T66Plv6k0oeCgDfySWd0R/pTCudvOyyy0UKPM5NaiM0+/v95JV +eREF3os1VV9pqyeVs04mU/DhrW+6xSSFEeWStR0WFFQndjlKzlA4bBz40LaX +BOZc3mj9HIX7oioixRcJKPy89D7oB4UpEl8jQvoJGHi1r3XTT/p/dOXwzzYQ +YHqLpyRlnkL+42f2GJ0hYMuBwCPOCxRq+eQduiRJgNuel25rFincWnTn0BIH +AZdVqb0ttPPljhXHTjKAS7Bnh8IShefmsux+32MAsqjIfKF99+qmI1+yGBA2 +dVY44y+FD/pfbJ6NYUDZxzEe438UTlqLO4h4M2CkWWfpH+2N48MfPc0Z8D9k +hgWr + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.8983342132739585}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.8983342132739585}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.9931363716716423`*^9, + 3.9931363860968*^9}}, + CellLabel->"Out[23]=",ExpressionUUID->"8a955e4a-69f4-447b-b6f1-9d2ed7b72588"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519993740715*^9, + 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ +f05e39e52441"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519995212555*^9, + 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ +f5e698425a9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.165, $CellContext`xmax$$ = + 11.98, $CellContext`xmin$$ = 7.78, $CellContext`ymax$$ = + 0.903, $CellContext`yyv$$ = 2.5, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.15364005753172`, 115.77864005753172`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.0692650575317, 204.6942650575317}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "11.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9931364443363123`*^9, 3.9931364461483793`*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVx31Q03UcwPHJbQNEAUUD8djtt/32HQYkWBowuM+HiJCZwRj4EMjxKIII +akAKGgmTh/kwB8oWKULyWKeBgAaeKM+YhtmFPAuJUjwrj2KOtf543/teVGic +b4Qeg8Hw0PX/P1C2DtQf5GK27+W3thIlaFqblkZjuHhX/Kj0sasSHGVBAX8o +uMhZuDddlXweii/Wbaqo4aIPbMgzLZfDRPLa1fo9XBwzuYRJpzMg4pbNPqmW +iwvRMoU2QwZPv08dnKApHJ/7BUIWTgG1pzNR60mh81h+d3pNCuRHjibpx1LY +oUpJHKtIhvmdSzmZSgp9nCTOExHHwH3ws8Fd1RQGbjDjhZ5NgKYmf5VlL4V1 +jW38I38eBauU4PDdGgplD+Tz1nmHofycbX4Wn4cnqahn/osxYOu5baWhFw99 +t9ztVPlFgbxLdGZFDA+NOeKPB/fuhw139I5PK3lY/4NRxldpYZCW0JK8q4aH +Rh05ndX2IcBJ8xq/2cfD6LKRTPniPqgUGZ0LXMFHxS1mv8vmL4HzsN09heZj +usjxnPt7u+Hudc9IlZiPdi8dpvVoP9gW2XjVOpaPHeP80q46CZQ8TFqpr+Sj +WHr5iEbsDdvT5v7qvcXH67937pry3QHNa6I7hL18fCCKcwKz7XB0tkAYzaCx +eIU0co3mU7D4dn3VkoDG7TefZAzv/gTUw6elel40ptSELYbYIYjzbgcz4mhk +ajiRWSIXeCp8mfp1No0lh2Mobr8j7A326RLV0Kg0ZK96/norGE+cUM/30lhr +yb3Z8P6HcOWL4ljrZRov1XkVlb6whyCmotKHFqBY+SKgMtEOli7EG854ClB9 +skIhn9wEZ9tVOUPRAlxuDzAuGSQgkZ6QN18QYLUJ/WrHIh9eVQfmUtUCjGsb +qLfPpaAhatk4vleAbqUjpspSDmQ9GKg1YxBkbp1olrVbgg2j9rgtn6AkZ9Xe +zVfMQZvlX+LsRfBi5MU+xXfr4PrY5N8NMQQdxHZqP95akC40BeQqCK699nbN +PwxTsPEPcAmuIWj5KGvo/owRDMinHK51ExzOMykILDCAWGerYuwheOPojTOJ +2QawPLrD4pnOtWo/b7XMADhe5csWfQQP3GPunD1gAEH64Q/PDxCsyi4sYW8x +gKG0nvCk5wTd8v0YV1v0YfhEs0oyQXDUQ+t0bIYN8bazK6d1hu7KRtlLNjD7 +qW/OThL83DQtT93NBlqUEt42RTDDnil8Ws+G8CUnB9fXBDPjc7HsDBtGEn7+ +1XqBYNvrrSNFhA2JgmeurTpHhU4m0pZsYHeuqgxbJPj4fM/6n1azQfhRtCr/ +DcEnHhGxv82x4MAMHb7uX4JBQwEb9zex4E2htKtSZwvzOzesbrMgU5Iq9n5H +UHSqyr7/RxaUVQzayzUEpfsfvTqUzQLHYOMi4TLBqatcoVs6C9pNXM1bdL6f +keCyMYkFe+4dlIdqCfYljdm+O8SC0dg8jVZnb3bh3HAIC/4Da0rpXw== + "]]}, + 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:eJwVx31Q03UcwPHJbQNEAUUD8djtt/32HQYkWBowuM+HiJCZwRj4EMjxKIII +akAKGgmTh/kwB8oWKULyWKeBgAaeKM+YhtmFPAuJUjwrj2KOtf543/teVGic +b4Qeg8Hw0PX/P1C2DtQf5GK27+W3thIlaFqblkZjuHhX/Kj0sasSHGVBAX8o +uMhZuDddlXweii/Wbaqo4aIPbMgzLZfDRPLa1fo9XBwzuYRJpzMg4pbNPqmW +iwvRMoU2QwZPv08dnKApHJ/7BUIWTgG1pzNR60mh81h+d3pNCuRHjibpx1LY +oUpJHKtIhvmdSzmZSgp9nCTOExHHwH3ws8Fd1RQGbjDjhZ5NgKYmf5VlL4V1 +jW38I38eBauU4PDdGgplD+Tz1nmHofycbX4Wn4cnqahn/osxYOu5baWhFw99 +t9ztVPlFgbxLdGZFDA+NOeKPB/fuhw139I5PK3lY/4NRxldpYZCW0JK8q4aH +Rh05ndX2IcBJ8xq/2cfD6LKRTPniPqgUGZ0LXMFHxS1mv8vmL4HzsN09heZj +usjxnPt7u+Hudc9IlZiPdi8dpvVoP9gW2XjVOpaPHeP80q46CZQ8TFqpr+Sj +WHr5iEbsDdvT5v7qvcXH67937pry3QHNa6I7hL18fCCKcwKz7XB0tkAYzaCx +eIU0co3mU7D4dn3VkoDG7TefZAzv/gTUw6elel40ptSELYbYIYjzbgcz4mhk +ajiRWSIXeCp8mfp1No0lh2Mobr8j7A326RLV0Kg0ZK96/norGE+cUM/30lhr +yb3Z8P6HcOWL4ljrZRov1XkVlb6whyCmotKHFqBY+SKgMtEOli7EG854ClB9 +skIhn9wEZ9tVOUPRAlxuDzAuGSQgkZ6QN18QYLUJ/WrHIh9eVQfmUtUCjGsb +qLfPpaAhatk4vleAbqUjpspSDmQ9GKg1YxBkbp1olrVbgg2j9rgtn6AkZ9Xe +zVfMQZvlX+LsRfBi5MU+xXfr4PrY5N8NMQQdxHZqP95akC40BeQqCK699nbN +PwxTsPEPcAmuIWj5KGvo/owRDMinHK51ExzOMykILDCAWGerYuwheOPojTOJ +2QawPLrD4pnOtWo/b7XMADhe5csWfQQP3GPunD1gAEH64Q/PDxCsyi4sYW8x +gKG0nvCk5wTd8v0YV1v0YfhEs0oyQXDUQ+t0bIYN8bazK6d1hu7KRtlLNjD7 +qW/OThL83DQtT93NBlqUEt42RTDDnil8Ws+G8CUnB9fXBDPjc7HsDBtGEn7+ +1XqBYNvrrSNFhA2JgmeurTpHhU4m0pZsYHeuqgxbJPj4fM/6n1azQfhRtCr/ +DcEnHhGxv82x4MAMHb7uX4JBQwEb9zex4E2htKtSZwvzOzesbrMgU5Iq9n5H +UHSqyr7/RxaUVQzayzUEpfsfvTqUzQLHYOMi4TLBqatcoVs6C9pNXM1bdL6f +keCyMYkFe+4dlIdqCfYljdm+O8SC0dg8jVZnb3bh3HAIC/4Da0rpXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.016911223217067013`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.016911223217067013`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx31Q03UcwPHJbQNEAUUD8djtt/32HQYkWBowuM+HiJCZwRj4EMjxKIII +akAKGgmTh/kwB8oWKULyWKeBgAaeKM+YhtmFPAuJUjwrj2KOtf543/teVGic +b4Qeg8Hw0PX/P1C2DtQf5GK27+W3thIlaFqblkZjuHhX/Kj0sasSHGVBAX8o +uMhZuDddlXweii/Wbaqo4aIPbMgzLZfDRPLa1fo9XBwzuYRJpzMg4pbNPqmW +iwvRMoU2QwZPv08dnKApHJ/7BUIWTgG1pzNR60mh81h+d3pNCuRHjibpx1LY +oUpJHKtIhvmdSzmZSgp9nCTOExHHwH3ws8Fd1RQGbjDjhZ5NgKYmf5VlL4V1 +jW38I38eBauU4PDdGgplD+Tz1nmHofycbX4Wn4cnqahn/osxYOu5baWhFw99 +t9ztVPlFgbxLdGZFDA+NOeKPB/fuhw139I5PK3lY/4NRxldpYZCW0JK8q4aH +Rh05ndX2IcBJ8xq/2cfD6LKRTPniPqgUGZ0LXMFHxS1mv8vmL4HzsN09heZj +usjxnPt7u+Hudc9IlZiPdi8dpvVoP9gW2XjVOpaPHeP80q46CZQ8TFqpr+Sj +WHr5iEbsDdvT5v7qvcXH67937pry3QHNa6I7hL18fCCKcwKz7XB0tkAYzaCx +eIU0co3mU7D4dn3VkoDG7TefZAzv/gTUw6elel40ptSELYbYIYjzbgcz4mhk +ajiRWSIXeCp8mfp1No0lh2Mobr8j7A326RLV0Kg0ZK96/norGE+cUM/30lhr +yb3Z8P6HcOWL4ljrZRov1XkVlb6whyCmotKHFqBY+SKgMtEOli7EG854ClB9 +skIhn9wEZ9tVOUPRAlxuDzAuGSQgkZ6QN18QYLUJ/WrHIh9eVQfmUtUCjGsb +qLfPpaAhatk4vleAbqUjpspSDmQ9GKg1YxBkbp1olrVbgg2j9rgtn6AkZ9Xe +zVfMQZvlX+LsRfBi5MU+xXfr4PrY5N8NMQQdxHZqP95akC40BeQqCK699nbN +PwxTsPEPcAmuIWj5KGvo/owRDMinHK51ExzOMykILDCAWGerYuwheOPojTOJ +2QawPLrD4pnOtWo/b7XMADhe5csWfQQP3GPunD1gAEH64Q/PDxCsyi4sYW8x +gKG0nvCk5wTd8v0YV1v0YfhEs0oyQXDUQ+t0bIYN8bazK6d1hu7KRtlLNjD7 +qW/OThL83DQtT93NBlqUEt42RTDDnil8Ws+G8CUnB9fXBDPjc7HsDBtGEn7+ +1XqBYNvrrSNFhA2JgmeurTpHhU4m0pZsYHeuqgxbJPj4fM/6n1azQfhRtCr/ +DcEnHhGxv82x4MAMHb7uX4JBQwEb9zex4E2htKtSZwvzOzesbrMgU5Iq9n5H +UHSqyr7/RxaUVQzayzUEpfsfvTqUzQLHYOMi4TLBqatcoVs6C9pNXM1bdL6f +keCyMYkFe+4dlIdqCfYljdm+O8SC0dg8jVZnb3bh3HAIC/4Da0rpXw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 11.5}, {0., 0.016911223217067013`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 11.5}, {0., 0.016911223217067013`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.993136439095573*^9, + 3.993136446700109*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"16ef8436-f758-4668-9a86-f0e789eae4ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519998013506*^9, + 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519999593614*^9, + 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = + 0.5750000000000001, $CellContext`xmax$$ = 13, $CellContext`xmin$$ = + 7, $CellContext`ymax$$ = 0.022, $CellContext`yv$$ = 1.055, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.993136523404283*^9, 3.993136526161566*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV03c01v0bB3DJrISU0b2+XyQjMkoo93URkS0po4GSXaHIqMculCihQcgm +qyHJSCVJqMeqKDIfSdxEGfndv7+u8zrnOudz3u/rfEinU/ucOTk4OARXcHD8 +f54qrZwm/4hjpL/opcfeL6Dk0ayk/w4JrAtrbL8xWge+7a6ia85IoEi73/PJ +w9Ww+7BM0INHEthbKmQeL1AJXPVJdrKzEuilFjEVbf4I8qu8NA1VN6IY8SRc +flc52DPiowN9N+KqEM0d4lnFMCkm8fFg6UY81n+7pmA8H/zG99/jHN+IxTt/ +XO8fywZ+hZ4vtVsouOf7pqs3lTMh5O8bCVk3Cqp17N5Nnk0Dv4FALiV3Cr72 +aHh47nAaeDYq/FTzoKDD6n/T+vTTwObalZfgRcHThxMq+kXTQFnG8tRBbwpy ++rv+ya1MhX7T7pdRARQ8Jh3zaBdnKuimDp8aiqZgmh5pY3D3NqzctbIhs4CC +SbGs3nGem+A6njZ8r5CC0+oWa85Np0DLHS3e7CIKUu+U/xLqS4FbS96GucUU +LPrX4KNHZQqo1vY1FZZT8BQjm/OVZwo46Na0PnxKwd6T278udSRDtWHAx4Ym +CjLeujruK08Cf+uf42Nj7Dwdqfs74hNBOf1S5afvFDzL860nPzQRxsbIqKZx +Cq5s2VFwyScRDoXsZxRMUDBy9eHF4/sTQbew0tKNRUH+eVZ3sngiCKyIeDzy +h4Lfboib9Wdeh3tF4iGDfFTkHz8a8KnmGrSu1BX5IkNF4/lSQVmRBFAOTpf7 +tpmKtsoZu0y4E+DazF8YlqViZl5Be+BcPBwYqvKckKfi4MYX8nOf46GnYXvD +XyUq2ue2l3pkx8NotFwAYwcVK5f+0WZqxcMKIeGvDgZUvHKUlfyoMw7UqH0F +Ay5U1K1gTQm2x8Ko0i6vTlcqHt9x/EVRTSyk6aRsfeNGxX+FXCdt8mOBz8Xi +YbEHFSPp/OpfL8RCT1lddcApKuY+mDiSKR8LkQYZbYL+VFzTzVE2HxEDXT5O +szujqOhPRN4t1YuGoDeDOolZVHxStyVcYSIKuvl5zG5nU9H7zWWl7k9RoG60 +2S4zh4qWrpxKia+jYLLJzac0j4rZ9R5LmhlRcKJ5IrO5iP2ekf79ndZRYNH6 +eyX3IyqqSUt+EaiLhE0daxrOvqLizcLD2+6lR0Br3zajg8NUfCG7zt4qNgzu +jONl2xEq6lfEOTUHhYH7b5MW+1EqWo/KP7P0DAMuIed9DmNUfMQlphtqGgYa +cMPObYKKvQxmuo9QGKSn/nIPmqXiJn3X6aSUUPCxexx7l4eG4sklAfllIbCh +fce7ERkaFj/YeHfPqgugHqhT1b2ZhlEOCb1XWefhAGGc/0aWhj6qUzNjn85D +iueRyEJ5Gr7u/RTcWXgeNnJHap9SoiF//nxyqNl5INQ/3J/dTsOzNx4Y0pKD +QT7FM45bn4YcWyqDRbcHAfNQhrnUMRouFFZ9jco4B7zKpy/KHqfh2yPPGbsv +n4O2lVCr6ExD432Ls0L+58CpsEdJw4WG3Bv6tvWbnIPIebG1ph403F7NeXbf +H39oTolr9vOl4URTqa2ntT/YdgTtbQqn4epjOdKSG/3gjNmB3d5ZNDRLWODt +/OAL8c8kNztn07BF+W9hRb0v3Jf/uco2h4bzdZYT2eW+MMxz6QPm0XCrZKts +3jVfOFhb6ShURMOEW6U+ula+oKVMCyl5QMPl4aN2DZ0+wLFu8NmPeho6bNn5 +uHnYG650eKu799Nw0Hhv4aTsadgoKGdh+42Gwbmv52cppyHHsM/NcICG3bLu +h3gFT0NNlVmqzBANrc8Le18eOwUTGQpcA6M07Jn1X+MfcQosTg69t59k5w1a +o7xYdRLW8dp6mS7T0MR3VNFJ0wuSNTBLmUZHWk3u3G13d2i++4x3G52OBy+Z +7j1j5Q4cvJoeOxh0vG+lZOywyx1cO1RUmSQdA8RHGb5r3UHLR6rOeBMdNSJe +WYY9cIOeQp6eE4p0bPlvgdRc4QaSjHciqdp0rA7YKZ9a4ALF3Hbh/Efo+C+Z +Y82v6gzqvO3XFth2UHTJSSKcoYbPLPPHUTp6mq5lqQg6Q8tq3efvHeloqrLF +/Nr4cZgQll++6UzH33OM2d+5x0GRPh8o70VH1W9Xq/aTx6FI/ZaPcTAdg7wL +3y/RjkG+yyfHK7fo2DvwxPr7Lkf4lCRRdf02HWt2pvP6KTrCqgab9bfu0LH4 +7QmdtXRHcJfuashJo+PzFSsZLssOIN//r0JdJh2731zSr6x3gAK7d79YBXSs +7Lp0tsPYAYpM66Jtquho1VL+SKf1CJSq5ZRJ9dDRh5C46hdlDxZKbbipl93X +0zYJykl7mJSdb5X5Qsd6Bk91u7U9KNPNJuT66PjLxpLn4iZ7KOGblVcepOMA +j2Hl0Cs7KO7Vz9o1Tkf+cp6zwavsoOjiUJL1Ih1Huq+UpGTaQN5n6eCLVAbW +VP24zbn6ANw5bVLhT2NgbbZ+etVva7jKfYblQmdgk159WPiwNfhtfeFqSDCw +wREeQL016IU7WvNLMzBVoyXINdAavsqnKcUqMPDHJF+i94/9IBoo1h+nxcC4 +3pf/rftiBRHiq/Yk2TCwoJxWuH3EEojPs023bBm45LecJNBlCVWpA+Z37Rho +vrDQNd1gCSzJatu8QwwsCXy7+XuOJTgqnvZ66sBAuxuFOeEulsDU7Uz84spA +xzPdoZbfLeC3R+aATAADHSD4DGXeHDxrtUIrbjKwTJjzB+OKCdhTN5UX3GLn +fd7vunDGBIwCBAdSbzPQp7F7eeyQCcipDepFpDJwdUOpNo+iCQznXOGzzGDg +K25zVYUWYzga13d1LI+BIhmLLGK9Mew7HJVGe8LAkEGnRdPivaCx8L4qvJOB +Q0d7ek6IG0CyVK6kTxcDlz1yqlW5DWDWODjaoZvdp3jZkbWsPfDwjsxB7U8M +pET+KZ55uweUmUGs2V4GYuB12eCQPSAbKi3nPsRA3bqCDI9xfRDj9U+ymGHg +p9qR+/6tehDEH/dkLT+BCp/DfJ/W6sKFbZ+F4tkWyJNsfVmsC2FHZd2EVxE4 +KqOw70uqLsQ8qpdYv5rAiOv2N5nBupDiOBcoIUAgtM0+LdfUhYeVDtrSwgS+ +Vrw5dLhCBybc1Oo1JQi8fU/w+4lqBIem7rfH5Qic3rkyQ3tAG+LqpQN72W7N +fRnNeqMNVU9Pyx6QJ7DS+1Xas1JtEC3kizRQIPDC7Gfe+Ava8DZWgymvSKDs +QOOUCkUb1E1TSn8qEzgVZaRoZbML1rQdvBGoQaCagLF5Ur8WVHR0Hok3INB5 +nDibuUUDnhznVhUxJDCLvlnHTVQDnk6rcSex3SG3z1CPQwOeCScU3t5L4Hrp +xFr19h1Qb2r8O8eYwB3bimxXn98BLa9qE6rNCdR+Wld87IM6DD/Kezl2kMDS +du/kg7HbYX1SoLy+K4HnXTrvlKuqAbByrWrZPuWmvVdJUg3czTqCNd0InC2a +XP1EWA2e8yi3KroTOKPyMevXpCqc9B/yFfUkcNKN+CxWqgqNNhbVI6cIlH6R +vmVCWRWCKTIWMf4Eegcujl/bpQID6e/PtkYRWNc/wahhKUGD04ymwUUCf1VV +OyZ3K0GBtNjfGrZrzz2Mj6pRgtN5h6KKL7H7un/eKydGCRZLRpKuxBCYG3hG +bkxKCdbXLlUYxxEYqx+8zsdOEfb0ys2/vkHgIePodv4uBSiQCLtQl0WgxeWD +eRWr5MDR56KLbjaB4r/cj1VNy4L428sWL9kGg2Hh9h5ZuBicLNmYQ+DiQsLS +7hJZOP61qKE1j8AHnh84qdayQMvuWvu1iECb3s7rd7I2Q7yy4t2lhwSKWcWk +OO6TAX+D7lqtVwRejdnhsGtICmy8ev4+YLs4zIJfvl0KNK73aSs2ELgtf6uO +zAspmP8yWsV4TSBH7MYtRhlScMHvTwXXGwKTjrWnMI9IQVT2xtKWZgJ922Ox +9ZMkJK08nO7UTmChcvYJ7S8kPK7tD4kZINCtXUjr42oCPIIbBwUGCUwrC3H5 +8IcBhGaJYQLbChe/ca7tYUBMebBQyhCBzRxazV3pDDiSLZaePULgxwerR8sV +GMAba1pb953AoUiNSO89dLA5ULk0O03gxOWLYyeuUmFhPD7wGBeJC46KjVvc +JcBV0CtgkO2Dxio83/dJQLvK3nPO3CR+FAvzrtkpAcV+K/xceEg853YlPEtA +Apw4fLw9+Eh8kXcr1KNcHJpErFx915A4I23/T/uyGNzS2nAgfD2J5pYS5dfy +RUHz0k2Ve9IkKqSLOvzath7a/M9EUTaR+KQl2qxUaj2ccDH/fJ1tic53EwHr +1kPiHu7ICBkSffKlRTQnReAnl3e3syyJzTxdCc5FIpAdaviP7BYS44Wg1nOz +CAgHzTXfVyPRXkszv2/zOvjPy9r1iS6JJl4VA4PmQrB/Zt03rd0kXpK5oPAS +haAmsM2+mu2+t3c9y1SEIPGisXm9HomBrkW5j0SEADN01Jv3kFifxKX5ulQQ +ktoVufqMSFyMVOe90bgW9HbypPNakXhGrXx/72oBuMtX0XXgGIntjx9mCPTw +w7ZDvrltbD/nD9me9YofGku2+hsdJ3Edl760WQk/sA7kiTKdSVQUNGz7HMYP +etk3rTe5kOioQU/skeeH/3SC/512J3FHhO4l5wt8oBak0xrvQ2JQ4IrPm9R4 +4fWPtw1NoSQeJYNEhNu4YH3ueRXdMHafpuufHqnhAgeHrXcq2WZmJDtUFXHB +/Idr3nnh7H2/psCMaC7Y8sSWGhVJ4mFP5QiGHhfEh41460STuAZeC3ZXrQQb +sZW0J/Ekbvlx1Gj4ESeMopZv9l0SZ3Ovpk695wC+hBbOzekkfm39eNijngPk ++p2u5bEd/eqTy3Q5B7iHxpYVZpBYOlMkrZTIAT+e9/wsu0fi93tfOkwOcgBL +9x/PmlwSZU68qTGoW2Yu6r107iohMdcl61j93BJTcK+ZDX8diZ/rX63lKp9n +2p3o1w5j2yHQaXzF7XlmVvgZqQW2v11oSRCJmGdq1NyaGH9OYubxo5PeB+aZ +TmojEW0vSCyJSdoksfiH+ZgWUpb8msRdRimjnMZ/mIdYZatkWkmsLC09+WF2 +jpl3e0O17hcS06oM9nOG/2ImCEiUv2HbPs57u9nJX8zAf6i5Fl/Z93Fe9/u+ +7S+myTGphCN9JF4WLevIU/7FnJRXcQ78RmL1R+q36K8zTM2nJgLlwyQG93P/ +HsUZZlN3+GHyJ4lGVcIn7whPMx8YXdyXx7ZwjPIcLrOYd57FGGydJHEysEly +bpzFPJmeoKI9xb73/hlaSiOLuc71LrftNIlxOTqtBSEspv3c0/vxc+z/eeRd +AdfMFFPPrSZT7DeJNZ5rEqu+TTGVPj9PTmP7cTynRPj7KSZHbWNo0R8S114K +fby7ZIqZFdVp3bhAopuVaFS0xxTzyu+PRuaLJErq/Lz2wm6K6efeC51s+5n2 +VwsYTTENzQblBpdIHH53SPmD7BRTpW6E7vGXbT4VWxPxKeZG1e8iLLZ92h84 +dfJOMVdmTfAFLJP4c0OJ9um5Seb4BtbSMtsHti18khiZZP4PDxyCoA== + "]]}, + 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:eJwV03c01v0bB3DJrISU0b2+XyQjMkoo93URkS0po4GSXaHIqMculCihQcgm +qyHJSCVJqMeqKDIfSdxEGfndv7+u8zrnOudz3u/rfEinU/ucOTk4OARXcHD8 +f54qrZwm/4hjpL/opcfeL6Dk0ayk/w4JrAtrbL8xWge+7a6ia85IoEi73/PJ +w9Ww+7BM0INHEthbKmQeL1AJXPVJdrKzEuilFjEVbf4I8qu8NA1VN6IY8SRc +flc52DPiowN9N+KqEM0d4lnFMCkm8fFg6UY81n+7pmA8H/zG99/jHN+IxTt/ +XO8fywZ+hZ4vtVsouOf7pqs3lTMh5O8bCVk3Cqp17N5Nnk0Dv4FALiV3Cr72 +aHh47nAaeDYq/FTzoKDD6n/T+vTTwObalZfgRcHThxMq+kXTQFnG8tRBbwpy ++rv+ya1MhX7T7pdRARQ8Jh3zaBdnKuimDp8aiqZgmh5pY3D3NqzctbIhs4CC +SbGs3nGem+A6njZ8r5CC0+oWa85Np0DLHS3e7CIKUu+U/xLqS4FbS96GucUU +LPrX4KNHZQqo1vY1FZZT8BQjm/OVZwo46Na0PnxKwd6T278udSRDtWHAx4Ym +CjLeujruK08Cf+uf42Nj7Dwdqfs74hNBOf1S5afvFDzL860nPzQRxsbIqKZx +Cq5s2VFwyScRDoXsZxRMUDBy9eHF4/sTQbew0tKNRUH+eVZ3sngiCKyIeDzy +h4Lfboib9Wdeh3tF4iGDfFTkHz8a8KnmGrSu1BX5IkNF4/lSQVmRBFAOTpf7 +tpmKtsoZu0y4E+DazF8YlqViZl5Be+BcPBwYqvKckKfi4MYX8nOf46GnYXvD +XyUq2ue2l3pkx8NotFwAYwcVK5f+0WZqxcMKIeGvDgZUvHKUlfyoMw7UqH0F +Ay5U1K1gTQm2x8Ko0i6vTlcqHt9x/EVRTSyk6aRsfeNGxX+FXCdt8mOBz8Xi +YbEHFSPp/OpfL8RCT1lddcApKuY+mDiSKR8LkQYZbYL+VFzTzVE2HxEDXT5O +szujqOhPRN4t1YuGoDeDOolZVHxStyVcYSIKuvl5zG5nU9H7zWWl7k9RoG60 +2S4zh4qWrpxKia+jYLLJzac0j4rZ9R5LmhlRcKJ5IrO5iP2ekf79ndZRYNH6 +eyX3IyqqSUt+EaiLhE0daxrOvqLizcLD2+6lR0Br3zajg8NUfCG7zt4qNgzu +jONl2xEq6lfEOTUHhYH7b5MW+1EqWo/KP7P0DAMuIed9DmNUfMQlphtqGgYa +cMPObYKKvQxmuo9QGKSn/nIPmqXiJn3X6aSUUPCxexx7l4eG4sklAfllIbCh +fce7ERkaFj/YeHfPqgugHqhT1b2ZhlEOCb1XWefhAGGc/0aWhj6qUzNjn85D +iueRyEJ5Gr7u/RTcWXgeNnJHap9SoiF//nxyqNl5INQ/3J/dTsOzNx4Y0pKD +QT7FM45bn4YcWyqDRbcHAfNQhrnUMRouFFZ9jco4B7zKpy/KHqfh2yPPGbsv +n4O2lVCr6ExD432Ls0L+58CpsEdJw4WG3Bv6tvWbnIPIebG1ph403F7NeXbf +H39oTolr9vOl4URTqa2ntT/YdgTtbQqn4epjOdKSG/3gjNmB3d5ZNDRLWODt +/OAL8c8kNztn07BF+W9hRb0v3Jf/uco2h4bzdZYT2eW+MMxz6QPm0XCrZKts +3jVfOFhb6ShURMOEW6U+ula+oKVMCyl5QMPl4aN2DZ0+wLFu8NmPeho6bNn5 +uHnYG650eKu799Nw0Hhv4aTsadgoKGdh+42Gwbmv52cppyHHsM/NcICG3bLu +h3gFT0NNlVmqzBANrc8Le18eOwUTGQpcA6M07Jn1X+MfcQosTg69t59k5w1a +o7xYdRLW8dp6mS7T0MR3VNFJ0wuSNTBLmUZHWk3u3G13d2i++4x3G52OBy+Z +7j1j5Q4cvJoeOxh0vG+lZOywyx1cO1RUmSQdA8RHGb5r3UHLR6rOeBMdNSJe +WYY9cIOeQp6eE4p0bPlvgdRc4QaSjHciqdp0rA7YKZ9a4ALF3Hbh/Efo+C+Z +Y82v6gzqvO3XFth2UHTJSSKcoYbPLPPHUTp6mq5lqQg6Q8tq3efvHeloqrLF +/Nr4cZgQll++6UzH33OM2d+5x0GRPh8o70VH1W9Xq/aTx6FI/ZaPcTAdg7wL +3y/RjkG+yyfHK7fo2DvwxPr7Lkf4lCRRdf02HWt2pvP6KTrCqgab9bfu0LH4 +7QmdtXRHcJfuashJo+PzFSsZLssOIN//r0JdJh2731zSr6x3gAK7d79YBXSs +7Lp0tsPYAYpM66Jtquho1VL+SKf1CJSq5ZRJ9dDRh5C46hdlDxZKbbipl93X +0zYJykl7mJSdb5X5Qsd6Bk91u7U9KNPNJuT66PjLxpLn4iZ7KOGblVcepOMA +j2Hl0Cs7KO7Vz9o1Tkf+cp6zwavsoOjiUJL1Ih1Huq+UpGTaQN5n6eCLVAbW +VP24zbn6ANw5bVLhT2NgbbZ+etVva7jKfYblQmdgk159WPiwNfhtfeFqSDCw +wREeQL016IU7WvNLMzBVoyXINdAavsqnKcUqMPDHJF+i94/9IBoo1h+nxcC4 +3pf/rftiBRHiq/Yk2TCwoJxWuH3EEojPs023bBm45LecJNBlCVWpA+Z37Rho +vrDQNd1gCSzJatu8QwwsCXy7+XuOJTgqnvZ66sBAuxuFOeEulsDU7Uz84spA +xzPdoZbfLeC3R+aATAADHSD4DGXeHDxrtUIrbjKwTJjzB+OKCdhTN5UX3GLn +fd7vunDGBIwCBAdSbzPQp7F7eeyQCcipDepFpDJwdUOpNo+iCQznXOGzzGDg +K25zVYUWYzga13d1LI+BIhmLLGK9Mew7HJVGe8LAkEGnRdPivaCx8L4qvJOB +Q0d7ek6IG0CyVK6kTxcDlz1yqlW5DWDWODjaoZvdp3jZkbWsPfDwjsxB7U8M +pET+KZ55uweUmUGs2V4GYuB12eCQPSAbKi3nPsRA3bqCDI9xfRDj9U+ymGHg +p9qR+/6tehDEH/dkLT+BCp/DfJ/W6sKFbZ+F4tkWyJNsfVmsC2FHZd2EVxE4 +KqOw70uqLsQ8qpdYv5rAiOv2N5nBupDiOBcoIUAgtM0+LdfUhYeVDtrSwgS+ +Vrw5dLhCBybc1Oo1JQi8fU/w+4lqBIem7rfH5Qic3rkyQ3tAG+LqpQN72W7N +fRnNeqMNVU9Pyx6QJ7DS+1Xas1JtEC3kizRQIPDC7Gfe+Ava8DZWgymvSKDs +QOOUCkUb1E1TSn8qEzgVZaRoZbML1rQdvBGoQaCagLF5Ur8WVHR0Hok3INB5 +nDibuUUDnhznVhUxJDCLvlnHTVQDnk6rcSex3SG3z1CPQwOeCScU3t5L4Hrp +xFr19h1Qb2r8O8eYwB3bimxXn98BLa9qE6rNCdR+Wld87IM6DD/Kezl2kMDS +du/kg7HbYX1SoLy+K4HnXTrvlKuqAbByrWrZPuWmvVdJUg3czTqCNd0InC2a +XP1EWA2e8yi3KroTOKPyMevXpCqc9B/yFfUkcNKN+CxWqgqNNhbVI6cIlH6R +vmVCWRWCKTIWMf4Eegcujl/bpQID6e/PtkYRWNc/wahhKUGD04ymwUUCf1VV +OyZ3K0GBtNjfGrZrzz2Mj6pRgtN5h6KKL7H7un/eKydGCRZLRpKuxBCYG3hG +bkxKCdbXLlUYxxEYqx+8zsdOEfb0ys2/vkHgIePodv4uBSiQCLtQl0WgxeWD +eRWr5MDR56KLbjaB4r/cj1VNy4L428sWL9kGg2Hh9h5ZuBicLNmYQ+DiQsLS +7hJZOP61qKE1j8AHnh84qdayQMvuWvu1iECb3s7rd7I2Q7yy4t2lhwSKWcWk +OO6TAX+D7lqtVwRejdnhsGtICmy8ev4+YLs4zIJfvl0KNK73aSs2ELgtf6uO +zAspmP8yWsV4TSBH7MYtRhlScMHvTwXXGwKTjrWnMI9IQVT2xtKWZgJ922Ox +9ZMkJK08nO7UTmChcvYJ7S8kPK7tD4kZINCtXUjr42oCPIIbBwUGCUwrC3H5 +8IcBhGaJYQLbChe/ca7tYUBMebBQyhCBzRxazV3pDDiSLZaePULgxwerR8sV +GMAba1pb953AoUiNSO89dLA5ULk0O03gxOWLYyeuUmFhPD7wGBeJC46KjVvc +JcBV0CtgkO2Dxio83/dJQLvK3nPO3CR+FAvzrtkpAcV+K/xceEg853YlPEtA +Apw4fLw9+Eh8kXcr1KNcHJpErFx915A4I23/T/uyGNzS2nAgfD2J5pYS5dfy +RUHz0k2Ve9IkKqSLOvzath7a/M9EUTaR+KQl2qxUaj2ccDH/fJ1tic53EwHr +1kPiHu7ICBkSffKlRTQnReAnl3e3syyJzTxdCc5FIpAdaviP7BYS44Wg1nOz +CAgHzTXfVyPRXkszv2/zOvjPy9r1iS6JJl4VA4PmQrB/Zt03rd0kXpK5oPAS +haAmsM2+mu2+t3c9y1SEIPGisXm9HomBrkW5j0SEADN01Jv3kFifxKX5ulQQ +ktoVufqMSFyMVOe90bgW9HbypPNakXhGrXx/72oBuMtX0XXgGIntjx9mCPTw +w7ZDvrltbD/nD9me9YofGku2+hsdJ3Edl760WQk/sA7kiTKdSVQUNGz7HMYP +etk3rTe5kOioQU/skeeH/3SC/512J3FHhO4l5wt8oBak0xrvQ2JQ4IrPm9R4 +4fWPtw1NoSQeJYNEhNu4YH3ueRXdMHafpuufHqnhAgeHrXcq2WZmJDtUFXHB +/Idr3nnh7H2/psCMaC7Y8sSWGhVJ4mFP5QiGHhfEh41460STuAZeC3ZXrQQb +sZW0J/Ekbvlx1Gj4ESeMopZv9l0SZ3Ovpk695wC+hBbOzekkfm39eNijngPk ++p2u5bEd/eqTy3Q5B7iHxpYVZpBYOlMkrZTIAT+e9/wsu0fi93tfOkwOcgBL +9x/PmlwSZU68qTGoW2Yu6r107iohMdcl61j93BJTcK+ZDX8diZ/rX63lKp9n +2p3o1w5j2yHQaXzF7XlmVvgZqQW2v11oSRCJmGdq1NyaGH9OYubxo5PeB+aZ +TmojEW0vSCyJSdoksfiH+ZgWUpb8msRdRimjnMZ/mIdYZatkWkmsLC09+WF2 +jpl3e0O17hcS06oM9nOG/2ImCEiUv2HbPs57u9nJX8zAf6i5Fl/Z93Fe9/u+ +7S+myTGphCN9JF4WLevIU/7FnJRXcQ78RmL1R+q36K8zTM2nJgLlwyQG93P/ +HsUZZlN3+GHyJ4lGVcIn7whPMx8YXdyXx7ZwjPIcLrOYd57FGGydJHEysEly +bpzFPJmeoKI9xb73/hlaSiOLuc71LrftNIlxOTqtBSEspv3c0/vxc+z/eeRd +AdfMFFPPrSZT7DeJNZ5rEqu+TTGVPj9PTmP7cTynRPj7KSZHbWNo0R8S114K +fby7ZIqZFdVp3bhAopuVaFS0xxTzyu+PRuaLJErq/Lz2wm6K6efeC51s+5n2 +VwsYTTENzQblBpdIHH53SPmD7BRTpW6E7vGXbT4VWxPxKeZG1e8iLLZ92h84 +dfJOMVdmTfAFLJP4c0OJ9um5Seb4BtbSMtsHti18khiZZP4PDxyCoA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.15190774578962532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.15190774578962532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV03c01v0bB3DJrISU0b2+XyQjMkoo93URkS0po4GSXaHIqMculCihQcgm +qyHJSCVJqMeqKDIfSdxEGfndv7+u8zrnOudz3u/rfEinU/ucOTk4OARXcHD8 +f54qrZwm/4hjpL/opcfeL6Dk0ayk/w4JrAtrbL8xWge+7a6ia85IoEi73/PJ +w9Ww+7BM0INHEthbKmQeL1AJXPVJdrKzEuilFjEVbf4I8qu8NA1VN6IY8SRc +flc52DPiowN9N+KqEM0d4lnFMCkm8fFg6UY81n+7pmA8H/zG99/jHN+IxTt/ +XO8fywZ+hZ4vtVsouOf7pqs3lTMh5O8bCVk3Cqp17N5Nnk0Dv4FALiV3Cr72 +aHh47nAaeDYq/FTzoKDD6n/T+vTTwObalZfgRcHThxMq+kXTQFnG8tRBbwpy ++rv+ya1MhX7T7pdRARQ8Jh3zaBdnKuimDp8aiqZgmh5pY3D3NqzctbIhs4CC +SbGs3nGem+A6njZ8r5CC0+oWa85Np0DLHS3e7CIKUu+U/xLqS4FbS96GucUU +LPrX4KNHZQqo1vY1FZZT8BQjm/OVZwo46Na0PnxKwd6T278udSRDtWHAx4Ym +CjLeujruK08Cf+uf42Nj7Dwdqfs74hNBOf1S5afvFDzL860nPzQRxsbIqKZx +Cq5s2VFwyScRDoXsZxRMUDBy9eHF4/sTQbew0tKNRUH+eVZ3sngiCKyIeDzy +h4Lfboib9Wdeh3tF4iGDfFTkHz8a8KnmGrSu1BX5IkNF4/lSQVmRBFAOTpf7 +tpmKtsoZu0y4E+DazF8YlqViZl5Be+BcPBwYqvKckKfi4MYX8nOf46GnYXvD +XyUq2ue2l3pkx8NotFwAYwcVK5f+0WZqxcMKIeGvDgZUvHKUlfyoMw7UqH0F +Ay5U1K1gTQm2x8Ko0i6vTlcqHt9x/EVRTSyk6aRsfeNGxX+FXCdt8mOBz8Xi +YbEHFSPp/OpfL8RCT1lddcApKuY+mDiSKR8LkQYZbYL+VFzTzVE2HxEDXT5O +szujqOhPRN4t1YuGoDeDOolZVHxStyVcYSIKuvl5zG5nU9H7zWWl7k9RoG60 +2S4zh4qWrpxKia+jYLLJzac0j4rZ9R5LmhlRcKJ5IrO5iP2ekf79ndZRYNH6 +eyX3IyqqSUt+EaiLhE0daxrOvqLizcLD2+6lR0Br3zajg8NUfCG7zt4qNgzu +jONl2xEq6lfEOTUHhYH7b5MW+1EqWo/KP7P0DAMuIed9DmNUfMQlphtqGgYa +cMPObYKKvQxmuo9QGKSn/nIPmqXiJn3X6aSUUPCxexx7l4eG4sklAfllIbCh +fce7ERkaFj/YeHfPqgugHqhT1b2ZhlEOCb1XWefhAGGc/0aWhj6qUzNjn85D +iueRyEJ5Gr7u/RTcWXgeNnJHap9SoiF//nxyqNl5INQ/3J/dTsOzNx4Y0pKD +QT7FM45bn4YcWyqDRbcHAfNQhrnUMRouFFZ9jco4B7zKpy/KHqfh2yPPGbsv +n4O2lVCr6ExD432Ls0L+58CpsEdJw4WG3Bv6tvWbnIPIebG1ph403F7NeXbf +H39oTolr9vOl4URTqa2ntT/YdgTtbQqn4epjOdKSG/3gjNmB3d5ZNDRLWODt +/OAL8c8kNztn07BF+W9hRb0v3Jf/uco2h4bzdZYT2eW+MMxz6QPm0XCrZKts +3jVfOFhb6ShURMOEW6U+ula+oKVMCyl5QMPl4aN2DZ0+wLFu8NmPeho6bNn5 +uHnYG650eKu799Nw0Hhv4aTsadgoKGdh+42Gwbmv52cppyHHsM/NcICG3bLu +h3gFT0NNlVmqzBANrc8Le18eOwUTGQpcA6M07Jn1X+MfcQosTg69t59k5w1a +o7xYdRLW8dp6mS7T0MR3VNFJ0wuSNTBLmUZHWk3u3G13d2i++4x3G52OBy+Z +7j1j5Q4cvJoeOxh0vG+lZOywyx1cO1RUmSQdA8RHGb5r3UHLR6rOeBMdNSJe +WYY9cIOeQp6eE4p0bPlvgdRc4QaSjHciqdp0rA7YKZ9a4ALF3Hbh/Efo+C+Z +Y82v6gzqvO3XFth2UHTJSSKcoYbPLPPHUTp6mq5lqQg6Q8tq3efvHeloqrLF +/Nr4cZgQll++6UzH33OM2d+5x0GRPh8o70VH1W9Xq/aTx6FI/ZaPcTAdg7wL +3y/RjkG+yyfHK7fo2DvwxPr7Lkf4lCRRdf02HWt2pvP6KTrCqgab9bfu0LH4 +7QmdtXRHcJfuashJo+PzFSsZLssOIN//r0JdJh2731zSr6x3gAK7d79YBXSs +7Lp0tsPYAYpM66Jtquho1VL+SKf1CJSq5ZRJ9dDRh5C46hdlDxZKbbipl93X +0zYJykl7mJSdb5X5Qsd6Bk91u7U9KNPNJuT66PjLxpLn4iZ7KOGblVcepOMA +j2Hl0Cs7KO7Vz9o1Tkf+cp6zwavsoOjiUJL1Ih1Huq+UpGTaQN5n6eCLVAbW +VP24zbn6ANw5bVLhT2NgbbZ+etVva7jKfYblQmdgk159WPiwNfhtfeFqSDCw +wREeQL016IU7WvNLMzBVoyXINdAavsqnKcUqMPDHJF+i94/9IBoo1h+nxcC4 +3pf/rftiBRHiq/Yk2TCwoJxWuH3EEojPs023bBm45LecJNBlCVWpA+Z37Rho +vrDQNd1gCSzJatu8QwwsCXy7+XuOJTgqnvZ66sBAuxuFOeEulsDU7Uz84spA +xzPdoZbfLeC3R+aATAADHSD4DGXeHDxrtUIrbjKwTJjzB+OKCdhTN5UX3GLn +fd7vunDGBIwCBAdSbzPQp7F7eeyQCcipDepFpDJwdUOpNo+iCQznXOGzzGDg +K25zVYUWYzga13d1LI+BIhmLLGK9Mew7HJVGe8LAkEGnRdPivaCx8L4qvJOB +Q0d7ek6IG0CyVK6kTxcDlz1yqlW5DWDWODjaoZvdp3jZkbWsPfDwjsxB7U8M +pET+KZ55uweUmUGs2V4GYuB12eCQPSAbKi3nPsRA3bqCDI9xfRDj9U+ymGHg +p9qR+/6tehDEH/dkLT+BCp/DfJ/W6sKFbZ+F4tkWyJNsfVmsC2FHZd2EVxE4 +KqOw70uqLsQ8qpdYv5rAiOv2N5nBupDiOBcoIUAgtM0+LdfUhYeVDtrSwgS+ +Vrw5dLhCBybc1Oo1JQi8fU/w+4lqBIem7rfH5Qic3rkyQ3tAG+LqpQN72W7N +fRnNeqMNVU9Pyx6QJ7DS+1Xas1JtEC3kizRQIPDC7Gfe+Ava8DZWgymvSKDs +QOOUCkUb1E1TSn8qEzgVZaRoZbML1rQdvBGoQaCagLF5Ur8WVHR0Hok3INB5 +nDibuUUDnhznVhUxJDCLvlnHTVQDnk6rcSex3SG3z1CPQwOeCScU3t5L4Hrp +xFr19h1Qb2r8O8eYwB3bimxXn98BLa9qE6rNCdR+Wld87IM6DD/Kezl2kMDS +du/kg7HbYX1SoLy+K4HnXTrvlKuqAbByrWrZPuWmvVdJUg3czTqCNd0InC2a +XP1EWA2e8yi3KroTOKPyMevXpCqc9B/yFfUkcNKN+CxWqgqNNhbVI6cIlH6R +vmVCWRWCKTIWMf4Eegcujl/bpQID6e/PtkYRWNc/wahhKUGD04ymwUUCf1VV +OyZ3K0GBtNjfGrZrzz2Mj6pRgtN5h6KKL7H7un/eKydGCRZLRpKuxBCYG3hG +bkxKCdbXLlUYxxEYqx+8zsdOEfb0ys2/vkHgIePodv4uBSiQCLtQl0WgxeWD +eRWr5MDR56KLbjaB4r/cj1VNy4L428sWL9kGg2Hh9h5ZuBicLNmYQ+DiQsLS +7hJZOP61qKE1j8AHnh84qdayQMvuWvu1iECb3s7rd7I2Q7yy4t2lhwSKWcWk +OO6TAX+D7lqtVwRejdnhsGtICmy8ev4+YLs4zIJfvl0KNK73aSs2ELgtf6uO +zAspmP8yWsV4TSBH7MYtRhlScMHvTwXXGwKTjrWnMI9IQVT2xtKWZgJ922Ox +9ZMkJK08nO7UTmChcvYJ7S8kPK7tD4kZINCtXUjr42oCPIIbBwUGCUwrC3H5 +8IcBhGaJYQLbChe/ca7tYUBMebBQyhCBzRxazV3pDDiSLZaePULgxwerR8sV +GMAba1pb953AoUiNSO89dLA5ULk0O03gxOWLYyeuUmFhPD7wGBeJC46KjVvc +JcBV0CtgkO2Dxio83/dJQLvK3nPO3CR+FAvzrtkpAcV+K/xceEg853YlPEtA +Apw4fLw9+Eh8kXcr1KNcHJpErFx915A4I23/T/uyGNzS2nAgfD2J5pYS5dfy +RUHz0k2Ve9IkKqSLOvzath7a/M9EUTaR+KQl2qxUaj2ccDH/fJ1tic53EwHr +1kPiHu7ICBkSffKlRTQnReAnl3e3syyJzTxdCc5FIpAdaviP7BYS44Wg1nOz +CAgHzTXfVyPRXkszv2/zOvjPy9r1iS6JJl4VA4PmQrB/Zt03rd0kXpK5oPAS +haAmsM2+mu2+t3c9y1SEIPGisXm9HomBrkW5j0SEADN01Jv3kFifxKX5ulQQ +ktoVufqMSFyMVOe90bgW9HbypPNakXhGrXx/72oBuMtX0XXgGIntjx9mCPTw +w7ZDvrltbD/nD9me9YofGku2+hsdJ3Edl760WQk/sA7kiTKdSVQUNGz7HMYP +etk3rTe5kOioQU/skeeH/3SC/512J3FHhO4l5wt8oBak0xrvQ2JQ4IrPm9R4 +4fWPtw1NoSQeJYNEhNu4YH3ueRXdMHafpuufHqnhAgeHrXcq2WZmJDtUFXHB +/Idr3nnh7H2/psCMaC7Y8sSWGhVJ4mFP5QiGHhfEh41460STuAZeC3ZXrQQb +sZW0J/Ekbvlx1Gj4ESeMopZv9l0SZ3Ovpk695wC+hBbOzekkfm39eNijngPk ++p2u5bEd/eqTy3Q5B7iHxpYVZpBYOlMkrZTIAT+e9/wsu0fi93tfOkwOcgBL +9x/PmlwSZU68qTGoW2Yu6r107iohMdcl61j93BJTcK+ZDX8diZ/rX63lKp9n +2p3o1w5j2yHQaXzF7XlmVvgZqQW2v11oSRCJmGdq1NyaGH9OYubxo5PeB+aZ +TmojEW0vSCyJSdoksfiH+ZgWUpb8msRdRimjnMZ/mIdYZatkWkmsLC09+WF2 +jpl3e0O17hcS06oM9nOG/2ImCEiUv2HbPs57u9nJX8zAf6i5Fl/Z93Fe9/u+ +7S+myTGphCN9JF4WLevIU/7FnJRXcQ78RmL1R+q36K8zTM2nJgLlwyQG93P/ +HsUZZlN3+GHyJ4lGVcIn7whPMx8YXdyXx7ZwjPIcLrOYd57FGGydJHEysEly +bpzFPJmeoKI9xb73/hlaSiOLuc71LrftNIlxOTqtBSEspv3c0/vxc+z/eeRd +AdfMFFPPrSZT7DeJNZ5rEqu+TTGVPj9PTmP7cTynRPj7KSZHbWNo0R8S114K +fby7ZIqZFdVp3bhAopuVaFS0xxTzyu+PRuaLJErq/Lz2wm6K6efeC51s+5n2 +VwsYTTENzQblBpdIHH53SPmD7BRTpW6E7vGXbT4VWxPxKeZG1e8iLLZ92h84 +dfJOMVdmTfAFLJP4c0OJ9um5Seb4BtbSMtsHti18khiZZP4PDxyCoA== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.15190774578962532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.15190774578962532`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.993136520563983*^9, + 3.99313652727385*^9}}, + CellLabel->"Out[28]=",ExpressionUUID->"cf33fc43-024d-4951-9742-008813a6b312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992520003015276*^9, + 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ +40714b1d68e9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925200045686483`*^9, + 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ +0db8ce2e2f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.635, $CellContext`xmax$$ = + 8.98, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.07100000000000001, $CellContext`yyv$$ = 1.51, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {104.3058084932592, 109.9308084932592}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {193.2214334932592, 198.8464334932592}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 11, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9924899121466837`*^9}, + CellLabel->"",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 12, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99248991233014*^9}, + CellLabel->"",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], + +Cell["\<\ +Show::gcomb: Could not combine the graphics objects in + Show[l1111, -Graphics-, PlotRange -> {{6, 13}, {0, 0.15}}].\ +\>", "Message", "MSG", + CellChangeTimes->{3.992520011711594*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] +}, Open ]] +}, +WindowSize->{714, 258}, +WindowMargins->{{-3, Automatic}, {267, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"5f68e988-e6e3-4a94-b481-3e7ea1da0382"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 887, 25, 71, "Output",ExpressionUUID->"a14c987a-84ae-4ee5-8121-f2d3bb3b8e49"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6373, 204, 2580, 75, 149, "Output",ExpressionUUID->"b0682d3e-f147-466d-bef4-173d06992504"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8990, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10673, 334, 2782, 81, 149, "Output",ExpressionUUID->"09e3d15b-ac16-4ddf-a33d-77d7cafea94f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13492, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15338, 475, 3720, 109, 158, "Output",ExpressionUUID->"5e1ea612-7fa6-46b8-bcfe-2eb5c5623855"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19095, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21178, 650, 4787, 138, 193, "Output",ExpressionUUID->"490e2649-0b7b-453e-8225-62c9a14243d1"] +}, Open ]], +Cell[25980, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26153, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26504, 804, 303, 5, 33, "Output",ExpressionUUID->"e9937db5-7b7c-461b-b4ad-0dc5fc5647af"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26844, 814, 334, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27181, 822, 303, 5, 33, "Output",ExpressionUUID->"48bb3397-86e0-4088-8a68-d4ea6d5ca010"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27521, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27700, 837, 275, 4, 33, "Output",ExpressionUUID->"4fbb8110-f81f-42ab-b921-7793c402a86b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28012, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28273, 855, 277, 4, 33, "Output",ExpressionUUID->"be445857-f3f7-40ae-9b90-db30f517dca6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28587, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28722, 868, 277, 4, 33, "Output",ExpressionUUID->"decb9343-ed0e-46bb-a11a-87944daaae80"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29036, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29316, 885, 291, 4, 33, "Output",ExpressionUUID->"a9ef34a4-6098-47aa-a661-03ef077e3b16"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29644, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29905, 903, 287, 4, 33, "Output",ExpressionUUID->"d949e559-ca16-4645-bdbb-5f8415628d9a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30229, 912, 355, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30587, 920, 161, 2, 33, "Output",ExpressionUUID->"8c6b5b79-bb53-4f44-ad77-9bb16ded28dd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30785, 927, 361, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31149, 935, 163, 2, 33, "Output",ExpressionUUID->"08feeb38-7ac5-4a99-91bd-573d69a575a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31349, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31481, 946, 275, 4, 33, "Output",ExpressionUUID->"5a160910-0827-477e-b9c9-94fbcf20c28f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31793, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31925, 959, 270, 4, 33, "Output",ExpressionUUID->"c19045c0-75a6-4e46-be6b-7b2fff5557f1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32232, 968, 2016, 51, 217, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34251, 1021, 11361, 233, 241, "Output",ExpressionUUID->"56c3bdb1-5918-4d6c-9eb9-29e441aa88b5"] +}, Open ]], +Cell[45627, 1257, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[45780, 1264, 2276, 59, 118, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[48059, 1325, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48435, 1337, 2168, 58, 118, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[50606, 1397, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[50940, 1409, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[51245, 1416, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[51485, 1424, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[51795, 1431, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[52045, 1438, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[54569, 1503, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[54724, 1508, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[54888, 1513, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[55069, 1520, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[57627, 1593, 3524, 67, 420, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"], +Cell[61154, 1662, 294, 7, 36, "Message",ExpressionUUID->"dddb584d-5059-4e25-bd10-2633402e9dad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61485, 1674, 968, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[62456, 1703, 24247, 446, 236, "Output",ExpressionUUID->"8a955e4a-69f4-447b-b6f1-9d2ed7b72588"] +}, Open ]], +Cell[CellGroupData[{ +Cell[86740, 2154, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[89106, 2217, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[89457, 2228, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[89686, 2234, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[89898, 2241, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[90153, 2247, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[90345, 2252, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[91329, 2280, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], +Cell[91483, 2285, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[91649, 2290, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], +Cell[CellGroupData[{ +Cell[91826, 2297, 2578, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[94407, 2371, 3534, 67, 420, "Output",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"] +}, Open ]], +Cell[97956, 2441, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[98219, 2449, 845, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[99067, 2474, 10836, 224, 226, "Output",ExpressionUUID->"16ef8436-f758-4668-9a86-f0e789eae4ab"] +}, Open ]], +Cell[CellGroupData[{ +Cell[109940, 2703, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[112105, 2762, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[112942, 2779, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[113296, 2790, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[113549, 2796, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[113763, 2803, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[114015, 2809, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[114209, 2814, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[116772, 2880, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[116927, 2885, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[117095, 2890, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[117272, 2897, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[119803, 2970, 3514, 67, 420, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[123354, 3042, 916, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[124273, 3069, 23261, 428, 232, "Output",ExpressionUUID->"cf33fc43-024d-4951-9742-008813a6b312"] +}, Open ]], +Cell[CellGroupData[{ +Cell[147571, 3502, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[149907, 3564, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[150261, 3575, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[150515, 3581, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[150731, 3588, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[150986, 3594, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[151178, 3599, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[154025, 3673, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], +Cell[154180, 3678, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[154387, 3684, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], +Cell[CellGroupData[{ +Cell[154566, 3691, 2580, 72, 247, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[157149, 3765, 3537, 67, 409, "Output",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], +Cell[160689, 3834, 2324, 36, 54, "Message",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], +Cell[163016, 3872, 2321, 36, 54, "Message",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], +Cell[165340, 3910, 299, 7, 36, "Message",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/rename.zsh b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/166-74_h_Pu240_20-21/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done 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 new file mode 100644 index 0000000..b66829d --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw1.nb @@ -0,0 +1,9355 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399174, 9347] +NotebookOptionsPosition[ 375132, 8983] +NotebookOutlinePosition[ 375544, 9000] +CellTagsIndexPosition[ 375501, 8997] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.991849227197853*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.9918492290557346`*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_фитирование.nb b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_фитирование.nb new file mode 100644 index 0000000..b7c9906 --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/h_168-72_Pu240_22-23_фитирование.nb @@ -0,0 +1,4216 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 183094, 4208] +NotebookOptionsPosition[ 171925, 4018] +NotebookOutlinePosition[ 172339, 4035] +CellTagsIndexPosition[ 172296, 4032] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.993136757157153*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"9e56239a-9159-4b4b-aa5a-be0b4c996476"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.993136757500328*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"05eab051-e0eb-4dc8-9e62-800d7ac4c4e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.993136757524488*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"8c2b0e4c-6a11-40c7-b548-20463088f810"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.993136757548044*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"8638c08d-182a-4f6f-a6da-915eade9eda0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9931367575765877`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"46b6e0ea-7a54-45b4-8734-a0be60964e4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.993136757603108*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"45e2cf2d-a7e1-4a7d-b2f1-cbba5f313d38"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.993136757636342*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"c70b3868-2b50-44ea-9b32-45fb1cb52e8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", "168"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.993136720490641*^9, + 3.993136726161852*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["168"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.993136757663232*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"ccd705d2-12f2-40a0-9977-adea18e75e22"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.993136757689074*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"84f57037-2b77-4dd6-abe6-268cb71b2366"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.544`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.993136757715736*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"f79d7a0e-ada6-46f5-b0e7-b5e3b7f03bea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.9931367577414427`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"80b38504-e7b0-4764-a619-5dafe797e62a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.400704089204199`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.993136757767785*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"30018de3-3ad0-4afc-9b61-3fdd8e68e549"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.825794469480417`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.993136757793797*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"fd937982-4dda-44f8-988f-9b1b8a8e56a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8877902834"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, 3.993136739999324*^9}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.8877902834`"], "Output", + CellChangeTimes->{3.9931367577975693`*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"3759fa57-1ee9-4e02-a6ca-ab876caa8161"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3862529089"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, 3.9931367437053137`*^9}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.3862529089`"], "Output", + CellChangeTimes->{3.9931367578239098`*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"d9aa5676-4926-4bc4-a85e-5afcfdae9e68"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.9931367578492727`*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"32456e3c-ea36-48aa-ba09-32dcbdfbfd19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.9931367578733463`*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"763ce38b-39f6-453e-87dd-ca6fc9991994"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.99313674898495*^9, 3.993136763286313*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVzXlYzAkcx/HZItPdqh5J9Jtmpl+W1GxLg8z3W0t6dG1ow/YkJKURHaxN +hyPlNzWhpFPKFOnArFbFplHSscl2qREd233MZFey22XHH5/n/bz++jAOHt95 +WIlGozkr9qWG3ApFCHyhUqTp7iSHlrOzTdkKM+tz7f0d5SCo35hh+xWBNTc3 +LInYIYeZfY+sLigR+Gu5yyqRgxykEfd9VBYTaJBwLGt0qxxSq3NeaKgR6Ck2 +LN2/RQ76rjGC5XoEJlCPG+XmctDxdV1qZUagTocrP15TDj4Xn1bV7iLwJydj +2lylDGaWBK/8JZxA6Xldo5xjMogN3m7slUvgw5N58pSlMghq+u9Z7isC9ccO +FliIJiBL+F6L/i+BPbIc9e3rJsCM93yukcnAkMDIB+7Z45D/uvxqjQsDVfQH +yMhF4xDQ8uHPN6cYeMrYIDTl0BjEVaqJ3W4xkLeyQy9aNApybd/Ngw0MjNXK +a3XvGYHtDv38on8YyBrw0udoj8BC0BZoX2mCu8KTR+lGw/BpoeuJob0JdnFs +zcWrh8AlwkP6LMgEb3eWnUnUHYSM/qkbmZkm+GGnSvPIVD98U/xa49pzE6zM +eAhZPX/BMr9kI9mkCU6c4I50F/SBfUzq64MGTKy4JJMbx/RCa/JpzqatTLRw +CMsdTuiGH4VhVtuOM1HCnZwJYryFFSOSHn4KE+v2FgzWD0uB993A2ukqJtZ6 +iA2pyx0g6ndkZY4zcU4151Z6aDt8DmuvOqnLwqZqenZUeCuUKdsoiXksnI6k +79lzuhlKJofG6UdYmLfD+kl3wCvQfBl4qiqRhcMBdqpa/X+AZ6JB/v0KFoq9 +uTZRJXUgf6wSXT7IwrMR4iTHhRp419ZMY3/NRt+0DA3ermrQ3tlHFm9kY9Kd +Dd9Tes/AunTptN8BNn6Mno2f4zyFCk3G4Zh4Nu7TueWUuPcxXKwNiZSUsHHz +t/foXWalUBgs4nr2srE9vLBXc3kJ6J5bdkNP1RTDtN0Cx5LEEPRzcT6NY4oq +b1/M1tXfA/P9hLuLp8J1dYM12QWwpqCjsCzaFJP81aiKTXcgdihAFP3AFCcy +XVcUKeeCVM3ELrrLFP0Wau+l2+dAYKJRXLYyiZr8gZrg5VngrT4VusqCxJa8 +m+dvDKVB8rC2arkHiVdt/KmOqOsgKXTeGhtF4rrLDruNUpLA4YAfUVpAYqpV +5bt66RXQDau9rdxKYpo7xylnmxB2HGGklio83/7DImsrIZzffYYKaCPR/iif +7CSE8H6dBb+1nUTfMEaSzVw8NPVf54g6SbRkG9sKH8bDJWff3+26SeT49tId +WPEwRyxuOTdK4kfvo+lTmnFgpbW/ev0YiW0PmorG5gRwdLasZFRh/d4y9/Fx +AUjb+SluEyROelBuGg0CeCRo82RMkrgo9RWvMUYAQVOiYckUibasEH+ekgDy +++Y7Qz+SeM3JfOLN3xT0Nnk0mE2TWNlYnn2ujwKXu+rFVz4p/t+nxcgkFKz1 +Cgn2nlH8DfHTeGcpOOT48pDeLInNK1IW1pygIJ1Lutd9sfNlH6Y3Baq6XdaW +8yQ2yO8aWiIFSFu/ekBhLuc3r22WFJyWJRimLpCooesd50NQcP/NiLrTZxKF +eXfShToUDNXazX9WuIMfHyOhUfA/5/Q8SQ== + "]]}, + 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:eJwVzXlYzAkcx/HZItPdqh5J9Jtmpl+W1GxLg8z3W0t6dG1ow/YkJKURHaxN +hyPlNzWhpFPKFOnArFbFplHSscl2qREd233MZFey22XHH5/n/bz++jAOHt95 +WIlGozkr9qWG3ApFCHyhUqTp7iSHlrOzTdkKM+tz7f0d5SCo35hh+xWBNTc3 +LInYIYeZfY+sLigR+Gu5yyqRgxykEfd9VBYTaJBwLGt0qxxSq3NeaKgR6Ck2 +LN2/RQ76rjGC5XoEJlCPG+XmctDxdV1qZUagTocrP15TDj4Xn1bV7iLwJydj +2lylDGaWBK/8JZxA6Xldo5xjMogN3m7slUvgw5N58pSlMghq+u9Z7isC9ccO +FliIJiBL+F6L/i+BPbIc9e3rJsCM93yukcnAkMDIB+7Z45D/uvxqjQsDVfQH +yMhF4xDQ8uHPN6cYeMrYIDTl0BjEVaqJ3W4xkLeyQy9aNApybd/Ngw0MjNXK +a3XvGYHtDv38on8YyBrw0udoj8BC0BZoX2mCu8KTR+lGw/BpoeuJob0JdnFs +zcWrh8AlwkP6LMgEb3eWnUnUHYSM/qkbmZkm+GGnSvPIVD98U/xa49pzE6zM +eAhZPX/BMr9kI9mkCU6c4I50F/SBfUzq64MGTKy4JJMbx/RCa/JpzqatTLRw +CMsdTuiGH4VhVtuOM1HCnZwJYryFFSOSHn4KE+v2FgzWD0uB993A2ukqJtZ6 +iA2pyx0g6ndkZY4zcU4151Z6aDt8DmuvOqnLwqZqenZUeCuUKdsoiXksnI6k +79lzuhlKJofG6UdYmLfD+kl3wCvQfBl4qiqRhcMBdqpa/X+AZ6JB/v0KFoq9 +uTZRJXUgf6wSXT7IwrMR4iTHhRp419ZMY3/NRt+0DA3ermrQ3tlHFm9kY9Kd +Dd9Tes/AunTptN8BNn6Mno2f4zyFCk3G4Zh4Nu7TueWUuPcxXKwNiZSUsHHz +t/foXWalUBgs4nr2srE9vLBXc3kJ6J5bdkNP1RTDtN0Cx5LEEPRzcT6NY4oq +b1/M1tXfA/P9hLuLp8J1dYM12QWwpqCjsCzaFJP81aiKTXcgdihAFP3AFCcy +XVcUKeeCVM3ELrrLFP0Wau+l2+dAYKJRXLYyiZr8gZrg5VngrT4VusqCxJa8 +m+dvDKVB8rC2arkHiVdt/KmOqOsgKXTeGhtF4rrLDruNUpLA4YAfUVpAYqpV +5bt66RXQDau9rdxKYpo7xylnmxB2HGGklio83/7DImsrIZzffYYKaCPR/iif +7CSE8H6dBb+1nUTfMEaSzVw8NPVf54g6SbRkG9sKH8bDJWff3+26SeT49tId +WPEwRyxuOTdK4kfvo+lTmnFgpbW/ev0YiW0PmorG5gRwdLasZFRh/d4y9/Fx +AUjb+SluEyROelBuGg0CeCRo82RMkrgo9RWvMUYAQVOiYckUibasEH+ekgDy +++Y7Qz+SeM3JfOLN3xT0Nnk0mE2TWNlYnn2ujwKXu+rFVz4p/t+nxcgkFKz1 +Cgn2nlH8DfHTeGcpOOT48pDeLInNK1IW1pygIJ1Lutd9sfNlH6Y3Baq6XdaW +8yQ2yO8aWiIFSFu/ekBhLuc3r22WFJyWJRimLpCooesd50NQcP/NiLrTZxKF +eXfShToUDNXazX9WuIMfHyOhUfA/5/Q8SQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9468179003744914}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9468179003744914}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVzXlYzAkcx/HZItPdqh5J9Jtmpl+W1GxLg8z3W0t6dG1ow/YkJKURHaxN +hyPlNzWhpFPKFOnArFbFplHSscl2qREd233MZFey22XHH5/n/bz++jAOHt95 +WIlGozkr9qWG3ApFCHyhUqTp7iSHlrOzTdkKM+tz7f0d5SCo35hh+xWBNTc3 +LInYIYeZfY+sLigR+Gu5yyqRgxykEfd9VBYTaJBwLGt0qxxSq3NeaKgR6Ck2 +LN2/RQ76rjGC5XoEJlCPG+XmctDxdV1qZUagTocrP15TDj4Xn1bV7iLwJydj +2lylDGaWBK/8JZxA6Xldo5xjMogN3m7slUvgw5N58pSlMghq+u9Z7isC9ccO +FliIJiBL+F6L/i+BPbIc9e3rJsCM93yukcnAkMDIB+7Z45D/uvxqjQsDVfQH +yMhF4xDQ8uHPN6cYeMrYIDTl0BjEVaqJ3W4xkLeyQy9aNApybd/Ngw0MjNXK +a3XvGYHtDv38on8YyBrw0udoj8BC0BZoX2mCu8KTR+lGw/BpoeuJob0JdnFs +zcWrh8AlwkP6LMgEb3eWnUnUHYSM/qkbmZkm+GGnSvPIVD98U/xa49pzE6zM +eAhZPX/BMr9kI9mkCU6c4I50F/SBfUzq64MGTKy4JJMbx/RCa/JpzqatTLRw +CMsdTuiGH4VhVtuOM1HCnZwJYryFFSOSHn4KE+v2FgzWD0uB993A2ukqJtZ6 +iA2pyx0g6ndkZY4zcU4151Z6aDt8DmuvOqnLwqZqenZUeCuUKdsoiXksnI6k +79lzuhlKJofG6UdYmLfD+kl3wCvQfBl4qiqRhcMBdqpa/X+AZ6JB/v0KFoq9 +uTZRJXUgf6wSXT7IwrMR4iTHhRp419ZMY3/NRt+0DA3ermrQ3tlHFm9kY9Kd +Dd9Tes/AunTptN8BNn6Mno2f4zyFCk3G4Zh4Nu7TueWUuPcxXKwNiZSUsHHz +t/foXWalUBgs4nr2srE9vLBXc3kJ6J5bdkNP1RTDtN0Cx5LEEPRzcT6NY4oq +b1/M1tXfA/P9hLuLp8J1dYM12QWwpqCjsCzaFJP81aiKTXcgdihAFP3AFCcy +XVcUKeeCVM3ELrrLFP0Wau+l2+dAYKJRXLYyiZr8gZrg5VngrT4VusqCxJa8 +m+dvDKVB8rC2arkHiVdt/KmOqOsgKXTeGhtF4rrLDruNUpLA4YAfUVpAYqpV +5bt66RXQDau9rdxKYpo7xylnmxB2HGGklio83/7DImsrIZzffYYKaCPR/iif +7CSE8H6dBb+1nUTfMEaSzVw8NPVf54g6SbRkG9sKH8bDJWff3+26SeT49tId +WPEwRyxuOTdK4kfvo+lTmnFgpbW/ev0YiW0PmorG5gRwdLasZFRh/d4y9/Fx +AUjb+SluEyROelBuGg0CeCRo82RMkrgo9RWvMUYAQVOiYckUibasEH+ekgDy +++Y7Qz+SeM3JfOLN3xT0Nnk0mE2TWNlYnn2ujwKXu+rFVz4p/t+nxcgkFKz1 +Cgn2nlH8DfHTeGcpOOT48pDeLInNK1IW1pygIJ1Lutd9sfNlH6Y3Baq6XdaW +8yQ2yO8aWiIFSFu/ekBhLuc3r22WFJyWJRimLpCooesd50NQcP/NiLrTZxKF +eXfShToUDNXazX9WuIMfHyOhUfA/5/Q8SQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.9468179003744914}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.9468179003744914}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, {3.99313675797239*^9, 3.99313676405261*^9}}, + CellLabel->"Out[20]=",ExpressionUUID->"c63dbf0b-7c03-4b7e-816a-e62e59a9433c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519988325634*^9, + 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925199899203997`*^9, + 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.755, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 7.84, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 2.155, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.2060547869196, 115.8310547869196}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.1216797869196, 204.7466797869196}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12.5"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9931368113080063`*^9, + 3.993136814136256*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV12k8VV0bBnAOekiGJMnU4Zy9z85QhlA9nnPfxmhQpJJUSihKiFKplDFj +SihjIsnURKQohOLILEJIKlSiQabe/X7av/+Htdbe93WtD1t5/1FrJwYfH99+ +fj6+/z+V3kkL8PEx8abb5ci2glH4Mtb16SFt0qnX4F3eKDxh3Gg4xM9Ef+R1 +f8wZBTtS43oLg4kpjjWjP7NG4eoRU60sISaey7mKQmmjsGDGZ6+lKBPtVpZb +j0WPwh/ZjtIkGSbKLO2Z/OE+Cq3W17zXaDCxvjnpT8ryUVi0XaYU9zAxJqai +afDCCMyaMw2FI5io5LZSdEfTMHQ7aL7/XMzEVc+b8haKDYOJ8Bq7a5+ZGP2a +a3tf8TPsSG2QFFmijOGHyl7sZH+CiRf2SWbmyrihQm652Z8hCFz43TjFVxmz +BBPs6oo+wLONUmpFmcrIV6anecFzEIKWqH9MbFfGnZs+EpWTA/CzqXnAUFAF +R69btegG94PdvXNT/FoquKRvje5HsT4wZxIfo/epoDb1X3daVzf0n92xqDdK +BSfmcSwWv+4EgSMXpKfKVdBwqYToh+h2kPN/oKU5poKUQsaw5NkW6L7gGUUq +sjDN42q728tG4Cymng1vYmHN1C/9Y+x6UIx30zp6moXJ6uFvciNqIOl21onn +uSx8tU/PWYxVCZLvPndq9LCQyF1Zvqi2DG7Le0YM0OZ5mx3blF8GhraT3Phe +Fj4QVxWJjy0Dr6Z5GXx9LJzuaH+9c18ZtFay3FsGWNgWt/tM8vRTSLi9m3Hy +EwuFQj73y+k8BaZXk2rVBAtznOwPvMkrhZVCJaft5rNROHUCrjUVwzx2rJOS +KBtropSWdZUUQ7fR0c0DtKUo3UT19GII8ydYrmJsvC2gv3XesWIYnI55dVKS +jVqtqsyIxcVwbdx16TUZ2iHb/77d/QgE+hQedaiwMWj6Yum+6ULoeOw/bvMv +vT5odVrswQdwWMyuR9SAjRniJRLbtz8AhoNObQVt9SSVg4TJA1AXGkrW5LJR +sTe89MuyB3Bh8waLBYZsDHYZMmK/uQ/qg4vTKs3Y+F9G2EnWhvvgL5azSdua +jRFnPs+Df++BqkPbbYlDbPzwSz9pflA+bK1TmqmgLcA4pFTokg9+egc3H3dl +o26u5oYT6/OhYcH0z243Np6vMPQyksyHYyVM4zvubGypkYwbT8qDJ1KHe0y8 +2fguU0i14HEuWL5gSJ06x8aS7KJX+E8OeKlqnh68ysbnk4VLZvqzoPMETygr +jo2E7PT85bVZgC9cLx2KZ2O/s7Ose34WSDhkZn5NYONKIhDxdBbkXpVrnExk +4yXD8VmGTBYM8QkRYun0/MTlJiY23wK7js4G3Xw2LrDotJFqy4Dn7BM7J2l/ +3+YvzyrLAMpLevBxARvz3Hx/WWRlwO8Fm//APTbKn7PI7jyZAbFGVaz1D9mo +0Jph9HdZBjTk5fvuecxGye9LrbZ53ATjwACVkGo2mm7j/VPGTIeDQsvyDWrY +2FpnMo8nlg5RwY/XjNMeb64J+TJ1A7pCv2/Z/ZKNBRf8+ve33QCvyL3ndOrZ +KK6C0YrhNyA97t/ud01sPPzweE/NnzTgz564urqHjUvys0q0a1KBVI1W/ko7 +UXxy+fnMVNiYo5p3s5eN60NFQr8FpEJC3r4q8T42/g1MyFUzTAXN+6/HBwfY +uNv+zITS0xRwKM3ZHPOJjfMOap/ofpwM5TxHkeEJNl6WiDMQ4yUCW2trff4P +No52bbHMyU2E0Fij6GM/2bht3wpnt4hE2LJLefHsLzamGqzSsdqYCH2fepmS +U/S8tzxeeJd3HfgE7Vbr8RF4YMAu7Eb7NTBau8XlwgICKe734nC+BLiVDKrr +xAgs+sH6qD0YD/P5V34RFSfQafPxqMmaeGiuETt2VYLA3xp1Xb3R8bB/W93Z +21IEKvxuOiKtHA8BHmZxDbIEemja80Qt4qDqlsELOYLAI2pHNDzzY+GJStLY +W9q/Rp9+IuNi4WHKtHwySWDQtrjmX2diISPusdcyisCauitNg5tiISB4NZOt +RmA2v0Dvr69XwMh51WkNLQJHVusc7tW9As8JdS38j8BeGWkb2fYYKL4Rbs/P +JTCkLGrn0LMYuKs4ElJBOyZE8nZdTgykLb7Ta4IEls561bw9HwP+QlSEhTGB +oWnzb0msjAH8wPpobUHg0vdaNfcjL0FZhnyy0zYCU+f8H98oigJvm5Mvl24n +8M3fr+f1YqNATbDjJ4+2MD+18ptnFCQ4XrbUsyVQ/e+6R3UaUeClIsL3zy4C +WwVsP2tkRQIn7df+2w4E5uZQvqfSIuBSYhM14kagvN4L/u25YWC2YeW21MME +ntv3+sDyqDCYnYo4v/UIgS9UuaUKHmHgamfeVepOoF1xz8v9q8LAdGl5eIQn +gRpiYtShsoswFZf7VeMEgU2vhflM34SC4+WQhx4X6PkcvLbHXSUEbNlrZFcF +0Hnfj57kCYXAxqLh079pX5Pd/dHyczDodW0yPhtEYLL8gP7Du8EgrCLdHB5K +4JK8l53ChsGQfy/t260oej++EdUnLkEw1Vii2nOdwA+Rj0321QfAt/1uUWmJ +BLq8tuS/8yAABn8ojDsmEcirXvVFIjEAeLL+JcPJdB6ckjZt1wBIczAzn0wj +kKm1MKBJJADMxpqdFmUReFKJ5bPD8gLESIymWTwg0Kzrt//DEX8waUsU4ntI +4C5TN/vmDn+YvL7BtYi26Pd1h+dV+cMeMkeHVURgs+KmhrtJ/qD+n2v1TDGB +mZXrWAs2+0Ot66eRgjICf8rEKF05eg7mXgzqybwisNYmoiBK6wzcD49NrKfd +NT5kxpA4A05WJnwBdQSKP3jWnzTqB/XdN19+qyfwVRxxzuy2H1yb2G//8jWB +e3+yvjgr+8Eq5f7zfm0EJmbfvlsidxpc/XrqB/oINNw9nxFPnYR7drPXrvbT +7xdJJeqKnoTJ1You5gMEVo5NSP784gshP+35898TePx8o0j7A1/IcO/WPTlE +YMcR4pSCoS/0OrxNkRgl8EvVy3kp+06AlWmnh8FvAuMaliVEl/hAAuvPf99o +926orxNJ84E+/qWi6ZMEvj4k1ZgW7APuZbaZ/0wRKHIzo5Ft4wNh+m86m2cI +zJsrcDw/5g1VyzuMDjFI9Hxd+MRrhTesFm+TjhMjUXLvfXO3Mi8oazBfaitO +Ilc80sXplhcYRz9RlJMgMXrq6qozUV5gKZlBpkiS6CimsVlorxc4Sh1bfWsR +iVoearXH+L0gSmahfdFSEkVNjTbmbvCEQaVNN9sJEncWrynd9PkouL57lpVA +krihT1pQ49lR+Ja6KteOQ+LFRYZREH8UppgKhb0UiYzQFu9Z06MgwRqpHlIj +0T15cqYt0x3Wci4O/9Iikb99ele1+xGIXvlCawmXxJYze4yk2W7QytLXr6fd +RCW2mQi4gaxstsF5IPG61YfexAFXSOOLXDeCJIaIr7j95IYr3G2y2V1uTOJc +xx/3KmVXaDw2GOpiQeJq5a9kLXUIJIsF+h7ZkHjtjmF5gJUL2OT6fDi8jcS2 +y+laOroukJD2cVh5O4l9jY4SgktdgHmx7mf4DhKTZA8eF+l3Bk27K6IOdiQ+ +C7vXneLlDFtmVPSFHUi0+mH9tiXRCWLQKMrWjURXZsvYYaEDIL1EuE7hMIm3 +DqYX/h52hLgvvH/6aY9PWoRlNDrC9es7zx9yJzFmtWSpY5IjpP/w8D7lSeLw +l7DcY7qO8PB2ql3SCRK7FWVnCo/sh3bJWbIvgF5v12lQ8NMBbD9WOGYE0t8H +hQtWvHOArqehaQeDSDz5+5Lgq1oHeOcqLfc9mMT+xZNdtkkO8KlKTYwRRuI5 +vhTtBhMH+ONrN8G6RJ8f/HHFd929oND/qNwlicTBvYGvS4rsYffI6VmlZBKr +BZ0z+a/YQ8pP+LedtlPhswnvo/bAnF9bZJJKYplgrkYPZQ8snTd5yukkdvwy +jsxP3gWqQZOJb7NIVLw3eWh5tB3oL1/ju/kBiecvSq1dcckWfHVmC+c9JDFX +rdMs2NMWiv97PvGUdv68w80CW21hrbXFUfUiev1Gj4fuMrbAPb3TWaSExGIf +9da5lB1gwjtpU1lG55UdlDlQtB2sPR9r6r+i51FmcOYK3zbgxH5tH6Zt4u+Z +WD9kAzNFKmdS6uj5dh2uYfNsIHMm7KUQj8TZHUGPtK7bwGTIrv2tr0kUyi4U +fqxrA8kpM1c820hconXfx8lrK3yq4/7O6SPx7UnjbH1+a3jy1St5bz+dR0XH +IokRK4hZmGW8aIBE+YV9G/nbrGDtDolLp96TeIpL5OpmW0HkwDvKYoi+f29W +PuyytgLtP/52QyN03z3iGNN3tsAZsvIp8zeJBrPaRaFvLeGS2obE97QD48Jv +cu9bQrpmi++tSRK/xq0cV71oCbVr3+uoT5F4+MjypEx9S5DeLHBHf5a+f9f2 +XJGP3wR3ThjHWQpw8M/eK7cb9m6EjtpKdz8JDlbuv8kMkVkPw7wNG0GSg4Fy +G4nQCQuYaW5ZzljIwerJSfdHjRag0vN+MESKg2+POw+khluA+3eBXVcWc9D9 +EqMpRsACBOVM1t2R52DFi++T1dPrQMutatkbDgd7oyJcvoqaASNj/VwkxcGg +FQ0XjMZMobW7sdt4OQcVCl6+L241heOWPdcKVDk4HFnbKJpiCk+0fi0K0eCg +d6h/u6m2KZhPcoT1dDhoVTBf7aODCTgEhY9d4XKQcH5tz2szAu2yha8tgIOt +p721FcuMQOB3fN5f2g3vyn3CbhnBrYMZrm6G9P5zE4VPThjB6Iang0YmHCza +ULLWT94IfKW+vfluwcH0i/d45gcN4VKq9fPN2zj4vIChqi6DkPZYvUN6Owf1 +P1jZ6PEhFLTN+9JJu8OiwfRJK0CDaKnsAVsOnviVuGzBWQAxX5aH7y4OfvJi +NDq1cCFsyw+lG/s4KCmYta8s9D8I5I/zGz/CQXNNBwZD4V+IVfC4/Midg18D +f/p8/bUWbuqvv+13lIO1K8SWijWvhYojcy3zPDl4qjZ74F3oWuDvclaT9+bg +X6LBvHVyDZy9r99lfIqDd79W3yjvXw2+jp36V4Pp839XnR1p0wOFeFbR9hA6 +/8+31616pAflr46skg3loOni/bOZCXowT5uhlXiRg3mdabYC9noQy6emeiOC +g6Nh7nOpg7pQkOynkHeZg32XpZ11ZlfBUMcy/hcpdB8uhkk6rteBMFHXc8Gp +HATVsT3OmjqgAQ9n16VxMGFb274IGR3wvmU+9eoG3Y96lwZ4rw0MH8+JxgwO +8sYuboGz2qAkVfmh+w4Hly33IU491oJtG51f/SjioEZC/58H6zWh+EG+RfYj ++nuO3QzW1tMEOfnftbuL6f6+X5T/SlkTej+H1FSXcDDGJT05anwlOIdkVyU8 +4WDcxvDObuuVcKJitMyggoNL+6pP31dYAddWH3sQyONgUorM5ZstajCTWqq9 +poGD2rzyyMt31WDPP4L3v9BuSp5xzotUA5X22LvbGzn4PeNgp5O5Gtw5VpRH +tXBQjTfS+7ZcFUrz/2TVv6Hn0z6xLr9oOfSw/ZOkBzl4b02QVWgFB866K2x9 +QztqW1uQSDoHlIqLRZI+cHDCwr636DwH9mz4fpz1kYOFvGnxq4Yc6PPcb6U9 +TOclJi24s5KEgTKTeVvGOGgtGjBU30DAkK2IR/gMB6lLzvL9AmwITs8kN89y +cLrlThz9nw3kqGGP1Bz9/g/bd+nzWOBy7tT663/p+W5RnFaOZ8GnzBF2NoPC +f8WOK+Wrs2B4nNdZLUxhS/bGHSf2qMDXiMvGjMUUVu/NDA56y4RN8zWmi2lX +8Y4Ej79gQm5Izf2jMhROFVlOnbrLBNcLM8o9SygU3zjzoCeICUMnnPmK5Sj8 +ndNZMKTFhJ79a58eYVJImFQWNisug/rVA3qdahTKaC79kPRIAdSK/L5Gq1No +8apEsPWyAoTpLLllpkEho2i3wFp3BTBfsXHxwxUURjdM3Y0hFKCKVTQRpUWf +H/jwwKE4eSgVD7trok/hFqlDbSH+cnBnUEv1rhGF74deB814y0LyKYP1jsYU +Nr2UCYftsnBJcp2rjAmF26s8GNn6suBjYH/Hz5TC61HZoV+nlgDGBqtamFOo +94j/JTdgCbQbv1Ud2ERh7l+3wLrrMsC4GagmvZPCzwFtd+0HpeHn6ugNNbQb +xq2rF7+Shk8N19xO2VH48UltxbcCaeBN5ef07aJQzEyFJ+QnDQnWnWp5eyiU +jyIfFy6WhhWMFepmByjk0zBSZ2xeBLv2daj7HqXQUz5zBt8shIhO3cC1HhQe ++/Rt7WD5QnhiFft2hnaU3/OE21kLQcnIKuy8F52flBZf7ImFMKBS9zHMh0Kd +0JasMdmF4DpYlp58mkK5t4IuifskwdfllmxlCIVp42H7iEXikP1O0CMolMIT +NtWSEsNi0LXDsWbdRQq5UvtzNJ+LgYE583h9GN2XBg9vOQ8x+Etdb2mLpHD8 +1SzHv3EBBA9HRn26QuEThx0jWxNF4eoRH0HxNAq/PX9rtXKHCAQubbavpM2n +bVXdpScC3i9WFPreoHBbeeS2AhkRsFH85PQ+nUIjp5wfze3CIMWzqynOpJDJ +bb86ZysMUeoY5phDYapixOrSA/9A6Mh8yZIiCm3H+Xf7JAiBb7zLQfdHFO5W +ytUd9BMCF+OqZ6xien9/AZXj+4TALPGMZ1QJhQcHzQIZakIguGGs2fEJ3Zco +lRvF5YJw/k7bVfEKCvk9np3z/iYApw6lyR/gUXhPFRr/cWGAbSwRvqKBzl91 +9U7eRgbolt+ZmqQdsYrHKdZmwJh0YWdkI4V2J1UrZ+b4weXZy/hHLRRasl3R +4Bo/2CyZWCTaRTv+wF2XVj5Y8cJ0wf0het4KWw10aue4C8Zenfb7SKHfdj41 +y6Q57me5LSNmnyjk5W4JzvKY42Z42L16+5nCG875ytJyc1x5haOhQl8oXFTx +7566o7Nc4WMJgjsnKFSVyJd2IWe4Q8mK3qwfdD+lTFxwbppbWZv+/gvt5vbS +N9bt09yzSnkVF35ReOD+n1blkGnuz5fP/XP/UNh1WtF778gUt/mH2djxKQpD +D4rMTFZNce8uq99rOE33KSqR8zJlinvYp53bPkPhm1HrVQu2TnHXp+3KT5ul +sPbmm9NnNaa4nLo+Rbc5ul97qnRI4Smu4C+nSN2/FLpMbZUUeP+HO8AcmflL +m1DSrJYu+8P9H0Fe3No= + "]]}, + 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:eJwV12k8VV0bBnAOekiGJMnU4Zy9z85QhlA9nnPfxmhQpJJUSihKiFKplDFj +SihjIsnURKQohOLILEJIKlSiQabe/X7av/+Htdbe93WtD1t5/1FrJwYfH99+ +fj6+/z+V3kkL8PEx8abb5ci2glH4Mtb16SFt0qnX4F3eKDxh3Gg4xM9Ef+R1 +f8wZBTtS43oLg4kpjjWjP7NG4eoRU60sISaey7mKQmmjsGDGZ6+lKBPtVpZb +j0WPwh/ZjtIkGSbKLO2Z/OE+Cq3W17zXaDCxvjnpT8ryUVi0XaYU9zAxJqai +afDCCMyaMw2FI5io5LZSdEfTMHQ7aL7/XMzEVc+b8haKDYOJ8Bq7a5+ZGP2a +a3tf8TPsSG2QFFmijOGHyl7sZH+CiRf2SWbmyrihQm652Z8hCFz43TjFVxmz +BBPs6oo+wLONUmpFmcrIV6anecFzEIKWqH9MbFfGnZs+EpWTA/CzqXnAUFAF +R69btegG94PdvXNT/FoquKRvje5HsT4wZxIfo/epoDb1X3daVzf0n92xqDdK +BSfmcSwWv+4EgSMXpKfKVdBwqYToh+h2kPN/oKU5poKUQsaw5NkW6L7gGUUq +sjDN42q728tG4Cymng1vYmHN1C/9Y+x6UIx30zp6moXJ6uFvciNqIOl21onn +uSx8tU/PWYxVCZLvPndq9LCQyF1Zvqi2DG7Le0YM0OZ5mx3blF8GhraT3Phe +Fj4QVxWJjy0Dr6Z5GXx9LJzuaH+9c18ZtFay3FsGWNgWt/tM8vRTSLi9m3Hy +EwuFQj73y+k8BaZXk2rVBAtznOwPvMkrhZVCJaft5rNROHUCrjUVwzx2rJOS +KBtropSWdZUUQ7fR0c0DtKUo3UT19GII8ydYrmJsvC2gv3XesWIYnI55dVKS +jVqtqsyIxcVwbdx16TUZ2iHb/77d/QgE+hQedaiwMWj6Yum+6ULoeOw/bvMv +vT5odVrswQdwWMyuR9SAjRniJRLbtz8AhoNObQVt9SSVg4TJA1AXGkrW5LJR +sTe89MuyB3Bh8waLBYZsDHYZMmK/uQ/qg4vTKs3Y+F9G2EnWhvvgL5azSdua +jRFnPs+Df++BqkPbbYlDbPzwSz9pflA+bK1TmqmgLcA4pFTokg9+egc3H3dl +o26u5oYT6/OhYcH0z243Np6vMPQyksyHYyVM4zvubGypkYwbT8qDJ1KHe0y8 +2fguU0i14HEuWL5gSJ06x8aS7KJX+E8OeKlqnh68ysbnk4VLZvqzoPMETygr +jo2E7PT85bVZgC9cLx2KZ2O/s7Ose34WSDhkZn5NYONKIhDxdBbkXpVrnExk +4yXD8VmGTBYM8QkRYun0/MTlJiY23wK7js4G3Xw2LrDotJFqy4Dn7BM7J2l/ +3+YvzyrLAMpLevBxARvz3Hx/WWRlwO8Fm//APTbKn7PI7jyZAbFGVaz1D9mo +0Jph9HdZBjTk5fvuecxGye9LrbZ53ATjwACVkGo2mm7j/VPGTIeDQsvyDWrY +2FpnMo8nlg5RwY/XjNMeb64J+TJ1A7pCv2/Z/ZKNBRf8+ve33QCvyL3ndOrZ +KK6C0YrhNyA97t/ud01sPPzweE/NnzTgz564urqHjUvys0q0a1KBVI1W/ko7 +UXxy+fnMVNiYo5p3s5eN60NFQr8FpEJC3r4q8T42/g1MyFUzTAXN+6/HBwfY +uNv+zITS0xRwKM3ZHPOJjfMOap/ofpwM5TxHkeEJNl6WiDMQ4yUCW2trff4P +No52bbHMyU2E0Fij6GM/2bht3wpnt4hE2LJLefHsLzamGqzSsdqYCH2fepmS +U/S8tzxeeJd3HfgE7Vbr8RF4YMAu7Eb7NTBau8XlwgICKe734nC+BLiVDKrr +xAgs+sH6qD0YD/P5V34RFSfQafPxqMmaeGiuETt2VYLA3xp1Xb3R8bB/W93Z +21IEKvxuOiKtHA8BHmZxDbIEemja80Qt4qDqlsELOYLAI2pHNDzzY+GJStLY +W9q/Rp9+IuNi4WHKtHwySWDQtrjmX2diISPusdcyisCauitNg5tiISB4NZOt +RmA2v0Dvr69XwMh51WkNLQJHVusc7tW9As8JdS38j8BeGWkb2fYYKL4Rbs/P +JTCkLGrn0LMYuKs4ElJBOyZE8nZdTgykLb7Ta4IEls561bw9HwP+QlSEhTGB +oWnzb0msjAH8wPpobUHg0vdaNfcjL0FZhnyy0zYCU+f8H98oigJvm5Mvl24n +8M3fr+f1YqNATbDjJ4+2MD+18ptnFCQ4XrbUsyVQ/e+6R3UaUeClIsL3zy4C +WwVsP2tkRQIn7df+2w4E5uZQvqfSIuBSYhM14kagvN4L/u25YWC2YeW21MME +ntv3+sDyqDCYnYo4v/UIgS9UuaUKHmHgamfeVepOoF1xz8v9q8LAdGl5eIQn +gRpiYtShsoswFZf7VeMEgU2vhflM34SC4+WQhx4X6PkcvLbHXSUEbNlrZFcF +0Hnfj57kCYXAxqLh079pX5Pd/dHyczDodW0yPhtEYLL8gP7Du8EgrCLdHB5K +4JK8l53ChsGQfy/t260oej++EdUnLkEw1Vii2nOdwA+Rj0321QfAt/1uUWmJ +BLq8tuS/8yAABn8ojDsmEcirXvVFIjEAeLL+JcPJdB6ckjZt1wBIczAzn0wj +kKm1MKBJJADMxpqdFmUReFKJ5bPD8gLESIymWTwg0Kzrt//DEX8waUsU4ntI +4C5TN/vmDn+YvL7BtYi26Pd1h+dV+cMeMkeHVURgs+KmhrtJ/qD+n2v1TDGB +mZXrWAs2+0Ot66eRgjICf8rEKF05eg7mXgzqybwisNYmoiBK6wzcD49NrKfd +NT5kxpA4A05WJnwBdQSKP3jWnzTqB/XdN19+qyfwVRxxzuy2H1yb2G//8jWB +e3+yvjgr+8Eq5f7zfm0EJmbfvlsidxpc/XrqB/oINNw9nxFPnYR7drPXrvbT +7xdJJeqKnoTJ1You5gMEVo5NSP784gshP+35898TePx8o0j7A1/IcO/WPTlE +YMcR4pSCoS/0OrxNkRgl8EvVy3kp+06AlWmnh8FvAuMaliVEl/hAAuvPf99o +926orxNJ84E+/qWi6ZMEvj4k1ZgW7APuZbaZ/0wRKHIzo5Ft4wNh+m86m2cI +zJsrcDw/5g1VyzuMDjFI9Hxd+MRrhTesFm+TjhMjUXLvfXO3Mi8oazBfaitO +Ilc80sXplhcYRz9RlJMgMXrq6qozUV5gKZlBpkiS6CimsVlorxc4Sh1bfWsR +iVoearXH+L0gSmahfdFSEkVNjTbmbvCEQaVNN9sJEncWrynd9PkouL57lpVA +krihT1pQ49lR+Ja6KteOQ+LFRYZREH8UppgKhb0UiYzQFu9Z06MgwRqpHlIj +0T15cqYt0x3Wci4O/9Iikb99ele1+xGIXvlCawmXxJYze4yk2W7QytLXr6fd +RCW2mQi4gaxstsF5IPG61YfexAFXSOOLXDeCJIaIr7j95IYr3G2y2V1uTOJc +xx/3KmVXaDw2GOpiQeJq5a9kLXUIJIsF+h7ZkHjtjmF5gJUL2OT6fDi8jcS2 +y+laOroukJD2cVh5O4l9jY4SgktdgHmx7mf4DhKTZA8eF+l3Bk27K6IOdiQ+ +C7vXneLlDFtmVPSFHUi0+mH9tiXRCWLQKMrWjURXZsvYYaEDIL1EuE7hMIm3 +DqYX/h52hLgvvH/6aY9PWoRlNDrC9es7zx9yJzFmtWSpY5IjpP/w8D7lSeLw +l7DcY7qO8PB2ql3SCRK7FWVnCo/sh3bJWbIvgF5v12lQ8NMBbD9WOGYE0t8H +hQtWvHOArqehaQeDSDz5+5Lgq1oHeOcqLfc9mMT+xZNdtkkO8KlKTYwRRuI5 +vhTtBhMH+ONrN8G6RJ8f/HHFd929oND/qNwlicTBvYGvS4rsYffI6VmlZBKr +BZ0z+a/YQ8pP+LedtlPhswnvo/bAnF9bZJJKYplgrkYPZQ8snTd5yukkdvwy +jsxP3gWqQZOJb7NIVLw3eWh5tB3oL1/ju/kBiecvSq1dcckWfHVmC+c9JDFX +rdMs2NMWiv97PvGUdv68w80CW21hrbXFUfUiev1Gj4fuMrbAPb3TWaSExGIf +9da5lB1gwjtpU1lG55UdlDlQtB2sPR9r6r+i51FmcOYK3zbgxH5tH6Zt4u+Z +WD9kAzNFKmdS6uj5dh2uYfNsIHMm7KUQj8TZHUGPtK7bwGTIrv2tr0kUyi4U +fqxrA8kpM1c820hconXfx8lrK3yq4/7O6SPx7UnjbH1+a3jy1St5bz+dR0XH +IokRK4hZmGW8aIBE+YV9G/nbrGDtDolLp96TeIpL5OpmW0HkwDvKYoi+f29W +PuyytgLtP/52QyN03z3iGNN3tsAZsvIp8zeJBrPaRaFvLeGS2obE97QD48Jv +cu9bQrpmi++tSRK/xq0cV71oCbVr3+uoT5F4+MjypEx9S5DeLHBHf5a+f9f2 +XJGP3wR3ThjHWQpw8M/eK7cb9m6EjtpKdz8JDlbuv8kMkVkPw7wNG0GSg4Fy +G4nQCQuYaW5ZzljIwerJSfdHjRag0vN+MESKg2+POw+khluA+3eBXVcWc9D9 +EqMpRsACBOVM1t2R52DFi++T1dPrQMutatkbDgd7oyJcvoqaASNj/VwkxcGg +FQ0XjMZMobW7sdt4OQcVCl6+L241heOWPdcKVDk4HFnbKJpiCk+0fi0K0eCg +d6h/u6m2KZhPcoT1dDhoVTBf7aODCTgEhY9d4XKQcH5tz2szAu2yha8tgIOt +p721FcuMQOB3fN5f2g3vyn3CbhnBrYMZrm6G9P5zE4VPThjB6Iang0YmHCza +ULLWT94IfKW+vfluwcH0i/d45gcN4VKq9fPN2zj4vIChqi6DkPZYvUN6Owf1 +P1jZ6PEhFLTN+9JJu8OiwfRJK0CDaKnsAVsOnviVuGzBWQAxX5aH7y4OfvJi +NDq1cCFsyw+lG/s4KCmYta8s9D8I5I/zGz/CQXNNBwZD4V+IVfC4/Midg18D +f/p8/bUWbuqvv+13lIO1K8SWijWvhYojcy3zPDl4qjZ74F3oWuDvclaT9+bg +X6LBvHVyDZy9r99lfIqDd79W3yjvXw2+jp36V4Pp839XnR1p0wOFeFbR9hA6 +/8+31616pAflr46skg3loOni/bOZCXowT5uhlXiRg3mdabYC9noQy6emeiOC +g6Nh7nOpg7pQkOynkHeZg32XpZ11ZlfBUMcy/hcpdB8uhkk6rteBMFHXc8Gp +HATVsT3OmjqgAQ9n16VxMGFb274IGR3wvmU+9eoG3Y96lwZ4rw0MH8+JxgwO +8sYuboGz2qAkVfmh+w4Hly33IU491oJtG51f/SjioEZC/58H6zWh+EG+RfYj ++nuO3QzW1tMEOfnftbuL6f6+X5T/SlkTej+H1FSXcDDGJT05anwlOIdkVyU8 +4WDcxvDObuuVcKJitMyggoNL+6pP31dYAddWH3sQyONgUorM5ZstajCTWqq9 +poGD2rzyyMt31WDPP4L3v9BuSp5xzotUA5X22LvbGzn4PeNgp5O5Gtw5VpRH +tXBQjTfS+7ZcFUrz/2TVv6Hn0z6xLr9oOfSw/ZOkBzl4b02QVWgFB866K2x9 +QztqW1uQSDoHlIqLRZI+cHDCwr636DwH9mz4fpz1kYOFvGnxq4Yc6PPcb6U9 +TOclJi24s5KEgTKTeVvGOGgtGjBU30DAkK2IR/gMB6lLzvL9AmwITs8kN89y +cLrlThz9nw3kqGGP1Bz9/g/bd+nzWOBy7tT663/p+W5RnFaOZ8GnzBF2NoPC +f8WOK+Wrs2B4nNdZLUxhS/bGHSf2qMDXiMvGjMUUVu/NDA56y4RN8zWmi2lX +8Y4Ej79gQm5Izf2jMhROFVlOnbrLBNcLM8o9SygU3zjzoCeICUMnnPmK5Sj8 +ndNZMKTFhJ79a58eYVJImFQWNisug/rVA3qdahTKaC79kPRIAdSK/L5Gq1No +8apEsPWyAoTpLLllpkEho2i3wFp3BTBfsXHxwxUURjdM3Y0hFKCKVTQRpUWf +H/jwwKE4eSgVD7trok/hFqlDbSH+cnBnUEv1rhGF74deB814y0LyKYP1jsYU +Nr2UCYftsnBJcp2rjAmF26s8GNn6suBjYH/Hz5TC61HZoV+nlgDGBqtamFOo +94j/JTdgCbQbv1Ud2ERh7l+3wLrrMsC4GagmvZPCzwFtd+0HpeHn6ugNNbQb +xq2rF7+Shk8N19xO2VH48UltxbcCaeBN5ef07aJQzEyFJ+QnDQnWnWp5eyiU +jyIfFy6WhhWMFepmByjk0zBSZ2xeBLv2daj7HqXQUz5zBt8shIhO3cC1HhQe ++/Rt7WD5QnhiFft2hnaU3/OE21kLQcnIKuy8F52flBZf7ImFMKBS9zHMh0Kd +0JasMdmF4DpYlp58mkK5t4IuifskwdfllmxlCIVp42H7iEXikP1O0CMolMIT +NtWSEsNi0LXDsWbdRQq5UvtzNJ+LgYE583h9GN2XBg9vOQ8x+Etdb2mLpHD8 +1SzHv3EBBA9HRn26QuEThx0jWxNF4eoRH0HxNAq/PX9rtXKHCAQubbavpM2n +bVXdpScC3i9WFPreoHBbeeS2AhkRsFH85PQ+nUIjp5wfze3CIMWzqynOpJDJ +bb86ZysMUeoY5phDYapixOrSA/9A6Mh8yZIiCm3H+Xf7JAiBb7zLQfdHFO5W +ytUd9BMCF+OqZ6xien9/AZXj+4TALPGMZ1QJhQcHzQIZakIguGGs2fEJ3Zco +lRvF5YJw/k7bVfEKCvk9np3z/iYApw6lyR/gUXhPFRr/cWGAbSwRvqKBzl91 +9U7eRgbolt+ZmqQdsYrHKdZmwJh0YWdkI4V2J1UrZ+b4weXZy/hHLRRasl3R +4Bo/2CyZWCTaRTv+wF2XVj5Y8cJ0wf0het4KWw10aue4C8Zenfb7SKHfdj41 +y6Q57me5LSNmnyjk5W4JzvKY42Z42L16+5nCG875ytJyc1x5haOhQl8oXFTx +7566o7Nc4WMJgjsnKFSVyJd2IWe4Q8mK3qwfdD+lTFxwbppbWZv+/gvt5vbS +N9bt09yzSnkVF35ReOD+n1blkGnuz5fP/XP/UNh1WtF778gUt/mH2djxKQpD +D4rMTFZNce8uq99rOE33KSqR8zJlinvYp53bPkPhm1HrVQu2TnHXp+3KT5ul +sPbmm9NnNaa4nLo+Rbc5ul97qnRI4Smu4C+nSN2/FLpMbZUUeP+HO8AcmflL +m1DSrJYu+8P9H0Fe3No= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.8964641347005123}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.8964641347005123}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k8VV0bBnAOekiGJMnU4Zy9z85QhlA9nnPfxmhQpJJUSihKiFKplDFj +SihjIsnURKQohOLILEJIKlSiQabe/X7av/+Htdbe93WtD1t5/1FrJwYfH99+ +fj6+/z+V3kkL8PEx8abb5ci2glH4Mtb16SFt0qnX4F3eKDxh3Gg4xM9Ef+R1 +f8wZBTtS43oLg4kpjjWjP7NG4eoRU60sISaey7mKQmmjsGDGZ6+lKBPtVpZb +j0WPwh/ZjtIkGSbKLO2Z/OE+Cq3W17zXaDCxvjnpT8ryUVi0XaYU9zAxJqai +afDCCMyaMw2FI5io5LZSdEfTMHQ7aL7/XMzEVc+b8haKDYOJ8Bq7a5+ZGP2a +a3tf8TPsSG2QFFmijOGHyl7sZH+CiRf2SWbmyrihQm652Z8hCFz43TjFVxmz +BBPs6oo+wLONUmpFmcrIV6anecFzEIKWqH9MbFfGnZs+EpWTA/CzqXnAUFAF +R69btegG94PdvXNT/FoquKRvje5HsT4wZxIfo/epoDb1X3daVzf0n92xqDdK +BSfmcSwWv+4EgSMXpKfKVdBwqYToh+h2kPN/oKU5poKUQsaw5NkW6L7gGUUq +sjDN42q728tG4Cymng1vYmHN1C/9Y+x6UIx30zp6moXJ6uFvciNqIOl21onn +uSx8tU/PWYxVCZLvPndq9LCQyF1Zvqi2DG7Le0YM0OZ5mx3blF8GhraT3Phe +Fj4QVxWJjy0Dr6Z5GXx9LJzuaH+9c18ZtFay3FsGWNgWt/tM8vRTSLi9m3Hy +EwuFQj73y+k8BaZXk2rVBAtznOwPvMkrhZVCJaft5rNROHUCrjUVwzx2rJOS +KBtropSWdZUUQ7fR0c0DtKUo3UT19GII8ydYrmJsvC2gv3XesWIYnI55dVKS +jVqtqsyIxcVwbdx16TUZ2iHb/77d/QgE+hQedaiwMWj6Yum+6ULoeOw/bvMv +vT5odVrswQdwWMyuR9SAjRniJRLbtz8AhoNObQVt9SSVg4TJA1AXGkrW5LJR +sTe89MuyB3Bh8waLBYZsDHYZMmK/uQ/qg4vTKs3Y+F9G2EnWhvvgL5azSdua +jRFnPs+Df++BqkPbbYlDbPzwSz9pflA+bK1TmqmgLcA4pFTokg9+egc3H3dl +o26u5oYT6/OhYcH0z243Np6vMPQyksyHYyVM4zvubGypkYwbT8qDJ1KHe0y8 +2fguU0i14HEuWL5gSJ06x8aS7KJX+E8OeKlqnh68ysbnk4VLZvqzoPMETygr +jo2E7PT85bVZgC9cLx2KZ2O/s7Ose34WSDhkZn5NYONKIhDxdBbkXpVrnExk +4yXD8VmGTBYM8QkRYun0/MTlJiY23wK7js4G3Xw2LrDotJFqy4Dn7BM7J2l/ +3+YvzyrLAMpLevBxARvz3Hx/WWRlwO8Fm//APTbKn7PI7jyZAbFGVaz1D9mo +0Jph9HdZBjTk5fvuecxGye9LrbZ53ATjwACVkGo2mm7j/VPGTIeDQsvyDWrY +2FpnMo8nlg5RwY/XjNMeb64J+TJ1A7pCv2/Z/ZKNBRf8+ve33QCvyL3ndOrZ +KK6C0YrhNyA97t/ud01sPPzweE/NnzTgz564urqHjUvys0q0a1KBVI1W/ko7 +UXxy+fnMVNiYo5p3s5eN60NFQr8FpEJC3r4q8T42/g1MyFUzTAXN+6/HBwfY +uNv+zITS0xRwKM3ZHPOJjfMOap/ofpwM5TxHkeEJNl6WiDMQ4yUCW2trff4P +No52bbHMyU2E0Fij6GM/2bht3wpnt4hE2LJLefHsLzamGqzSsdqYCH2fepmS +U/S8tzxeeJd3HfgE7Vbr8RF4YMAu7Eb7NTBau8XlwgICKe734nC+BLiVDKrr +xAgs+sH6qD0YD/P5V34RFSfQafPxqMmaeGiuETt2VYLA3xp1Xb3R8bB/W93Z +21IEKvxuOiKtHA8BHmZxDbIEemja80Qt4qDqlsELOYLAI2pHNDzzY+GJStLY +W9q/Rp9+IuNi4WHKtHwySWDQtrjmX2diISPusdcyisCauitNg5tiISB4NZOt +RmA2v0Dvr69XwMh51WkNLQJHVusc7tW9As8JdS38j8BeGWkb2fYYKL4Rbs/P +JTCkLGrn0LMYuKs4ElJBOyZE8nZdTgykLb7Ta4IEls561bw9HwP+QlSEhTGB +oWnzb0msjAH8wPpobUHg0vdaNfcjL0FZhnyy0zYCU+f8H98oigJvm5Mvl24n +8M3fr+f1YqNATbDjJ4+2MD+18ptnFCQ4XrbUsyVQ/e+6R3UaUeClIsL3zy4C +WwVsP2tkRQIn7df+2w4E5uZQvqfSIuBSYhM14kagvN4L/u25YWC2YeW21MME +ntv3+sDyqDCYnYo4v/UIgS9UuaUKHmHgamfeVepOoF1xz8v9q8LAdGl5eIQn +gRpiYtShsoswFZf7VeMEgU2vhflM34SC4+WQhx4X6PkcvLbHXSUEbNlrZFcF +0Hnfj57kCYXAxqLh079pX5Pd/dHyczDodW0yPhtEYLL8gP7Du8EgrCLdHB5K +4JK8l53ChsGQfy/t260oej++EdUnLkEw1Vii2nOdwA+Rj0321QfAt/1uUWmJ +BLq8tuS/8yAABn8ojDsmEcirXvVFIjEAeLL+JcPJdB6ckjZt1wBIczAzn0wj +kKm1MKBJJADMxpqdFmUReFKJ5bPD8gLESIymWTwg0Kzrt//DEX8waUsU4ntI +4C5TN/vmDn+YvL7BtYi26Pd1h+dV+cMeMkeHVURgs+KmhrtJ/qD+n2v1TDGB +mZXrWAs2+0Ot66eRgjICf8rEKF05eg7mXgzqybwisNYmoiBK6wzcD49NrKfd +NT5kxpA4A05WJnwBdQSKP3jWnzTqB/XdN19+qyfwVRxxzuy2H1yb2G//8jWB +e3+yvjgr+8Eq5f7zfm0EJmbfvlsidxpc/XrqB/oINNw9nxFPnYR7drPXrvbT +7xdJJeqKnoTJ1You5gMEVo5NSP784gshP+35898TePx8o0j7A1/IcO/WPTlE +YMcR4pSCoS/0OrxNkRgl8EvVy3kp+06AlWmnh8FvAuMaliVEl/hAAuvPf99o +926orxNJ84E+/qWi6ZMEvj4k1ZgW7APuZbaZ/0wRKHIzo5Ft4wNh+m86m2cI +zJsrcDw/5g1VyzuMDjFI9Hxd+MRrhTesFm+TjhMjUXLvfXO3Mi8oazBfaitO +Ilc80sXplhcYRz9RlJMgMXrq6qozUV5gKZlBpkiS6CimsVlorxc4Sh1bfWsR +iVoearXH+L0gSmahfdFSEkVNjTbmbvCEQaVNN9sJEncWrynd9PkouL57lpVA +krihT1pQ49lR+Ja6KteOQ+LFRYZREH8UppgKhb0UiYzQFu9Z06MgwRqpHlIj +0T15cqYt0x3Wci4O/9Iikb99ele1+xGIXvlCawmXxJYze4yk2W7QytLXr6fd +RCW2mQi4gaxstsF5IPG61YfexAFXSOOLXDeCJIaIr7j95IYr3G2y2V1uTOJc +xx/3KmVXaDw2GOpiQeJq5a9kLXUIJIsF+h7ZkHjtjmF5gJUL2OT6fDi8jcS2 +y+laOroukJD2cVh5O4l9jY4SgktdgHmx7mf4DhKTZA8eF+l3Bk27K6IOdiQ+ +C7vXneLlDFtmVPSFHUi0+mH9tiXRCWLQKMrWjURXZsvYYaEDIL1EuE7hMIm3 +DqYX/h52hLgvvH/6aY9PWoRlNDrC9es7zx9yJzFmtWSpY5IjpP/w8D7lSeLw +l7DcY7qO8PB2ql3SCRK7FWVnCo/sh3bJWbIvgF5v12lQ8NMBbD9WOGYE0t8H +hQtWvHOArqehaQeDSDz5+5Lgq1oHeOcqLfc9mMT+xZNdtkkO8KlKTYwRRuI5 +vhTtBhMH+ONrN8G6RJ8f/HHFd929oND/qNwlicTBvYGvS4rsYffI6VmlZBKr +BZ0z+a/YQ8pP+LedtlPhswnvo/bAnF9bZJJKYplgrkYPZQ8snTd5yukkdvwy +jsxP3gWqQZOJb7NIVLw3eWh5tB3oL1/ju/kBiecvSq1dcckWfHVmC+c9JDFX +rdMs2NMWiv97PvGUdv68w80CW21hrbXFUfUiev1Gj4fuMrbAPb3TWaSExGIf +9da5lB1gwjtpU1lG55UdlDlQtB2sPR9r6r+i51FmcOYK3zbgxH5tH6Zt4u+Z +WD9kAzNFKmdS6uj5dh2uYfNsIHMm7KUQj8TZHUGPtK7bwGTIrv2tr0kUyi4U +fqxrA8kpM1c820hconXfx8lrK3yq4/7O6SPx7UnjbH1+a3jy1St5bz+dR0XH +IokRK4hZmGW8aIBE+YV9G/nbrGDtDolLp96TeIpL5OpmW0HkwDvKYoi+f29W +PuyytgLtP/52QyN03z3iGNN3tsAZsvIp8zeJBrPaRaFvLeGS2obE97QD48Jv +cu9bQrpmi++tSRK/xq0cV71oCbVr3+uoT5F4+MjypEx9S5DeLHBHf5a+f9f2 +XJGP3wR3ThjHWQpw8M/eK7cb9m6EjtpKdz8JDlbuv8kMkVkPw7wNG0GSg4Fy +G4nQCQuYaW5ZzljIwerJSfdHjRag0vN+MESKg2+POw+khluA+3eBXVcWc9D9 +EqMpRsACBOVM1t2R52DFi++T1dPrQMutatkbDgd7oyJcvoqaASNj/VwkxcGg +FQ0XjMZMobW7sdt4OQcVCl6+L241heOWPdcKVDk4HFnbKJpiCk+0fi0K0eCg +d6h/u6m2KZhPcoT1dDhoVTBf7aODCTgEhY9d4XKQcH5tz2szAu2yha8tgIOt +p721FcuMQOB3fN5f2g3vyn3CbhnBrYMZrm6G9P5zE4VPThjB6Iang0YmHCza +ULLWT94IfKW+vfluwcH0i/d45gcN4VKq9fPN2zj4vIChqi6DkPZYvUN6Owf1 +P1jZ6PEhFLTN+9JJu8OiwfRJK0CDaKnsAVsOnviVuGzBWQAxX5aH7y4OfvJi +NDq1cCFsyw+lG/s4KCmYta8s9D8I5I/zGz/CQXNNBwZD4V+IVfC4/Midg18D +f/p8/bUWbuqvv+13lIO1K8SWijWvhYojcy3zPDl4qjZ74F3oWuDvclaT9+bg +X6LBvHVyDZy9r99lfIqDd79W3yjvXw2+jp36V4Pp839XnR1p0wOFeFbR9hA6 +/8+31616pAflr46skg3loOni/bOZCXowT5uhlXiRg3mdabYC9noQy6emeiOC +g6Nh7nOpg7pQkOynkHeZg32XpZ11ZlfBUMcy/hcpdB8uhkk6rteBMFHXc8Gp +HATVsT3OmjqgAQ9n16VxMGFb274IGR3wvmU+9eoG3Y96lwZ4rw0MH8+JxgwO +8sYuboGz2qAkVfmh+w4Hly33IU491oJtG51f/SjioEZC/58H6zWh+EG+RfYj ++nuO3QzW1tMEOfnftbuL6f6+X5T/SlkTej+H1FSXcDDGJT05anwlOIdkVyU8 +4WDcxvDObuuVcKJitMyggoNL+6pP31dYAddWH3sQyONgUorM5ZstajCTWqq9 +poGD2rzyyMt31WDPP4L3v9BuSp5xzotUA5X22LvbGzn4PeNgp5O5Gtw5VpRH +tXBQjTfS+7ZcFUrz/2TVv6Hn0z6xLr9oOfSw/ZOkBzl4b02QVWgFB866K2x9 +QztqW1uQSDoHlIqLRZI+cHDCwr636DwH9mz4fpz1kYOFvGnxq4Yc6PPcb6U9 +TOclJi24s5KEgTKTeVvGOGgtGjBU30DAkK2IR/gMB6lLzvL9AmwITs8kN89y +cLrlThz9nw3kqGGP1Bz9/g/bd+nzWOBy7tT663/p+W5RnFaOZ8GnzBF2NoPC +f8WOK+Wrs2B4nNdZLUxhS/bGHSf2qMDXiMvGjMUUVu/NDA56y4RN8zWmi2lX +8Y4Ej79gQm5Izf2jMhROFVlOnbrLBNcLM8o9SygU3zjzoCeICUMnnPmK5Sj8 +ndNZMKTFhJ79a58eYVJImFQWNisug/rVA3qdahTKaC79kPRIAdSK/L5Gq1No +8apEsPWyAoTpLLllpkEho2i3wFp3BTBfsXHxwxUURjdM3Y0hFKCKVTQRpUWf +H/jwwKE4eSgVD7trok/hFqlDbSH+cnBnUEv1rhGF74deB814y0LyKYP1jsYU +Nr2UCYftsnBJcp2rjAmF26s8GNn6suBjYH/Hz5TC61HZoV+nlgDGBqtamFOo +94j/JTdgCbQbv1Ud2ERh7l+3wLrrMsC4GagmvZPCzwFtd+0HpeHn6ugNNbQb +xq2rF7+Shk8N19xO2VH48UltxbcCaeBN5ef07aJQzEyFJ+QnDQnWnWp5eyiU +jyIfFy6WhhWMFepmByjk0zBSZ2xeBLv2daj7HqXQUz5zBt8shIhO3cC1HhQe ++/Rt7WD5QnhiFft2hnaU3/OE21kLQcnIKuy8F52flBZf7ImFMKBS9zHMh0Kd +0JasMdmF4DpYlp58mkK5t4IuifskwdfllmxlCIVp42H7iEXikP1O0CMolMIT +NtWSEsNi0LXDsWbdRQq5UvtzNJ+LgYE583h9GN2XBg9vOQ8x+Etdb2mLpHD8 +1SzHv3EBBA9HRn26QuEThx0jWxNF4eoRH0HxNAq/PX9rtXKHCAQubbavpM2n +bVXdpScC3i9WFPreoHBbeeS2AhkRsFH85PQ+nUIjp5wfze3CIMWzqynOpJDJ +bb86ZysMUeoY5phDYapixOrSA/9A6Mh8yZIiCm3H+Xf7JAiBb7zLQfdHFO5W +ytUd9BMCF+OqZ6xien9/AZXj+4TALPGMZ1QJhQcHzQIZakIguGGs2fEJ3Zco +lRvF5YJw/k7bVfEKCvk9np3z/iYApw6lyR/gUXhPFRr/cWGAbSwRvqKBzl91 +9U7eRgbolt+ZmqQdsYrHKdZmwJh0YWdkI4V2J1UrZ+b4weXZy/hHLRRasl3R +4Bo/2CyZWCTaRTv+wF2XVj5Y8cJ0wf0het4KWw10aue4C8Zenfb7SKHfdj41 +y6Q57me5LSNmnyjk5W4JzvKY42Z42L16+5nCG875ytJyc1x5haOhQl8oXFTx +7566o7Nc4WMJgjsnKFSVyJd2IWe4Q8mK3qwfdD+lTFxwbppbWZv+/gvt5vbS +N9bt09yzSnkVF35ReOD+n1blkGnuz5fP/XP/UNh1WtF778gUt/mH2djxKQpD +D4rMTFZNce8uq99rOE33KSqR8zJlinvYp53bPkPhm1HrVQu2TnHXp+3KT5ul +sPbmm9NnNaa4nLo+Rbc5ul97qnRI4Smu4C+nSN2/FLpMbZUUeP+HO8AcmflL +m1DSrJYu+8P9H0Fe3No= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12.5}, {0., 0.8964641347005123}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12.5}, {0., 0.8964641347005123}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.9931368152633867`*^9, + 3.993136818872631*^9}}, + CellLabel->"Out[22]=",ExpressionUUID->"de230318-c861-4cbe-9f2c-fe07c071d3d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519993740715*^9, + 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ +f05e39e52441"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519995212555*^9, + 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ +f5e698425a9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9, {3.993136847868059*^9, 3.99313684794081*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.135, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 7.78, $CellContext`ymax$$ = + 0.903, $CellContext`yyv$$ = 2.6199999999999997`, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.7, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {109.25175419056708`, 114.87675419056708`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.7, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {198.1673791905671, 203.7923791905671}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9, + 3.9931368493614073`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"44910192-065f-4ab2-9ddc-2450041e3ab7"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[27]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.993136901895015*^9, 3.993136905219722*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVx3881HccwPF7kEJiUa4Vut8fOfNjdmNpn897Hn4t6yaG2tBJJHmwo19j +rRryo1L5kWuxrOuhQ/eoRn4Mc4ykx1Q7x0JrGSXUfe+4MD93++P1eD2ezL1J +QTEGNBrNW9//b7nVasO9yoADV/iCr+1ySVay3+bI6wxYPEoaHEpyiPjhv63X +HzEgTVT9qXI6k/x4TmNuPMuAxsiqvpGV6cQety/8zmZCpocmyc3/JJH1NVzs +EDKB/UjgV61JIweVU48HjjAhVELZVrgfI2daTO/svMYEp6T0cXHTIaK2iPV8 +8YAJY13taZOUmPj5DyfcnGRCjK2Z53a7JLIk/pj02rLgdc0wP7UynswsDTZu +9GVBQa2rmbX1fiI8HtbfKmZBQN4Lf+Wv0eTKsK60pIQFN8oPe6ZQIuIg7zMr +bGdBoiJ9dnx3BKHHFdm8oVig1FY1lzF2E9/Tkr69G9hwzepuoHlTCOkpOua6 +1ZsNEevHfK7mB5HQc6luPklsuBGYfHtK9TnZ9Erxd0IxG3hVc2aPzgcQ/MGI +43QbGzpGROXZBX5EOhzAKZlgw4igmZ4q8ibLqb1th6040JVllCOu+ITUG24z +uIM5cMlaJIsjmNRQLyeM93PAuVdgIedvJWu6E4+05XNA6KLyk0V+SMLzN8hu +NXMg4l3fSZ2jG1H/sjKj4QUHLJ9W7+i94kL+Uv1B467lQohp+2hKgiOxCBpC +8o+4cMGHbHu/wJ6411lOx0VxYYtF7JxayCXNa5gxp89ywf+yBV8BLJLZmfKd +ooYLQ/5KwYBkM6lKlnqEP+dCXwM99/aKTcTqFL10nQkPop7WXjTYRSfio3IZ +zZUHjXddRJZb15H39jBChOE8WFo80ZIduJbwK/+sqs/gQcl6rbx1ag3JenlQ +mnGbB3WvO97YSUxIvynLK2OQB3vyJhyfqY1IYr7NmTJDBHNx87GqRQMiWq07 +ZOeM4MsZhvcCppGiUQuThjAEpW/p8eXrF7Ciaod31gkEiq/4Hu67ZrF/VByj +rhKBRNF9jd6vw1apneWGPQia2C3efNNJvH0/U1Knt1VqeEbWkhZ//0VazkEV +Aq+TZ30nJrVY4+Sc0NOL4J6xL+ka1OKHw5dcpU8QOJW6pz2Ta3H2jtgmr2cI +7kiXqQPBWrzAMFKeGkNgV7h7xYhUg93M9/wmGEcQui8lEV3W4Pj5+poxvd1i +5zrEeRrc35tQvPM1Avo7yfxN32hwba4qnEkhOJ9dHKwQarBYJx1V6BCMOtkf +L5umsGxo8cmhtwgcwlQDtH8o/Pxh2AP7ab1DaVmJ3RQWVqyWX5hB4KPLlImv +U9gxMiVZNIegUUWY1sEUjg7ojl43jyB+qNHwOabwDx4o5L7edHepptaBwiZW +g+4uiwiWE9beP2NAYaAJtozoXVSt+ilHrcbH3uRtlCwh6DD+dl/hgBrfGni1 ++rNlBEq76lU376nxy06vxWW9g1fx0x//rMb/ASXT+DM= + "]]}, + 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:eJwVx3881HccwPF7kEJiUa4Vut8fOfNjdmNpn897Hn4t6yaG2tBJJHmwo19j +rRryo1L5kWuxrOuhQ/eoRn4Mc4ykx1Q7x0JrGSXUfe+4MD93++P1eD2ezL1J +QTEGNBrNW9//b7nVasO9yoADV/iCr+1ySVay3+bI6wxYPEoaHEpyiPjhv63X +HzEgTVT9qXI6k/x4TmNuPMuAxsiqvpGV6cQety/8zmZCpocmyc3/JJH1NVzs +EDKB/UjgV61JIweVU48HjjAhVELZVrgfI2daTO/svMYEp6T0cXHTIaK2iPV8 +8YAJY13taZOUmPj5DyfcnGRCjK2Z53a7JLIk/pj02rLgdc0wP7UynswsDTZu +9GVBQa2rmbX1fiI8HtbfKmZBQN4Lf+Wv0eTKsK60pIQFN8oPe6ZQIuIg7zMr +bGdBoiJ9dnx3BKHHFdm8oVig1FY1lzF2E9/Tkr69G9hwzepuoHlTCOkpOua6 +1ZsNEevHfK7mB5HQc6luPklsuBGYfHtK9TnZ9Erxd0IxG3hVc2aPzgcQ/MGI +43QbGzpGROXZBX5EOhzAKZlgw4igmZ4q8ibLqb1th6040JVllCOu+ITUG24z +uIM5cMlaJIsjmNRQLyeM93PAuVdgIedvJWu6E4+05XNA6KLyk0V+SMLzN8hu +NXMg4l3fSZ2jG1H/sjKj4QUHLJ9W7+i94kL+Uv1B467lQohp+2hKgiOxCBpC +8o+4cMGHbHu/wJ6411lOx0VxYYtF7JxayCXNa5gxp89ywf+yBV8BLJLZmfKd +ooYLQ/5KwYBkM6lKlnqEP+dCXwM99/aKTcTqFL10nQkPop7WXjTYRSfio3IZ +zZUHjXddRJZb15H39jBChOE8WFo80ZIduJbwK/+sqs/gQcl6rbx1ag3JenlQ +mnGbB3WvO97YSUxIvynLK2OQB3vyJhyfqY1IYr7NmTJDBHNx87GqRQMiWq07 +ZOeM4MsZhvcCppGiUQuThjAEpW/p8eXrF7Ciaod31gkEiq/4Hu67ZrF/VByj +rhKBRNF9jd6vw1apneWGPQia2C3efNNJvH0/U1Knt1VqeEbWkhZ//0VazkEV +Aq+TZ30nJrVY4+Sc0NOL4J6xL+ka1OKHw5dcpU8QOJW6pz2Ta3H2jtgmr2cI +7kiXqQPBWrzAMFKeGkNgV7h7xYhUg93M9/wmGEcQui8lEV3W4Pj5+poxvd1i +5zrEeRrc35tQvPM1Avo7yfxN32hwba4qnEkhOJ9dHKwQarBYJx1V6BCMOtkf +L5umsGxo8cmhtwgcwlQDtH8o/Pxh2AP7ab1DaVmJ3RQWVqyWX5hB4KPLlImv +U9gxMiVZNIegUUWY1sEUjg7ojl43jyB+qNHwOabwDx4o5L7edHepptaBwiZW +g+4uiwiWE9beP2NAYaAJtozoXVSt+ilHrcbH3uRtlCwh6DD+dl/hgBrfGni1 ++rNlBEq76lU376nxy06vxWW9g1fx0x//rMb/ASXT+DM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.012753368971471795`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.012753368971471795`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVx3881HccwPF7kEJiUa4Vut8fOfNjdmNpn897Hn4t6yaG2tBJJHmwo19j +rRryo1L5kWuxrOuhQ/eoRn4Mc4ykx1Q7x0JrGSXUfe+4MD93++P1eD2ezL1J +QTEGNBrNW9//b7nVasO9yoADV/iCr+1ySVay3+bI6wxYPEoaHEpyiPjhv63X +HzEgTVT9qXI6k/x4TmNuPMuAxsiqvpGV6cQety/8zmZCpocmyc3/JJH1NVzs +EDKB/UjgV61JIweVU48HjjAhVELZVrgfI2daTO/svMYEp6T0cXHTIaK2iPV8 +8YAJY13taZOUmPj5DyfcnGRCjK2Z53a7JLIk/pj02rLgdc0wP7UynswsDTZu +9GVBQa2rmbX1fiI8HtbfKmZBQN4Lf+Wv0eTKsK60pIQFN8oPe6ZQIuIg7zMr +bGdBoiJ9dnx3BKHHFdm8oVig1FY1lzF2E9/Tkr69G9hwzepuoHlTCOkpOua6 +1ZsNEevHfK7mB5HQc6luPklsuBGYfHtK9TnZ9Erxd0IxG3hVc2aPzgcQ/MGI +43QbGzpGROXZBX5EOhzAKZlgw4igmZ4q8ibLqb1th6040JVllCOu+ITUG24z +uIM5cMlaJIsjmNRQLyeM93PAuVdgIedvJWu6E4+05XNA6KLyk0V+SMLzN8hu +NXMg4l3fSZ2jG1H/sjKj4QUHLJ9W7+i94kL+Uv1B467lQohp+2hKgiOxCBpC +8o+4cMGHbHu/wJ6411lOx0VxYYtF7JxayCXNa5gxp89ywf+yBV8BLJLZmfKd +ooYLQ/5KwYBkM6lKlnqEP+dCXwM99/aKTcTqFL10nQkPop7WXjTYRSfio3IZ +zZUHjXddRJZb15H39jBChOE8WFo80ZIduJbwK/+sqs/gQcl6rbx1ag3JenlQ +mnGbB3WvO97YSUxIvynLK2OQB3vyJhyfqY1IYr7NmTJDBHNx87GqRQMiWq07 +ZOeM4MsZhvcCppGiUQuThjAEpW/p8eXrF7Ciaod31gkEiq/4Hu67ZrF/VByj +rhKBRNF9jd6vw1apneWGPQia2C3efNNJvH0/U1Knt1VqeEbWkhZ//0VazkEV +Aq+TZ30nJrVY4+Sc0NOL4J6xL+ka1OKHw5dcpU8QOJW6pz2Ta3H2jtgmr2cI +7kiXqQPBWrzAMFKeGkNgV7h7xYhUg93M9/wmGEcQui8lEV3W4Pj5+poxvd1i +5zrEeRrc35tQvPM1Avo7yfxN32hwba4qnEkhOJ9dHKwQarBYJx1V6BCMOtkf +L5umsGxo8cmhtwgcwlQDtH8o/Pxh2AP7ab1DaVmJ3RQWVqyWX5hB4KPLlImv +U9gxMiVZNIegUUWY1sEUjg7ojl43jyB+qNHwOabwDx4o5L7edHepptaBwiZW +g+4uiwiWE9beP2NAYaAJtozoXVSt+ilHrcbH3uRtlCwh6DD+dl/hgBrfGni1 ++rNlBEq76lU376nxy06vxWW9g1fx0x//rMb/ASXT+DM= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.012753368971471795`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.012753368971471795`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.993136899362027*^9, + 3.993136906014844*^9}, 3.993136967125986*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"911ee8f6-fbb5-49ca-b5a6-9aae6a452dc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519998013506*^9, + 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519999593614*^9, + 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = + 0.5750000000000001, $CellContext`xmax$$ = 12.44, $CellContext`xmin$$ = + 7, $CellContext`ymax$$ = 0.014, $CellContext`yv$$ = 1.0250000000000001`, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691962`, 115.83105478691962`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.993136986473831*^9, 3.993136987040757*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Xk0ld0XB3Bl9taLUrru9DwyyxTlUp69KZEhVGaVMUPKkMhQmaIiIQmZ +GsgUUlIUmhQlKoqiyNQrJJXK1O/+/jrrs85Z6+x99netQ7r6bfdYzMPDI7qI +h+f/65tcP7eNAjR0iHO0qihqhIrqaekQbRpeKFdUkC6+Bwc7vFYuCaJh3grP +FyIX78CmXXLhN6ppaDh39pZUYzXwPUh3UJimoclQyFtt7yoortuvY7xWCj30 +DDo+7a4AR3byybCDUrgr8ZU9S68EJiVp3baVUpiy4fWq+4xCCB7beXnxmBRu +Ldg3vSv/Eggr93xoWEPH+sA/xr6tuRC50ExT8KZjVu3P/w7dzITggTA+VR86 +zilvuCCbnwm+T5W/au6jI0NCrHsgIRPsUk8/gv10tCz48DbBLRPU5az8bAPo +aDc1PXlieSb0m3c9igul4/yzgGXqwRlgkDPsN3SSjtpvBhunDc8D70bepksl +dKxTVr98buk58BrLHb5cSsdR5c1ZP+fS4EW2rmBBGR113fWzXMbSIGs+wPhq +OR2TZi3O73qWBmsb+lpKq+gYL955a/BkGjgb1LfdrKUjk23JUhROg3vGod1N +LXRcOpj0xFbsLIRYfx0bHaWjQn9UUCOkgHr+iTvvvtDRekNrZtfaFBgdJeNa +xugY4h5Z8Uc2BZwid7JLJuj4kTct3WZJChiU3rHynqLjiSaVe2HdybB0Ueyt +kT90dFh4fd/zUDJcLlsVOSjEwCWs8ct7PM9AG6/B8g9yDGwWiKZVpSSCekS+ +4id5BtbcdDDSCkuE1B8LMKzAwLWilyOeuiaCzVCd74QSAwVunnwup5UIPU3r +mhZUGVhhbFh2520CfD6pGMrWZmC1IL1TRToBFomJf3Q2YuD4errn3MOToMno +KxnwZOAVM+WlZZx4+Ky6cf8bLwYOpfGQOXLxkKufodbszb2ft9DngkQ8CHla +3izfx8B18/kRDZNx0HO98V6oHwMtUlYWXymOg+NGF9tFQxgoVsl/8T0zDt4G +uk5viGPgMhm7wUbR4xDePKifdoWBfHNdWrmSMdAlLLDtQgEDVXIOHHMQjIH1 +JvIOlwoZyH8w4PPqX9Ew2eIdWFnEwH1FWl9730TD3ucTl56XMTD2vNbD8fRo +sGz7zctfzcAX0kFaQbRokO1c0nToMQPvRH0ZeScfBW19Wia2wwwU/1ttq9Z+ +FLLHMNF+hIEnLtqwpG8dBZ/fZi8cPzMwtE+pXzH7KPCJeWx3HmXgNjeSedjr +KHDgnIP3BAPjz9reXbr4KOTn/PQJn2bg3eAmBTGdIxDocCshT4CJNRpHUOhW +OKzo0G4dkWNiXVvsZMbnw7A+TL+uS56Js023Xj/oOAw2hGlxswITT7LqumYb +D0OG7+7jpUpMlJcwYF7IPAxS/Mf1/FSZaF78zf206WEg1r+6Nr2Oieyd48Xa +VSGglOGbxG/IRBEbrY0Op4KBcrposdqNiSOPN8gXugWBoLp/vII7E2mi626P +WAVBOy80qHgwUcFzXoaDQeBa2qPK8WTigM1WN35mEByfkfzXfB8T3VbWqVi+ +PQjPM5KeBx9kIn0TbSx720Gw7wzf2hLDxOI/vpsfGQVC0DabTQFXmHgr9Oa1 +cRd/SL4rLe9RwEQXff1P0Tv94ZrSVxH7Qia2qe2pljbyh2GBE6+wiImDJscl +o9f4g23DHRexMiaqvrXoOfLVD3TVmZEVN5honxcvuZPwA55lg3fHHzBxeevK +UiJlP5zuDFjv08/EnUH+HTxlPiAlqmhp/4mJog10s8B0Hyg07vM2HmAiFVJU +/CPSB+rrtuXIDTFxU+/8gLKND0xcVOYb+MzERveL066LfMDywNBLx0kmqu9Q +uf3ZwRuWCdrvN//LxONrmk7N07zgPAevqDNZKKd72rL+sQc8z7srqMVioU9n ++oGEKg/gEdTZp81mIWe3A793ngd4dWqspUgWXpVe2Gsd6gG6gasbTWVZmCcY +Ff1NxQN6SgV69qqw8GWtZphyljtIs1uX5+ix8HaOV6jpUTco53eIEd7NQldv +J/7YQBdYL9iROsv1p7onW5e7u0C90LZL43tY6M2vyCm3doEX/xjcf+nCQitM +nRDQcYEJcaW/mR4sXJX68rEBjwuosGbClPaz0ClbYHtPsjOUrc8KNI1gYYq4 +ZuGNoD1Q7PnO5XQWC7eHG/zYae8E79JpdWcvsNCx1eT1U3ACkSY7iaxsFj4o +HebskHMCH5m3TYW5LGz9KGta+t0RlPpfKzdeYqFRpG7w3jOOUOLQ+nOqhIUS +Pud8f7c4QJl540m7OhbmmGswRLbbQ6Vm4fXVPdz3VCuR/DfbBixV21G2l4XZ +O1+5/4y3gUmFmTa5Dywcr1muPXHQBtRZ2yYU+1h4MqlYTcLMBiqEppXUB1l4 +/bFqp9q8NZT3Gl7ZOMbCar4bnExXayiLH0q3nmPhlM37P+06O6HovUxEPION +YPO8uXfldsj2N6sJYbLxMu1swgvB7XCGP2jKk8XGCOOFvGe/rSBY7aGXMcHG +8YnjmaPvrGBzjIu1sAwbdYvt6mvzrOCjUq5qgjIbbX227LmgbAUrwyT7k3TZ ++FiSZ4FuZgmxq0S2pNuxUXhCOWyTkzkQ76dbsuzZGCBWGVuqbw51OQMWeQ5s +3PDp9xZleXOYkr5nX+TExl4Ri/yAKTNwUfHfX+vMxpIbYl6Sp8yAMniT9sGL +jf6DomnV90zh975LA3KhbOw5Li5atc4EfBt0o2oy2WjRpCSS5G4EjgzZqpIs +NtLyfY2rLY3AJFR0IOcCG53/OkuPbzQCRc3BzbE5bDzT9zcwaYURDBeeFrK6 +yEb2u8dL0p9sgT1JfWdGi9joLtIbeE11C2zfFZfLvM1GkQOW1y8KGQJn9mVd +zBs2PtzQbjr82QDOr74qHfiWjSEerd1EtwFMm0acdO5iI3Ns0MOr2QBuZsvZ +6r1jY7Wi9zZWiQGoU+FT071s7KDd2yjjawAKUTKKPkNslNaaO3FmSh8kBUPS +LX+w0Sy9xiZHSB/ChZNu/ytM4N2+06k/yyk4qvVeLJlr/SyJIOIsBdF7FLzF +Rbj71y6Yu4dQcKr6AU3iHwKzZK4mr0cKMlx+hdGWEqh3//bU4td6cPOOs56M +OIGP2MqbFeY3woS35gMdGoEb8yqfiLttAOeWrmfuigSG7L5m/9efA0kPZMJ6 +uZZO1KoxcOJAXa2/go0SgUe6cyPPG3FgZanQcSNlAnnSjzAPsTjwLIFDKakQ +yD56dmLhuTasN8+o/KpOYLaR82lU0YYl7bbnwjgEBi7TFKLPrIOazje7k40I +jEhfPW3yQBNuu/OvXW5MoEUfU2hlpSbUftfkT+camqXrvuVowl3xlNILWwnc +k+r99F2oJjwwN/1daErgyvKMjwFrNeHF44aUexYEVhZXKVwtXAvD1UWPRm0J +dJgTEmjJ0gCJ9DAlQy8CNWYczSZ3qQFMXd3RwHV12JzEkIEa+GzrjNDxJvB3 +1OzfSXk1uC+g3qbiQ2By9fiE+ZQqHAgZOrjSl8Bj3qvEpU6owlM7y3sjftz9 +8/W5ozUqEEGXszwVQqBS6IHu/+TXwED+y0NtcQR+LPFaE2aoCE2uP3SM4gm8 +8TKyTkJdEUpkJBfqub7KuWR0X0oR/Iuc4spPELg5W5NuOakAcxUj6adPEZgy +mie6KVsBJBrma0yTuPPYcc864Jc8bOlVnHlyjltP6zqBhFo5KKFFH228QqCs +iWBvtb8MuATGexoUELhI/Nea0V0ysOpZouUjrqsmcorVTGUgPuK89NNCAqf+ +nRodl5UB949lTW1F3PPu/b3relYDs+Dtvx/LCNzQxtIcNl0NyeoqefM3CTyz +MvOZs7Y0hBh1Neg+JlDXT96qeAMBdvt7Fm5wvXjp58RqFQI4Z/v0VJoIbNji +Wt3KJmDmw+c69hNuPkniCslHwNHgPzV8zQT+KH7QcC2LDXEFUpUvnhO4NK90 +a89DFqTz7sp37SDwn3BD71XyTLjV0B95aoBbv5+VL7+KFOyLeDq4dJBARs54 +c46EFBA6FcYpXNtd1HlmNkeDU1URYhlDBLa9Oucx8YwGuwsk8wtGuPm/FnBL +z5cGggnmDY1fCHyVkD8xU7kK7GzuzE9/J3BIyLbI3UQSZseSw9z4SOzJCOS8 +uS0BXqL7Qwe5/rCEOdxVIAEdGlsPe/CTWFfZMjyWKgHlwYuCPQVIPOIfeMl4 +vwS48gQG7BMi0X2we1urtAS0LN/hdXAJiZzw+0ILycshS3eFTYwEiZt5e9XS +QpeBzolMjcsyJO7UTgwNOSwG7SFBcXRZEg2Hk9l7fMRgr6fF+7NcB+tj83Yn +MUjbwn88Vo5EMYHJhV0oBl/5Aro8FEj0lCjqWiwsBgVRxscU1pDYtC5x+SxH +FMTDfz2/pkmi0sib/UPnl8J/+629bhuQyKJpdRWfE4GdP5Z90t1EolWzUcxM +hAjUh7U73uO6/Zcqv6u7CKTFm1o82Eziz4+HdQ5pigBe1F//fAuJM13qjJJX +wpDeocLXZ0LiUONw84YVwrB5g0C+4A4SI2JFzgSWCEKeUM1bGzcS5U4dJATE ++UHL6eDV9v/7n9gn9Qt88LRCLcTEncQW0za9+DE+mLIpWkl5kMhXUeVi9JQP +NhdkWst6krgl8eiSmEg++E8/4vV3HxIDiu0Mer7zgma4fltyIIllK4JYdUOL +4cn4s6aWKBJ1zPxCD33nAYmrRzQMokms/u96g+AQDzg7q2Xf4foPR9Kw8A0P +zLxKDSiKITFSbWxAsJYH1ty2Z8QdJ7HXTWK7UxQPJEePBOifJNFWVk5UfxkP +2EnyMm8nk/gx0D7EO3SB+oy6BwvySJxNLiz1dp+lhFJeLJbPJ1E7zL9PynSW +Uux3TS3iemdijeeAxizlE5VwvfQiifwKKqtq/85Q4/d7vl6/zO03WKg8PHuG +mjI45lt/lUStxxu5/8gfam7zI4+3FSTSOO4tynt/U6Jbt9kJN5KYe8WpOrTu +J+Wwt18vmuuA9j7R2qKf1JWYoNWzXPPPFJ0WSf9JceqzJsbuk/j41/W69/4/ +KVfNkdj2h9x5P5ty1pP/Sd1iRl4//4TEV3rPJr+l/6Ccpq6LyLVx83tqIuph +1Heq6MKKewYfSHzRtx2Mor9RKUtpVc1cd+hahHgHfKPCjjGuWn7k9nuDHL7g +/I0yc1udsruPRKMDakoa8I2aVNLwCPtEYoFccDZ9fpLSqTVbWjVMIunc2fsp +fJJq6YrZRX4lMe7Qq4eFwl+pGybx24u4fmgZ21//ZYLKvnvKSG2SRN5ddfe/ +t05QB/JTNPS+kbiQGuN4I3WCWuaVx2//nUQpw4fTccwJyvFX7bXkX9x52Blq +enHGqc3e9Zckf5OYJN/9CBjjlOr7++dzuY5P7Ni3lmec4ml4GlX2h8ROlbWp +Xk/HqCtxb6yfzpIYm6zvt8JhjDr9u9vEYo7E/iH6uwfUGBXs0wtvuO4e1Tt9 +avUYZbxtUHFwnsS1KzI8vca/UBqNI6x9CySO9Jc6HX31hZJa+2X5FNf9x+rX +ldd8oXivTAiF/uXmLfxP96/sL9TYiqn5v1yLMHLVHaO/UP8DcvpebQ== + "]]}, + 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:eJwV1Xk0ld0XB3Bl9taLUrru9DwyyxTlUp69KZEhVGaVMUPKkMhQmaIiIQmZ +GsgUUlIUmhQlKoqiyNQrJJXK1O/+/jrrs85Z6+x99netQ7r6bfdYzMPDI7qI +h+f/65tcP7eNAjR0iHO0qihqhIrqaekQbRpeKFdUkC6+Bwc7vFYuCaJh3grP +FyIX78CmXXLhN6ppaDh39pZUYzXwPUh3UJimoclQyFtt7yoortuvY7xWCj30 +DDo+7a4AR3byybCDUrgr8ZU9S68EJiVp3baVUpiy4fWq+4xCCB7beXnxmBRu +Ldg3vSv/Eggr93xoWEPH+sA/xr6tuRC50ExT8KZjVu3P/w7dzITggTA+VR86 +zilvuCCbnwm+T5W/au6jI0NCrHsgIRPsUk8/gv10tCz48DbBLRPU5az8bAPo +aDc1PXlieSb0m3c9igul4/yzgGXqwRlgkDPsN3SSjtpvBhunDc8D70bepksl +dKxTVr98buk58BrLHb5cSsdR5c1ZP+fS4EW2rmBBGR113fWzXMbSIGs+wPhq +OR2TZi3O73qWBmsb+lpKq+gYL955a/BkGjgb1LfdrKUjk23JUhROg3vGod1N +LXRcOpj0xFbsLIRYfx0bHaWjQn9UUCOkgHr+iTvvvtDRekNrZtfaFBgdJeNa +xugY4h5Z8Uc2BZwid7JLJuj4kTct3WZJChiU3rHynqLjiSaVe2HdybB0Ueyt +kT90dFh4fd/zUDJcLlsVOSjEwCWs8ct7PM9AG6/B8g9yDGwWiKZVpSSCekS+ +4id5BtbcdDDSCkuE1B8LMKzAwLWilyOeuiaCzVCd74QSAwVunnwup5UIPU3r +mhZUGVhhbFh2520CfD6pGMrWZmC1IL1TRToBFomJf3Q2YuD4errn3MOToMno +KxnwZOAVM+WlZZx4+Ky6cf8bLwYOpfGQOXLxkKufodbszb2ft9DngkQ8CHla +3izfx8B18/kRDZNx0HO98V6oHwMtUlYWXymOg+NGF9tFQxgoVsl/8T0zDt4G +uk5viGPgMhm7wUbR4xDePKifdoWBfHNdWrmSMdAlLLDtQgEDVXIOHHMQjIH1 +JvIOlwoZyH8w4PPqX9Ew2eIdWFnEwH1FWl9730TD3ucTl56XMTD2vNbD8fRo +sGz7zctfzcAX0kFaQbRokO1c0nToMQPvRH0ZeScfBW19Wia2wwwU/1ttq9Z+ +FLLHMNF+hIEnLtqwpG8dBZ/fZi8cPzMwtE+pXzH7KPCJeWx3HmXgNjeSedjr +KHDgnIP3BAPjz9reXbr4KOTn/PQJn2bg3eAmBTGdIxDocCshT4CJNRpHUOhW +OKzo0G4dkWNiXVvsZMbnw7A+TL+uS56Js023Xj/oOAw2hGlxswITT7LqumYb +D0OG7+7jpUpMlJcwYF7IPAxS/Mf1/FSZaF78zf206WEg1r+6Nr2Oieyd48Xa +VSGglOGbxG/IRBEbrY0Op4KBcrposdqNiSOPN8gXugWBoLp/vII7E2mi626P +WAVBOy80qHgwUcFzXoaDQeBa2qPK8WTigM1WN35mEByfkfzXfB8T3VbWqVi+ +PQjPM5KeBx9kIn0TbSx720Gw7wzf2hLDxOI/vpsfGQVC0DabTQFXmHgr9Oa1 +cRd/SL4rLe9RwEQXff1P0Tv94ZrSVxH7Qia2qe2pljbyh2GBE6+wiImDJscl +o9f4g23DHRexMiaqvrXoOfLVD3TVmZEVN5honxcvuZPwA55lg3fHHzBxeevK +UiJlP5zuDFjv08/EnUH+HTxlPiAlqmhp/4mJog10s8B0Hyg07vM2HmAiFVJU +/CPSB+rrtuXIDTFxU+/8gLKND0xcVOYb+MzERveL066LfMDywNBLx0kmqu9Q +uf3ZwRuWCdrvN//LxONrmk7N07zgPAevqDNZKKd72rL+sQc8z7srqMVioU9n ++oGEKg/gEdTZp81mIWe3A793ngd4dWqspUgWXpVe2Gsd6gG6gasbTWVZmCcY +Ff1NxQN6SgV69qqw8GWtZphyljtIs1uX5+ix8HaOV6jpUTco53eIEd7NQldv +J/7YQBdYL9iROsv1p7onW5e7u0C90LZL43tY6M2vyCm3doEX/xjcf+nCQitM +nRDQcYEJcaW/mR4sXJX68rEBjwuosGbClPaz0ClbYHtPsjOUrc8KNI1gYYq4 +ZuGNoD1Q7PnO5XQWC7eHG/zYae8E79JpdWcvsNCx1eT1U3ACkSY7iaxsFj4o +HebskHMCH5m3TYW5LGz9KGta+t0RlPpfKzdeYqFRpG7w3jOOUOLQ+nOqhIUS +Pud8f7c4QJl540m7OhbmmGswRLbbQ6Vm4fXVPdz3VCuR/DfbBixV21G2l4XZ +O1+5/4y3gUmFmTa5Dywcr1muPXHQBtRZ2yYU+1h4MqlYTcLMBiqEppXUB1l4 +/bFqp9q8NZT3Gl7ZOMbCar4bnExXayiLH0q3nmPhlM37P+06O6HovUxEPION +YPO8uXfldsj2N6sJYbLxMu1swgvB7XCGP2jKk8XGCOOFvGe/rSBY7aGXMcHG +8YnjmaPvrGBzjIu1sAwbdYvt6mvzrOCjUq5qgjIbbX227LmgbAUrwyT7k3TZ ++FiSZ4FuZgmxq0S2pNuxUXhCOWyTkzkQ76dbsuzZGCBWGVuqbw51OQMWeQ5s +3PDp9xZleXOYkr5nX+TExl4Ri/yAKTNwUfHfX+vMxpIbYl6Sp8yAMniT9sGL +jf6DomnV90zh975LA3KhbOw5Li5atc4EfBt0o2oy2WjRpCSS5G4EjgzZqpIs +NtLyfY2rLY3AJFR0IOcCG53/OkuPbzQCRc3BzbE5bDzT9zcwaYURDBeeFrK6 +yEb2u8dL0p9sgT1JfWdGi9joLtIbeE11C2zfFZfLvM1GkQOW1y8KGQJn9mVd +zBs2PtzQbjr82QDOr74qHfiWjSEerd1EtwFMm0acdO5iI3Ns0MOr2QBuZsvZ +6r1jY7Wi9zZWiQGoU+FT071s7KDd2yjjawAKUTKKPkNslNaaO3FmSh8kBUPS +LX+w0Sy9xiZHSB/ChZNu/ytM4N2+06k/yyk4qvVeLJlr/SyJIOIsBdF7FLzF +Rbj71y6Yu4dQcKr6AU3iHwKzZK4mr0cKMlx+hdGWEqh3//bU4td6cPOOs56M +OIGP2MqbFeY3woS35gMdGoEb8yqfiLttAOeWrmfuigSG7L5m/9efA0kPZMJ6 +uZZO1KoxcOJAXa2/go0SgUe6cyPPG3FgZanQcSNlAnnSjzAPsTjwLIFDKakQ +yD56dmLhuTasN8+o/KpOYLaR82lU0YYl7bbnwjgEBi7TFKLPrIOazje7k40I +jEhfPW3yQBNuu/OvXW5MoEUfU2hlpSbUftfkT+camqXrvuVowl3xlNILWwnc +k+r99F2oJjwwN/1daErgyvKMjwFrNeHF44aUexYEVhZXKVwtXAvD1UWPRm0J +dJgTEmjJ0gCJ9DAlQy8CNWYczSZ3qQFMXd3RwHV12JzEkIEa+GzrjNDxJvB3 +1OzfSXk1uC+g3qbiQ2By9fiE+ZQqHAgZOrjSl8Bj3qvEpU6owlM7y3sjftz9 +8/W5ozUqEEGXszwVQqBS6IHu/+TXwED+y0NtcQR+LPFaE2aoCE2uP3SM4gm8 +8TKyTkJdEUpkJBfqub7KuWR0X0oR/Iuc4spPELg5W5NuOakAcxUj6adPEZgy +mie6KVsBJBrma0yTuPPYcc864Jc8bOlVnHlyjltP6zqBhFo5KKFFH228QqCs +iWBvtb8MuATGexoUELhI/Nea0V0ysOpZouUjrqsmcorVTGUgPuK89NNCAqf+ +nRodl5UB949lTW1F3PPu/b3relYDs+Dtvx/LCNzQxtIcNl0NyeoqefM3CTyz +MvOZs7Y0hBh1Neg+JlDXT96qeAMBdvt7Fm5wvXjp58RqFQI4Z/v0VJoIbNji +Wt3KJmDmw+c69hNuPkniCslHwNHgPzV8zQT+KH7QcC2LDXEFUpUvnhO4NK90 +a89DFqTz7sp37SDwn3BD71XyTLjV0B95aoBbv5+VL7+KFOyLeDq4dJBARs54 +c46EFBA6FcYpXNtd1HlmNkeDU1URYhlDBLa9Oucx8YwGuwsk8wtGuPm/FnBL +z5cGggnmDY1fCHyVkD8xU7kK7GzuzE9/J3BIyLbI3UQSZseSw9z4SOzJCOS8 +uS0BXqL7Qwe5/rCEOdxVIAEdGlsPe/CTWFfZMjyWKgHlwYuCPQVIPOIfeMl4 +vwS48gQG7BMi0X2we1urtAS0LN/hdXAJiZzw+0ILycshS3eFTYwEiZt5e9XS +QpeBzolMjcsyJO7UTgwNOSwG7SFBcXRZEg2Hk9l7fMRgr6fF+7NcB+tj83Yn +MUjbwn88Vo5EMYHJhV0oBl/5Aro8FEj0lCjqWiwsBgVRxscU1pDYtC5x+SxH +FMTDfz2/pkmi0sib/UPnl8J/+629bhuQyKJpdRWfE4GdP5Z90t1EolWzUcxM +hAjUh7U73uO6/Zcqv6u7CKTFm1o82Eziz4+HdQ5pigBe1F//fAuJM13qjJJX +wpDeocLXZ0LiUONw84YVwrB5g0C+4A4SI2JFzgSWCEKeUM1bGzcS5U4dJATE ++UHL6eDV9v/7n9gn9Qt88LRCLcTEncQW0za9+DE+mLIpWkl5kMhXUeVi9JQP +NhdkWst6krgl8eiSmEg++E8/4vV3HxIDiu0Mer7zgma4fltyIIllK4JYdUOL +4cn4s6aWKBJ1zPxCD33nAYmrRzQMokms/u96g+AQDzg7q2Xf4foPR9Kw8A0P +zLxKDSiKITFSbWxAsJYH1ty2Z8QdJ7HXTWK7UxQPJEePBOifJNFWVk5UfxkP +2EnyMm8nk/gx0D7EO3SB+oy6BwvySJxNLiz1dp+lhFJeLJbPJ1E7zL9PynSW +Uux3TS3iemdijeeAxizlE5VwvfQiifwKKqtq/85Q4/d7vl6/zO03WKg8PHuG +mjI45lt/lUStxxu5/8gfam7zI4+3FSTSOO4tynt/U6Jbt9kJN5KYe8WpOrTu +J+Wwt18vmuuA9j7R2qKf1JWYoNWzXPPPFJ0WSf9JceqzJsbuk/j41/W69/4/ +KVfNkdj2h9x5P5ty1pP/Sd1iRl4//4TEV3rPJr+l/6Ccpq6LyLVx83tqIuph +1Heq6MKKewYfSHzRtx2Mor9RKUtpVc1cd+hahHgHfKPCjjGuWn7k9nuDHL7g +/I0yc1udsruPRKMDakoa8I2aVNLwCPtEYoFccDZ9fpLSqTVbWjVMIunc2fsp +fJJq6YrZRX4lMe7Qq4eFwl+pGybx24u4fmgZ21//ZYLKvnvKSG2SRN5ddfe/ +t05QB/JTNPS+kbiQGuN4I3WCWuaVx2//nUQpw4fTccwJyvFX7bXkX9x52Blq +enHGqc3e9Zckf5OYJN/9CBjjlOr7++dzuY5P7Ni3lmec4ml4GlX2h8ROlbWp +Xk/HqCtxb6yfzpIYm6zvt8JhjDr9u9vEYo7E/iH6uwfUGBXs0wtvuO4e1Tt9 +avUYZbxtUHFwnsS1KzI8vca/UBqNI6x9CySO9Jc6HX31hZJa+2X5FNf9x+rX +ldd8oXivTAiF/uXmLfxP96/sL9TYiqn5v1yLMHLVHaO/UP8DcvpebQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.13014785263571832`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.13014785263571832`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Xk0ld0XB3Bl9taLUrru9DwyyxTlUp69KZEhVGaVMUPKkMhQmaIiIQmZ +GsgUUlIUmhQlKoqiyNQrJJXK1O/+/jrrs85Z6+x99netQ7r6bfdYzMPDI7qI +h+f/65tcP7eNAjR0iHO0qihqhIrqaekQbRpeKFdUkC6+Bwc7vFYuCaJh3grP +FyIX78CmXXLhN6ppaDh39pZUYzXwPUh3UJimoclQyFtt7yoortuvY7xWCj30 +DDo+7a4AR3byybCDUrgr8ZU9S68EJiVp3baVUpiy4fWq+4xCCB7beXnxmBRu +Ldg3vSv/Eggr93xoWEPH+sA/xr6tuRC50ExT8KZjVu3P/w7dzITggTA+VR86 +zilvuCCbnwm+T5W/au6jI0NCrHsgIRPsUk8/gv10tCz48DbBLRPU5az8bAPo +aDc1PXlieSb0m3c9igul4/yzgGXqwRlgkDPsN3SSjtpvBhunDc8D70bepksl +dKxTVr98buk58BrLHb5cSsdR5c1ZP+fS4EW2rmBBGR113fWzXMbSIGs+wPhq +OR2TZi3O73qWBmsb+lpKq+gYL955a/BkGjgb1LfdrKUjk23JUhROg3vGod1N +LXRcOpj0xFbsLIRYfx0bHaWjQn9UUCOkgHr+iTvvvtDRekNrZtfaFBgdJeNa +xugY4h5Z8Uc2BZwid7JLJuj4kTct3WZJChiU3rHynqLjiSaVe2HdybB0Ueyt +kT90dFh4fd/zUDJcLlsVOSjEwCWs8ct7PM9AG6/B8g9yDGwWiKZVpSSCekS+ +4id5BtbcdDDSCkuE1B8LMKzAwLWilyOeuiaCzVCd74QSAwVunnwup5UIPU3r +mhZUGVhhbFh2520CfD6pGMrWZmC1IL1TRToBFomJf3Q2YuD4errn3MOToMno +KxnwZOAVM+WlZZx4+Ky6cf8bLwYOpfGQOXLxkKufodbszb2ft9DngkQ8CHla +3izfx8B18/kRDZNx0HO98V6oHwMtUlYWXymOg+NGF9tFQxgoVsl/8T0zDt4G +uk5viGPgMhm7wUbR4xDePKifdoWBfHNdWrmSMdAlLLDtQgEDVXIOHHMQjIH1 +JvIOlwoZyH8w4PPqX9Ew2eIdWFnEwH1FWl9730TD3ucTl56XMTD2vNbD8fRo +sGz7zctfzcAX0kFaQbRokO1c0nToMQPvRH0ZeScfBW19Wia2wwwU/1ttq9Z+ +FLLHMNF+hIEnLtqwpG8dBZ/fZi8cPzMwtE+pXzH7KPCJeWx3HmXgNjeSedjr +KHDgnIP3BAPjz9reXbr4KOTn/PQJn2bg3eAmBTGdIxDocCshT4CJNRpHUOhW +OKzo0G4dkWNiXVvsZMbnw7A+TL+uS56Js023Xj/oOAw2hGlxswITT7LqumYb +D0OG7+7jpUpMlJcwYF7IPAxS/Mf1/FSZaF78zf206WEg1r+6Nr2Oieyd48Xa +VSGglOGbxG/IRBEbrY0Op4KBcrposdqNiSOPN8gXugWBoLp/vII7E2mi626P +WAVBOy80qHgwUcFzXoaDQeBa2qPK8WTigM1WN35mEByfkfzXfB8T3VbWqVi+ +PQjPM5KeBx9kIn0TbSx720Gw7wzf2hLDxOI/vpsfGQVC0DabTQFXmHgr9Oa1 +cRd/SL4rLe9RwEQXff1P0Tv94ZrSVxH7Qia2qe2pljbyh2GBE6+wiImDJscl +o9f4g23DHRexMiaqvrXoOfLVD3TVmZEVN5honxcvuZPwA55lg3fHHzBxeevK +UiJlP5zuDFjv08/EnUH+HTxlPiAlqmhp/4mJog10s8B0Hyg07vM2HmAiFVJU +/CPSB+rrtuXIDTFxU+/8gLKND0xcVOYb+MzERveL066LfMDywNBLx0kmqu9Q +uf3ZwRuWCdrvN//LxONrmk7N07zgPAevqDNZKKd72rL+sQc8z7srqMVioU9n ++oGEKg/gEdTZp81mIWe3A793ngd4dWqspUgWXpVe2Gsd6gG6gasbTWVZmCcY +Ff1NxQN6SgV69qqw8GWtZphyljtIs1uX5+ix8HaOV6jpUTco53eIEd7NQldv +J/7YQBdYL9iROsv1p7onW5e7u0C90LZL43tY6M2vyCm3doEX/xjcf+nCQitM +nRDQcYEJcaW/mR4sXJX68rEBjwuosGbClPaz0ClbYHtPsjOUrc8KNI1gYYq4 +ZuGNoD1Q7PnO5XQWC7eHG/zYae8E79JpdWcvsNCx1eT1U3ACkSY7iaxsFj4o +HebskHMCH5m3TYW5LGz9KGta+t0RlPpfKzdeYqFRpG7w3jOOUOLQ+nOqhIUS +Pud8f7c4QJl540m7OhbmmGswRLbbQ6Vm4fXVPdz3VCuR/DfbBixV21G2l4XZ +O1+5/4y3gUmFmTa5Dywcr1muPXHQBtRZ2yYU+1h4MqlYTcLMBiqEppXUB1l4 +/bFqp9q8NZT3Gl7ZOMbCar4bnExXayiLH0q3nmPhlM37P+06O6HovUxEPION +YPO8uXfldsj2N6sJYbLxMu1swgvB7XCGP2jKk8XGCOOFvGe/rSBY7aGXMcHG +8YnjmaPvrGBzjIu1sAwbdYvt6mvzrOCjUq5qgjIbbX227LmgbAUrwyT7k3TZ ++FiSZ4FuZgmxq0S2pNuxUXhCOWyTkzkQ76dbsuzZGCBWGVuqbw51OQMWeQ5s +3PDp9xZleXOYkr5nX+TExl4Ri/yAKTNwUfHfX+vMxpIbYl6Sp8yAMniT9sGL +jf6DomnV90zh975LA3KhbOw5Li5atc4EfBt0o2oy2WjRpCSS5G4EjgzZqpIs +NtLyfY2rLY3AJFR0IOcCG53/OkuPbzQCRc3BzbE5bDzT9zcwaYURDBeeFrK6 +yEb2u8dL0p9sgT1JfWdGi9joLtIbeE11C2zfFZfLvM1GkQOW1y8KGQJn9mVd +zBs2PtzQbjr82QDOr74qHfiWjSEerd1EtwFMm0acdO5iI3Ns0MOr2QBuZsvZ +6r1jY7Wi9zZWiQGoU+FT071s7KDd2yjjawAKUTKKPkNslNaaO3FmSh8kBUPS +LX+w0Sy9xiZHSB/ChZNu/ytM4N2+06k/yyk4qvVeLJlr/SyJIOIsBdF7FLzF +Rbj71y6Yu4dQcKr6AU3iHwKzZK4mr0cKMlx+hdGWEqh3//bU4td6cPOOs56M +OIGP2MqbFeY3woS35gMdGoEb8yqfiLttAOeWrmfuigSG7L5m/9efA0kPZMJ6 +uZZO1KoxcOJAXa2/go0SgUe6cyPPG3FgZanQcSNlAnnSjzAPsTjwLIFDKakQ +yD56dmLhuTasN8+o/KpOYLaR82lU0YYl7bbnwjgEBi7TFKLPrIOazje7k40I +jEhfPW3yQBNuu/OvXW5MoEUfU2hlpSbUftfkT+camqXrvuVowl3xlNILWwnc +k+r99F2oJjwwN/1daErgyvKMjwFrNeHF44aUexYEVhZXKVwtXAvD1UWPRm0J +dJgTEmjJ0gCJ9DAlQy8CNWYczSZ3qQFMXd3RwHV12JzEkIEa+GzrjNDxJvB3 +1OzfSXk1uC+g3qbiQ2By9fiE+ZQqHAgZOrjSl8Bj3qvEpU6owlM7y3sjftz9 +8/W5ozUqEEGXszwVQqBS6IHu/+TXwED+y0NtcQR+LPFaE2aoCE2uP3SM4gm8 +8TKyTkJdEUpkJBfqub7KuWR0X0oR/Iuc4spPELg5W5NuOakAcxUj6adPEZgy +mie6KVsBJBrma0yTuPPYcc864Jc8bOlVnHlyjltP6zqBhFo5KKFFH228QqCs +iWBvtb8MuATGexoUELhI/Nea0V0ysOpZouUjrqsmcorVTGUgPuK89NNCAqf+ +nRodl5UB949lTW1F3PPu/b3relYDs+Dtvx/LCNzQxtIcNl0NyeoqefM3CTyz +MvOZs7Y0hBh1Neg+JlDXT96qeAMBdvt7Fm5wvXjp58RqFQI4Z/v0VJoIbNji +Wt3KJmDmw+c69hNuPkniCslHwNHgPzV8zQT+KH7QcC2LDXEFUpUvnhO4NK90 +a89DFqTz7sp37SDwn3BD71XyTLjV0B95aoBbv5+VL7+KFOyLeDq4dJBARs54 +c46EFBA6FcYpXNtd1HlmNkeDU1URYhlDBLa9Oucx8YwGuwsk8wtGuPm/FnBL +z5cGggnmDY1fCHyVkD8xU7kK7GzuzE9/J3BIyLbI3UQSZseSw9z4SOzJCOS8 +uS0BXqL7Qwe5/rCEOdxVIAEdGlsPe/CTWFfZMjyWKgHlwYuCPQVIPOIfeMl4 +vwS48gQG7BMi0X2we1urtAS0LN/hdXAJiZzw+0ILycshS3eFTYwEiZt5e9XS +QpeBzolMjcsyJO7UTgwNOSwG7SFBcXRZEg2Hk9l7fMRgr6fF+7NcB+tj83Yn +MUjbwn88Vo5EMYHJhV0oBl/5Aro8FEj0lCjqWiwsBgVRxscU1pDYtC5x+SxH +FMTDfz2/pkmi0sib/UPnl8J/+629bhuQyKJpdRWfE4GdP5Z90t1EolWzUcxM +hAjUh7U73uO6/Zcqv6u7CKTFm1o82Eziz4+HdQ5pigBe1F//fAuJM13qjJJX +wpDeocLXZ0LiUONw84YVwrB5g0C+4A4SI2JFzgSWCEKeUM1bGzcS5U4dJATE ++UHL6eDV9v/7n9gn9Qt88LRCLcTEncQW0za9+DE+mLIpWkl5kMhXUeVi9JQP +NhdkWst6krgl8eiSmEg++E8/4vV3HxIDiu0Mer7zgma4fltyIIllK4JYdUOL +4cn4s6aWKBJ1zPxCD33nAYmrRzQMokms/u96g+AQDzg7q2Xf4foPR9Kw8A0P +zLxKDSiKITFSbWxAsJYH1ty2Z8QdJ7HXTWK7UxQPJEePBOifJNFWVk5UfxkP +2EnyMm8nk/gx0D7EO3SB+oy6BwvySJxNLiz1dp+lhFJeLJbPJ1E7zL9PynSW +Uux3TS3iemdijeeAxizlE5VwvfQiifwKKqtq/85Q4/d7vl6/zO03WKg8PHuG +mjI45lt/lUStxxu5/8gfam7zI4+3FSTSOO4tynt/U6Jbt9kJN5KYe8WpOrTu +J+Wwt18vmuuA9j7R2qKf1JWYoNWzXPPPFJ0WSf9JceqzJsbuk/j41/W69/4/ +KVfNkdj2h9x5P5ty1pP/Sd1iRl4//4TEV3rPJr+l/6Ccpq6LyLVx83tqIuph +1Heq6MKKewYfSHzRtx2Mor9RKUtpVc1cd+hahHgHfKPCjjGuWn7k9nuDHL7g +/I0yc1udsruPRKMDakoa8I2aVNLwCPtEYoFccDZ9fpLSqTVbWjVMIunc2fsp +fJJq6YrZRX4lMe7Qq4eFwl+pGybx24u4fmgZ21//ZYLKvnvKSG2SRN5ddfe/ +t05QB/JTNPS+kbiQGuN4I3WCWuaVx2//nUQpw4fTccwJyvFX7bXkX9x52Blq +enHGqc3e9Zckf5OYJN/9CBjjlOr7++dzuY5P7Ni3lmec4ml4GlX2h8ROlbWp +Xk/HqCtxb6yfzpIYm6zvt8JhjDr9u9vEYo7E/iH6uwfUGBXs0wtvuO4e1Tt9 +avUYZbxtUHFwnsS1KzI8vca/UBqNI6x9CySO9Jc6HX31hZJa+2X5FNf9x+rX +ldd8oXivTAiF/uXmLfxP96/sL9TYiqn5v1yLMHLVHaO/UP8DcvpebQ== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.13014785263571832`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.13014785263571832`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.9931369783634567`*^9, + 3.9931369880302134`*^9}}, + CellLabel->"Out[30]=",ExpressionUUID->"f9c2be19-758b-42a5-9eca-3f0d8364cec2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992520003015276*^9, + 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ +40714b1d68e9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925200045686483`*^9, + 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ +0db8ce2e2f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.645, $CellContext`xmax$$ = + 9.18, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.44, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {105.10417287785266`, 110.72917287785266`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {194.01979787785268`, 199.64479787785268`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 11, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9924899121466837`*^9}, + CellLabel->"",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 12, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99248991233014*^9}, + CellLabel->"",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], + +Cell["\<\ +Show::gcomb: Could not combine the graphics objects in + Show[l1111, -Graphics-, PlotRange -> {{6, 13}, {0, 0.15}}].\ +\>", "Message", "MSG", + CellChangeTimes->{3.992520011711594*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[List[List[], List[], TagBox[List[Skeleton[2]], \ +Function[Annotation[Slot[1], \\\"Charting`Private`Tag#1\\\"]]]]], List[]], \ +List[Rule[DisplayFunction, Identity], Rule[DisplayFunction, Identity], \ +Rule[Ticks, List[Automatic, Automatic]], Rule[AxesOrigin, \ +List[6.000000000000013`, 0]], Rule[FrameTicks, List[List[Automatic, \ +Automatic], List[Automatic, Automatic]]], Rule[GridLines, List[None, None]], \ +Rule[DisplayFunction, Identity], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.05`], \ +Scaled[0.05`]]]], Rule[PlotRangeClipping, True], Rule[ImagePadding, All], \ +Rule[DisplayFunction, Identity], Rule[AspectRatio, NCache[Power[GoldenRatio, \ +-1], 0.6180339887498948`]], Rule[Axes, List[True, True]], Rule[AxesLabel, \ +List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, \ +0.15715155002348313`]]], Rule[PlotRangeClipping, True], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.02`], Scaled[0.02`]]]], Rule[Ticks, List[Automatic, \ +Automatic]]]], \\\",\\\", RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", \ +RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \ +\\\"13\\\"}], \\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \ +\\\",\\\", \\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \ +\\\"]\\\"}]\\).\"", 2, 27, 2, 25986024834078126473, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.993136950193988*^9}, + CellLabel->"",ExpressionUUID->"b02efda1-10ee-4dea-b317-962c17829e26"] +}, Open ]] +}, +WindowSize->{714, 258}, +WindowMargins->{{-3, Automatic}, {267, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"9e56239a-9159-4b4b-aa5a-be0b4c996476"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 885, 25, 71, "Output",ExpressionUUID->"05eab051-e0eb-4dc8-9e62-800d7ac4c4e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4903, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6371, 204, 2581, 75, 149, "Output",ExpressionUUID->"8c2b0e4c-6a11-40c7-b548-20463088f810"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8989, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10672, 334, 2780, 81, 149, "Output",ExpressionUUID->"8638c08d-182a-4f6f-a6da-915eade9eda0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13489, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15335, 475, 3720, 109, 158, "Output",ExpressionUUID->"46b6e0ea-7a54-45b4-8734-a0be60964e4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19092, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21175, 650, 4787, 138, 193, "Output",ExpressionUUID->"45e2cf2d-a7e1-4a7d-b2f1-cbba5f313d38"] +}, Open ]], +Cell[25977, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26150, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26501, 804, 303, 5, 33, "Output",ExpressionUUID->"c70b3868-2b50-44ea-9b32-45fb1cb52e8e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26841, 814, 327, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27171, 822, 303, 5, 33, "Output",ExpressionUUID->"ccd705d2-12f2-40a0-9977-adea18e75e22"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27511, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27690, 837, 275, 4, 33, "Output",ExpressionUUID->"84f57037-2b77-4dd6-abe6-268cb71b2366"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28002, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28263, 855, 275, 4, 33, "Output",ExpressionUUID->"f79d7a0e-ada6-46f5-b0e7-b5e3b7f03bea"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28575, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28710, 868, 279, 4, 33, "Output",ExpressionUUID->"80b38504-e7b0-4764-a619-5dafe797e62a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29026, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29306, 885, 290, 4, 33, "Output",ExpressionUUID->"30018de3-3ad0-4afc-9b61-3fdd8e68e549"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29633, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29894, 903, 287, 4, 33, "Output",ExpressionUUID->"fd937982-4dda-44f8-988f-9b1b8a8e56a5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30218, 912, 355, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30576, 920, 163, 2, 33, "Output",ExpressionUUID->"3759fa57-1ee9-4e02-a6ca-ab876caa8161"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30776, 927, 361, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31140, 935, 163, 2, 33, "Output",ExpressionUUID->"d9aa5676-4926-4bc4-a85e-5afcfdae9e68"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31340, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31472, 946, 275, 4, 33, "Output",ExpressionUUID->"32456e3c-ea36-48aa-ba09-32dcbdfbfd19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31784, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31916, 959, 272, 4, 33, "Output",ExpressionUUID->"763ce38b-39f6-453e-87dd-ca6fc9991994"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32225, 968, 2013, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34241, 1021, 11349, 233, 236, "Output",ExpressionUUID->"c63dbf0b-7c03-4b7e-816a-e62e59a9433c"] +}, Open ]], +Cell[45605, 1257, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[45758, 1264, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[48037, 1325, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[48413, 1337, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[50584, 1397, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[50918, 1409, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[51223, 1416, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[51463, 1424, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[51773, 1431, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[52023, 1438, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[54547, 1503, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[54702, 1508, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[54866, 1513, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[55047, 1520, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[57605, 1593, 3501, 67, 420, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[61143, 1665, 968, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[62114, 1694, 28331, 512, 236, "Output",ExpressionUUID->"de230318-c861-4cbe-9f2c-fe07c071d3d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[90482, 2211, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[92848, 2274, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93199, 2285, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[93428, 2291, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[93640, 2298, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[93895, 2304, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[94087, 2309, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[95071, 2337, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], +Cell[95225, 2342, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[95391, 2347, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], +Cell[CellGroupData[{ +Cell[95568, 2354, 2624, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[98195, 2428, 3575, 68, 418, "Output",ExpressionUUID->"44910192-065f-4ab2-9ddc-2450041e3ab7"] +}, Open ]], +Cell[101785, 2499, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[102048, 2507, 839, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[102890, 2532, 10814, 224, 229, "Output",ExpressionUUID->"911ee8f6-fbb5-49ca-b5a6-9aae6a452dc5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[113741, 2761, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[115906, 2820, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[116743, 2837, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117097, 2848, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[117350, 2854, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[117564, 2861, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[117816, 2867, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[118010, 2872, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[120573, 2938, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[120728, 2943, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[120896, 2948, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[121073, 2955, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[123604, 3028, 3531, 67, 420, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[127172, 3100, 916, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[128091, 3127, 23266, 428, 232, "Output",ExpressionUUID->"f9c2be19-758b-42a5-9eca-3f0d8364cec2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[151394, 3560, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[153730, 3622, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154084, 3633, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[154338, 3639, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[154554, 3646, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[154809, 3652, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[155001, 3657, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[157848, 3731, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], +Cell[158003, 3736, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[158210, 3742, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], +Cell[CellGroupData[{ +Cell[158389, 3749, 2580, 72, 247, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[160972, 3823, 3530, 67, 410, "Output",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], +Cell[164505, 3892, 2324, 36, 54, "Message",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], +Cell[166832, 3930, 2321, 36, 54, "Message",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], +Cell[169156, 3968, 299, 7, 36, "Message",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"], +Cell[169458, 3977, 2451, 38, 61, "Message",ExpressionUUID->"b02efda1-10ee-4dea-b317-962c17829e26"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/rename.zsh b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/168-72_h_Pu240_22-23/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done 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 new file mode 100644 index 0000000..b66829d --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw1.nb @@ -0,0 +1,9355 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399174, 9347] +NotebookOptionsPosition[ 375132, 8983] +NotebookOutlinePosition[ 375544, 9000] +CellTagsIndexPosition[ 375501, 8997] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.991849227197853*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.9918492290557346`*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_фитирование.nb b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_фитирование.nb new file mode 100644 index 0000000..3a2280c --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/h_170-70_Pu240_24-25_фитирование.nb @@ -0,0 +1,4311 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 188600, 4303] +NotebookOptionsPosition[ 177520, 4114] +NotebookOutlinePosition[ 177934, 4131] +CellTagsIndexPosition[ 177891, 4128] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.993137180230947*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"33be354e-84f4-4efe-87ba-d2fb0bcd67c6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.9931371805722933`*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"a74a2b01-4537-4817-8475-0b13e3fe6245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.993137180596633*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"441d72d5-c433-4b73-ae91-40e8419dd84a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.993137180620927*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"2fccd1c8-86de-4c49-9faa-944bc2cebd4e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.9931371806481524`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"96789b1f-9781-4fd9-b160-fab669466c13"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.993137180675441*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"a371c1a7-b16c-4565-99d1-97590c677e4f"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.9931371807061243`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2d3dade8-9c57-4b85-bfef-68b164df11d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "170"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.99313714637086*^9, + 3.993137149079691*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["170"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.993137180731894*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"620498f3-e9c3-46c3-8490-a79989b3a94c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.9931371807578*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"56f3cbc9-6321-4621-85c6-86038cdd9531"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5437500000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.99313718078305*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"88305145-44f2-49a9-a1a5-02d5d2d5d14d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.993137180808909*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"2f9bf783-8ea4-409f-9c9a-3151ab23b337"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.426003577835178`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.9931371808127527`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"bab37ad1-bde3-4e2f-839b-c5d4757be83c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.7806909477779245`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.9931371808398314`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"355016e2-7ac5-465c-a9b0-5649762946e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.8747255229"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, 3.9931371633684998`*^9}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.8747255229`"], "Output", + CellChangeTimes->{3.99313718086483*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"f61515e6-5b1f-4f40-80bc-6672ba0d13b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3882072479"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, 3.993137167447055*^9}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.3882072479`"], "Output", + CellChangeTimes->{3.993137180890196*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"8d2bb818-afec-457e-b54a-cbfd06daa187"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.993137180916029*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"b684021c-3da4-4d0a-ae55-45d52e3acf93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.993137180941429*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"4210eba2-5a67-4840-b084-7f9b92a76860"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.993137172238916*^9, 3.993137173911516*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVknk8lAsXxy2lkiQ3S2mZwczzPIkrcivinOqGbuRFWlQaJvu+3GtoiDJZ +4soueVFESIVkKSpTdm7pWlqRqMQUIibxzvvH+ZzP95/f8jmH7uBt5SghJiZ2 +RTT/3/TzHpJiYjR0XN0c9mKfAKTsaySaRbzqVvjGUlMBjBoslUgUp6E1V1U8 +ykQAVeO5YuqSNCzMD7ygu1cA/znx6qeJFA112t/fDkcBhG79YyZehoZN4d8G +Zn8TwKt3xNjGNTTkdxcJDqkJIAUGu0GHhrtre1qKZ8egjulVXu1Cw4NBhkke +SWMgjO44lXaZhoG9xhJxamOwyWJNwZ/tNGQ4FepF543Cyt2ciThJOnbstNZk +Lh6FJaU35KV/o6Nbp3oa0/Yz3DGfMnjoQcdAE7e53PMjYGNGTv91lY5mZ4r1 +5zM+wbJGbV7Cv3T8V07ZLPDaR/DzNl8/LK2KMVdTzM3PfABBEsRkGapi43jT +vWTrYbBbuy7qsLcqtu2MX7BQHoJzHTLxf1xTxVt1ISotJYNwb77T7UqPKvaY +y7pVm72D68dLLHRk1fCvlKvruvn9ELXO7wl/jxqyhUMzCiFvgXtERq76TzXc +5rgieuLGK2DU17A/FqvhIp0jpF95LwwUGMWefquG6kVcu/5l3WB1r7vWVEEd +7+Y2pJlbPoe72kfDFPer40aXOMm4nqegqVqqZBqijgZVMl+0/Nvh6K71VeXl +6rj3YesdTbNmSH9tp3luWB3XVfSX2Xc9gdYXMbrWygws4mxOYD2th/JFrbtP +HGCghu26Lp3+B3CzuJ/ZGsZAmYEEb/et98AuTHq1fyUDb000+p3ougsSlRsS +VcYYuJ5bKNykUQ7VrkuHiI1MfO4Ts7fH6DYw/pDa5WXDxB+LVx99oFwMefkv +fJWjmGhiXH83qCsflBzTdPnVTJwYk98+YJILYOk6X/CFidpW12Sll+RAv+AD +zfcrE7cNhfHHvmdDWKzTHv1xJrpGTu3oHsiG+kZ2VNsEE30PVfg9r8gGYyM7 ++fEpJkovPy4fapcNBzSsmfpzTBQsd5SLLcuC44sND7QtJfBFu5mOmeN/Ibha +LusrnUAz43sdf05mQGdB+fUWVQJXFejkavRlwKbUQ+V5agRumpw4+LUlA174 +ZTYdYRC4w82QyL+aAds3k5MPSQJtrr92qbfKgOksME34lcDqQ8Hn7lRcAr8I +r4kthgSm6r/z2nE+Hdws2oz9jxCYskHL/4ZFKpQl1fcbHSWww7TdaARSQdhT +FSxtS2CYY/mojnYqxLCu3bxyjMCDrOLO93KpUOQbqvjUjkBzq7SF5s4U+Jyk +PbzZkcBul4slSUdSwKM3mTfsS2BwX1/FpHsyeNqfeHz0AoGJs99LvW4nwk6L +NBY9lkDXt0uzfHMTQcbw2dxHESuigVNIaiLcUN6rx/mbwKeXmvxvcRNh9J/N ++akJovx51wa4+xLBzWgu8nkagfO8hkVV7xPAReXyfvM8Atu0LBci6QnA7urt +xFoCk5qsP913ioeRX7YdXlNH4NW2s6ULB+LBxyrl1biIF/UNqx/cFg+h/1i+ +v/qQwIwp15dblsZDenPL1KLHovwXfqx/UPQ3dNTeV25uIXDQaYWc4mQcbM/P +sbPsJfDJLp3MkxdjQTbQZcR+ksDWRJfXrcJo4C1fO6/xjcBy2bCtbh+jYS67 +ddW0iGceBrAVuqNhpElrR8w0gQXBMmqJpdHQsHYqsmxWpBfRrqfuGg2hdeEM +STES/16brJr7MgrGFl9m5cmQKO40LfasIRLaktu7hxkkxpkxLzLqeSAMyu18 +xCQxNdP0pFcpD8iTQR2ZBIkHDta/4+fw4BzFaLCiSPTwEfYnn+GBfh23om4z +iSr/Xi9vN+RB4QeN5FRdEt8mqyQk3o+A8/oxlsa7SPyhIsWl+OcA+o3brh0n +UbJS5WDuRDh882K1cE+QyLDoNftlKByKfgY1WduR2BWs7xXXEw6KKiWPxVkk ++m6XW5FzPxxGbX6pPcEm8XHmis+GkeGQ3tpXouBGYqHcQLXNhnCYuMuJ5wWS +2Ogia8S3DoP8uCIrx0QS09v27WDeCQEzP6V+zSQSjUNv/a6ZHQIThyI8p0Wc +88pack9MCBjR7KIiU0T9yvm+GawQ6CpbVVeYTqLQtHDm+4oQWNTLoQRZory9 +I19OuXOBrWoiFlhM4htv1c+PtE8DrXKwJOoxia5WqmzOIAdCRgPUHJ6QaKfV +cMjxKQde0qUuGTSQqLlXvJNVy4GkWDJC0EjiaskLuufSOCDl4Gl7sJXE3Qnt +fgFmHBiV+S5F6xT5H1M6vVAVCFUO0qzKPhJPLtda7ZX5F1jIbpEfForutcpY +KygmADIvKSiV/iBxNtznWP3pABhRF6pw50gUu+GwWNEzACIM+Az5eRInfKTL +XlsEQJWLzQ4jcQrPEKdzhhUCgMYPYqUuofBH+mr/4Vx/+BpYf9N4NYWM28vn +2Y1+kDBgvb9Ak0KjEXKye5MvOClyrby0KKy+WLu0YYMv6O/PO6r3K4W3ck0u +1sr7wvs735z52hQOsDvePBH6wPaolIg+XRGP8v7Rb/WBt1o9tUr6FM7KJYuX +evrAZq6tdpQxhd0UR/mArzc0KtoruJ6k8ENoxbR8qwdYZZYs2sWi8OThn9/W +VnjAW7pwUtmeQsVMKNDN9oDpzUmdTQ4U6u0ym0r19wD1PU/iSScKo7oe9Kqt +94Cz3pT0Rw8KV/1qNrTf3x12No3POwVTOLjSSC9Mww3Kgs5+PJVCYY65Z+KX +JmfQslF11kqlcN+zCeeflc5QpF0/9F3ERlOWJkoFznD1g/hgTDqFGvE54t48 +Z0i0CX9z+zKFlinvAkt2O4PflrDOuSsU7k47vObkAyfY8inkfvJNCouLFp4d +e+QIt48EXXzcSOH1s8IQiWE26D2iQq81URgpYdmp2c2GGuql+/lmCt8tWVnp +2MAGvlDfxLSVwmkNZekf+Wzozpz72dpBIa/fs77GhQ1z/Wfcn3eJ+rAfT/EE +DmDqet743aBI32embqmkA7Q/+20r/z2FJfdig8q/2YOV/gd63hCFNgupKa7D +9nBsuelPxw8UxrQodXxvtgevkmV3Po1Q6B6YaXw5wR6Sx2Pp4+Oi+55ac3la +1R7W2Bqu7JygMP98xe/WCvaQVT82VzYpyvtDkV+zxB4Kkg70BkxRuEViTKVo +lAU1enLxMzMU0jhlFssqWWCU9ZD7YpbC0n7F0nuFLOBL+brVCCmcdwrI5WSy +oK3n2V7unMj/dNka+bMssMSzuid+iv4TvsQKAljQfV2HbjRPYQHvjXeXMwts +Vw3Kblyg8L+3DWoabFnQF5Q0tyDi3OwOdr05C/4HilGcew== + "]]}, + 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:eJwVknk8lAsXxy2lkiQ3S2mZwczzPIkrcivinOqGbuRFWlQaJvu+3GtoiDJZ +4soueVFESIVkKSpTdm7pWlqRqMQUIibxzvvH+ZzP95/f8jmH7uBt5SghJiZ2 +RTT/3/TzHpJiYjR0XN0c9mKfAKTsaySaRbzqVvjGUlMBjBoslUgUp6E1V1U8 +ykQAVeO5YuqSNCzMD7ygu1cA/znx6qeJFA112t/fDkcBhG79YyZehoZN4d8G +Zn8TwKt3xNjGNTTkdxcJDqkJIAUGu0GHhrtre1qKZ8egjulVXu1Cw4NBhkke +SWMgjO44lXaZhoG9xhJxamOwyWJNwZ/tNGQ4FepF543Cyt2ciThJOnbstNZk +Lh6FJaU35KV/o6Nbp3oa0/Yz3DGfMnjoQcdAE7e53PMjYGNGTv91lY5mZ4r1 +5zM+wbJGbV7Cv3T8V07ZLPDaR/DzNl8/LK2KMVdTzM3PfABBEsRkGapi43jT +vWTrYbBbuy7qsLcqtu2MX7BQHoJzHTLxf1xTxVt1ISotJYNwb77T7UqPKvaY +y7pVm72D68dLLHRk1fCvlKvruvn9ELXO7wl/jxqyhUMzCiFvgXtERq76TzXc +5rgieuLGK2DU17A/FqvhIp0jpF95LwwUGMWefquG6kVcu/5l3WB1r7vWVEEd +7+Y2pJlbPoe72kfDFPer40aXOMm4nqegqVqqZBqijgZVMl+0/Nvh6K71VeXl +6rj3YesdTbNmSH9tp3luWB3XVfSX2Xc9gdYXMbrWygws4mxOYD2th/JFrbtP +HGCghu26Lp3+B3CzuJ/ZGsZAmYEEb/et98AuTHq1fyUDb000+p3ougsSlRsS +VcYYuJ5bKNykUQ7VrkuHiI1MfO4Ts7fH6DYw/pDa5WXDxB+LVx99oFwMefkv +fJWjmGhiXH83qCsflBzTdPnVTJwYk98+YJILYOk6X/CFidpW12Sll+RAv+AD +zfcrE7cNhfHHvmdDWKzTHv1xJrpGTu3oHsiG+kZ2VNsEE30PVfg9r8gGYyM7 ++fEpJkovPy4fapcNBzSsmfpzTBQsd5SLLcuC44sND7QtJfBFu5mOmeN/Ibha +LusrnUAz43sdf05mQGdB+fUWVQJXFejkavRlwKbUQ+V5agRumpw4+LUlA174 +ZTYdYRC4w82QyL+aAds3k5MPSQJtrr92qbfKgOksME34lcDqQ8Hn7lRcAr8I +r4kthgSm6r/z2nE+Hdws2oz9jxCYskHL/4ZFKpQl1fcbHSWww7TdaARSQdhT +FSxtS2CYY/mojnYqxLCu3bxyjMCDrOLO93KpUOQbqvjUjkBzq7SF5s4U+Jyk +PbzZkcBul4slSUdSwKM3mTfsS2BwX1/FpHsyeNqfeHz0AoGJs99LvW4nwk6L +NBY9lkDXt0uzfHMTQcbw2dxHESuigVNIaiLcUN6rx/mbwKeXmvxvcRNh9J/N ++akJovx51wa4+xLBzWgu8nkagfO8hkVV7xPAReXyfvM8Atu0LBci6QnA7urt +xFoCk5qsP913ioeRX7YdXlNH4NW2s6ULB+LBxyrl1biIF/UNqx/cFg+h/1i+ +v/qQwIwp15dblsZDenPL1KLHovwXfqx/UPQ3dNTeV25uIXDQaYWc4mQcbM/P +sbPsJfDJLp3MkxdjQTbQZcR+ksDWRJfXrcJo4C1fO6/xjcBy2bCtbh+jYS67 +ddW0iGceBrAVuqNhpElrR8w0gQXBMmqJpdHQsHYqsmxWpBfRrqfuGg2hdeEM +STES/16brJr7MgrGFl9m5cmQKO40LfasIRLaktu7hxkkxpkxLzLqeSAMyu18 +xCQxNdP0pFcpD8iTQR2ZBIkHDta/4+fw4BzFaLCiSPTwEfYnn+GBfh23om4z +iSr/Xi9vN+RB4QeN5FRdEt8mqyQk3o+A8/oxlsa7SPyhIsWl+OcA+o3brh0n +UbJS5WDuRDh882K1cE+QyLDoNftlKByKfgY1WduR2BWs7xXXEw6KKiWPxVkk ++m6XW5FzPxxGbX6pPcEm8XHmis+GkeGQ3tpXouBGYqHcQLXNhnCYuMuJ5wWS +2Ogia8S3DoP8uCIrx0QS09v27WDeCQEzP6V+zSQSjUNv/a6ZHQIThyI8p0Wc +88pack9MCBjR7KIiU0T9yvm+GawQ6CpbVVeYTqLQtHDm+4oQWNTLoQRZory9 +I19OuXOBrWoiFlhM4htv1c+PtE8DrXKwJOoxia5WqmzOIAdCRgPUHJ6QaKfV +cMjxKQde0qUuGTSQqLlXvJNVy4GkWDJC0EjiaskLuufSOCDl4Gl7sJXE3Qnt +fgFmHBiV+S5F6xT5H1M6vVAVCFUO0qzKPhJPLtda7ZX5F1jIbpEfForutcpY +KygmADIvKSiV/iBxNtznWP3pABhRF6pw50gUu+GwWNEzACIM+Az5eRInfKTL +XlsEQJWLzQ4jcQrPEKdzhhUCgMYPYqUuofBH+mr/4Vx/+BpYf9N4NYWM28vn +2Y1+kDBgvb9Ak0KjEXKye5MvOClyrby0KKy+WLu0YYMv6O/PO6r3K4W3ck0u +1sr7wvs735z52hQOsDvePBH6wPaolIg+XRGP8v7Rb/WBt1o9tUr6FM7KJYuX +evrAZq6tdpQxhd0UR/mArzc0KtoruJ6k8ENoxbR8qwdYZZYs2sWi8OThn9/W +VnjAW7pwUtmeQsVMKNDN9oDpzUmdTQ4U6u0ym0r19wD1PU/iSScKo7oe9Kqt +94Cz3pT0Rw8KV/1qNrTf3x12No3POwVTOLjSSC9Mww3Kgs5+PJVCYY65Z+KX +JmfQslF11kqlcN+zCeeflc5QpF0/9F3ERlOWJkoFznD1g/hgTDqFGvE54t48 +Z0i0CX9z+zKFlinvAkt2O4PflrDOuSsU7k47vObkAyfY8inkfvJNCouLFp4d +e+QIt48EXXzcSOH1s8IQiWE26D2iQq81URgpYdmp2c2GGuql+/lmCt8tWVnp +2MAGvlDfxLSVwmkNZekf+Wzozpz72dpBIa/fs77GhQ1z/Wfcn3eJ+rAfT/EE +DmDqet743aBI32embqmkA7Q/+20r/z2FJfdig8q/2YOV/gd63hCFNgupKa7D +9nBsuelPxw8UxrQodXxvtgevkmV3Po1Q6B6YaXw5wR6Sx2Pp4+Oi+55ac3la +1R7W2Bqu7JygMP98xe/WCvaQVT82VzYpyvtDkV+zxB4Kkg70BkxRuEViTKVo +lAU1enLxMzMU0jhlFssqWWCU9ZD7YpbC0n7F0nuFLOBL+brVCCmcdwrI5WSy +oK3n2V7unMj/dNka+bMssMSzuid+iv4TvsQKAljQfV2HbjRPYQHvjXeXMwts +Vw3Kblyg8L+3DWoabFnQF5Q0tyDi3OwOdr05C/4HilGcew== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9465148463574563}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9465148463574563}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVknk8lAsXxy2lkiQ3S2mZwczzPIkrcivinOqGbuRFWlQaJvu+3GtoiDJZ +4soueVFESIVkKSpTdm7pWlqRqMQUIibxzvvH+ZzP95/f8jmH7uBt5SghJiZ2 +RTT/3/TzHpJiYjR0XN0c9mKfAKTsaySaRbzqVvjGUlMBjBoslUgUp6E1V1U8 +ykQAVeO5YuqSNCzMD7ygu1cA/znx6qeJFA112t/fDkcBhG79YyZehoZN4d8G +Zn8TwKt3xNjGNTTkdxcJDqkJIAUGu0GHhrtre1qKZ8egjulVXu1Cw4NBhkke +SWMgjO44lXaZhoG9xhJxamOwyWJNwZ/tNGQ4FepF543Cyt2ciThJOnbstNZk +Lh6FJaU35KV/o6Nbp3oa0/Yz3DGfMnjoQcdAE7e53PMjYGNGTv91lY5mZ4r1 +5zM+wbJGbV7Cv3T8V07ZLPDaR/DzNl8/LK2KMVdTzM3PfABBEsRkGapi43jT +vWTrYbBbuy7qsLcqtu2MX7BQHoJzHTLxf1xTxVt1ISotJYNwb77T7UqPKvaY +y7pVm72D68dLLHRk1fCvlKvruvn9ELXO7wl/jxqyhUMzCiFvgXtERq76TzXc +5rgieuLGK2DU17A/FqvhIp0jpF95LwwUGMWefquG6kVcu/5l3WB1r7vWVEEd +7+Y2pJlbPoe72kfDFPer40aXOMm4nqegqVqqZBqijgZVMl+0/Nvh6K71VeXl +6rj3YesdTbNmSH9tp3luWB3XVfSX2Xc9gdYXMbrWygws4mxOYD2th/JFrbtP +HGCghu26Lp3+B3CzuJ/ZGsZAmYEEb/et98AuTHq1fyUDb000+p3ougsSlRsS +VcYYuJ5bKNykUQ7VrkuHiI1MfO4Ts7fH6DYw/pDa5WXDxB+LVx99oFwMefkv +fJWjmGhiXH83qCsflBzTdPnVTJwYk98+YJILYOk6X/CFidpW12Sll+RAv+AD +zfcrE7cNhfHHvmdDWKzTHv1xJrpGTu3oHsiG+kZ2VNsEE30PVfg9r8gGYyM7 ++fEpJkovPy4fapcNBzSsmfpzTBQsd5SLLcuC44sND7QtJfBFu5mOmeN/Ibha +LusrnUAz43sdf05mQGdB+fUWVQJXFejkavRlwKbUQ+V5agRumpw4+LUlA174 +ZTYdYRC4w82QyL+aAds3k5MPSQJtrr92qbfKgOksME34lcDqQ8Hn7lRcAr8I +r4kthgSm6r/z2nE+Hdws2oz9jxCYskHL/4ZFKpQl1fcbHSWww7TdaARSQdhT +FSxtS2CYY/mojnYqxLCu3bxyjMCDrOLO93KpUOQbqvjUjkBzq7SF5s4U+Jyk +PbzZkcBul4slSUdSwKM3mTfsS2BwX1/FpHsyeNqfeHz0AoGJs99LvW4nwk6L +NBY9lkDXt0uzfHMTQcbw2dxHESuigVNIaiLcUN6rx/mbwKeXmvxvcRNh9J/N ++akJovx51wa4+xLBzWgu8nkagfO8hkVV7xPAReXyfvM8Atu0LBci6QnA7urt +xFoCk5qsP913ioeRX7YdXlNH4NW2s6ULB+LBxyrl1biIF/UNqx/cFg+h/1i+ +v/qQwIwp15dblsZDenPL1KLHovwXfqx/UPQ3dNTeV25uIXDQaYWc4mQcbM/P +sbPsJfDJLp3MkxdjQTbQZcR+ksDWRJfXrcJo4C1fO6/xjcBy2bCtbh+jYS67 +ddW0iGceBrAVuqNhpElrR8w0gQXBMmqJpdHQsHYqsmxWpBfRrqfuGg2hdeEM +STES/16brJr7MgrGFl9m5cmQKO40LfasIRLaktu7hxkkxpkxLzLqeSAMyu18 +xCQxNdP0pFcpD8iTQR2ZBIkHDta/4+fw4BzFaLCiSPTwEfYnn+GBfh23om4z +iSr/Xi9vN+RB4QeN5FRdEt8mqyQk3o+A8/oxlsa7SPyhIsWl+OcA+o3brh0n +UbJS5WDuRDh882K1cE+QyLDoNftlKByKfgY1WduR2BWs7xXXEw6KKiWPxVkk ++m6XW5FzPxxGbX6pPcEm8XHmis+GkeGQ3tpXouBGYqHcQLXNhnCYuMuJ5wWS +2Ogia8S3DoP8uCIrx0QS09v27WDeCQEzP6V+zSQSjUNv/a6ZHQIThyI8p0Wc +88pack9MCBjR7KIiU0T9yvm+GawQ6CpbVVeYTqLQtHDm+4oQWNTLoQRZory9 +I19OuXOBrWoiFlhM4htv1c+PtE8DrXKwJOoxia5WqmzOIAdCRgPUHJ6QaKfV +cMjxKQde0qUuGTSQqLlXvJNVy4GkWDJC0EjiaskLuufSOCDl4Gl7sJXE3Qnt +fgFmHBiV+S5F6xT5H1M6vVAVCFUO0qzKPhJPLtda7ZX5F1jIbpEfForutcpY +KygmADIvKSiV/iBxNtznWP3pABhRF6pw50gUu+GwWNEzACIM+Az5eRInfKTL +XlsEQJWLzQ4jcQrPEKdzhhUCgMYPYqUuofBH+mr/4Vx/+BpYf9N4NYWM28vn +2Y1+kDBgvb9Ak0KjEXKye5MvOClyrby0KKy+WLu0YYMv6O/PO6r3K4W3ck0u +1sr7wvs735z52hQOsDvePBH6wPaolIg+XRGP8v7Rb/WBt1o9tUr6FM7KJYuX +evrAZq6tdpQxhd0UR/mArzc0KtoruJ6k8ENoxbR8qwdYZZYs2sWi8OThn9/W +VnjAW7pwUtmeQsVMKNDN9oDpzUmdTQ4U6u0ym0r19wD1PU/iSScKo7oe9Kqt +94Cz3pT0Rw8KV/1qNrTf3x12No3POwVTOLjSSC9Mww3Kgs5+PJVCYY65Z+KX +JmfQslF11kqlcN+zCeeflc5QpF0/9F3ERlOWJkoFznD1g/hgTDqFGvE54t48 +Z0i0CX9z+zKFlinvAkt2O4PflrDOuSsU7k47vObkAyfY8inkfvJNCouLFp4d +e+QIt48EXXzcSOH1s8IQiWE26D2iQq81URgpYdmp2c2GGuql+/lmCt8tWVnp +2MAGvlDfxLSVwmkNZekf+Wzozpz72dpBIa/fs77GhQ1z/Wfcn3eJ+rAfT/EE +DmDqet743aBI32embqmkA7Q/+20r/z2FJfdig8q/2YOV/gd63hCFNgupKa7D +9nBsuelPxw8UxrQodXxvtgevkmV3Po1Q6B6YaXw5wR6Sx2Pp4+Oi+55ac3la +1R7W2Bqu7JygMP98xe/WCvaQVT82VzYpyvtDkV+zxB4Kkg70BkxRuEViTKVo +lAU1enLxMzMU0jhlFssqWWCU9ZD7YpbC0n7F0nuFLOBL+brVCCmcdwrI5WSy +oK3n2V7unMj/dNka+bMssMSzuid+iv4TvsQKAljQfV2HbjRPYQHvjXeXMwts +Vw3Kblyg8L+3DWoabFnQF5Q0tyDi3OwOdr05C/4HilGcew== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9465148463574563}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.9465148463574563}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, 3.993137181040016*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"87919eb6-400a-4ef2-932c-864e055c2c39"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519988325634*^9, + 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925199899203997`*^9, + 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.785, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 7.9, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.895, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {109.17737143599778`, 114.80237143599778`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {198.0929964359978, 203.7179964359978}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.993137231888781*^9, + 3.993137233437777*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4Fe8XAHBRFJJIKOJy5947WbIkIXNOiyVpobKTpZREUsmWFEWkxb4l +IkpR1kJ8RaGkbEkokj2E7FG/+/trns8z75l3zjIzz9DsTxsf4+Tg4AhewsHx +/yPt2ikuDg5pNJuNB5nHw8BtV8z5lu2Lh6a0xh8Ow7DWcs7wJdJYU9LfX5Y+ +DC/GUznoXNLo1CRhaHJ/GA5Yty/qcUvjvLLf5vNxw+C32WD2Fr80qpumzbsH +DUN7N3NESlwaFcKjuU/aD0MU/GgBFWm0X1FlJbtmGMoYrnlFJ6Rxa1TrXPvh +nzB//cPRmARptPuPUzgmeAg27hfPOF8njT8/xG+gUgdh1Q7PiTAuGhrbuqRy +XR8AnpwnQrxbaPi7fZ+YlF0/5O+d0io/RUOvFZ/nORZ74bAha9rjPg1tXAIn +1l/sgRXVSlfvNNNQ5DYtJORPN7if3ivZxyuDfo+/hM3hdxiNgJAkbRnc7/kz +OYzZCTbrJIJNT8vgwEPHsemP7RDwgf+WwQMZPLuuJUtqcyuU/G08mfJZBo1s +zomtHm2Gh1ZZ+1UEZFHsqJv6ijsNECzh/qZypyyeqndkuPPXga8Zv2DReVnk +ZBQuXvpVDURFscPAY1m07KUCxFdXwssGq2e5T2Tx39JOTUOOSjD+/nfBN0sW +Pz1+L3X9VwX4c+yMXv1UFn2Ejp2hfaiADqq2RjNXFjXUryi9D62AyJJ2hbAX +sihvVDO0YkUFcBUszCi/kcXlZ+u5ZPlewfcM6obPN1n8fSFUYpNlGSguX/bK +pFMWB7h2GFHbysD3RO2Ucpcsnj3b1HRUsgzESLMjA99l8XP24+yZzlI4kHlG +5XCvLBonK8tvdiyFsidprYrDshhmdT2C68JLiM/hJbrnZJHDlhhqfFQMxiUt +pfoidAx4d9u5wPg5sN50TUqtpePi4M+NHRrPYfHDkNwM29UNJXmitOfwsPtv +3AMxOkbhNY66X4XwdwXTg1OCjlvzfydsulkIj80uKL6UoePqo8G2dR8KYOm0 +6L1NSnRcf0cTFY7kQ6GSuf/aPXTcKFoweKY4B3xvF+p2sn0se7/1l4wc2DEm +vPKhIR2zqrZ2HIjKgQ9PP8Rp7KNjTKxd22m3HOhV3JVnZURHSSfJ4VPMHFij +sKnvvikdc/QOz1nGPgN3cpnhpqN0rPu25UAq31PYet1eaJbttFniz8GhbPg7 +8F9r+TE6ejgZRsu8zYaQh97HjI/TMbR+xkQ8KBtSmGN+50/S8fOn7jXOS7Oh +nmjPKXGj4yueZoHbS7NAQSZHVP8iHaNXdWc6rHsMmY0qVTQ/Op5OXVyuPJ8J +jID8c3/YjnHRnN/QlgnSPc8bsv3puGv2paZVfCYIpZeFigTSUbhHNN9cIhNm +yff/ukPo+N9DnWuGjEdQqdzffzGWjstcyJtnjDIAu09Em8bRMUO6cSmhlgEv +w4d2KcfTkTqtpzotlgGFv0dSehLoOPrwgtV4Vzo8LJi03HOPXR/9JHt993S4 +qcFZL5ZOR3/fzdbH4h+A+XbJF3l5dHxxqq3y5b9UqNKbmPLLp2Nfz46upIFU +UNlXrWpQQEfPA0fcYhtSgd/yzNOuQjrOyGqmNqSmQvm5N+kri9n9TpAwt9id +CqyHLlHHy+l4KodvR0HsfZgVKHNfX8eOn6ZNCeunwDGRiGd9bKtfaKp5pZoC +jetPjOZ8oKP5y4VPgVIp8IQldFK/no7PkwZMDGaSwXaHo935Jjr6DP/ga8hI +hprzAgc+fmHvl+olWcafDLEdNgoBfXSc5JVUpmrvQtiNCy4G/XRUjTlNN3t4 +F65su521eoCOChYttdFX74Jz4iuF5EE6Djh+LbqMd4GyoiuWDtPxcl99Ju+L +ROhtH1ScmaBjcPTGj3VZCaDSfk7J+R87n4GMuJ15ccAMDXNT4SBwccQ+4kVk +HEhopT+bY/t14Ny5fR5xsCzhs1IwJ4GDc3LeHRpx0GqhqfxgGYFGMZrmfhWx +4Nf2T7mTj0Dey685y7/EQO2XENWDYgQuOD4SPSsVDR5t1ZZy4gQubf3wPpQz +GmTalwZyrWOvl7jLW90bBd4dfs156wmMGg6LTHsSBaxO9/NrpAgU79ktMqsV +BVd7LJ5/IgjMbPmT220bCfBro5aZKoFPhyo82irCYejXcQelzQQ2q0eZcGaG +Q/RYWuhyNQJH/eNu6t8Jh9HxDR0vthD49aVl0CbbcEicFLoorkmgV+8M7ei/ +OzA3N1/WhgROex/xMdx5B/KW1u6w3kcgU6tz19XyW7DP0nKesZ9Aa49k2tvY +WzCU8zNnjO3flSZqWmdugcwRflqgEYGRKzfoPJK5BeFFe/9lHiKQlDLpywi6 +Ce6u9SWzFgQG1KpmcFuEgVLrp82Rxwk06R9XWykVCu8VHYetTxCodq1F57+F +EDhxdTqV6USg6diz4bi2EEhWERUuOUmgn2HYoZroEBAMMxv/7kLgSOaFwaWr +Q+DX9vasTecIVL0rdamV/zpkP+5i1Pqz9/P6srFWOgiWHIyqenCZwKSr8lnV +HEFwaH63o/8VAm3dUrpHuq7BnH7eA7VAAic/h6YWplyDXX1X6clBBO4WKtq0 +mbgGbdJyMudvEnhpS0V8gepV4I4+LymVSOD3H8cP3nAJAHPtjaVzbAuHF044 +GAfAk55vVs13Cdxk6et/RD0AjFT1E6/fI5Ax4lH8akkAJNavWz95n8DYgu/T +CrFXQIWvXOztIwKnQD3Sv/Yy2Pjzrjn7nECd1p8yvwz8YWsDZ+HuFwTWM4sF +jmz2B2GZP6bSRQTuMPiXPyzpDzWVPxPqigns8Pq7/VX3JVDhqZNllRHoVtey +YZ/qJeC5eUv162sC907Fckt1XoRnCWsO6jUS6G50Ymv5ER8IGeafkmwikNMl +5l6whg8c014WM8k2ChRyBwr7wLrOqbaUT+z8Xa60CtV4Q6DMZ/uFVna/rV3y +rqt6g/mjOPecTgJrRxyc04W9gPP5hvD1IwQK7n4bMj/tAXXWJyt/sK2x0ju+ +tdUDYpcWTj4eJTBX/PDdjmIPUDTea7ptjMC+Rp53hy95gPmIj4T1bwIj+Kf6 +eXg94Jnsl/SkOQJrFnC1DuM82NyOKKFxM7AxxkTpj+dZINU7hwfZvpzWG7zr +yFmY/LpxQy4PA7tazkdn65yFELkK/x0rGOhYp7m5R+gsFFSN6Tjws+Pd+7Y1 +ZLsD/+Le+jQhBurlSUjdGT4DRU7Le5lSDMxQKrd44OcGmnaefzmkGZiqNbC1 +x9ENXpoNiLaxPT9/hrFrvxuU69UY3JBhoNiPssuO0m5QRQQ/GyMY+Dx9F7dd +8Glo/s7jWyTPwJRw/QNOsq7wy5xHeI8mAzudyvvKrjmDm9EFeboWA+da4Hyn +jTNM6PfrLLIdoHeFc6u6M0yrV3s+1WbnF3Jq9NbASVgQCfomvJ2BWe2xvxv3 +ngTeRu7MDj0GLjfUE3eUcQLCgHu762EGesZ+XNEy7gjRMW8Ht5owcKA2pSC1 +0RGW994I5zJlIH0P3734PEcYviTcE2vGwIunHCy4PBwhv0A6qNKSgcnnnn4o +XjgGu2hadWL2DOSYHdgXtfoYHJ09bV7pysAyVdXiFFMHaNFR5bx5moHD5epx +W7QdQD9iOtPMjYEOKeGpozIOIK94cWHkDAMfnyi8Vj1qD5MOIffEzjPwlfbB +R6LB9hD4Ma3XxYeBh1Z8oPG9soO09C9nxIIZuG6ls5foHltIutsl0cn21x++ +fxXVbCE2sr/6wXUGLhCyBg5SthB6ZUpSNZSBSZMH9HYOHAF3m9Xv9t5k4Da/ +ho5u7SOwfe1umYBIBpquUnnn+9savl190TiSzMCS0jtt265ZQqvvfxfzUxg4 +HR3/Zq2dJTSerWL53GegwJvZSto2S3hj1+y3PI2B6i26HO8mLOCJ9thG2QwG +0qQeZFvZW4D3FDPALIuBwVbW4YcNzEH0WIxqZREDZ1ts6+e0TKHmSUVVfDED +i/8bfdgibgqekyPm7iUM/OV+81nPjAm0Bezyp5UyMDbcVzMi3wQS74+/v1TO +QJezerUqSiZA69rjuK2agcTwZMx2pcMgZ8kRV9DMQNf+dOevRgeh476cfNgn +BuqIdWTbqR2EG0Mm/x1tYec32qaySvwgjHpl9Qq3MvC6maBIb5cxPIu1UHFv +Z6DQvSPz592NQa0lv1axm4HefJZL/yQaARg5/c34xe5fteQWUYED0DXaL31m +jD0frhtvf/21H/xvOO7UHGfgi6Fz3TWV+6Gi2iH4/QQDlRQKm4xP7QddykZo +fIqBld2KBnLl+2Cf3EGG5gJ7fobMPme67wWrZdr73i9n4kby2+s2jj2weL/E +LWoFExnOwgW+7QaQhJoRNrxMPFfVEmtUaABdPuqtY3xMbDtZKRdxygCOTijb +i6xi4uyLQ0zX9t3g3MnwsBFh4rpEzo+7K/TBu0gwaYzGRKfKT4XtubrQmJH3 +8J0ME/c6JBuV3NaFjdEmeWmyTPTfrh9a56oLX9wTa8wIJpY0nC4IltOFrfKs +3+UsJqqKWP82ytCB6STQv7OJiXk1nk3jGbvAPdB1QlmbiULCJczrtTvgnfvq +RT6KiafWbX+i9nQHyNjl8/SxLWR214o/Ygc0aM9LxCMTnzwuNVC33AFKM1f1 +OHcx0ftmb77vyHYYdbqb2GjAxI4g34Q74tvh5P73umfNmEj/OTGfLgGQG1HR +RZkzsfRajV/lGAXzn19481ow8Xbyem3JNxSE2D7ITrFkYviGN+JBrhRknvFb +W2/DxL4cM5B7rQ0/I5T65I8x0fCQwzJX721wqjXyat8ZJga41CcXCWpCvkSo +VK47+7zSyvHunxqwYHu56OJZJsYeta6Fag24MegysuY8E6uu3OWM8NOAJ/O6 +h3d6MhGQ9THm11YYlpijJ/sx8UPnkaff2tTBxc76tXkoE2tEn0eHN6vBtv0x +trQbTPR8nr1dp1AN+LUbFgbYXjUjFkeLVYMnYjpqnjeZ6Dpz3dnESg2GP8qn +R99h4pvTAgGZfZvhJLUQ1BTDxItHJ26+59wMJ9Yn7NmbxmS/X1fuCjJVga0r +PvWvecBEOxDx4aFUYPmMQGAH28fkwloz6SrwsPHKS+cMJkqPF+tZTChD//WT +CiGZTNy9zbnW5JYyOM5qrKp+xsRlLyc/3/2oBA6fWhuxlIl/uEs7TOsVYUhY +3VS8jIkCP5xcG1MUwc04qn2c7UTnhJzws4rg99Go5345E2/KnXjWLaoIsW/f +TS19zUS1tD3OBQ4K8KH0pdjbd0ykGWpFfuCRh63pyTZGrex62f3OVrlEwn89 +f7vJL0yMoO90SzcjQVfW+jhnGxPJwLOCh1RIOJgs7pbXzkSvDJloyz4WuMaH +XxbpZKLu3UpXISMWpN4MTPvSy0Rns+8ZLUpMELhwYsjuNxOfLnm34YYoAVf5 +1v2Vm2Ti7ya7mdI5Oizcq109zXbrxLVH4h10GKpR1AiZZuLjOM7cvSl0qFo3 +FZQ7x8QohfYV9xXo4Fd2meDiYOHGiear7/bKwsiyBNs0fhbaK8nm3MukwdF4 +w3OuK1nY84S3NuUODdoU/wZtFWDhdb853mpPGtSY2j19v4qFnUOqGt56NEh7 +xPw7KcRCl7p8Lr8+abDam5+gI87CT7mjdQ0bpeF9ZF1LH8HC8+ZpTi3RkjDv +ldr4isHCUdoa0zNOksA64vUhkcnC3EsHQ4y2SUIASVQZkyzcre0q1dUtAZpl +vgVl8iwsz3DK3agqAY/65SKjVVmYE3e4R6JrHVzTDDHS3c7CMgbJ+/GEGORL +2e6l7WBhk1/WkPFOMeheumX3Atv1G2+sEdwgBtofv2PuLhbaFKkPbm4WZX+/ +NJQ26LPwWknpZqmdomAfNiAwvY+FDaPvB+Xl1gJ06b5/YMXC566jD+Zpa2DS +1fadrzUL/9xrK4nlWgOZi141B21YeLJR0PNorzCsXZ/1eoktux7eW5oCHgnD +8GHhUmsHFsYL7ilqUxWG2NrOLJGTLKxL2pH99IAQTBR63rp6gYWJ0qv+bXsk +CA91wsOsPFkYo7ZFXvi2IFg3Pw5V9WJh7KZXqqsuCELN+Leg794s/HBr7NcF +HUG4J6/jr+3HwuqhHg7+mlVgeH/1malAFlaF0c3f7heA9LBM42PhLAwa5PHw +CecDQ3fRLoUIFkZnx7bEOfPBhEmgyzTbejx3Wkd38QElbRMcFMXCmbyqW1qz +vPApd3XZo1gWCp3KDjW144WlrZ7kaBILDT5KCpprrwAHGT2OC49ZSM+QCbqz +jgeW8+SHsX8S0TuvtWtmjhuyf0qvX57Fwmnuq8I3vnDDfP68Wlw2e57We3Np +x3FDuF62c0kOC5vf7JEqXscNFadEPv97zsJN8YJjQ8QykH7+Iyv4NQt3tHuE +XLXkgovD52Tt37Dvf0cjq1ebC9po3HFaVez1wZ//nJHmgogbrMDRahZ2dycr +CPVxAre9i8WhWhbuPLVocuwsJwzzz3BLN7LwQvNYhUT0Enhhz2v7vJOFBR6L +EqzJf5RIbMKn210sjPNa4qtR+Y9yr5Pfc/I7C/eubI6MCv9HyW3dv0XyBwsv +Ni0qyKv8o5JWRvIH9LHwDt+p4qpzf6nAF5JF+0ZYeFi8ebsRzyK1X0BZqG+e +hauUU+2+2sxTiXEiojl/WKgkJLhRVmOeGqLPr/ddYKGGddLbJOF5KlCrkhD6 +y453srLa8naOenHisAa1hES6e1Toty1zlHSll200D4nvvz3TaVw/S41dqMjW +XUPi/WiLN4d5pyltroy81SIkHtCb43w3NEWF3Ax90cF2tfo3Q+faKYr+4FCF +uyiJxuLHl20Om6LMGvs+Ja0jscnykcRnoSmqXJ5vcVqaxNCg2GQFxiR15/vB +PRkKJAaDj6eP8wTluNbX2FWRxPLcKs5kowlKc0+audomEgsrut8MqE9QPfmT +xyuVSHSXuyTft3SC2hocFdipSqLcT7Wlocnj1DfFz6WimiTqtgRwG38bo+R9 +LZSCdUkU0si/JNY7Si3JuaK+X4/E1oS/XIVFo1RLbya1Vp/EKN9Jk9s3Ryn/ +/X8M03aT2FDkLDK/dZRqkkl0KjdkXy99SVXs7RHK++3X+7PGJAYM9i8UGwxT +1WvtRJyOkFgzZz/gNDBIGSdmLd1uS+IO/zfEWPkg9Y02/1vMjl3PogOuuXGD +1LR8RGONPYmbHwkWDO4ZpOg739xiOZKIRW67xPMGqCunSd6BUyRCGv3iphv9 +1Laa8b+O3iT2xIt4/XTspWr2UqOUD4mP3Z4nGur2UoeaQr6u9SVxttf8aCfR +Szl/k31ZdZHEQ3IpubG9PVT85GEvxmUS63q4SePjPdSMdPHv3iAST7aFtiaf +/UHlel0ZOBpFYhkfIVGV9Z1SPCxzXDGaRJHHscykyO9UplJF7wzbksxb43E+ +36n7/Ut+hMSS+N/xqOk/u79T4Ycvf32WQOL+mNt7jg50Ue7K/o0LKSQSkcpa +CXJdlPLgxZeR2SR66nmW50R+pZ68ltSyeUri1itfr8Sc/EqxkkuLmM9IjFAv +lCzCr5S06WJhcQ6J8e6p17NHOijBN745XfkkvpMpFDA36KDGkn3S5UtIrDiy +bPyoQDv1zMzr9utqEju0vrgr/ddKqb0i/R7UkNgWXfq1M6aVKibbnK+9JXEF +d2lmnVsrVTmvqadfS+LzTJcue9lWqiVxYbH2A4nmPiwhp9DP1ELXJeemTyTO +8zym7ji2UPpO13S7f5AYaP8Hm3WbqbqGLZsre0g8d032fQKjmTLW7Kel9ZIY +e4jhG83dTFny6S8e6ycxNY6Xh17dRLlmrcgfHCKRR2s/b4xBExU5foM2Pk4i +/4orbrEWjZS4hfaqxgkS087p2bhoN1JJFSMLub9JvHTjUrybdCOVEbGv9dwU ++3k4JvOFo7+BKlYTvDU7S+K4i1MgejRQVFK575c59nwFvZ65ZNFAVXKfOVk8 +T6JC1aD3T6qBev+5Qcd3gUTGsoQ4neUNlBFeUbVeJLE0tyxTdaSeanmoQqP+ +kvgtsK3QsLGeslj9Q0DqH4ne79553X5eT3V6RSz8Y/tt/OenfxPrqf8BiEoX +dw== + "]]}, + 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:eJwV13k4Fe8XAHBRFJJIKOJy5947WbIkIXNOiyVpobKTpZREUsmWFEWkxb4l +IkpR1kJ8RaGkbEkokj2E7FG/+/trns8z75l3zjIzz9DsTxsf4+Tg4AhewsHx +/yPt2ikuDg5pNJuNB5nHw8BtV8z5lu2Lh6a0xh8Ow7DWcs7wJdJYU9LfX5Y+ +DC/GUznoXNLo1CRhaHJ/GA5Yty/qcUvjvLLf5vNxw+C32WD2Fr80qpumzbsH +DUN7N3NESlwaFcKjuU/aD0MU/GgBFWm0X1FlJbtmGMoYrnlFJ6Rxa1TrXPvh +nzB//cPRmARptPuPUzgmeAg27hfPOF8njT8/xG+gUgdh1Q7PiTAuGhrbuqRy +XR8AnpwnQrxbaPi7fZ+YlF0/5O+d0io/RUOvFZ/nORZ74bAha9rjPg1tXAIn +1l/sgRXVSlfvNNNQ5DYtJORPN7if3ivZxyuDfo+/hM3hdxiNgJAkbRnc7/kz +OYzZCTbrJIJNT8vgwEPHsemP7RDwgf+WwQMZPLuuJUtqcyuU/G08mfJZBo1s +zomtHm2Gh1ZZ+1UEZFHsqJv6ijsNECzh/qZypyyeqndkuPPXga8Zv2DReVnk +ZBQuXvpVDURFscPAY1m07KUCxFdXwssGq2e5T2Tx39JOTUOOSjD+/nfBN0sW +Pz1+L3X9VwX4c+yMXv1UFn2Ejp2hfaiADqq2RjNXFjXUryi9D62AyJJ2hbAX +sihvVDO0YkUFcBUszCi/kcXlZ+u5ZPlewfcM6obPN1n8fSFUYpNlGSguX/bK +pFMWB7h2GFHbysD3RO2Ucpcsnj3b1HRUsgzESLMjA99l8XP24+yZzlI4kHlG +5XCvLBonK8tvdiyFsidprYrDshhmdT2C68JLiM/hJbrnZJHDlhhqfFQMxiUt +pfoidAx4d9u5wPg5sN50TUqtpePi4M+NHRrPYfHDkNwM29UNJXmitOfwsPtv +3AMxOkbhNY66X4XwdwXTg1OCjlvzfydsulkIj80uKL6UoePqo8G2dR8KYOm0 +6L1NSnRcf0cTFY7kQ6GSuf/aPXTcKFoweKY4B3xvF+p2sn0se7/1l4wc2DEm +vPKhIR2zqrZ2HIjKgQ9PP8Rp7KNjTKxd22m3HOhV3JVnZURHSSfJ4VPMHFij +sKnvvikdc/QOz1nGPgN3cpnhpqN0rPu25UAq31PYet1eaJbttFniz8GhbPg7 +8F9r+TE6ejgZRsu8zYaQh97HjI/TMbR+xkQ8KBtSmGN+50/S8fOn7jXOS7Oh +nmjPKXGj4yueZoHbS7NAQSZHVP8iHaNXdWc6rHsMmY0qVTQ/Op5OXVyuPJ8J +jID8c3/YjnHRnN/QlgnSPc8bsv3puGv2paZVfCYIpZeFigTSUbhHNN9cIhNm +yff/ukPo+N9DnWuGjEdQqdzffzGWjstcyJtnjDIAu09Em8bRMUO6cSmhlgEv +w4d2KcfTkTqtpzotlgGFv0dSehLoOPrwgtV4Vzo8LJi03HOPXR/9JHt993S4 +qcFZL5ZOR3/fzdbH4h+A+XbJF3l5dHxxqq3y5b9UqNKbmPLLp2Nfz46upIFU +UNlXrWpQQEfPA0fcYhtSgd/yzNOuQjrOyGqmNqSmQvm5N+kri9n9TpAwt9id +CqyHLlHHy+l4KodvR0HsfZgVKHNfX8eOn6ZNCeunwDGRiGd9bKtfaKp5pZoC +jetPjOZ8oKP5y4VPgVIp8IQldFK/no7PkwZMDGaSwXaHo935Jjr6DP/ga8hI +hprzAgc+fmHvl+olWcafDLEdNgoBfXSc5JVUpmrvQtiNCy4G/XRUjTlNN3t4 +F65su521eoCOChYttdFX74Jz4iuF5EE6Djh+LbqMd4GyoiuWDtPxcl99Ju+L +ROhtH1ScmaBjcPTGj3VZCaDSfk7J+R87n4GMuJ15ccAMDXNT4SBwccQ+4kVk +HEhopT+bY/t14Ny5fR5xsCzhs1IwJ4GDc3LeHRpx0GqhqfxgGYFGMZrmfhWx +4Nf2T7mTj0Dey685y7/EQO2XENWDYgQuOD4SPSsVDR5t1ZZy4gQubf3wPpQz +GmTalwZyrWOvl7jLW90bBd4dfs156wmMGg6LTHsSBaxO9/NrpAgU79ktMqsV +BVd7LJ5/IgjMbPmT220bCfBro5aZKoFPhyo82irCYejXcQelzQQ2q0eZcGaG +Q/RYWuhyNQJH/eNu6t8Jh9HxDR0vthD49aVl0CbbcEicFLoorkmgV+8M7ei/ +OzA3N1/WhgROex/xMdx5B/KW1u6w3kcgU6tz19XyW7DP0nKesZ9Aa49k2tvY +WzCU8zNnjO3flSZqWmdugcwRflqgEYGRKzfoPJK5BeFFe/9lHiKQlDLpywi6 +Ce6u9SWzFgQG1KpmcFuEgVLrp82Rxwk06R9XWykVCu8VHYetTxCodq1F57+F +EDhxdTqV6USg6diz4bi2EEhWERUuOUmgn2HYoZroEBAMMxv/7kLgSOaFwaWr +Q+DX9vasTecIVL0rdamV/zpkP+5i1Pqz9/P6srFWOgiWHIyqenCZwKSr8lnV +HEFwaH63o/8VAm3dUrpHuq7BnH7eA7VAAic/h6YWplyDXX1X6clBBO4WKtq0 +mbgGbdJyMudvEnhpS0V8gepV4I4+LymVSOD3H8cP3nAJAHPtjaVzbAuHF044 +GAfAk55vVs13Cdxk6et/RD0AjFT1E6/fI5Ax4lH8akkAJNavWz95n8DYgu/T +CrFXQIWvXOztIwKnQD3Sv/Yy2Pjzrjn7nECd1p8yvwz8YWsDZ+HuFwTWM4sF +jmz2B2GZP6bSRQTuMPiXPyzpDzWVPxPqigns8Pq7/VX3JVDhqZNllRHoVtey +YZ/qJeC5eUv162sC907Fckt1XoRnCWsO6jUS6G50Ymv5ER8IGeafkmwikNMl +5l6whg8c014WM8k2ChRyBwr7wLrOqbaUT+z8Xa60CtV4Q6DMZ/uFVna/rV3y +rqt6g/mjOPecTgJrRxyc04W9gPP5hvD1IwQK7n4bMj/tAXXWJyt/sK2x0ju+ +tdUDYpcWTj4eJTBX/PDdjmIPUDTea7ptjMC+Rp53hy95gPmIj4T1bwIj+Kf6 +eXg94Jnsl/SkOQJrFnC1DuM82NyOKKFxM7AxxkTpj+dZINU7hwfZvpzWG7zr +yFmY/LpxQy4PA7tazkdn65yFELkK/x0rGOhYp7m5R+gsFFSN6Tjws+Pd+7Y1 +ZLsD/+Le+jQhBurlSUjdGT4DRU7Le5lSDMxQKrd44OcGmnaefzmkGZiqNbC1 +x9ENXpoNiLaxPT9/hrFrvxuU69UY3JBhoNiPssuO0m5QRQQ/GyMY+Dx9F7dd +8Glo/s7jWyTPwJRw/QNOsq7wy5xHeI8mAzudyvvKrjmDm9EFeboWA+da4Hyn +jTNM6PfrLLIdoHeFc6u6M0yrV3s+1WbnF3Jq9NbASVgQCfomvJ2BWe2xvxv3 +ngTeRu7MDj0GLjfUE3eUcQLCgHu762EGesZ+XNEy7gjRMW8Ht5owcKA2pSC1 +0RGW994I5zJlIH0P3734PEcYviTcE2vGwIunHCy4PBwhv0A6qNKSgcnnnn4o +XjgGu2hadWL2DOSYHdgXtfoYHJ09bV7pysAyVdXiFFMHaNFR5bx5moHD5epx +W7QdQD9iOtPMjYEOKeGpozIOIK94cWHkDAMfnyi8Vj1qD5MOIffEzjPwlfbB +R6LB9hD4Ma3XxYeBh1Z8oPG9soO09C9nxIIZuG6ls5foHltIutsl0cn21x++ +fxXVbCE2sr/6wXUGLhCyBg5SthB6ZUpSNZSBSZMH9HYOHAF3m9Xv9t5k4Da/ +ho5u7SOwfe1umYBIBpquUnnn+9savl190TiSzMCS0jtt265ZQqvvfxfzUxg4 +HR3/Zq2dJTSerWL53GegwJvZSto2S3hj1+y3PI2B6i26HO8mLOCJ9thG2QwG +0qQeZFvZW4D3FDPALIuBwVbW4YcNzEH0WIxqZREDZ1ts6+e0TKHmSUVVfDED +i/8bfdgibgqekyPm7iUM/OV+81nPjAm0Bezyp5UyMDbcVzMi3wQS74+/v1TO +QJezerUqSiZA69rjuK2agcTwZMx2pcMgZ8kRV9DMQNf+dOevRgeh476cfNgn +BuqIdWTbqR2EG0Mm/x1tYec32qaySvwgjHpl9Qq3MvC6maBIb5cxPIu1UHFv +Z6DQvSPz592NQa0lv1axm4HefJZL/yQaARg5/c34xe5fteQWUYED0DXaL31m +jD0frhtvf/21H/xvOO7UHGfgi6Fz3TWV+6Gi2iH4/QQDlRQKm4xP7QddykZo +fIqBld2KBnLl+2Cf3EGG5gJ7fobMPme67wWrZdr73i9n4kby2+s2jj2weL/E +LWoFExnOwgW+7QaQhJoRNrxMPFfVEmtUaABdPuqtY3xMbDtZKRdxygCOTijb +i6xi4uyLQ0zX9t3g3MnwsBFh4rpEzo+7K/TBu0gwaYzGRKfKT4XtubrQmJH3 +8J0ME/c6JBuV3NaFjdEmeWmyTPTfrh9a56oLX9wTa8wIJpY0nC4IltOFrfKs +3+UsJqqKWP82ytCB6STQv7OJiXk1nk3jGbvAPdB1QlmbiULCJczrtTvgnfvq +RT6KiafWbX+i9nQHyNjl8/SxLWR214o/Ygc0aM9LxCMTnzwuNVC33AFKM1f1 +OHcx0ftmb77vyHYYdbqb2GjAxI4g34Q74tvh5P73umfNmEj/OTGfLgGQG1HR +RZkzsfRajV/lGAXzn19481ow8Xbyem3JNxSE2D7ITrFkYviGN+JBrhRknvFb +W2/DxL4cM5B7rQ0/I5T65I8x0fCQwzJX721wqjXyat8ZJga41CcXCWpCvkSo +VK47+7zSyvHunxqwYHu56OJZJsYeta6Fag24MegysuY8E6uu3OWM8NOAJ/O6 +h3d6MhGQ9THm11YYlpijJ/sx8UPnkaff2tTBxc76tXkoE2tEn0eHN6vBtv0x +trQbTPR8nr1dp1AN+LUbFgbYXjUjFkeLVYMnYjpqnjeZ6Dpz3dnESg2GP8qn +R99h4pvTAgGZfZvhJLUQ1BTDxItHJ26+59wMJ9Yn7NmbxmS/X1fuCjJVga0r +PvWvecBEOxDx4aFUYPmMQGAH28fkwloz6SrwsPHKS+cMJkqPF+tZTChD//WT +CiGZTNy9zbnW5JYyOM5qrKp+xsRlLyc/3/2oBA6fWhuxlIl/uEs7TOsVYUhY +3VS8jIkCP5xcG1MUwc04qn2c7UTnhJzws4rg99Go5345E2/KnXjWLaoIsW/f +TS19zUS1tD3OBQ4K8KH0pdjbd0ykGWpFfuCRh63pyTZGrex62f3OVrlEwn89 +f7vJL0yMoO90SzcjQVfW+jhnGxPJwLOCh1RIOJgs7pbXzkSvDJloyz4WuMaH +XxbpZKLu3UpXISMWpN4MTPvSy0Rns+8ZLUpMELhwYsjuNxOfLnm34YYoAVf5 +1v2Vm2Ti7ya7mdI5Oizcq109zXbrxLVH4h10GKpR1AiZZuLjOM7cvSl0qFo3 +FZQ7x8QohfYV9xXo4Fd2meDiYOHGiear7/bKwsiyBNs0fhbaK8nm3MukwdF4 +w3OuK1nY84S3NuUODdoU/wZtFWDhdb853mpPGtSY2j19v4qFnUOqGt56NEh7 +xPw7KcRCl7p8Lr8+abDam5+gI87CT7mjdQ0bpeF9ZF1LH8HC8+ZpTi3RkjDv +ldr4isHCUdoa0zNOksA64vUhkcnC3EsHQ4y2SUIASVQZkyzcre0q1dUtAZpl +vgVl8iwsz3DK3agqAY/65SKjVVmYE3e4R6JrHVzTDDHS3c7CMgbJ+/GEGORL +2e6l7WBhk1/WkPFOMeheumX3Atv1G2+sEdwgBtofv2PuLhbaFKkPbm4WZX+/ +NJQ26LPwWknpZqmdomAfNiAwvY+FDaPvB+Xl1gJ06b5/YMXC566jD+Zpa2DS +1fadrzUL/9xrK4nlWgOZi141B21YeLJR0PNorzCsXZ/1eoktux7eW5oCHgnD +8GHhUmsHFsYL7ilqUxWG2NrOLJGTLKxL2pH99IAQTBR63rp6gYWJ0qv+bXsk +CA91wsOsPFkYo7ZFXvi2IFg3Pw5V9WJh7KZXqqsuCELN+Leg794s/HBr7NcF +HUG4J6/jr+3HwuqhHg7+mlVgeH/1malAFlaF0c3f7heA9LBM42PhLAwa5PHw +CecDQ3fRLoUIFkZnx7bEOfPBhEmgyzTbejx3Wkd38QElbRMcFMXCmbyqW1qz +vPApd3XZo1gWCp3KDjW144WlrZ7kaBILDT5KCpprrwAHGT2OC49ZSM+QCbqz +jgeW8+SHsX8S0TuvtWtmjhuyf0qvX57Fwmnuq8I3vnDDfP68Wlw2e57We3Np +x3FDuF62c0kOC5vf7JEqXscNFadEPv97zsJN8YJjQ8QykH7+Iyv4NQt3tHuE +XLXkgovD52Tt37Dvf0cjq1ebC9po3HFaVez1wZ//nJHmgogbrMDRahZ2dycr +CPVxAre9i8WhWhbuPLVocuwsJwzzz3BLN7LwQvNYhUT0Enhhz2v7vJOFBR6L +EqzJf5RIbMKn210sjPNa4qtR+Y9yr5Pfc/I7C/eubI6MCv9HyW3dv0XyBwsv +Ni0qyKv8o5JWRvIH9LHwDt+p4qpzf6nAF5JF+0ZYeFi8ebsRzyK1X0BZqG+e +hauUU+2+2sxTiXEiojl/WKgkJLhRVmOeGqLPr/ddYKGGddLbJOF5KlCrkhD6 +y453srLa8naOenHisAa1hES6e1Toty1zlHSll200D4nvvz3TaVw/S41dqMjW +XUPi/WiLN4d5pyltroy81SIkHtCb43w3NEWF3Ax90cF2tfo3Q+faKYr+4FCF +uyiJxuLHl20Om6LMGvs+Ja0jscnykcRnoSmqXJ5vcVqaxNCg2GQFxiR15/vB +PRkKJAaDj6eP8wTluNbX2FWRxPLcKs5kowlKc0+audomEgsrut8MqE9QPfmT +xyuVSHSXuyTft3SC2hocFdipSqLcT7Wlocnj1DfFz6WimiTqtgRwG38bo+R9 +LZSCdUkU0si/JNY7Si3JuaK+X4/E1oS/XIVFo1RLbya1Vp/EKN9Jk9s3Ryn/ +/X8M03aT2FDkLDK/dZRqkkl0KjdkXy99SVXs7RHK++3X+7PGJAYM9i8UGwxT +1WvtRJyOkFgzZz/gNDBIGSdmLd1uS+IO/zfEWPkg9Y02/1vMjl3PogOuuXGD +1LR8RGONPYmbHwkWDO4ZpOg739xiOZKIRW67xPMGqCunSd6BUyRCGv3iphv9 +1Laa8b+O3iT2xIt4/XTspWr2UqOUD4mP3Z4nGur2UoeaQr6u9SVxttf8aCfR +Szl/k31ZdZHEQ3IpubG9PVT85GEvxmUS63q4SePjPdSMdPHv3iAST7aFtiaf +/UHlel0ZOBpFYhkfIVGV9Z1SPCxzXDGaRJHHscykyO9UplJF7wzbksxb43E+ +36n7/Ut+hMSS+N/xqOk/u79T4Ycvf32WQOL+mNt7jg50Ue7K/o0LKSQSkcpa +CXJdlPLgxZeR2SR66nmW50R+pZ68ltSyeUri1itfr8Sc/EqxkkuLmM9IjFAv +lCzCr5S06WJhcQ6J8e6p17NHOijBN745XfkkvpMpFDA36KDGkn3S5UtIrDiy +bPyoQDv1zMzr9utqEju0vrgr/ddKqb0i/R7UkNgWXfq1M6aVKibbnK+9JXEF +d2lmnVsrVTmvqadfS+LzTJcue9lWqiVxYbH2A4nmPiwhp9DP1ELXJeemTyTO +8zym7ji2UPpO13S7f5AYaP8Hm3WbqbqGLZsre0g8d032fQKjmTLW7Kel9ZIY +e4jhG83dTFny6S8e6ycxNY6Xh17dRLlmrcgfHCKRR2s/b4xBExU5foM2Pk4i +/4orbrEWjZS4hfaqxgkS087p2bhoN1JJFSMLub9JvHTjUrybdCOVEbGv9dwU ++3k4JvOFo7+BKlYTvDU7S+K4i1MgejRQVFK575c59nwFvZ65ZNFAVXKfOVk8 +T6JC1aD3T6qBev+5Qcd3gUTGsoQ4neUNlBFeUbVeJLE0tyxTdaSeanmoQqP+ +kvgtsK3QsLGeslj9Q0DqH4ne79553X5eT3V6RSz8Y/tt/OenfxPrqf8BiEoX +dw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.8958903543750791}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.8958903543750791}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4Fe8XAHBRFJJIKOJy5947WbIkIXNOiyVpobKTpZREUsmWFEWkxb4l +IkpR1kJ8RaGkbEkokj2E7FG/+/trns8z75l3zjIzz9DsTxsf4+Tg4AhewsHx +/yPt2ikuDg5pNJuNB5nHw8BtV8z5lu2Lh6a0xh8Ow7DWcs7wJdJYU9LfX5Y+ +DC/GUznoXNLo1CRhaHJ/GA5Yty/qcUvjvLLf5vNxw+C32WD2Fr80qpumzbsH +DUN7N3NESlwaFcKjuU/aD0MU/GgBFWm0X1FlJbtmGMoYrnlFJ6Rxa1TrXPvh +nzB//cPRmARptPuPUzgmeAg27hfPOF8njT8/xG+gUgdh1Q7PiTAuGhrbuqRy +XR8AnpwnQrxbaPi7fZ+YlF0/5O+d0io/RUOvFZ/nORZ74bAha9rjPg1tXAIn +1l/sgRXVSlfvNNNQ5DYtJORPN7if3ivZxyuDfo+/hM3hdxiNgJAkbRnc7/kz +OYzZCTbrJIJNT8vgwEPHsemP7RDwgf+WwQMZPLuuJUtqcyuU/G08mfJZBo1s +zomtHm2Gh1ZZ+1UEZFHsqJv6ijsNECzh/qZypyyeqndkuPPXga8Zv2DReVnk +ZBQuXvpVDURFscPAY1m07KUCxFdXwssGq2e5T2Tx39JOTUOOSjD+/nfBN0sW +Pz1+L3X9VwX4c+yMXv1UFn2Ejp2hfaiADqq2RjNXFjXUryi9D62AyJJ2hbAX +sihvVDO0YkUFcBUszCi/kcXlZ+u5ZPlewfcM6obPN1n8fSFUYpNlGSguX/bK +pFMWB7h2GFHbysD3RO2Ucpcsnj3b1HRUsgzESLMjA99l8XP24+yZzlI4kHlG +5XCvLBonK8tvdiyFsidprYrDshhmdT2C68JLiM/hJbrnZJHDlhhqfFQMxiUt +pfoidAx4d9u5wPg5sN50TUqtpePi4M+NHRrPYfHDkNwM29UNJXmitOfwsPtv +3AMxOkbhNY66X4XwdwXTg1OCjlvzfydsulkIj80uKL6UoePqo8G2dR8KYOm0 +6L1NSnRcf0cTFY7kQ6GSuf/aPXTcKFoweKY4B3xvF+p2sn0se7/1l4wc2DEm +vPKhIR2zqrZ2HIjKgQ9PP8Rp7KNjTKxd22m3HOhV3JVnZURHSSfJ4VPMHFij +sKnvvikdc/QOz1nGPgN3cpnhpqN0rPu25UAq31PYet1eaJbttFniz8GhbPg7 +8F9r+TE6ejgZRsu8zYaQh97HjI/TMbR+xkQ8KBtSmGN+50/S8fOn7jXOS7Oh +nmjPKXGj4yueZoHbS7NAQSZHVP8iHaNXdWc6rHsMmY0qVTQ/Op5OXVyuPJ8J +jID8c3/YjnHRnN/QlgnSPc8bsv3puGv2paZVfCYIpZeFigTSUbhHNN9cIhNm +yff/ukPo+N9DnWuGjEdQqdzffzGWjstcyJtnjDIAu09Em8bRMUO6cSmhlgEv +w4d2KcfTkTqtpzotlgGFv0dSehLoOPrwgtV4Vzo8LJi03HOPXR/9JHt993S4 +qcFZL5ZOR3/fzdbH4h+A+XbJF3l5dHxxqq3y5b9UqNKbmPLLp2Nfz46upIFU +UNlXrWpQQEfPA0fcYhtSgd/yzNOuQjrOyGqmNqSmQvm5N+kri9n9TpAwt9id +CqyHLlHHy+l4KodvR0HsfZgVKHNfX8eOn6ZNCeunwDGRiGd9bKtfaKp5pZoC +jetPjOZ8oKP5y4VPgVIp8IQldFK/no7PkwZMDGaSwXaHo935Jjr6DP/ga8hI +hprzAgc+fmHvl+olWcafDLEdNgoBfXSc5JVUpmrvQtiNCy4G/XRUjTlNN3t4 +F65su521eoCOChYttdFX74Jz4iuF5EE6Djh+LbqMd4GyoiuWDtPxcl99Ju+L +ROhtH1ScmaBjcPTGj3VZCaDSfk7J+R87n4GMuJ15ccAMDXNT4SBwccQ+4kVk +HEhopT+bY/t14Ny5fR5xsCzhs1IwJ4GDc3LeHRpx0GqhqfxgGYFGMZrmfhWx +4Nf2T7mTj0Dey685y7/EQO2XENWDYgQuOD4SPSsVDR5t1ZZy4gQubf3wPpQz +GmTalwZyrWOvl7jLW90bBd4dfs156wmMGg6LTHsSBaxO9/NrpAgU79ktMqsV +BVd7LJ5/IgjMbPmT220bCfBro5aZKoFPhyo82irCYejXcQelzQQ2q0eZcGaG +Q/RYWuhyNQJH/eNu6t8Jh9HxDR0vthD49aVl0CbbcEicFLoorkmgV+8M7ei/ +OzA3N1/WhgROex/xMdx5B/KW1u6w3kcgU6tz19XyW7DP0nKesZ9Aa49k2tvY +WzCU8zNnjO3flSZqWmdugcwRflqgEYGRKzfoPJK5BeFFe/9lHiKQlDLpywi6 +Ce6u9SWzFgQG1KpmcFuEgVLrp82Rxwk06R9XWykVCu8VHYetTxCodq1F57+F +EDhxdTqV6USg6diz4bi2EEhWERUuOUmgn2HYoZroEBAMMxv/7kLgSOaFwaWr +Q+DX9vasTecIVL0rdamV/zpkP+5i1Pqz9/P6srFWOgiWHIyqenCZwKSr8lnV +HEFwaH63o/8VAm3dUrpHuq7BnH7eA7VAAic/h6YWplyDXX1X6clBBO4WKtq0 +mbgGbdJyMudvEnhpS0V8gepV4I4+LymVSOD3H8cP3nAJAHPtjaVzbAuHF044 +GAfAk55vVs13Cdxk6et/RD0AjFT1E6/fI5Ax4lH8akkAJNavWz95n8DYgu/T +CrFXQIWvXOztIwKnQD3Sv/Yy2Pjzrjn7nECd1p8yvwz8YWsDZ+HuFwTWM4sF +jmz2B2GZP6bSRQTuMPiXPyzpDzWVPxPqigns8Pq7/VX3JVDhqZNllRHoVtey +YZ/qJeC5eUv162sC907Fckt1XoRnCWsO6jUS6G50Ymv5ER8IGeafkmwikNMl +5l6whg8c014WM8k2ChRyBwr7wLrOqbaUT+z8Xa60CtV4Q6DMZ/uFVna/rV3y +rqt6g/mjOPecTgJrRxyc04W9gPP5hvD1IwQK7n4bMj/tAXXWJyt/sK2x0ju+ +tdUDYpcWTj4eJTBX/PDdjmIPUDTea7ptjMC+Rp53hy95gPmIj4T1bwIj+Kf6 +eXg94Jnsl/SkOQJrFnC1DuM82NyOKKFxM7AxxkTpj+dZINU7hwfZvpzWG7zr +yFmY/LpxQy4PA7tazkdn65yFELkK/x0rGOhYp7m5R+gsFFSN6Tjws+Pd+7Y1 +ZLsD/+Le+jQhBurlSUjdGT4DRU7Le5lSDMxQKrd44OcGmnaefzmkGZiqNbC1 +x9ENXpoNiLaxPT9/hrFrvxuU69UY3JBhoNiPssuO0m5QRQQ/GyMY+Dx9F7dd +8Glo/s7jWyTPwJRw/QNOsq7wy5xHeI8mAzudyvvKrjmDm9EFeboWA+da4Hyn +jTNM6PfrLLIdoHeFc6u6M0yrV3s+1WbnF3Jq9NbASVgQCfomvJ2BWe2xvxv3 +ngTeRu7MDj0GLjfUE3eUcQLCgHu762EGesZ+XNEy7gjRMW8Ht5owcKA2pSC1 +0RGW994I5zJlIH0P3734PEcYviTcE2vGwIunHCy4PBwhv0A6qNKSgcnnnn4o +XjgGu2hadWL2DOSYHdgXtfoYHJ09bV7pysAyVdXiFFMHaNFR5bx5moHD5epx +W7QdQD9iOtPMjYEOKeGpozIOIK94cWHkDAMfnyi8Vj1qD5MOIffEzjPwlfbB +R6LB9hD4Ma3XxYeBh1Z8oPG9soO09C9nxIIZuG6ls5foHltIutsl0cn21x++ +fxXVbCE2sr/6wXUGLhCyBg5SthB6ZUpSNZSBSZMH9HYOHAF3m9Xv9t5k4Da/ +ho5u7SOwfe1umYBIBpquUnnn+9savl190TiSzMCS0jtt265ZQqvvfxfzUxg4 +HR3/Zq2dJTSerWL53GegwJvZSto2S3hj1+y3PI2B6i26HO8mLOCJ9thG2QwG +0qQeZFvZW4D3FDPALIuBwVbW4YcNzEH0WIxqZREDZ1ts6+e0TKHmSUVVfDED +i/8bfdgibgqekyPm7iUM/OV+81nPjAm0Bezyp5UyMDbcVzMi3wQS74+/v1TO +QJezerUqSiZA69rjuK2agcTwZMx2pcMgZ8kRV9DMQNf+dOevRgeh476cfNgn +BuqIdWTbqR2EG0Mm/x1tYec32qaySvwgjHpl9Qq3MvC6maBIb5cxPIu1UHFv +Z6DQvSPz592NQa0lv1axm4HefJZL/yQaARg5/c34xe5fteQWUYED0DXaL31m +jD0frhtvf/21H/xvOO7UHGfgi6Fz3TWV+6Gi2iH4/QQDlRQKm4xP7QddykZo +fIqBld2KBnLl+2Cf3EGG5gJ7fobMPme67wWrZdr73i9n4kby2+s2jj2weL/E +LWoFExnOwgW+7QaQhJoRNrxMPFfVEmtUaABdPuqtY3xMbDtZKRdxygCOTijb +i6xi4uyLQ0zX9t3g3MnwsBFh4rpEzo+7K/TBu0gwaYzGRKfKT4XtubrQmJH3 +8J0ME/c6JBuV3NaFjdEmeWmyTPTfrh9a56oLX9wTa8wIJpY0nC4IltOFrfKs +3+UsJqqKWP82ytCB6STQv7OJiXk1nk3jGbvAPdB1QlmbiULCJczrtTvgnfvq +RT6KiafWbX+i9nQHyNjl8/SxLWR214o/Ygc0aM9LxCMTnzwuNVC33AFKM1f1 +OHcx0ftmb77vyHYYdbqb2GjAxI4g34Q74tvh5P73umfNmEj/OTGfLgGQG1HR +RZkzsfRajV/lGAXzn19481ow8Xbyem3JNxSE2D7ITrFkYviGN+JBrhRknvFb +W2/DxL4cM5B7rQ0/I5T65I8x0fCQwzJX721wqjXyat8ZJga41CcXCWpCvkSo +VK47+7zSyvHunxqwYHu56OJZJsYeta6Fag24MegysuY8E6uu3OWM8NOAJ/O6 +h3d6MhGQ9THm11YYlpijJ/sx8UPnkaff2tTBxc76tXkoE2tEn0eHN6vBtv0x +trQbTPR8nr1dp1AN+LUbFgbYXjUjFkeLVYMnYjpqnjeZ6Dpz3dnESg2GP8qn +R99h4pvTAgGZfZvhJLUQ1BTDxItHJ26+59wMJ9Yn7NmbxmS/X1fuCjJVga0r +PvWvecBEOxDx4aFUYPmMQGAH28fkwloz6SrwsPHKS+cMJkqPF+tZTChD//WT +CiGZTNy9zbnW5JYyOM5qrKp+xsRlLyc/3/2oBA6fWhuxlIl/uEs7TOsVYUhY +3VS8jIkCP5xcG1MUwc04qn2c7UTnhJzws4rg99Go5345E2/KnXjWLaoIsW/f +TS19zUS1tD3OBQ4K8KH0pdjbd0ykGWpFfuCRh63pyTZGrex62f3OVrlEwn89 +f7vJL0yMoO90SzcjQVfW+jhnGxPJwLOCh1RIOJgs7pbXzkSvDJloyz4WuMaH +XxbpZKLu3UpXISMWpN4MTPvSy0Rns+8ZLUpMELhwYsjuNxOfLnm34YYoAVf5 +1v2Vm2Ti7ya7mdI5Oizcq109zXbrxLVH4h10GKpR1AiZZuLjOM7cvSl0qFo3 +FZQ7x8QohfYV9xXo4Fd2meDiYOHGiear7/bKwsiyBNs0fhbaK8nm3MukwdF4 +w3OuK1nY84S3NuUODdoU/wZtFWDhdb853mpPGtSY2j19v4qFnUOqGt56NEh7 +xPw7KcRCl7p8Lr8+abDam5+gI87CT7mjdQ0bpeF9ZF1LH8HC8+ZpTi3RkjDv +ldr4isHCUdoa0zNOksA64vUhkcnC3EsHQ4y2SUIASVQZkyzcre0q1dUtAZpl +vgVl8iwsz3DK3agqAY/65SKjVVmYE3e4R6JrHVzTDDHS3c7CMgbJ+/GEGORL +2e6l7WBhk1/WkPFOMeheumX3Atv1G2+sEdwgBtofv2PuLhbaFKkPbm4WZX+/ +NJQ26LPwWknpZqmdomAfNiAwvY+FDaPvB+Xl1gJ06b5/YMXC566jD+Zpa2DS +1fadrzUL/9xrK4nlWgOZi141B21YeLJR0PNorzCsXZ/1eoktux7eW5oCHgnD +8GHhUmsHFsYL7ilqUxWG2NrOLJGTLKxL2pH99IAQTBR63rp6gYWJ0qv+bXsk +CA91wsOsPFkYo7ZFXvi2IFg3Pw5V9WJh7KZXqqsuCELN+Leg794s/HBr7NcF +HUG4J6/jr+3HwuqhHg7+mlVgeH/1malAFlaF0c3f7heA9LBM42PhLAwa5PHw +CecDQ3fRLoUIFkZnx7bEOfPBhEmgyzTbejx3Wkd38QElbRMcFMXCmbyqW1qz +vPApd3XZo1gWCp3KDjW144WlrZ7kaBILDT5KCpprrwAHGT2OC49ZSM+QCbqz +jgeW8+SHsX8S0TuvtWtmjhuyf0qvX57Fwmnuq8I3vnDDfP68Wlw2e57We3Np +x3FDuF62c0kOC5vf7JEqXscNFadEPv97zsJN8YJjQ8QykH7+Iyv4NQt3tHuE +XLXkgovD52Tt37Dvf0cjq1ebC9po3HFaVez1wZ//nJHmgogbrMDRahZ2dycr +CPVxAre9i8WhWhbuPLVocuwsJwzzz3BLN7LwQvNYhUT0Enhhz2v7vJOFBR6L +EqzJf5RIbMKn210sjPNa4qtR+Y9yr5Pfc/I7C/eubI6MCv9HyW3dv0XyBwsv +Ni0qyKv8o5JWRvIH9LHwDt+p4qpzf6nAF5JF+0ZYeFi8ebsRzyK1X0BZqG+e +hauUU+2+2sxTiXEiojl/WKgkJLhRVmOeGqLPr/ddYKGGddLbJOF5KlCrkhD6 +y453srLa8naOenHisAa1hES6e1Toty1zlHSll200D4nvvz3TaVw/S41dqMjW +XUPi/WiLN4d5pyltroy81SIkHtCb43w3NEWF3Ax90cF2tfo3Q+faKYr+4FCF +uyiJxuLHl20Om6LMGvs+Ja0jscnykcRnoSmqXJ5vcVqaxNCg2GQFxiR15/vB +PRkKJAaDj6eP8wTluNbX2FWRxPLcKs5kowlKc0+audomEgsrut8MqE9QPfmT +xyuVSHSXuyTft3SC2hocFdipSqLcT7Wlocnj1DfFz6WimiTqtgRwG38bo+R9 +LZSCdUkU0si/JNY7Si3JuaK+X4/E1oS/XIVFo1RLbya1Vp/EKN9Jk9s3Ryn/ +/X8M03aT2FDkLDK/dZRqkkl0KjdkXy99SVXs7RHK++3X+7PGJAYM9i8UGwxT +1WvtRJyOkFgzZz/gNDBIGSdmLd1uS+IO/zfEWPkg9Y02/1vMjl3PogOuuXGD +1LR8RGONPYmbHwkWDO4ZpOg739xiOZKIRW67xPMGqCunSd6BUyRCGv3iphv9 +1Laa8b+O3iT2xIt4/XTspWr2UqOUD4mP3Z4nGur2UoeaQr6u9SVxttf8aCfR +Szl/k31ZdZHEQ3IpubG9PVT85GEvxmUS63q4SePjPdSMdPHv3iAST7aFtiaf +/UHlel0ZOBpFYhkfIVGV9Z1SPCxzXDGaRJHHscykyO9UplJF7wzbksxb43E+ +36n7/Ut+hMSS+N/xqOk/u79T4Ycvf32WQOL+mNt7jg50Ue7K/o0LKSQSkcpa +CXJdlPLgxZeR2SR66nmW50R+pZ68ltSyeUri1itfr8Sc/EqxkkuLmM9IjFAv +lCzCr5S06WJhcQ6J8e6p17NHOijBN745XfkkvpMpFDA36KDGkn3S5UtIrDiy +bPyoQDv1zMzr9utqEju0vrgr/ddKqb0i/R7UkNgWXfq1M6aVKibbnK+9JXEF +d2lmnVsrVTmvqadfS+LzTJcue9lWqiVxYbH2A4nmPiwhp9DP1ELXJeemTyTO +8zym7ji2UPpO13S7f5AYaP8Hm3WbqbqGLZsre0g8d032fQKjmTLW7Kel9ZIY +e4jhG83dTFny6S8e6ycxNY6Xh17dRLlmrcgfHCKRR2s/b4xBExU5foM2Pk4i +/4orbrEWjZS4hfaqxgkS087p2bhoN1JJFSMLub9JvHTjUrybdCOVEbGv9dwU ++3k4JvOFo7+BKlYTvDU7S+K4i1MgejRQVFK575c59nwFvZ65ZNFAVXKfOVk8 +T6JC1aD3T6qBev+5Qcd3gUTGsoQ4neUNlBFeUbVeJLE0tyxTdaSeanmoQqP+ +kvgtsK3QsLGeslj9Q0DqH4ne79553X5eT3V6RSz8Y/tt/OenfxPrqf8BiEoX +dw== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.8958903543750791}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.8958903543750791}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, {3.993137229502364*^9, + 3.993137233982954*^9}}, + CellLabel->"Out[21]=",ExpressionUUID->"4b5be0c2-be41-4858-bb23-40f5a46c7ceb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519993740715*^9, + 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ +f05e39e52441"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519995212555*^9, + 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ +f5e698425a9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9, {3.993137254178097*^9, 3.993137254228533*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.125, $CellContext`xmax$$ = + 12.040000000000001`, $CellContext`xmin$$ = 7.34, $CellContext`ymax$$ = + 0.899, $CellContext`yyv$$ = 2.605, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.7, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.7, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9, + 3.993137256416952*^9}, + CellLabel->"Out[23]=",ExpressionUUID->"659a43c7-6bc0-4a5f-a4c3-768d25b481b5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[24]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "12"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.993137312559327*^9, 3.993137312630745*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwBUQSu+yFib1JlAgAAAEQAAAACAAAARmIq2W+fIEAGCIBOhsSHP4dyRx9e +pCBAJzY6mUlUhz9xzvnBpM8gQPpqRCbhAIQ/no3wDgj4IED7y5dUNVOBPyg+ +xPzMIyFAJMCVa0alfT+o1rmRxU4hQEEQI1mJbnk/a9Lz0Np2IUCr6kydOQp2 +P4u/CrFRoiFAXIny/Gzecj/uD2Y75cohQJRiyB3pUXA/R0jjbKzyIUAYKmzS +JU9sP/5xPT/VHSJArUwlintBaD/3/tu7GkYiQGVnaQtZ/2Q/Tn1X2cFxIkA+ +S2xG9/RhP5vj9J2cnCJAbIDljrTMXj8qrdYMlMQiQGQEtn4BsFo/F2iVHO3v +IkAEJnOZSthWP0aGmNZiGCNAEY2q8y/CUz/TlXgxOkQjQH9I5uX04VA/Vo16 +M0VvI0A8AL1Qxe5MPxvowN9slyNAZKF70K8MST8+NOQs9sIjQANksO/zbEU/ +o+NLJJzrI0ApHJu8QIRCP/961cJ1EyRAP1BvkV4MQD+4AzwCsT4kQEOJCodt +ezs/tO/m6whnJEAVSCQPr8Y3Pw3NbnbCkiRAKYTKDUpSND9ckhior70kQA0u +32sgazE/7roGhLnlJEAVFqgA5isuP93U0QAlESVAdIY1zLjQKT8PUuEnrTkl +QIMFhBN7USY/N7cS9mhhJUBcEpbXrFkjP70NIWWGjCVARDm3gw6TID+Fx3N+ +wLQlQIqOEbaFsBw/q3KjOFzgJUBTB2VKwocYPxOBF50UCSZAClFlyFQxFT9x +d62oADEmQAkfHEybXBI/LV8gVU5cJkA0S1WVC28PPyuq16u4hCZAzqEtx74v +Cz+H5mujhLAmQOEOKUSwOgc/2QoiQoTbJkBYDITVrOcDP26SHIugAydAY/ph +Xvk7AT9gC/R0Hi8nQAB19JrHe/0+lecPCblXJ0D52JiVfnv5PsCrTUSHfydA +MyyjyGUW9j5IYWggt6onQJ2pkSzr6fI+E3rHpgPTJ0CDWlXFal3wPkpnIZi3 +0ydAF8QlatpS8D6CVHuJa9QnQGIlp+BQSPA+8C4vbNPVJ0B6VyQxUjPwPs7j +ljGj2CdAe+F75aUJ8D6ITWa8Qt4nQLJj6KAbb+8+/CAF0oHpJ0CPe/fOgzDu +PjMOX8M16idAkZV84gYd7j5q+7i06eonQGs2a4qWCe4+2dVsl1HsJ0A7Qw93 +2+LtPraK1Fwh7ydAXc9e4fqV7T5x9KPnwPQnQGgfgvqI/uw+qOH92HT1J0DI +BpSR0evsPuDOV8oo9idAw/SQPSbZ7D5OqQutkPcnQBISH7Xzs+w+LF5zcmD6 +J0AOu2tJHmrsPmNLzWMU+ydABNiRrsZX7D6aOCdVyPsnQPeAy+p6Rew+CRPb +NzD9J0D2NOzJBiHsPkAANSnk/SdAxfCYXd4O7D547Y4amP4nQAOU5KnB/Os+ +r9roC0z/J0D4Oj6nsOrrPubHQv3//ydA1uMZTqvY6z7Ycest + "]]}, + 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:eJwBUQSu+yFib1JlAgAAAEQAAAACAAAARmIq2W+fIEAGCIBOhsSHP4dyRx9e +pCBAJzY6mUlUhz9xzvnBpM8gQPpqRCbhAIQ/no3wDgj4IED7y5dUNVOBPyg+ +xPzMIyFAJMCVa0alfT+o1rmRxU4hQEEQI1mJbnk/a9Lz0Np2IUCr6kydOQp2 +P4u/CrFRoiFAXIny/Gzecj/uD2Y75cohQJRiyB3pUXA/R0jjbKzyIUAYKmzS +JU9sP/5xPT/VHSJArUwlintBaD/3/tu7GkYiQGVnaQtZ/2Q/Tn1X2cFxIkA+ +S2xG9/RhP5vj9J2cnCJAbIDljrTMXj8qrdYMlMQiQGQEtn4BsFo/F2iVHO3v +IkAEJnOZSthWP0aGmNZiGCNAEY2q8y/CUz/TlXgxOkQjQH9I5uX04VA/Vo16 +M0VvI0A8AL1Qxe5MPxvowN9slyNAZKF70K8MST8+NOQs9sIjQANksO/zbEU/ +o+NLJJzrI0ApHJu8QIRCP/961cJ1EyRAP1BvkV4MQD+4AzwCsT4kQEOJCodt +ezs/tO/m6whnJEAVSCQPr8Y3Pw3NbnbCkiRAKYTKDUpSND9ckhior70kQA0u +32sgazE/7roGhLnlJEAVFqgA5isuP93U0QAlESVAdIY1zLjQKT8PUuEnrTkl +QIMFhBN7USY/N7cS9mhhJUBcEpbXrFkjP70NIWWGjCVARDm3gw6TID+Fx3N+ +wLQlQIqOEbaFsBw/q3KjOFzgJUBTB2VKwocYPxOBF50UCSZAClFlyFQxFT9x +d62oADEmQAkfHEybXBI/LV8gVU5cJkA0S1WVC28PPyuq16u4hCZAzqEtx74v +Cz+H5mujhLAmQOEOKUSwOgc/2QoiQoTbJkBYDITVrOcDP26SHIugAydAY/ph +Xvk7AT9gC/R0Hi8nQAB19JrHe/0+lecPCblXJ0D52JiVfnv5PsCrTUSHfydA +MyyjyGUW9j5IYWggt6onQJ2pkSzr6fI+E3rHpgPTJ0CDWlXFal3wPkpnIZi3 +0ydAF8QlatpS8D6CVHuJa9QnQGIlp+BQSPA+8C4vbNPVJ0B6VyQxUjPwPs7j +ljGj2CdAe+F75aUJ8D6ITWa8Qt4nQLJj6KAbb+8+/CAF0oHpJ0CPe/fOgzDu +PjMOX8M16idAkZV84gYd7j5q+7i06eonQGs2a4qWCe4+2dVsl1HsJ0A7Qw93 +2+LtPraK1Fwh7ydAXc9e4fqV7T5x9KPnwPQnQGgfgvqI/uw+qOH92HT1J0DI +BpSR0evsPuDOV8oo9idAw/SQPSbZ7D5OqQutkPcnQBISH7Xzs+w+LF5zcmD6 +J0AOu2tJHmrsPmNLzWMU+ydABNiRrsZX7D6aOCdVyPsnQPeAy+p6Rew+CRPb +NzD9J0D2NOzJBiHsPkAANSnk/SdAxfCYXd4O7D547Y4amP4nQAOU5KnB/Os+ +r9roC0z/J0D4Oj6nsOrrPubHQv3//ydA1uMZTqvY6z7Ycest + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.011605309744485492`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.011605309744485492`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwBUQSu+yFib1JlAgAAAEQAAAACAAAARmIq2W+fIEAGCIBOhsSHP4dyRx9e +pCBAJzY6mUlUhz9xzvnBpM8gQPpqRCbhAIQ/no3wDgj4IED7y5dUNVOBPyg+ +xPzMIyFAJMCVa0alfT+o1rmRxU4hQEEQI1mJbnk/a9Lz0Np2IUCr6kydOQp2 +P4u/CrFRoiFAXIny/Gzecj/uD2Y75cohQJRiyB3pUXA/R0jjbKzyIUAYKmzS +JU9sP/5xPT/VHSJArUwlintBaD/3/tu7GkYiQGVnaQtZ/2Q/Tn1X2cFxIkA+ +S2xG9/RhP5vj9J2cnCJAbIDljrTMXj8qrdYMlMQiQGQEtn4BsFo/F2iVHO3v +IkAEJnOZSthWP0aGmNZiGCNAEY2q8y/CUz/TlXgxOkQjQH9I5uX04VA/Vo16 +M0VvI0A8AL1Qxe5MPxvowN9slyNAZKF70K8MST8+NOQs9sIjQANksO/zbEU/ +o+NLJJzrI0ApHJu8QIRCP/961cJ1EyRAP1BvkV4MQD+4AzwCsT4kQEOJCodt +ezs/tO/m6whnJEAVSCQPr8Y3Pw3NbnbCkiRAKYTKDUpSND9ckhior70kQA0u +32sgazE/7roGhLnlJEAVFqgA5isuP93U0QAlESVAdIY1zLjQKT8PUuEnrTkl +QIMFhBN7USY/N7cS9mhhJUBcEpbXrFkjP70NIWWGjCVARDm3gw6TID+Fx3N+ +wLQlQIqOEbaFsBw/q3KjOFzgJUBTB2VKwocYPxOBF50UCSZAClFlyFQxFT9x +d62oADEmQAkfHEybXBI/LV8gVU5cJkA0S1WVC28PPyuq16u4hCZAzqEtx74v +Cz+H5mujhLAmQOEOKUSwOgc/2QoiQoTbJkBYDITVrOcDP26SHIugAydAY/ph +Xvk7AT9gC/R0Hi8nQAB19JrHe/0+lecPCblXJ0D52JiVfnv5PsCrTUSHfydA +MyyjyGUW9j5IYWggt6onQJ2pkSzr6fI+E3rHpgPTJ0CDWlXFal3wPkpnIZi3 +0ydAF8QlatpS8D6CVHuJa9QnQGIlp+BQSPA+8C4vbNPVJ0B6VyQxUjPwPs7j +ljGj2CdAe+F75aUJ8D6ITWa8Qt4nQLJj6KAbb+8+/CAF0oHpJ0CPe/fOgzDu +PjMOX8M16idAkZV84gYd7j5q+7i06eonQGs2a4qWCe4+2dVsl1HsJ0A7Qw93 +2+LtPraK1Fwh7ydAXc9e4fqV7T5x9KPnwPQnQGgfgvqI/uw+qOH92HT1J0DI +BpSR0evsPuDOV8oo9idAw/SQPSbZ7D5OqQutkPcnQBISH7Xzs+w+LF5zcmD6 +J0AOu2tJHmrsPmNLzWMU+ydABNiRrsZX7D6aOCdVyPsnQPeAy+p6Rew+CRPb +NzD9J0D2NOzJBiHsPkAANSnk/SdAxfCYXd4O7D547Y4amP4nQAOU5KnB/Os+ +r9roC0z/J0D4Oj6nsOrrPubHQv3//ydA1uMZTqvY6z7Ycest + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 12}, {0., 0.011605309744485492`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 12}, {0., 0.011605309744485492`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9919643389546776`*^9, 3.9919652326803303`*^9, {3.993137307161838*^9, + 3.993137313070874*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"a47c2e72-c631-4e7e-bd88-d00fc31f6624"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519998013506*^9, + 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519999593614*^9, + 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = + 0.5650000000000001, $CellContext`xmax$$ = + 12.040000000000001`, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 0.01, $CellContext`yv$$ = 1.145, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.993137371803329*^9, 3.9931373722296753`*^9}}, + CellLabel->"In[28]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1HdYz9/7B/CmIhRK6r1er6RFSUtFr/tuUKEhGhpU2kND6tOg0o58Kwol +7UFRiBYVkkpURGZDE2kSGvzev7/O9bjOfa7r+TzXuQ7p6GPmzMXBwSHCycHx +/6tU8+MNrUJi2GtND/v58j6U352TCNouhr9NPgftVqqF491u61cGiKFAm86B +FQn3QNdOKvTOXTE8Gd/T6r78DvA8SreWmRNDGY6QXx4CFXCtzlvDQEkczWq6 +1s/uKAUbVnJCyHFxjL/HFZJZUQRTomLvLCvE0YDukGm0Oh8Cxw/mc42Lo97j +ehUdjhxYvvljb8MWGs68qX2sbp8BFp+fht+Sp6HTYIo2n1EGFFy+Q+Qr0FBy +7yXHzxoZgPxnHGMVadiYV+tfvy4D/hvWGNmnQsM4rWiBVS2XYST74vd3O2h4 +UOm99F+ly9AkfGBxdg8Nk8Zan3CsvQQRf1vFZNxpWGy5t0d4Ng0CB0N4FDxo +qHfHZSBkIA28WjZPKnvSsGTlse7vHWlglZrUBN40XKrZaj5flgaKUvt9LP1o +GJjUMFDmmgYDRm+bYoNpWBf+Sdmv7wLoZI34DCfQUNb+YQe8PQ/cO7mb867T +cFxn1svgewq4jV8dyS+l4aO28pnJ3hR4cUWTr7CMhio0TeG8zhTIWPIzKL5J +wy9+8YJSlSmg1NDfVnqb3S/NW7YsNAXsdeo7KmtpuC7yGl/pyhR4YBD8rrmN +hlsq4xf11JIhyHxy/OtXGlYoDf/gMEoCxZz4mvffaCgR2JLfqZYEX7+SsW3j +NKzZabpUTiSBbcRB1vUJGkYE7UzI+nEWdEpr9rvP0HCT+PofSllnYRVn9L3R +PzSczT6VS02fgfyyDRFD/HSUTs8uTS9IhA5unXW9UnQ8+iR2ra5aPCiG5ch+ +lqZjzQc/DgmJeEj98RdGZOj49I9vkdDqeLAYrvOakKOjcHDJBH0kDj42qzb/ +VaCjuYy21lR6HIwlyAazttMx95Tt/v8WYoFTaE2fvT4drz1XiHvcEQPK9P7r +g650ZE1r+HPnR8GYwk7vN250FHql/TP9fBRc1b60tdWdjkbCGyZUo6OA39W0 +8qYnHXX6NSTSnaPg463GB8E+dFQOOnu/VyYKYvRzOwWD6Ohx03l54q3T0OPv +OLcjln3+go+T8LNICG0d0r5QQMfzIyU/7RkR8Hb5MuPMQjqKZmtFxwpGgNoe +aeu8IjoWh065VnFGwFSbu39FCR2hTUUssD0cXNon8trL6Jh0VK4u5Ug4mHb8 +5ua9S8f/9KwSJhJOwabXK5tPPKHjn+Tsb20TYdDRr7LHcoSOBiei1NN/BsOV +cTx7aJQ9PzinfaIvGDx+73thM0bHOJ5iK5fWYOARcjaz/0rHDwm8QaeygkEd +0qzdJ+ho86h8Pnp3MORk/fQInaNjbGm/WV/mf+Bvfe9M9jIGaiW8fOR1IAhE +urc/H5Vi4GJi3V+J2QBQC9GueyvNwPytG5kHPweABbH3WqsMA2Oe+6imdgXA +Ja/DMaVyDFTsVpFSrQgAcd4YLR8FBiaYywmIHAsAQu3ljTlVBvoaW7SrjB8H +uUte53h3MXD37tjyyml/oGxzTTYeZeB0Mefa5yw/4FP0jZNxYuBU+/TGdiE/ +6OSGBnlnBqa5+4/2cPqBY+lHBXVXBh4/etFaZMgXYuZFVxt5MlChSq5H6pov +tF861x54nIHi50ifTFVfOPQ61LAtioGpGu7hq8qPQYCxha5fAQNVDm1quRPi +Ccn3JaSdCxk4aNslLOjkCTfkJlccKmLgu/ypoDAjTxhZFv8SSxg4uf3yniTC +EywbahyEyhh41pqWH/PUAzQVGRHldxgoy9i378kGD+BYO3T/+yMGbs29/mRj +ixskvfZT8xhgYIe5llWapQuIC8qaHvrMQKmfV/q8drlAkUG/u8EgA3coWj00 +U3aB+jrjLKlhBp44FuFmKOgCE7mbeQbHGPi077LowFNnMD023GUzxe7bWZVb +scMZ1vId8jb6x8CfaRe3xck7wUV1LFBkMPFmgeGu/u2O0J59n0+FycQXrL/P +aqUdgYNPw3M7i4nyVaP6+aKO4PZ6mxJFMpEx/3cq65cDaPpvbNy7iYmTnfee +qFc7wMfSZR9d5JkoZ2R5en6HA0iwnq/L0mLioUR5O3sje7jJax21/DAT22qF +ZJrk7ECNrzt1ge05Vc7uqLV2UM9vnPf9CBMNL7eqW87bwgsBnYddDkwM45uf +UG+zhYk1cv8uOzPxpBHXkREPW5BnzofIeTPxjpvG4odyGyhTy/DfG8ZEx4O0 +r6361nDN9b1DUgYTtx09wZdaZgnv08XqzmcyMTjWLXLTRUtY0WwlnHGFiXHz +AkvPIi3BQ7KnuegqE3vvCVbvt7QEuYFXmxvzmLiiuDiQ4raE69bPf85cZ6Ju +u8nq/x22gDKjxgSrOibuFExbky1hDhXKRbc2fmTigR77WrVPZmCq0ImbPjFx +A43J49huBlMy8x1SvUzc+IZT8EqdGSgyjSdk+5mYmjytujPDDMr55+QUh5h4 +wjzXY7OVGdz8tKtg5zgTvwdw5NW+2Q9lccPp5otM/Oy474t+rymUfJAMi6Oz +cKD14T0VWWO44ruvKojBQvKB2RUuIWP4H2/AjCuThXBKV3N4zggCtz52MyBY +KNXYbjvWZAR6UQ7myyVZmG3Le2zIwQj65K4qnNnMwu/8I4GF2ftgfYjowDlN +Fo5/P37kg+xeiN6wYne6FQu/LLlPN5wwAOLDXFvGIRZO2N3wiT1iAHVZgybZ +1ixUszHosTc0gBmJB4dKbFnYynxE388wAAd5X+9aexaGxJRkMpr1gdJ5c6HX +jYVbonb6WtL04bdn3qBUMIv9X5/NfPdqF3g1aEZWXWah8VS33dVgXbChb7p9 +PYOFmeosr5XuurAnWHAwK5OFsyvrXeKtdEFWeUgvOouF+edps9e268JIURL/ +/lwWHvu2SzZ1TgeOnOv/39cSFsqSKYrfA3XAzC72KqOahd4Dz4ojIrVBfaGr +LuoNC4XDg07nBQFc3Fgs4d/DQhWXSSMzO4C5vWEJ9m9ZOPM6/IOoLkDlFSlL +rfcs9KjYMTe4GkCRCp2Z+8TCIH4X6lQxBTKRkrIewyx82Sj0pfSjFojyBaWb +/mBhTcSe8QCLnRC6/Fz16uUEFhsoVytFa8AplQ9CyWyLBDSq//PSgNNHZNzX +rCCw63RnZr+5BiTefSQmLEDgDdbJhgFpDbjk8CtEbBWBZ9VzQz60q0Nljb2W +5Br2vk5l/xVxdZhwV36kIUZgyeh81ocmNbBve/vMSZbAgqCSHZmmKnDukWTI +J7anRFsVzUEF6mp9ZSzkCJxc5lXJUFCB9aX8MfqbCWxa+1HtvYAKPDujTsnJ +E5jswPn231NlUDO6VDGpSODjeFmZWR1lWNlpmRaiTuCM8Of3MrpKUPX6zeFk +fQItRO5FOnsoQrUTr9I6AwK5WxM8tGwUoXZWmTed7XgVddWN+xTh/pqU0kxD +Ar3qZ7Q2KCjCI6O9v4v2EvjdoyfcaHgrvHjSkPLAhECuyK7otEUFGLlb0vTV +ksAqdYe7dyl5EE4PkdvlRuDDmdkVO1fKAcwUH2hgW+X9+e33f8qCh/HrMA13 +AmmGC+UmfbLwcJlih7wHgeNVd3QqbsvCsaDh4+u9CNTgbZOxsJaFFivTB6M+ +BPpwPfgmdUMGwmhSpolBBL6qn84/Zi8NgzldJzpiCdy96qT+gXlJaHb8oaEf +R+C5uagb8WOScF1S9G892xGKd9Y8fyMJviW2sTfjCcz1jc87fUcSFstH05MS +Caw4qJWY7S0Jwg1LVXvPEfiFlVGZNrQRdn+SnX+aRqD8A+l01icJuC52+lRj +AYEhjXe55OYIcPCPc9UpZOfzSR1OHCFgw7Ozpk1s22+KXT//hoC4sIsSLUUE +jj1pV+CuJsCpr6y5o4TA5X3rO+tDCGAU9qzuKyPwQJ7W3U4uApIV5bOXKgm8 +GKJZIqTJhCD9tw2aTwi0xMjl7hPiYOX98e8dtuWki8s0e8RB/Xy/lnwzgUft +W2SJRnGY7x2rYz0l0GBDyjGpVHE4FfiniqeVwLux9kbM7eIQWyhe8aKdwLcj +f0bKosUgndsux7GbQLvXTind8hvgXsNAROIgget+5CtOV4qAZ1jL0KohAjue +D2y9kSMChEa5QQrb/jbJPGFnRSDxdpjQpWECi4iWsf1OInC4UDSncJTAUu7u +mo/CIsB3xqih8RuBZUe0Mo8EC4OVRc3S3CyBAla9zkUm62BhPDnkKA+J1Ula +sS3ya8BN0Dt4iG0h7yFLXuYa6N5m+J8zL4kczL/JpqvXwM1AzkDXZSQqFWvz +rp0UAkcOfz9PfhJPEzmJcEsI2tYdcDu+ksQY98hXGupCkKEpYhElTOJvdxOh +kpzVoBF/eVu+JIk7193nETISgM6ggFjaJhIHm0W+l6oKgIuryYfzbGtstXtu +wxSAC7t5Y6KlSMzqntn2a3IFTPL4vXWWITFNZ1ml+IUVUBhpEC6zhcR8Tzeh +Zf3LYU3or/YbyiSmXA3PX4zhhy/e5m7VOiQ25L8L5+dbBgd/rP2sqUtiqoTd +9XMzvFAf0mnzgO3ukzefS/fywoW4vSaP9EiUvvayOvUuL2Cutlr7bhKP6O7a +YejMC+nd8jz9e0ismq76KdvCA3o7luXwHSBxgaSn7srkhmz+qh6Lo+z8cjVe +vsc5QcX2eHEn28dfiisYOHFCS/nWoD1OJL74tCgob84JMxYl6ylnEmfnePiZ +2zlBr/Cy+SZX9n1bpJ/LXOCAL9phr2Y9SNy0VIQLsRygHKrdkexPYuhajV9c +xv+op9+fNbdFknjfqrOja90iJVx8cpvOaRKtBCJyhhcWKHv7rVdq2H6al/Nk +1dACNf8y1a8kikStQq+WjMoFakv1IXpsDHv+8EBXocUClXx61E87gcRfCiWK +flfnKStRbkZ1MolD2//1ue/8Q42h5vHCbBJXvTDUOHFzjuJPecElncPufyrj +RujlOUp2wDG1hO3A1sHQtOg5yiPyzK3SXBJN5Hb3cdnMUd8ffpy8lU9i1wLr +1SP+OWpGJ9yrvpjEhzK+Si2uP6lFvSbnnnIST5BipL/yD0rQ0NhqeSOJ9t5h +SfVL05S1y4DWaba37DpYoToxTRVEBWxcYPs/+2+qtb3TlHp9xsT4QxJ7hI/u ++NYwTTkqj0Z3PiaxmH9y8tvpaeoeI+LWxackHuBbkjgsME3ZztxaIdXB7nO2 +vKF60xRVkinyQKeXRFUnN9f5hXEqZZXY7Va2/yrmdvL3j1Mh4fRi0z72e5vt +Yig1jVP7jm5MOdxPotvXhcXus+PUlNw255DPJHqZ/+Q8xBqnNGr3rbo9QqLZ +jN5aPcNvVNvbKDtyksRkpe3x8+VfqDt74sxK2Lb39dFRvfiFunI/UX/rFInn +m751x536Qh3LSdmmNU1ic7eydIDRF2qtWzbvoVkSH6+w43UdH6NsftXeSP5F +ov7rkjV5CmOUnnt9nuhvEhP2aTeZiI5RCh8eXrzK9nOOL1/XcYxRHA0tkWV/ +2HlaNam+rlGqIPaNecsCifP7theFB45SSb/f7TFZJFG0jC+v98goFejxCd6w +vSW/wPWA4ShlYDwkO7RE4vsf+Ysn6aPUtsZRpudfEvM2uOUpLxulxJW+rZth +2x3v1/+dHKG4Cyb4g/+R6DTHpdX3boQaF5lZ+sd27Knb/K8fj1D/BzjcmiY= + + "]]}, + 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:eJwV1HdYz9/7B/CmIhRK6r1er6RFSUtFr/tuUKEhGhpU2kND6tOg0o58Kwol +7UFRiBYVkkpURGZDE2kSGvzev7/O9bjOfa7r+TzXuQ7p6GPmzMXBwSHCycHx +/6tU8+MNrUJi2GtND/v58j6U352TCNouhr9NPgftVqqF491u61cGiKFAm86B +FQn3QNdOKvTOXTE8Gd/T6r78DvA8SreWmRNDGY6QXx4CFXCtzlvDQEkczWq6 +1s/uKAUbVnJCyHFxjL/HFZJZUQRTomLvLCvE0YDukGm0Oh8Cxw/mc42Lo97j +ehUdjhxYvvljb8MWGs68qX2sbp8BFp+fht+Sp6HTYIo2n1EGFFy+Q+Qr0FBy +7yXHzxoZgPxnHGMVadiYV+tfvy4D/hvWGNmnQsM4rWiBVS2XYST74vd3O2h4 +UOm99F+ly9AkfGBxdg8Nk8Zan3CsvQQRf1vFZNxpWGy5t0d4Ng0CB0N4FDxo +qHfHZSBkIA28WjZPKnvSsGTlse7vHWlglZrUBN40XKrZaj5flgaKUvt9LP1o +GJjUMFDmmgYDRm+bYoNpWBf+Sdmv7wLoZI34DCfQUNb+YQe8PQ/cO7mb867T +cFxn1svgewq4jV8dyS+l4aO28pnJ3hR4cUWTr7CMhio0TeG8zhTIWPIzKL5J +wy9+8YJSlSmg1NDfVnqb3S/NW7YsNAXsdeo7KmtpuC7yGl/pyhR4YBD8rrmN +hlsq4xf11JIhyHxy/OtXGlYoDf/gMEoCxZz4mvffaCgR2JLfqZYEX7+SsW3j +NKzZabpUTiSBbcRB1vUJGkYE7UzI+nEWdEpr9rvP0HCT+PofSllnYRVn9L3R +PzSczT6VS02fgfyyDRFD/HSUTs8uTS9IhA5unXW9UnQ8+iR2ra5aPCiG5ch+ +lqZjzQc/DgmJeEj98RdGZOj49I9vkdDqeLAYrvOakKOjcHDJBH0kDj42qzb/ +VaCjuYy21lR6HIwlyAazttMx95Tt/v8WYoFTaE2fvT4drz1XiHvcEQPK9P7r +g650ZE1r+HPnR8GYwk7vN250FHql/TP9fBRc1b60tdWdjkbCGyZUo6OA39W0 +8qYnHXX6NSTSnaPg463GB8E+dFQOOnu/VyYKYvRzOwWD6Ohx03l54q3T0OPv +OLcjln3+go+T8LNICG0d0r5QQMfzIyU/7RkR8Hb5MuPMQjqKZmtFxwpGgNoe +aeu8IjoWh065VnFGwFSbu39FCR2hTUUssD0cXNon8trL6Jh0VK4u5Ug4mHb8 +5ua9S8f/9KwSJhJOwabXK5tPPKHjn+Tsb20TYdDRr7LHcoSOBiei1NN/BsOV +cTx7aJQ9PzinfaIvGDx+73thM0bHOJ5iK5fWYOARcjaz/0rHDwm8QaeygkEd +0qzdJ+ho86h8Pnp3MORk/fQInaNjbGm/WV/mf+Bvfe9M9jIGaiW8fOR1IAhE +urc/H5Vi4GJi3V+J2QBQC9GueyvNwPytG5kHPweABbH3WqsMA2Oe+6imdgXA +Ja/DMaVyDFTsVpFSrQgAcd4YLR8FBiaYywmIHAsAQu3ljTlVBvoaW7SrjB8H +uUte53h3MXD37tjyyml/oGxzTTYeZeB0Mefa5yw/4FP0jZNxYuBU+/TGdiE/ +6OSGBnlnBqa5+4/2cPqBY+lHBXVXBh4/etFaZMgXYuZFVxt5MlChSq5H6pov +tF861x54nIHi50ifTFVfOPQ61LAtioGpGu7hq8qPQYCxha5fAQNVDm1quRPi +Ccn3JaSdCxk4aNslLOjkCTfkJlccKmLgu/ypoDAjTxhZFv8SSxg4uf3yniTC +EywbahyEyhh41pqWH/PUAzQVGRHldxgoy9i378kGD+BYO3T/+yMGbs29/mRj +ixskvfZT8xhgYIe5llWapQuIC8qaHvrMQKmfV/q8drlAkUG/u8EgA3coWj00 +U3aB+jrjLKlhBp44FuFmKOgCE7mbeQbHGPi077LowFNnMD023GUzxe7bWZVb +scMZ1vId8jb6x8CfaRe3xck7wUV1LFBkMPFmgeGu/u2O0J59n0+FycQXrL/P +aqUdgYNPw3M7i4nyVaP6+aKO4PZ6mxJFMpEx/3cq65cDaPpvbNy7iYmTnfee +qFc7wMfSZR9d5JkoZ2R5en6HA0iwnq/L0mLioUR5O3sje7jJax21/DAT22qF +ZJrk7ECNrzt1ge05Vc7uqLV2UM9vnPf9CBMNL7eqW87bwgsBnYddDkwM45uf +UG+zhYk1cv8uOzPxpBHXkREPW5BnzofIeTPxjpvG4odyGyhTy/DfG8ZEx4O0 +r6361nDN9b1DUgYTtx09wZdaZgnv08XqzmcyMTjWLXLTRUtY0WwlnHGFiXHz +AkvPIi3BQ7KnuegqE3vvCVbvt7QEuYFXmxvzmLiiuDiQ4raE69bPf85cZ6Ju +u8nq/x22gDKjxgSrOibuFExbky1hDhXKRbc2fmTigR77WrVPZmCq0ImbPjFx +A43J49huBlMy8x1SvUzc+IZT8EqdGSgyjSdk+5mYmjytujPDDMr55+QUh5h4 +wjzXY7OVGdz8tKtg5zgTvwdw5NW+2Q9lccPp5otM/Oy474t+rymUfJAMi6Oz +cKD14T0VWWO44ruvKojBQvKB2RUuIWP4H2/AjCuThXBKV3N4zggCtz52MyBY +KNXYbjvWZAR6UQ7myyVZmG3Le2zIwQj65K4qnNnMwu/8I4GF2ftgfYjowDlN +Fo5/P37kg+xeiN6wYne6FQu/LLlPN5wwAOLDXFvGIRZO2N3wiT1iAHVZgybZ +1ixUszHosTc0gBmJB4dKbFnYynxE388wAAd5X+9aexaGxJRkMpr1gdJ5c6HX +jYVbonb6WtL04bdn3qBUMIv9X5/NfPdqF3g1aEZWXWah8VS33dVgXbChb7p9 +PYOFmeosr5XuurAnWHAwK5OFsyvrXeKtdEFWeUgvOouF+edps9e268JIURL/ +/lwWHvu2SzZ1TgeOnOv/39cSFsqSKYrfA3XAzC72KqOahd4Dz4ojIrVBfaGr +LuoNC4XDg07nBQFc3Fgs4d/DQhWXSSMzO4C5vWEJ9m9ZOPM6/IOoLkDlFSlL +rfcs9KjYMTe4GkCRCp2Z+8TCIH4X6lQxBTKRkrIewyx82Sj0pfSjFojyBaWb +/mBhTcSe8QCLnRC6/Fz16uUEFhsoVytFa8AplQ9CyWyLBDSq//PSgNNHZNzX +rCCw63RnZr+5BiTefSQmLEDgDdbJhgFpDbjk8CtEbBWBZ9VzQz60q0Nljb2W +5Br2vk5l/xVxdZhwV36kIUZgyeh81ocmNbBve/vMSZbAgqCSHZmmKnDukWTI +J7anRFsVzUEF6mp9ZSzkCJxc5lXJUFCB9aX8MfqbCWxa+1HtvYAKPDujTsnJ +E5jswPn231NlUDO6VDGpSODjeFmZWR1lWNlpmRaiTuCM8Of3MrpKUPX6zeFk +fQItRO5FOnsoQrUTr9I6AwK5WxM8tGwUoXZWmTed7XgVddWN+xTh/pqU0kxD +Ar3qZ7Q2KCjCI6O9v4v2EvjdoyfcaHgrvHjSkPLAhECuyK7otEUFGLlb0vTV +ksAqdYe7dyl5EE4PkdvlRuDDmdkVO1fKAcwUH2hgW+X9+e33f8qCh/HrMA13 +AmmGC+UmfbLwcJlih7wHgeNVd3QqbsvCsaDh4+u9CNTgbZOxsJaFFivTB6M+ +BPpwPfgmdUMGwmhSpolBBL6qn84/Zi8NgzldJzpiCdy96qT+gXlJaHb8oaEf +R+C5uagb8WOScF1S9G892xGKd9Y8fyMJviW2sTfjCcz1jc87fUcSFstH05MS +Caw4qJWY7S0Jwg1LVXvPEfiFlVGZNrQRdn+SnX+aRqD8A+l01icJuC52+lRj +AYEhjXe55OYIcPCPc9UpZOfzSR1OHCFgw7Ozpk1s22+KXT//hoC4sIsSLUUE +jj1pV+CuJsCpr6y5o4TA5X3rO+tDCGAU9qzuKyPwQJ7W3U4uApIV5bOXKgm8 +GKJZIqTJhCD9tw2aTwi0xMjl7hPiYOX98e8dtuWki8s0e8RB/Xy/lnwzgUft +W2SJRnGY7x2rYz0l0GBDyjGpVHE4FfiniqeVwLux9kbM7eIQWyhe8aKdwLcj +f0bKosUgndsux7GbQLvXTind8hvgXsNAROIgget+5CtOV4qAZ1jL0KohAjue +D2y9kSMChEa5QQrb/jbJPGFnRSDxdpjQpWECi4iWsf1OInC4UDSncJTAUu7u +mo/CIsB3xqih8RuBZUe0Mo8EC4OVRc3S3CyBAla9zkUm62BhPDnkKA+J1Ula +sS3ya8BN0Dt4iG0h7yFLXuYa6N5m+J8zL4kczL/JpqvXwM1AzkDXZSQqFWvz +rp0UAkcOfz9PfhJPEzmJcEsI2tYdcDu+ksQY98hXGupCkKEpYhElTOJvdxOh +kpzVoBF/eVu+JIk7193nETISgM6ggFjaJhIHm0W+l6oKgIuryYfzbGtstXtu +wxSAC7t5Y6KlSMzqntn2a3IFTPL4vXWWITFNZ1ml+IUVUBhpEC6zhcR8Tzeh +Zf3LYU3or/YbyiSmXA3PX4zhhy/e5m7VOiQ25L8L5+dbBgd/rP2sqUtiqoTd +9XMzvFAf0mnzgO3ukzefS/fywoW4vSaP9EiUvvayOvUuL2Cutlr7bhKP6O7a +YejMC+nd8jz9e0ismq76KdvCA3o7luXwHSBxgaSn7srkhmz+qh6Lo+z8cjVe +vsc5QcX2eHEn28dfiisYOHFCS/nWoD1OJL74tCgob84JMxYl6ylnEmfnePiZ +2zlBr/Cy+SZX9n1bpJ/LXOCAL9phr2Y9SNy0VIQLsRygHKrdkexPYuhajV9c +xv+op9+fNbdFknjfqrOja90iJVx8cpvOaRKtBCJyhhcWKHv7rVdq2H6al/Nk +1dACNf8y1a8kikStQq+WjMoFakv1IXpsDHv+8EBXocUClXx61E87gcRfCiWK +flfnKStRbkZ1MolD2//1ue/8Q42h5vHCbBJXvTDUOHFzjuJPecElncPufyrj +RujlOUp2wDG1hO3A1sHQtOg5yiPyzK3SXBJN5Hb3cdnMUd8ffpy8lU9i1wLr +1SP+OWpGJ9yrvpjEhzK+Si2uP6lFvSbnnnIST5BipL/yD0rQ0NhqeSOJ9t5h +SfVL05S1y4DWaba37DpYoToxTRVEBWxcYPs/+2+qtb3TlHp9xsT4QxJ7hI/u ++NYwTTkqj0Z3PiaxmH9y8tvpaeoeI+LWxackHuBbkjgsME3ZztxaIdXB7nO2 +vKF60xRVkinyQKeXRFUnN9f5hXEqZZXY7Va2/yrmdvL3j1Mh4fRi0z72e5vt +Yig1jVP7jm5MOdxPotvXhcXus+PUlNw255DPJHqZ/+Q8xBqnNGr3rbo9QqLZ +jN5aPcNvVNvbKDtyksRkpe3x8+VfqDt74sxK2Lb39dFRvfiFunI/UX/rFInn +m751x536Qh3LSdmmNU1ic7eydIDRF2qtWzbvoVkSH6+w43UdH6NsftXeSP5F +ov7rkjV5CmOUnnt9nuhvEhP2aTeZiI5RCh8eXrzK9nOOL1/XcYxRHA0tkWV/ +2HlaNam+rlGqIPaNecsCifP7theFB45SSb/f7TFZJFG0jC+v98goFejxCd6w +vSW/wPWA4ShlYDwkO7RE4vsf+Ysn6aPUtsZRpudfEvM2uOUpLxulxJW+rZth +2x3v1/+dHKG4Cyb4g/+R6DTHpdX3boQaF5lZ+sd27Knb/K8fj1D/BzjcmiY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.11259397773788346`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.11259397773788346`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1HdYz9/7B/CmIhRK6r1er6RFSUtFr/tuUKEhGhpU2kND6tOg0o58Kwol +7UFRiBYVkkpURGZDE2kSGvzev7/O9bjOfa7r+TzXuQ7p6GPmzMXBwSHCycHx +/6tU8+MNrUJi2GtND/v58j6U352TCNouhr9NPgftVqqF491u61cGiKFAm86B +FQn3QNdOKvTOXTE8Gd/T6r78DvA8SreWmRNDGY6QXx4CFXCtzlvDQEkczWq6 +1s/uKAUbVnJCyHFxjL/HFZJZUQRTomLvLCvE0YDukGm0Oh8Cxw/mc42Lo97j +ehUdjhxYvvljb8MWGs68qX2sbp8BFp+fht+Sp6HTYIo2n1EGFFy+Q+Qr0FBy +7yXHzxoZgPxnHGMVadiYV+tfvy4D/hvWGNmnQsM4rWiBVS2XYST74vd3O2h4 +UOm99F+ly9AkfGBxdg8Nk8Zan3CsvQQRf1vFZNxpWGy5t0d4Ng0CB0N4FDxo +qHfHZSBkIA28WjZPKnvSsGTlse7vHWlglZrUBN40XKrZaj5flgaKUvt9LP1o +GJjUMFDmmgYDRm+bYoNpWBf+Sdmv7wLoZI34DCfQUNb+YQe8PQ/cO7mb867T +cFxn1svgewq4jV8dyS+l4aO28pnJ3hR4cUWTr7CMhio0TeG8zhTIWPIzKL5J +wy9+8YJSlSmg1NDfVnqb3S/NW7YsNAXsdeo7KmtpuC7yGl/pyhR4YBD8rrmN +hlsq4xf11JIhyHxy/OtXGlYoDf/gMEoCxZz4mvffaCgR2JLfqZYEX7+SsW3j +NKzZabpUTiSBbcRB1vUJGkYE7UzI+nEWdEpr9rvP0HCT+PofSllnYRVn9L3R +PzSczT6VS02fgfyyDRFD/HSUTs8uTS9IhA5unXW9UnQ8+iR2ra5aPCiG5ch+ +lqZjzQc/DgmJeEj98RdGZOj49I9vkdDqeLAYrvOakKOjcHDJBH0kDj42qzb/ +VaCjuYy21lR6HIwlyAazttMx95Tt/v8WYoFTaE2fvT4drz1XiHvcEQPK9P7r +g650ZE1r+HPnR8GYwk7vN250FHql/TP9fBRc1b60tdWdjkbCGyZUo6OA39W0 +8qYnHXX6NSTSnaPg463GB8E+dFQOOnu/VyYKYvRzOwWD6Ohx03l54q3T0OPv +OLcjln3+go+T8LNICG0d0r5QQMfzIyU/7RkR8Hb5MuPMQjqKZmtFxwpGgNoe +aeu8IjoWh065VnFGwFSbu39FCR2hTUUssD0cXNon8trL6Jh0VK4u5Ug4mHb8 +5ua9S8f/9KwSJhJOwabXK5tPPKHjn+Tsb20TYdDRr7LHcoSOBiei1NN/BsOV +cTx7aJQ9PzinfaIvGDx+73thM0bHOJ5iK5fWYOARcjaz/0rHDwm8QaeygkEd +0qzdJ+ho86h8Pnp3MORk/fQInaNjbGm/WV/mf+Bvfe9M9jIGaiW8fOR1IAhE +urc/H5Vi4GJi3V+J2QBQC9GueyvNwPytG5kHPweABbH3WqsMA2Oe+6imdgXA +Ja/DMaVyDFTsVpFSrQgAcd4YLR8FBiaYywmIHAsAQu3ljTlVBvoaW7SrjB8H +uUte53h3MXD37tjyyml/oGxzTTYeZeB0Mefa5yw/4FP0jZNxYuBU+/TGdiE/ +6OSGBnlnBqa5+4/2cPqBY+lHBXVXBh4/etFaZMgXYuZFVxt5MlChSq5H6pov +tF861x54nIHi50ifTFVfOPQ61LAtioGpGu7hq8qPQYCxha5fAQNVDm1quRPi +Ccn3JaSdCxk4aNslLOjkCTfkJlccKmLgu/ypoDAjTxhZFv8SSxg4uf3yniTC +EywbahyEyhh41pqWH/PUAzQVGRHldxgoy9i378kGD+BYO3T/+yMGbs29/mRj +ixskvfZT8xhgYIe5llWapQuIC8qaHvrMQKmfV/q8drlAkUG/u8EgA3coWj00 +U3aB+jrjLKlhBp44FuFmKOgCE7mbeQbHGPi077LowFNnMD023GUzxe7bWZVb +scMZ1vId8jb6x8CfaRe3xck7wUV1LFBkMPFmgeGu/u2O0J59n0+FycQXrL/P +aqUdgYNPw3M7i4nyVaP6+aKO4PZ6mxJFMpEx/3cq65cDaPpvbNy7iYmTnfee +qFc7wMfSZR9d5JkoZ2R5en6HA0iwnq/L0mLioUR5O3sje7jJax21/DAT22qF +ZJrk7ECNrzt1ge05Vc7uqLV2UM9vnPf9CBMNL7eqW87bwgsBnYddDkwM45uf +UG+zhYk1cv8uOzPxpBHXkREPW5BnzofIeTPxjpvG4odyGyhTy/DfG8ZEx4O0 +r6361nDN9b1DUgYTtx09wZdaZgnv08XqzmcyMTjWLXLTRUtY0WwlnHGFiXHz +AkvPIi3BQ7KnuegqE3vvCVbvt7QEuYFXmxvzmLiiuDiQ4raE69bPf85cZ6Ju +u8nq/x22gDKjxgSrOibuFExbky1hDhXKRbc2fmTigR77WrVPZmCq0ImbPjFx +A43J49huBlMy8x1SvUzc+IZT8EqdGSgyjSdk+5mYmjytujPDDMr55+QUh5h4 +wjzXY7OVGdz8tKtg5zgTvwdw5NW+2Q9lccPp5otM/Oy474t+rymUfJAMi6Oz +cKD14T0VWWO44ruvKojBQvKB2RUuIWP4H2/AjCuThXBKV3N4zggCtz52MyBY +KNXYbjvWZAR6UQ7myyVZmG3Le2zIwQj65K4qnNnMwu/8I4GF2ftgfYjowDlN +Fo5/P37kg+xeiN6wYne6FQu/LLlPN5wwAOLDXFvGIRZO2N3wiT1iAHVZgybZ +1ixUszHosTc0gBmJB4dKbFnYynxE388wAAd5X+9aexaGxJRkMpr1gdJ5c6HX +jYVbonb6WtL04bdn3qBUMIv9X5/NfPdqF3g1aEZWXWah8VS33dVgXbChb7p9 +PYOFmeosr5XuurAnWHAwK5OFsyvrXeKtdEFWeUgvOouF+edps9e268JIURL/ +/lwWHvu2SzZ1TgeOnOv/39cSFsqSKYrfA3XAzC72KqOahd4Dz4ojIrVBfaGr +LuoNC4XDg07nBQFc3Fgs4d/DQhWXSSMzO4C5vWEJ9m9ZOPM6/IOoLkDlFSlL +rfcs9KjYMTe4GkCRCp2Z+8TCIH4X6lQxBTKRkrIewyx82Sj0pfSjFojyBaWb +/mBhTcSe8QCLnRC6/Fz16uUEFhsoVytFa8AplQ9CyWyLBDSq//PSgNNHZNzX +rCCw63RnZr+5BiTefSQmLEDgDdbJhgFpDbjk8CtEbBWBZ9VzQz60q0Nljb2W +5Br2vk5l/xVxdZhwV36kIUZgyeh81ocmNbBve/vMSZbAgqCSHZmmKnDukWTI +J7anRFsVzUEF6mp9ZSzkCJxc5lXJUFCB9aX8MfqbCWxa+1HtvYAKPDujTsnJ +E5jswPn231NlUDO6VDGpSODjeFmZWR1lWNlpmRaiTuCM8Of3MrpKUPX6zeFk +fQItRO5FOnsoQrUTr9I6AwK5WxM8tGwUoXZWmTed7XgVddWN+xTh/pqU0kxD +Ar3qZ7Q2KCjCI6O9v4v2EvjdoyfcaHgrvHjSkPLAhECuyK7otEUFGLlb0vTV +ksAqdYe7dyl5EE4PkdvlRuDDmdkVO1fKAcwUH2hgW+X9+e33f8qCh/HrMA13 +AmmGC+UmfbLwcJlih7wHgeNVd3QqbsvCsaDh4+u9CNTgbZOxsJaFFivTB6M+ +BPpwPfgmdUMGwmhSpolBBL6qn84/Zi8NgzldJzpiCdy96qT+gXlJaHb8oaEf +R+C5uagb8WOScF1S9G892xGKd9Y8fyMJviW2sTfjCcz1jc87fUcSFstH05MS +Caw4qJWY7S0Jwg1LVXvPEfiFlVGZNrQRdn+SnX+aRqD8A+l01icJuC52+lRj +AYEhjXe55OYIcPCPc9UpZOfzSR1OHCFgw7Ozpk1s22+KXT//hoC4sIsSLUUE +jj1pV+CuJsCpr6y5o4TA5X3rO+tDCGAU9qzuKyPwQJ7W3U4uApIV5bOXKgm8 +GKJZIqTJhCD9tw2aTwi0xMjl7hPiYOX98e8dtuWki8s0e8RB/Xy/lnwzgUft +W2SJRnGY7x2rYz0l0GBDyjGpVHE4FfiniqeVwLux9kbM7eIQWyhe8aKdwLcj +f0bKosUgndsux7GbQLvXTind8hvgXsNAROIgget+5CtOV4qAZ1jL0KohAjue +D2y9kSMChEa5QQrb/jbJPGFnRSDxdpjQpWECi4iWsf1OInC4UDSncJTAUu7u +mo/CIsB3xqih8RuBZUe0Mo8EC4OVRc3S3CyBAla9zkUm62BhPDnkKA+J1Ula +sS3ya8BN0Dt4iG0h7yFLXuYa6N5m+J8zL4kczL/JpqvXwM1AzkDXZSQqFWvz +rp0UAkcOfz9PfhJPEzmJcEsI2tYdcDu+ksQY98hXGupCkKEpYhElTOJvdxOh +kpzVoBF/eVu+JIk7193nETISgM6ggFjaJhIHm0W+l6oKgIuryYfzbGtstXtu +wxSAC7t5Y6KlSMzqntn2a3IFTPL4vXWWITFNZ1ml+IUVUBhpEC6zhcR8Tzeh +Zf3LYU3or/YbyiSmXA3PX4zhhy/e5m7VOiQ25L8L5+dbBgd/rP2sqUtiqoTd +9XMzvFAf0mnzgO3ukzefS/fywoW4vSaP9EiUvvayOvUuL2Cutlr7bhKP6O7a +YejMC+nd8jz9e0ismq76KdvCA3o7luXwHSBxgaSn7srkhmz+qh6Lo+z8cjVe +vsc5QcX2eHEn28dfiisYOHFCS/nWoD1OJL74tCgob84JMxYl6ylnEmfnePiZ +2zlBr/Cy+SZX9n1bpJ/LXOCAL9phr2Y9SNy0VIQLsRygHKrdkexPYuhajV9c +xv+op9+fNbdFknjfqrOja90iJVx8cpvOaRKtBCJyhhcWKHv7rVdq2H6al/Nk +1dACNf8y1a8kikStQq+WjMoFakv1IXpsDHv+8EBXocUClXx61E87gcRfCiWK +flfnKStRbkZ1MolD2//1ue/8Q42h5vHCbBJXvTDUOHFzjuJPecElncPufyrj +RujlOUp2wDG1hO3A1sHQtOg5yiPyzK3SXBJN5Hb3cdnMUd8ffpy8lU9i1wLr +1SP+OWpGJ9yrvpjEhzK+Si2uP6lFvSbnnnIST5BipL/yD0rQ0NhqeSOJ9t5h +SfVL05S1y4DWaba37DpYoToxTRVEBWxcYPs/+2+qtb3TlHp9xsT4QxJ7hI/u ++NYwTTkqj0Z3PiaxmH9y8tvpaeoeI+LWxackHuBbkjgsME3ZztxaIdXB7nO2 +vKF60xRVkinyQKeXRFUnN9f5hXEqZZXY7Va2/yrmdvL3j1Mh4fRi0z72e5vt +Yig1jVP7jm5MOdxPotvXhcXus+PUlNw255DPJHqZ/+Q8xBqnNGr3rbo9QqLZ +jN5aPcNvVNvbKDtyksRkpe3x8+VfqDt74sxK2Lb39dFRvfiFunI/UX/rFInn +m751x536Qh3LSdmmNU1ic7eydIDRF2qtWzbvoVkSH6+w43UdH6NsftXeSP5F +ov7rkjV5CmOUnnt9nuhvEhP2aTeZiI5RCh8eXrzK9nOOL1/XcYxRHA0tkWV/ +2HlaNam+rlGqIPaNecsCifP7theFB45SSb/f7TFZJFG0jC+v98goFejxCd6w +vSW/wPWA4ShlYDwkO7RE4vsf+Ysn6aPUtsZRpudfEvM2uOUpLxulxJW+rZth +2x3v1/+dHKG4Cyb4g/+R6DTHpdX3boQaF5lZ+sd27Knb/K8fj1D/BzjcmiY= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.11259397773788346`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.11259397773788346`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.9931373656261473`*^9, + 3.9931373730235653`*^9}}, + CellLabel->"Out[28]=",ExpressionUUID->"1bacb492-2b52-46bf-8015-6aec31f98752"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992520003015276*^9, + 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ +40714b1d68e9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925200045686483`*^9, + 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ +0db8ce2e2f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.635, $CellContext`xmax$$ = + 9.120000000000001, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.5, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {105.10417287785269`, 110.72917287785269`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {194.01979787785268`, 199.64479787785268`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 11, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9924899121466837`*^9}, + CellLabel->"",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 12, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99248991233014*^9}, + CellLabel->"",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], + +Cell["\<\ +Show::gcomb: Could not combine the graphics objects in + Show[l1111, -Graphics-, PlotRange -> {{6, 13}, {0, 0.15}}].\ +\>", "Message", "MSG", + CellChangeTimes->{3.992520011711594*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] +}, Open ]] +}, +WindowSize->{714, 258}, +WindowMargins->{{-3, Automatic}, {267, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1490, 46, 98, "Output",ExpressionUUID->"33be354e-84f4-4efe-87ba-d2fb0bcd67c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3258, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3981, 131, 887, 25, 71, "Output",ExpressionUUID->"a74a2b01-4537-4817-8475-0b13e3fe6245"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6373, 204, 2581, 75, 149, "Output",ExpressionUUID->"441d72d5-c433-4b73-ae91-40e8419dd84a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8991, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10674, 334, 2780, 81, 149, "Output",ExpressionUUID->"2fccd1c8-86de-4c49-9faa-944bc2cebd4e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13491, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15337, 475, 3720, 109, 158, "Output",ExpressionUUID->"96789b1f-9781-4fd9-b160-fab669466c13"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19094, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21177, 650, 4787, 138, 193, "Output",ExpressionUUID->"a371c1a7-b16c-4565-99d1-97590c677e4f"] +}, Open ]], +Cell[25979, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26152, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26503, 804, 305, 5, 33, "Output",ExpressionUUID->"2d3dade8-9c57-4b85-bfef-68b164df11d8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26845, 814, 331, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27179, 822, 303, 5, 33, "Output",ExpressionUUID->"620498f3-e9c3-46c3-8490-a79989b3a94c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27519, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27698, 837, 273, 4, 33, "Output",ExpressionUUID->"56f3cbc9-6321-4621-85c6-86038cdd9531"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28008, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28269, 855, 287, 4, 33, "Output",ExpressionUUID->"88305145-44f2-49a9-a1a5-02d5d2d5d14d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28593, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28728, 868, 277, 4, 33, "Output",ExpressionUUID->"2f9bf783-8ea4-409f-9c9a-3151ab23b337"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29042, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29322, 885, 292, 4, 33, "Output",ExpressionUUID->"bab37ad1-bde3-4e2f-839b-c5d4757be83c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29651, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29912, 903, 290, 4, 33, "Output",ExpressionUUID->"355016e2-7ac5-465c-a9b0-5649762946e3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30239, 912, 357, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30599, 920, 160, 2, 33, "Output",ExpressionUUID->"f61515e6-5b1f-4f40-80bc-6672ba0d13b3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30796, 927, 359, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31158, 935, 161, 2, 33, "Output",ExpressionUUID->"8d2bb818-afec-457e-b54a-cbfd06daa187"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31356, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31488, 946, 273, 4, 33, "Output",ExpressionUUID->"b684021c-3da4-4d0a-ae55-45d52e3acf93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31798, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31930, 959, 270, 4, 33, "Output",ExpressionUUID->"4210eba2-5a67-4840-b084-7f9b92a76860"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32237, 968, 2014, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34254, 1021, 16487, 317, 236, "Output",ExpressionUUID->"87919eb6-400a-4ef2-932c-864e055c2c39"] +}, Open ]], +Cell[50756, 1341, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[50909, 1348, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[53188, 1409, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53564, 1421, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[55735, 1481, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[56069, 1493, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[56374, 1500, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[56614, 1508, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[56924, 1515, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[57174, 1522, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[59698, 1587, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[59853, 1592, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[60017, 1597, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[60198, 1604, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[62756, 1677, 3504, 67, 418, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66297, 1749, 964, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[67264, 1778, 30835, 554, 236, "Output",ExpressionUUID->"4b5be0c2-be41-4858-bb23-40f5a46c7ceb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[98136, 2337, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[100502, 2400, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[100853, 2411, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[101082, 2417, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[101294, 2424, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[101549, 2430, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[101741, 2435, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[102725, 2463, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], +Cell[102879, 2468, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[103045, 2473, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], +Cell[CellGroupData[{ +Cell[103222, 2480, 2625, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[105850, 2554, 3580, 68, 420, "Output",ExpressionUUID->"659a43c7-6bc0-4a5f-a4c3-768d25b481b5"] +}, Open ]], +Cell[109445, 2625, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[109708, 2633, 839, 23, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[110550, 2658, 10804, 224, 230, "Output",ExpressionUUID->"a47c2e72-c631-4e7e-bd88-d00fc31f6624"] +}, Open ]], +Cell[CellGroupData[{ +Cell[121391, 2887, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[123556, 2946, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[124393, 2963, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[124747, 2974, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[125000, 2980, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[125214, 2987, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[125466, 2993, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[125660, 2998, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[128223, 3064, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[128378, 3069, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[128546, 3074, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[128723, 3081, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[131254, 3154, 3535, 68, 420, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[134826, 3227, 918, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[135747, 3254, 23647, 437, 232, "Output",ExpressionUUID->"1bacb492-2b52-46bf-8015-6aec31f98752"] +}, Open ]], +Cell[CellGroupData[{ +Cell[159431, 3696, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[161767, 3758, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162121, 3769, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[162375, 3775, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[162591, 3782, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[162846, 3788, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[163038, 3793, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[165885, 3867, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], +Cell[166040, 3872, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[166247, 3878, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], +Cell[CellGroupData[{ +Cell[166426, 3885, 2580, 72, 247, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[169009, 3959, 3542, 67, 410, "Output",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], +Cell[172554, 4028, 2324, 36, 54, "Message",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], +Cell[174881, 4066, 2321, 36, 54, "Message",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], +Cell[177205, 4104, 299, 7, 36, "Message",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/rename.zsh b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/170-70_h_Pu240_24-25/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done 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 new file mode 100644 index 0000000..b66829d --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw1.nb @@ -0,0 +1,9355 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 399174, 9347] +NotebookOptionsPosition[ 375132, 8983] +NotebookOutlinePosition[ 375544, 9000] +CellTagsIndexPosition[ 375501, 8997] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ +Cell[BoxData[ + RowBox[{"f1", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.991849227197853*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.9918492290557346`*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[233]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ +fcd932c3b663"], + +Cell[BoxData["5.020725113795862`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9}, + CellLabel-> + "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557595005127*^9, + 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ +23b66397f1fd"], + +Cell[BoxData["1.871372642785671`*^-54"], "Output", + CellChangeTimes->{3.9913335367515736`*^9}, + CellLabel-> + "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + +Cell[BoxData["25.178011816139865`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9}, + CellLabel-> + "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + +Cell[BoxData["31.32034821453639`"], "Output", + CellChangeTimes->{3.991333536783556*^9}, + CellLabel-> + "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + +Cell[BoxData["0.7475613664925793`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9}, + CellLabel-> + "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + +Cell[BoxData["3.5403946764909393`"], "Output", + CellChangeTimes->{3.99133353681583*^9}, + CellLabel-> + "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + +Cell[BoxData["110.88639408458714`"], "Output", + CellChangeTimes->{3.991333536826782*^9}, + CellLabel-> + "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + +Cell[BoxData["18.822108918839827`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9}, + CellLabel-> + "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + +Cell[BoxData["0.042044960793272385`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9}, + CellLabel-> + "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + +Cell[BoxData["4.322031867849089`"], "Output", + CellChangeTimes->{3.991333536973074*^9}, + CellLabel-> + "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + +Cell[BoxData["0.011395075201487413`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9}, + CellLabel-> + "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + +Cell[BoxData["8.302069082299768`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9}, + CellLabel-> + "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9}, + CellLabel-> + "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991333537118065*^9}, + CellLabel-> + "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9}, + CellLabel-> + "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ +5e47-a896-3a959bbbf44d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849241512779*^9},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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 249, 219, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335371710587`*^9}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + +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}, + CellLabel-> + "During evaluation of \ +In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + +Cell[BoxData["4.322031867849086`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9}, + CellLabel-> + "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918492463930817`*^9},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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.9939692660683834`*^-259\\\", \ +\\\"87162405628759283710433837191367616509271939759613935941477990400000000000\ +000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 250, 223, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333539972414*^9}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + +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}, + CellLabel-> + "During evaluation of \ +In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + +Cell[BoxData["8.302069082299772`"], "Output", + CellChangeTimes->{3.991333542631773*^9}, + CellLabel-> + "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492535482903`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.9887929549829119, + 1.0113097844802965`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.9887929549829141}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.9887929549829141}, + 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.9887929549829119, 1.0113097844802965`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991333813212965*^9}, + CellLabel-> + "Out[251]=",ExpressionUUID->"fdd0f260-414f-a94a-8f26-cd86e676700c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849261714945*^9},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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], + +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}, + CellLabel-> + "During evaluation of \ +In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991334471589432*^9}, + CellLabel-> + "Out[252]=",ExpressionUUID->"d4eecdc9-263c-5b43-bb29-cd0ac1286793"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6d3700e1-f504-214a-a332-\ +f16397f0b922"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + 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}, + CellLabel-> + "Out[254]=",ExpressionUUID->"07374b0a-4615-bf46-ab49-be8623cec410"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ +4a8a16073236"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 255, 233, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 255, 234, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991334803369583*^9}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], + +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}, + CellLabel-> + "During evaluation of \ +In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991335257344549*^9}, + CellLabel-> + "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[256]:=",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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], + +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}, + CellLabel-> + "During evaluation of \ +In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], + +Cell[BoxData["9.332200719005158`"], "Output", + CellChangeTimes->{3.991335263670042*^9}, + CellLabel-> + "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849285445259*^9, + 3.991849289419262*^9}},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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], + +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}, + CellLabel-> + "During evaluation of \ +In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], + +Cell[BoxData["0.00046079539931050297`"], "Output", + CellChangeTimes->{3.991335268779545*^9}, + CellLabel-> + "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849293744112*^9, + 3.9918492959939384`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], + +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}, + CellLabel-> + "During evaluation of \ +In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], + +Cell[BoxData["5.104103620353258`"], "Output", + CellChangeTimes->{3.991335272704685*^9}, + CellLabel-> + "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918492993108063`*^9, + 3.991849303274454*^9}},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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], + +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}, + CellLabel-> + "During evaluation of \ +In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], + +Cell[BoxData["18.832858301324727`"], "Output", + CellChangeTimes->{3.991335275154251*^9}, + CellLabel-> + "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[260]=",ExpressionUUID->"96bb6c6a-f128-024e-85ce-f8a6083a68c6"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, + CellLabel-> + "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + +Cell[BoxData["5.744985073726737`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9}, + CellLabel-> + "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + +Cell[BoxData["1.564995573098557`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9}, + CellLabel-> + "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + +Cell[BoxData["8.990876207899632`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9}, + CellLabel-> + "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + +Cell[BoxData["0.07167004636648908`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9}, + CellLabel-> + "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + +Cell[BoxData["3.3103666491187544`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9}, + CellLabel-> + "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + +Cell[BoxData["0.012832691268660865`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9}, + CellLabel-> + "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + +Cell[BoxData["7.823229443917166`"], "Output", + CellChangeTimes->{3.991335275540678*^9}, + CellLabel-> + "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9}, + CellLabel-> + "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991335275581682*^9}, + CellLabel-> + "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9}, + CellLabel-> + "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849332835844*^9},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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], + +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}, + CellLabel-> + "During evaluation of \ +In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], + +Cell[BoxData["3.3103666491187513`"], "Output", + CellChangeTimes->{3.991335279487499*^9}, + CellLabel-> + "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918493361354027`*^9},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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], + +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}, + CellLabel-> + "During evaluation of \ +In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], + +Cell[BoxData["7.82322944391716`"], "Output", + CellChangeTimes->{3.991335283631424*^9}, + CellLabel-> + "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494105860615`*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378874, + 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6152015704378887}, + "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.6152015704378887}, + 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.6152015704378874, 1.5607999649251942`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913355426284504`*^9}, + CellLabel-> + "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918494141657047`*^9, {3.991849451432905*^9, + 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ +d4884962c12d"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ +ef47-aa8c-99f282e3d6d3"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[282]:=",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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], + +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}, + CellLabel-> + "During evaluation of \ +In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], + +Cell[BoxData["9.332200719005147`"], "Output", + CellChangeTimes->{3.9913372766841774`*^9}, + CellLabel-> + "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494640512295`*^9, + 3.991849468375696*^9}},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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], + +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}, + CellLabel-> + "During evaluation of \ +In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], + +Cell[BoxData["0.5406905105605413`"], "Output", + CellChangeTimes->{3.991337284091696*^9}, + CellLabel-> + "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918494737320137`*^9, + 3.9918494774550457`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], + +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}, + CellLabel-> + "During evaluation of \ +In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], + +Cell[BoxData["2.9943030245183917`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9}, + CellLabel-> + "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849482271084*^9, + 3.9918494852683945`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], + +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}, + CellLabel-> + "During evaluation of \ +In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], + +Cell[BoxData["16.72305770548981`"], "Output", + CellChangeTimes->{3.991337294569908*^9}, + CellLabel-> + "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["7.13574266196526`"], "Output", + CellChangeTimes->{3.991337294629921*^9}, + CellLabel-> + "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["1.4042291233212119`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9}, + CellLabel-> + "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["10.020217662457247`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9}, + CellLabel-> + "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.06674599726273667`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9}, + CellLabel-> + "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["3.430301770911147`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9}, + CellLabel-> + "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.01266539131451536`"], "Output", + CellChangeTimes->{3.991337294877693*^9}, + CellLabel-> + "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["7.874729317258519`"], "Output", + CellChangeTimes->{3.991337294976324*^9}, + CellLabel-> + "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.7884625602161153`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9}, + CellLabel-> + "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.21153743978388478`"], "Output", + CellChangeTimes->{3.991337295013279*^9}, + CellLabel-> + "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.16678935135356415`"], "Output", + CellChangeTimes->{3.991337295041279*^9}, + CellLabel-> + "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849517192892*^9},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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 290, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337295076277*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 301, + 291, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950842743`*^9}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], + +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}, + CellLabel-> + "During evaluation of \ +In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], + +Cell[BoxData["3.430301770911144`"], "Output", + CellChangeTimes->{3.991337298790371*^9}, + CellLabel-> + "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849520751028*^9},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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 294, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988343716`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 302, + 295, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988425922`*^9}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], + +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}, + CellLabel-> + "During evaluation of \ +In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], + +Cell[BoxData["7.87472931725852`"], "Output", + CellChangeTimes->{3.991337302457178*^9}, + CellLabel-> + "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849523511486*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.6639439823901716, + 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.663943982390173}, + "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.663943982390173}, + 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.6639439823901716, 1.4626441816684523`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9}, + CellLabel-> + "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, + 3.9918495807911797`*^9}},ExpressionUUID->"90696e8b-5a2d-314c-8d58-\ +ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 304, + 297, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 304, 298, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646565304`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 304, 299, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913375646656475`*^9}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], + +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}, + CellLabel-> + "During evaluation of \ +In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9}, + CellLabel-> + "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ +5c3b93725916"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[308]:=",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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], + +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}, + CellLabel-> + "During evaluation of \ +In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], + +Cell[BoxData["9.33220071900515`"], "Output", + CellChangeTimes->{3.9913392124888554`*^9}, + CellLabel-> + "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, + 3.9918495528702526`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 314, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339212535879*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 309, + 315, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125438805`*^9}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], + +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}, + CellLabel-> + "During evaluation of \ +In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], + +Cell[BoxData["0.41157157699018565`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9}, + CellLabel-> + "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, + 3.991849559359928*^9}},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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 318, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196535416`*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 310, + 319, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339219661541*^9}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], + +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}, + CellLabel-> + "During evaluation of \ +In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], + +Cell[BoxData["3.215201591157595`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9}, + CellLabel-> + "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, + 3.991849566543682*^9}},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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 322, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226917137*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ +\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ +4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 311, + 323, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392269251385`*^9}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], + +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}, + CellLabel-> + "During evaluation of \ +In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], + +Cell[BoxData["16.94395627212904`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9}, + CellLabel-> + "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] +}, Open ]] +}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[356509, 8464, 209, 5, 29, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..1f902d9 --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_gid_Qw2.nb @@ -0,0 +1,7921 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 243505, 7911] +NotebookOptionsPosition[ 219988, 7552] +NotebookOutlinePosition[ 220412, 7569] +CellTagsIndexPosition[ 220369, 7566] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991850550777445*^9},ExpressionUUID->"b70cfd2b-21a1-8344-9518-\ +5e27a96171a9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918505524437046`*^9, + 3.991850552447544*^9}},ExpressionUUID->"86df0a71-aa65-aa41-b8f1-\ +8c5c5be10fe8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input",ExpressionUUID->"951271b1-84a5-6246-9288-ba8a419078ee"], + +Cell[BoxData["2.3793916761039806`*^-53"], "Output",ExpressionUUID->"cbffa725-bd15-2049-b55f-318286f23572"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915577064670105`*^9},ExpressionUUID->"c16f367e-d189-2745-b3b8-\ +a9b137c5e3b6"], + +Cell[BoxData["5.0207251137958644`*^-55"], "Output",ExpressionUUID->"ccc498a0-28db-294f-9612-85d9a5c6b1f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557709328657*^9, + 3.991557711123291*^9}},ExpressionUUID->"b7d001ae-480c-4b41-8df9-\ +8010347227f7"], + +Cell[BoxData["1.8713726427856714`*^-54"], "Output",ExpressionUUID->"0586a11a-38a6-a040-a172-aaeab8c90dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"d15e5e59-9ad8-\ +e247-a132-b43b2736212a"], + +Cell[BoxData["25.178011816139865`"], "Output",ExpressionUUID->"c25fd138-6ebd-9549-9de5-30353d068c14"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input",Expre\ +ssionUUID->"1febc1d5-a69f-f14b-ba9a-c014b901cc8c"], + +Cell[BoxData["37.88040277230648`"], "Output",ExpressionUUID->"8c8a87e7-f604-4044-b4ce-b17ddc0907b3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input",ExpressionUUID->"906db7f6-73f3-8a4e-\ +88a4-7c75445a4f32"], + +Cell[BoxData["0.7475613664924765`"], "Output",ExpressionUUID->"fa0bea71-615d-2d4d-8b39-59994ce24952"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input",ExpressionUUID->"731b68b1-c44a-6c4a-\ +a9f8-bc957ede9a68"], + +Cell[BoxData["3.219272026986442`"], "Output",ExpressionUUID->"d3e4fece-e329-2041-9645-50ae8ca1c91c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input",ExpressionUUID->"71af6813-\ +eb8f-4944-8d03-7bcd77a7b4b4"], + +Cell[BoxData["121.94732101586592`"], "Output",ExpressionUUID->"8db6732d-a570-734c-94eb-cb35afdbb155"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"28815b73-\ +08dc-e64f-8823-2a55ad6b8ca8"], + +Cell[BoxData["18.822108918837237`"], "Output",ExpressionUUID->"06581e5e-cb29-0446-9bb7-b3bb2156a7c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"137e8d46-8eff-3c47-\ +bf8f-1350d0b8a0bb"], + +Cell[BoxData["0.04118782656518991`"], "Output",ExpressionUUID->"000a1d2e-b429-4a45-b9a2-ccba4bf718eb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"d808e80b-1928-8046-\ +afec-31463f4946cd"], + +Cell[BoxData["0.010567083454288358`"], "Output",ExpressionUUID->"17720629-0c4f-744e-a447-06cd4a4f0034"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"fa1a14b9-08cc-2e4f-b2af-\ +f74418e31aeb"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"a53e2e6d-ca02-5d40-9088-48aa754351ec"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"0285ae9a-ab88-cb46-ba56-\ +91d5391478d5"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5ca04a2b-633e-1547-b10d-b4f00d8b3fcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"bea639c9-f172-\ +ef4e-9454-9d4e027f5fa2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"af769b0f-0bd4-194f-bc02-90651fd30541"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"752e2dd5-bee6-\ +2048-8697-fe84d79611fa"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918505674491863`*^9},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"], + +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"], + +Cell[BoxData["4.366771860185332`"], "Output",ExpressionUUID->"1c49befc-babf-0743-9739-e64b536d1c51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99185057022003*^9},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"], + +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"], + +Cell[BoxData["8.621193087541219`"], "Output",ExpressionUUID->"6af143a4-6ae5-fb45-8cd1-6940f2290ff9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505747312756`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918505781608486`*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"8efa1c1f-552a-d042-8a05-\ +04dec8739bf5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9c090bb-80bf-6c4b-b8e9-\ +5e6c7b4b5678"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"cd9a8165-891b-9245-aca1-\ +3f60fcfd9a79"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.991850610344879*^9},ExpressionUUID->"c213919d-017d-a948-8e46-\ +fe19384187c3"], + +Cell[BoxData["9.786582751762749`"], "Output",ExpressionUUID->"38d25667-6c7c-094b-b4ad-180d70233424"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850612616415*^9},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"65116f16-0f68-7e4d-af2e-\ +baecb9a57d9b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249623`"], "Output",ExpressionUUID->"43ddf880-80a2-b142-8665-3b95395a9831"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850595832054*^9, + 3.991850600247154*^9}},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"], + +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"], + +Cell[BoxData["0.009432406283458074`"], "Output",ExpressionUUID->"42e3f6c5-e95f-4040-9e12-cbd48f821f10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850617546938*^9, + 3.991850621692934*^9}},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"], + +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"], + +Cell[BoxData["5.210321944589433`"], "Output",ExpressionUUID->"7f3b68f0-36cd-5749-996b-97ffcb02c6cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918506254460773`*^9, + 3.991850628958872*^9}},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"], + +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"], + +Cell[BoxData["20.308521034293705`"], "Output",ExpressionUUID->"34543184-0f68-7449-9af8-306cfc525771"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918506775260105`*^9, + 3.9918506840946693`*^9}},ExpressionUUID->"7ec678fd-8398-414a-aeba-\ +20e078d734cd"], + +Cell[BoxData["0.0009169614351270098`"], "Output",ExpressionUUID->"ca67de9f-825c-f641-9d0a-229375d081b1"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input",ExpressionUUID->"681c316f-cd82-\ +ae4b-824f-5eb2b3081f6d"], + +Cell[BoxData["5.744985073726742`"], "Output",ExpressionUUID->"9cf6d8e0-9f1b-734e-b42f-ef77566b5546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input",ExpressionUUID->"11e77a67-96b2-a645-\ +89cd-559587f30b91"], + +Cell[BoxData["1.564995573098341`"], "Output",ExpressionUUID->"c5ed49bf-8480-c447-a0ac-ef7c5fcad104"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"3c5f43e9-\ +afc4-be40-8f37-0116656ecd38"], + +Cell[BoxData["8.990876207898397`"], "Output",ExpressionUUID->"8a551ee1-59e8-d74e-b2fe-ad1527aaef53"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"f07a8476-d7bc-1049-\ +82a6-7cf06f61e28f"], + +Cell[BoxData["0.06921475857237179`"], "Output",ExpressionUUID->"6efee3b5-10d6-d642-9cf2-dd8d3fe591e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"9d771aab-c0b4-f24c-\ +9b53-9472e00c4d82"], + +Cell[BoxData["0.01179213875658184`"], "Output",ExpressionUUID->"0f048ce5-7f5e-0a41-a634-6908b289becd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"d8757b1c-19d9-d548-8de4-\ +6b0985b9b3bc"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"6edb9332-f61a-1c4a-ad7b-c9d3e77138f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"58b59182-fae5-674d-b49e-\ +4868d83e9702"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"5f6645b8-6ac5-6148-a1e1-5f2ee5f21bdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"5caf1614-7e5c-\ +9940-98cd-9460e2c074b2"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"9de56db9-9853-1748-aca6-5103b9dea11d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991850710120125*^9},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"], + +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"], + +Cell[BoxData["3.3685700770211437`"], "Output",ExpressionUUID->"a8a97847-bb08-1e4d-8ab6-1eb11a1cda8f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507152152424`*^9},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"], + +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"], + +Cell[BoxData["8.161099076568323`"], "Output",ExpressionUUID->"f80834f1-cc9f-1c44-a97c-64c50ba97b67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507183992805`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918507211663303`*^9, + 3.991850725479061*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"637816d3-cc2d-bb4a-991c-\ +87bc9c72594a"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"2335a158-7588-4c40-bdb5-\ +53b7ef04b97c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"51c9eb8e-8429-9440-b4d1-8a2a914a816b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507468132763`*^9, + 3.9918507511809216`*^9}},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"], + +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"], + +Cell[BoxData["0.7273353591556563`"], "Output",ExpressionUUID->"9a717f6e-3c47-7d43-93ae-4bf4814b6aa7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185075434021*^9, + 3.9918507570104733`*^9}},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"], + +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"], + +Cell[BoxData["3.1005213487548544`"], "Output",ExpressionUUID->"3e9bc444-276c-294e-8c8d-12ef37255e0d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918507598219967`*^9, + 3.9918507622107697`*^9}},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"], + +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"], + +Cell[BoxData["18.198720438459198`"], "Output",ExpressionUUID->"d8ce023f-3349-8348-844a-2526397581d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918507652122154`*^9, + 3.9918507685850487`*^9}},ExpressionUUID->"3d20548b-905d-0343-8df1-\ +168ec8f367e1"], + +Cell[BoxData["0.09682709699983048`"], "Output",ExpressionUUID->"b33ad8ed-51f6-a045-9dc5-33a5696fd31e"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input",ExpressionUUID->"601c24ee-3f7b-\ +c74d-891b-10a6d009e34b"], + +Cell[BoxData["7.1357426619652635`"], "Output",ExpressionUUID->"f1ecc2fd-4cd6-5249-8977-1cc4a714ca85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input",ExpressionUUID->"05949206-8ee0-5646-\ +bb01-e9142212274d"], + +Cell[BoxData["1.4042291233210182`"], "Output",ExpressionUUID->"0b6f2dc1-dd2d-e341-8cc9-32a5777d3dad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input",ExpressionUUID->"25a02cc2-\ +cb9a-bc4b-93f0-a7873f982a23"], + +Cell[BoxData["10.02021766245587`"], "Output",ExpressionUUID->"b4c0b4dc-7ff0-3246-8607-df7a1b97c52c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"df51ca6a-83a1-6340-\ +b13c-0185de64c37f"], + +Cell[BoxData["0.06461147402889976`"], "Output",ExpressionUUID->"c326471e-e866-ed4e-b72f-a7b5b42c78d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input",ExpressionUUID->"413c8e7d-149c-5d4a-\ +9ccb-23aebae2e6d5"], + +Cell[BoxData["0.01165072070943232`"], "Output",ExpressionUUID->"ad614c41-0fc1-a542-b7a8-b8207b3c6926"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"08e21b26-8d64-ea4e-8647-\ +1ee89e798d8f"], + +Cell[BoxData["0.7884625602161152`"], "Output",ExpressionUUID->"c5362b47-cc2f-ba44-9fef-3c67d726a6cb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input",ExpressionUUID->"ae5c0a90-3245-6943-a137-\ +f30d036fcdd2"], + +Cell[BoxData["0.21153743978388476`"], "Output",ExpressionUUID->"677f20c9-f9ab-dc41-bd69-627a1665b370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input",ExpressionUUID->"46af1283-32d6-\ +7240-acd2-307af56b44db"], + +Cell[BoxData["0.16678935135356407`"], "Output",ExpressionUUID->"eb28891c-1746-424b-aa98-1266448f9a3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507910247746`*^9},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"], + +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"], + +Cell[BoxData["3.486503585502321`"], "Output",ExpressionUUID->"dfa1aa9c-9811-0d49-a9f3-e5e1bcdf702f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918507936164455`*^9},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"], + +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"], + +Cell[BoxData["8.210479950982325`"], "Output",ExpressionUUID->"b342636b-f081-cc49-b1ae-5647aa39d6ab"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918507961174965`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99185079904813*^9, {3.9918508647235966`*^9, + 3.991850864992861*^9}},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"], + +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"], + +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"], + +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"], + +Cell[BoxData[ + TagBox[ + RowBox[{"\[SkeletonIndicator]", "Graphics", "\[SkeletonIndicator]"}], + False, + Editable->False]], "Output",ExpressionUUID->"be4328c1-f4b7-a444-b59f-\ +1872f77ea023"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"4ad58a38-0776-\ +5240-aa41-ba7c8ff64fb9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"6941b2ce-51d7-0b43-b524-1e41573ef5f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850818889292*^9, + 3.9918508230677433`*^9}},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"], + +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"], + +Cell[BoxData["0.576602516746911`"], "Output",ExpressionUUID->"7a6165f1-f4e7-1f40-9890-5c13218f6833"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850826380268*^9, + 3.991850829169306*^9}},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"], + +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"], + +Cell[BoxData["3.32141991539404`"], "Output",ExpressionUUID->"c7a13a95-1179-054f-9108-fe96e6564880"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918508329145336`*^9, + 3.991850837197098*^9}},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"], + +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"], + +Cell[BoxData["18.419619005098298`"], "Output",ExpressionUUID->"7d22c643-14ba-7245-8972-7de9bf840536"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918508397421246`*^9, + 3.9918508449867363`*^9}},ExpressionUUID->"cf5cb343-c1ea-5f41-82ed-\ +1ca469b254bd"], + +Cell[BoxData["0.07371813161570438`"], "Output",ExpressionUUID->"d15888a7-bf5a-b54e-a332-976645c927ce"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"370f2b53-61d0-7c4a-817b-bf9dca2c7a0a" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..0b16837 --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw1.nb @@ -0,0 +1,14326 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 581439, 14318] +NotebookOptionsPosition[ 540981, 13683] +NotebookOutlinePosition[ 541435, 13701] +CellTagsIndexPosition[ 541392, 13698] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{"d", "=", "3"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9},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", + CellChangeTimes->{ + 3.991798961431202*^9},ExpressionUUID->"410ced47-4e2a-4e45-9091-\ +53970f892dbb"], + +Cell[BoxData["130"], "Output", + CellChangeTimes->{3.9913196497578354`*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + +Cell[BoxData["0.5495238095238095`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +}, 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->"a5385d3b-a023-cd44-b749-4735260b7b95"], + +Cell[BoxData["5.876324542157027`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9}, + CellLabel->"Out[7]=",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + +Cell[BoxData["5.753223770057068`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"b1", "="}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9},ExpressionUUID->"3b44378c-91de-5d4a-a244-\ +b3f5cb1cffbb"], + +Cell[BoxData[ + RowBox[{"b2", "="}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9},ExpressionUUID->"c984ea2d-3d65-1d43-b11d-\ +50fde111107a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +}, 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->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913197863028755`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +}, 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->"5250e8ec-d471-e940-b083-114175ffd792"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913197864610195`*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel->"In[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[{ + +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"] +}, 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[18]:=",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"] +}, 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[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.9913197866129*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786620775*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{3.991319786657793*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{3.9913197866657925`*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel->"In[23]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{3.9913197867406044`*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "="}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, + 3.991799293571144*^9},ExpressionUUID->"50acb4f0-66e7-924a-841b-\ +56c0ae53ef15"], + +Cell[BoxData["50"], "Output", + CellChangeTimes->{3.9913197867861958`*^9}, + CellLabel->"Out[25]=",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"92", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9},ExpressionUUID->"4451fdbc-8b04-2c43-a6db-\ +990caacde85d"], + +Cell[BoxData["48"], "Output", + CellChangeTimes->{3.9913197867928696`*^9}, + CellLabel->"Out[26]=",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], + +Cell[BoxData["122"], "Output", + CellChangeTimes->{3.991319786827894*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +}, 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[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + +Cell[BoxData["0.11065573770491803`"], "Output", + CellChangeTimes->{3.9913197868648605`*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +}, 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[29]:=",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"] +}, 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}},ExpressionUUID->"957e37d7-d728-e448-9a63-\ +f9d65131b81c"], + +Cell[BoxData["19.346196963603006`"], "Output", + CellChangeTimes->{3.9913197869068584`*^9}, + CellLabel->"Out[30]=",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel->"In[31]:=",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{3.991319786940857*^9}, + CellLabel->"Out[31]=",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"v1", "="}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, + 3.9917993555955296`*^9},ExpressionUUID->"477d69f3-81a2-6d40-bff8-\ +58a9467eced9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486394740562`*^9, + 3.991848639478634*^9}},ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-\ +bb644ea0ddfa"], + +Cell[BoxData[ + RowBox[{"n1", "="}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, + 3.9917993574235134`*^9},ExpressionUUID->"a9223860-e2cf-2047-9a01-\ +b6480cd2846d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, + 3.9918486410246162`*^9}},ExpressionUUID->"d35f11fe-a53c-8943-ac4f-\ +07cc8884f5b8"], + +Cell[BoxData[ + RowBox[{"vv1", "="}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, + 3.9917993587947025`*^9},ExpressionUUID->"afeba878-eb4d-ef43-8941-\ +b46079e5a618"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, + 3.991848642146063*^9}},ExpressionUUID->"12665172-e21c-4e44-b1fc-\ +e81404b2a0db"], + +Cell[BoxData[ + RowBox[{"nn1", "="}]], "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"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, + 3.991848643361412*^9}},ExpressionUUID->"78f54ff3-2505-5940-9b78-\ +ccc2627a783c"], + +Cell[BoxData[ + RowBox[{"v2", "="}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, + 3.991799361414671*^9},ExpressionUUID->"17c8b6b3-c729-7c42-8964-\ +e70aa92597e4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, + 3.991848644757372*^9}},ExpressionUUID->"3908ad8b-9aa1-4d42-954c-\ +a3b9eef1576d"], + +Cell[BoxData[ + RowBox[{"n2", "="}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, + 3.9917993631287174`*^9},ExpressionUUID->"92080e53-e7ee-a444-8071-\ +b94745a1c38a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, + 3.991848648461731*^9}},ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-\ +7d827c4ef6de"], + +Cell[BoxData[ + RowBox[{"vv2", "="}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, + 3.9917993645898876`*^9},ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-\ +264265a5c2d2"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, + 3.9918486499632607`*^9}},ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-\ +01ae055dd38b"], + +Cell[BoxData[ + RowBox[{"nn2", "="}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9},ExpressionUUID->"0efd73e6-d1c0-4449-a060-\ +0fd7b04115ca"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, + 3.9918486513362026`*^9}},ExpressionUUID->"cc8697be-e0d9-6944-bb0c-\ +e22b0839e976"], + +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[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + +Cell[BoxData["2.0187310532697746`"], "Output", + CellChangeTimes->{3.991319787430073*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +}, 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[41]:=",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], + +Cell[BoxData["0.14694138435338647`"], "Output", + CellChangeTimes->{3.991319787574972*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +}, 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[42]:=",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"] +}, 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[43]:=",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"] +}, 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[44]:=",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"] +}, 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[45]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210013676`*^9}, + CellLabel->"Out[47]=",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913204210355663`*^9}, + CellLabel->"Out[48]=",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +}, 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[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + +Cell[BoxData["165.32626018052665`"], "Output", + CellChangeTimes->{3.991320421068556*^9}, + CellLabel->"Out[49]=",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +}, 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[50]:=",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"] +}, 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[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + +Cell[BoxData["101.25756231997637`"], "Output", + CellChangeTimes->{3.9913204211275444`*^9}, + CellLabel->"Out[51]=",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + +Cell[BoxData["0.6849608803764016`"], "Output", + CellChangeTimes->{3.9913204211385536`*^9}, + CellLabel->"Out[52]=",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel->"In[53]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel->"In[54]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + +Cell[BoxData["0.30371622798853437`"], "Output", + CellChangeTimes->{3.991320421228037*^9}, + CellLabel->"Out[55]=",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + +Cell[BoxData["1.4975864418719793`"], "Output", + CellChangeTimes->{3.9913204212585373`*^9}, + CellLabel->"Out[56]=",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + +Cell[BoxData["2.555495302485258`"], "Output", + CellChangeTimes->{3.9913204212884274`*^9}, + CellLabel->"Out[57]=",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +}, 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[58]:=",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"] +}, 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[59]:=",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"] +}, 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[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + +Cell[BoxData["154.3581096795412`"], "Output", + CellChangeTimes->{3.9913204213784294`*^9}, + CellLabel->"Out[60]=",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +}, 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[61]:=",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"] +}, 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[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + +Cell[BoxData["70.52028264977018`"], "Output", + CellChangeTimes->{3.991320421419428*^9}, + CellLabel->"Out[62]=",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +}, 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[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + +Cell[BoxData["14.070681463640064`"], "Output", + CellChangeTimes->{3.9913204214494324`*^9}, + CellLabel->"Out[63]=",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +}, 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[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + +Cell[BoxData["392.58159931234866`"], "Output", + CellChangeTimes->{3.991320421481529*^9}, + CellLabel->"Out[64]=",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +}, 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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ +23c469148e55"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, + 3.9918486699293537`*^9}},ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-\ +049e50ab8a2a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel->"In[67]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557471461853*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557474366678*^9, + 3.99155747655138*^9}},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + +Cell[BoxData["20.232611751799567`"], "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}}, + CellLabel-> + "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellChangeTimes->{3.992086162437586*^9}, + CellLabel-> + "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + +Cell[BoxData["61.811743284264836`"], "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}}, + CellLabel-> + "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + +Cell[BoxData["2.078701539535334`"], "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}}, + CellLabel-> + "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw2"]]}]], "Input", + CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, + CellLabel-> + "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + +Cell[BoxData["5.12428714806174`"], "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}}, + CellLabel-> + "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", + CellChangeTimes->{3.992086167409481*^9}, + CellLabel-> + "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + +Cell[BoxData["316.7411217108498`"], "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}}, + CellLabel-> + "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + +Cell[BoxData["42.05756119728645`"], "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}}, + CellLabel-> + "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + +Cell[BoxData["0.007069898460535921`"], "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}}, + CellLabel-> + "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + +Cell[BoxData["10.539945190547895`"], "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}}, + CellLabel-> + "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{ + "Cb", ",", " ", "Cw", ",", "Qw2", ",", " ", "hw", ",", "hb", ",", "Qb2"}], + "]"}]], "Input", + CellChangeTimes->{{3.99206424143161*^9, 3.99206424290588*^9}, { + 3.992086184000986*^9, 3.9920862197077847`*^9}, {3.99208635879986*^9, + 3.9920863634349823`*^9}, {3.9920864985362244`*^9, 3.992086501430176*^9}, { + 3.9920869541635437`*^9, 3.992086954848522*^9}}, + CellLabel-> + "In[678]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.991320421637537*^9}, + CellLabel->"Out[70]=",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + +Cell[BoxData["66.74356871519693`"], "Output", + CellChangeTimes->{3.9913204216685333`*^9}, + CellLabel->"Out[71]=",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.991320421698473*^9}, + CellLabel->"Out[72]=",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + +Cell[BoxData["2.425270911118517`"], "Output", + CellChangeTimes->{3.991320421726494*^9}, + CellLabel->"Out[73]=",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + +Cell[BoxData["161.87123570920699`"], "Output", + CellChangeTimes->{3.9913204217554817`*^9}, + CellLabel->"Out[74]=",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9}, + CellLabel->"Out[75]=",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + +Cell[BoxData["0.020440609994923815`"], "Output", + CellChangeTimes->{3.9913204218154297`*^9}, + CellLabel->"Out[76]=",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + +Cell[BoxData["6.198662839936796`"], "Output", + CellChangeTimes->{3.991320422776104*^9}, + CellLabel->"Out[77]=",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + +Cell[BoxData["0.01158648853220534`"], "Output", + CellChangeTimes->{3.9913204229248886`*^9}, + CellLabel->"Out[78]=",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + +Cell[BoxData["8.233206772574567`"], "Output", + CellChangeTimes->{3.9913204230053368`*^9}, + CellLabel->"Out[79]=",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9}, + CellLabel->"Out[80]=",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9}, + CellLabel->"Out[81]=",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9}, + CellLabel->"Out[82]=",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ +424c-ba53-995669bbcd65"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ +3a94fbdbad18"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], + +Cell[BoxData["6.198662839936798`"], "Output", + CellChangeTimes->{3.9913204260017204`*^9}, + CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917994459475594`*^9},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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], + +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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], + +Cell[BoxData["8.233206772574558`"], "Output", + CellChangeTimes->{3.991320428882721*^9}, + CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994505623856`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917994543716736`*^9},ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-\ +9aed2c391662"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3559275616020787`*^-274\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 86, 9, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696298666*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7743624682465165`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 86, + 10, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696309664*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.227765210043865`*^-297\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 86, 11, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991320696318653*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 86, 12, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913206963286114`*^9}, + CellLabel-> + "During evaluation of \ +In[86]:=",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + 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, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.12263499218727081`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.12263499218727081`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913218813523655`*^9}, + CellLabel->"Out[86]=",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ +9e93d345c648"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"39000a9e-1f94-0640-8925-\ +ec28b28907cc"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.99179966106703*^9},ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], + +Cell[BoxData["11.27534350842078`"], "Output", + CellChangeTimes->{3.9913229040054893`*^9}, + CellLabel->"Out[88]=",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + 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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 89, 18, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042728806`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 89, 19, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913229042938766`*^9}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], + +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}, + CellLabel-> + "During evaluation of \ +In[89]:=",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06741909458355917}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06741909458355917}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913236646248627`*^9}, + CellLabel->"Out[89]=",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel->"In[90]:=",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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], + +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}, + CellLabel-> + "During evaluation of \ +In[90]:=",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], + +Cell[BoxData["11.275343508420768`"], "Output", + CellChangeTimes->{3.9913236764669056`*^9}, + CellLabel->"Out[90]=",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917996753598194`*^9, + 3.991799698091812*^9}},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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[91]:=",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], + +Cell[BoxData["0.5376063675902706`"], "Output", + CellChangeTimes->{3.9913236883162384`*^9}, + CellLabel->"Out[91]=",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997261183853`*^9, + 3.991799730012718*^9}},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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], + +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}, + CellLabel-> + "During evaluation of \ +In[92]:=",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], + +Cell[BoxData["10.498798062085507`"], "Output", + CellChangeTimes->{3.9913236988049507`*^9}, + CellLabel->"Out[92]=",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917997336698074`*^9, + 3.9917997367747993`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[93]:=",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], + +Cell[BoxData["18.521732102530788`"], "Output", + CellChangeTimes->{3.991323706795576*^9}, + CellLabel->"Out[93]=",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991799742384985*^9, + 3.9917997459840527`*^9}},ExpressionUUID->"fcd1131c-ba92-0b46-817b-\ +e5f89f4ec38f"], + +Cell[BoxData["0.038552612544494616`"], "Output", + CellChangeTimes->{3.991323706858589*^9}, + CellLabel->"Out[94]=",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel->"In[96]:=",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.991323706886154*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel->"In[98]:=",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.9913237069236546`*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[101]:=",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913237069753113`*^9}, + CellLabel-> + "Out[101]=",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[102]:=",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], + +Cell[BoxData["0.02467166981689615`"], "Output", + CellChangeTimes->{3.991323707000412*^9}, + CellLabel-> + "Out[102]=",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[103]:=",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], + +Cell[BoxData["5.642163519289108`"], "Output", + CellChangeTimes->{3.991323707203314*^9}, + CellLabel-> + "Out[103]=",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[104]:=",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], + +Cell[BoxData["0.012834083028601704`"], "Output", + CellChangeTimes->{3.9913237072224197`*^9}, + CellLabel-> + "Out[104]=",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[105]:=",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], + +Cell[BoxData["7.82280524717004`"], "Output", + CellChangeTimes->{3.991323707432623*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[106]:=",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913237074497375`*^9}, + CellLabel-> + "Out[106]=",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[107]:=",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991323707467621*^9}, + CellLabel-> + "Out[107]=",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[108]:=",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991323707488617*^9}, + CellLabel-> + "Out[108]=",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799766323864*^9},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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], + +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}, + CellLabel-> + "During evaluation of \ +In[109]:=",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], + +Cell[BoxData["5.642163519289105`"], "Output", + CellChangeTimes->{3.9913237161181736`*^9}, + CellLabel-> + "Out[109]=",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917997699328365`*^9},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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], + +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}, + CellLabel-> + "During evaluation of \ +In[110]:=",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], + +Cell[BoxData["7.822805247170038`"], "Output", + CellChangeTimes->{3.991323724852854*^9}, + CellLabel-> + "Out[110]=",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917997843341885`*^9},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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512877, + 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5082122808512877, 1.8240550855476267`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5082122808512888}, + "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.5082122808512888}, + 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.5082122808512877, 1.8240550855476267`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913242457281837`*^9}, + CellLabel-> + "Out[111]=",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9917997871187477`*^9, + 3.991799792469698*^9}},ExpressionUUID->"8faa67fd-f295-ea48-b116-\ +d12d9d52c36b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.955409411483839`*^-270\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 112, + 45, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991324246104725*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[112]:=",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], + +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 + + "]]}, + 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: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.13473082946272152`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.13473082946272152`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991324915847246*^9}, + CellLabel-> + "Out[112]=",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.991799816909994*^9, 3.9918001103050213`*^9, + 3.991924419552084*^9},ExpressionUUID->"c5eb8b00-da53-e74c-9781-\ +4f98a6653ef7"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799819852022*^9, + 3.9917998213158054`*^9}},ExpressionUUID->"05df483d-64d7-9449-845e-\ +6e6b94590d4b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[116]:=",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 116, 57, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913265068365192`*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 116, 58, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326506846985*^9}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) 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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], + +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}, + CellLabel-> + "During evaluation of \ +In[116]:=",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], + +Cell[BoxData["11.275343508404701`"], "Output", + CellChangeTimes->{3.991326513010317*^9}, + CellLabel-> + "Out[116]=",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998502248*^9, + 3.9917998584727135`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], + +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}, + CellLabel-> + "During evaluation of \ +In[117]:=",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], + +Cell[BoxData["1.662840304462236`"], "Output", + CellChangeTimes->{3.9913265201819115`*^9}, + CellLabel-> + "Out[117]=",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9917998626681576`*^9, + 3.991799866004116*^9}},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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], + +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}, + CellLabel-> + "During evaluation of \ +In[118]:=",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], + +Cell[BoxData["8.698310175000124`"], "Output", + CellChangeTimes->{3.9913265264075394`*^9}, + CellLabel-> + "Out[118]=",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799871682028*^9, + 3.9917998792226925`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], + +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}, + CellLabel-> + "During evaluation of \ +In[119]:=",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], + +Cell[BoxData["16.721244215445346`"], "Output", + CellChangeTimes->{3.9913265299431496`*^9}, + CellLabel-> + "Out[119]=",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[120]=",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[122]:=",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913265300040226`*^9}, + CellLabel-> + "Out[122]=",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[124]:=",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.991326530052025*^9}, + CellLabel-> + "Out[124]=",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[127]:=",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913265300922585`*^9}, + CellLabel-> + "Out[127]=",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], + +Cell[BoxData["0.022635100966331548`"], "Output", + CellChangeTimes->{3.9913265301172295`*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], + +Cell[BoxData["5.890521190513567`"], "Output", + CellChangeTimes->{3.991326530210228*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], + +Cell[BoxData["0.012260254107801566`"], "Output", + CellChangeTimes->{3.9913265302252293`*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], + +Cell[BoxData["8.003781147223087`"], "Output", + CellChangeTimes->{3.9913265303172264`*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.9913265303292294`*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991326530340416*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991326530367384*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991799912745739*^9},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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], + +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}, + CellLabel-> + "During evaluation of \ +In[135]:=",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], + +Cell[BoxData["5.890521190513565`"], "Output", + CellChangeTimes->{3.9913265339749985`*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9917999175346184`*^9},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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], + +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}, + CellLabel-> + "During evaluation of \ +In[136]:=",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], + +Cell[BoxData["8.00378114722308`"], "Output", + CellChangeTimes->{3.9913265375649567`*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917999220519733`*^9},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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525464, + 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6007907022525464, 1.5921070201523966`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6007907022525477}, + "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.6007907022525477}, + 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.6007907022525464, 1.5921070201523966`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913267728125134`*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799933259697*^9, + 3.9917999365172615`*^9}},ExpressionUUID->"201ddeed-58e9-7047-8ad4-\ +c179c9adcae7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.962223088138177`*^-266\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 138, + 81, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991326773051552*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12905028199662316`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12905028199662316`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991327033758711*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9917999433700733`*^9, 3.9917999479698143`*^9}, + 3.9919244033659534`*^9},ExpressionUUID->"d48877eb-e0f2-d842-b248-\ +ea3fc2b4c4a8"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.991799951845436*^9, + 3.991799954096182*^9}},ExpressionUUID->"eae5aeae-3f12-2d4a-842b-\ +85a3484011b6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[142]:=",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 93, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279097599506`*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 142, 94, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327909769953*^9}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], + +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}, + CellLabel-> + "During evaluation of \ +In[142]:=",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], + +Cell[BoxData["11.275343508420296`"], "Output", + CellChangeTimes->{3.9913279159698696`*^9}, + CellLabel-> + "Out[142]=",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99179998339209*^9, + 3.991799988637089*^9}},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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], + +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}, + CellLabel-> + "During evaluation of \ +In[143]:=",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], + +Cell[BoxData["1.0734937398087425`"], "Output", + CellChangeTimes->{3.991327922931429*^9}, + CellLabel-> + "Out[143]=",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991799991275097*^9, + 3.9917999948700333`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], + +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}, + CellLabel-> + "During evaluation of \ +In[144]:=",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], + +Cell[BoxData["9.48093127226425`"], "Output", + CellChangeTimes->{3.9913279288200035`*^9}, + CellLabel-> + "Out[144]=",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918000011431293`*^9, + 3.9918000068677616`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], + +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}, + CellLabel-> + "During evaluation of \ +In[145]:=",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], + +Cell[BoxData["17.503865312709518`"], "Output", + CellChangeTimes->{3.9913279320131683`*^9}, + CellLabel-> + "Out[145]=",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{Automatic, 0}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +Cell[187354, 5091, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], +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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, Open ]], +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + 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 new file mode 100644 index 0000000..a320d64 --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_osc_Qw2.nb @@ -0,0 +1,9140 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 381361, 9130] +NotebookOptionsPosition[ 356610, 8757] +NotebookOutlinePosition[ 357039, 8774] +CellTagsIndexPosition[ 356996, 8771] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.991849690724144*^9},ExpressionUUID->"328429c4-9130-334e-ba7f-\ +7dc8ec78e5b4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991849693382303*^9, + 3.991849693386299*^9}},ExpressionUUID->"b3364ab6-86a4-7a46-ae33-\ +623392314869"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[316]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557615205345*^9},ExpressionUUID->"35e76fc7-2f05-694a-b379-\ +67189aa511ad"], + +Cell[BoxData["2.192147584896785`*^-54"], "Output", + CellChangeTimes->{3.991339230554512*^9}, + CellLabel-> + "Out[317]=",ExpressionUUID->"cead89a0-592d-3b44-ae8b-df81fa845f91"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.991557618917984*^9, + 3.9915576208320503`*^9}},ExpressionUUID->"a10e19cd-f567-6b4d-a841-\ +5f01117db38b"], + +Cell[BoxData["3.508823705223133`*^-54"], "Output", + CellChangeTimes->{3.9913392305796223`*^9}, + CellLabel-> + "Out[318]=",ExpressionUUID->"cd23137f-b6ad-354d-a690-15ff879bfb9c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[319]:=",ExpressionUUID->"289c2a6f-fa01-2645-80ce-1661c17fd90c"], + +Cell[BoxData["44.37747929594205`"], "Output", + CellChangeTimes->{3.9913392305906105`*^9}, + CellLabel-> + "Out[319]=",ExpressionUUID->"85da9012-bc80-5149-8545-ead2f85c5a34"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[320]:=",ExpressionUUID->"399520f6-f2e9-6f4a-a02c-50158b624262"], + +Cell[BoxData["102.55835649176893`"], "Output", + CellChangeTimes->{3.99133923061561*^9}, + CellLabel-> + "Out[320]=",ExpressionUUID->"86664631-6f8b-d148-8f17-b13cb8a9a5fa"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[321]:=",ExpressionUUID->"7ee61184-68bc-584d-8849-9a0186a8f35d"], + +Cell[BoxData["0.5630879721742558`"], "Output", + CellChangeTimes->{3.9913392306426105`*^9}, + CellLabel-> + "Out[321]=",ExpressionUUID->"77c43b01-85eb-fd46-b71d-1d444bf52ef5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[322]:=",ExpressionUUID->"0ec92d80-8d9e-2746-9b01-4edb32bf4eac"], + +Cell[BoxData["1.956498159343112`"], "Output", + CellChangeTimes->{3.99133923065361*^9}, + CellLabel-> + "Out[322]=",ExpressionUUID->"aacafa1c-cf55-8c4f-8232-23de80eb25b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[323]:=",ExpressionUUID->"8c869977-4b92-8745-b065-cb6318fdcdb7"], + +Cell[BoxData["200.65523570140064`"], "Output", + CellChangeTimes->{3.9913392306776104`*^9}, + CellLabel-> + "Out[323]=",ExpressionUUID->"de93d189-ac68-c842-aeb5-e64b23581b7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[324]:=",ExpressionUUID->"e2c1a337-e3c1-be4c-aa33-ae15497f38bc"], + +Cell[BoxData["24.98842482695703`"], "Output", + CellChangeTimes->{3.991339230703802*^9}, + CellLabel-> + "Out[324]=",ExpressionUUID->"73700a90-df80-2f44-9e2f-d43da4980146"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[325]:=",ExpressionUUID->"abbe4489-628a-134f-b142-f0e18f19d6f9"], + +Cell[BoxData["0.01829601703069907`"], "Output", + CellChangeTimes->{3.9913392307297993`*^9}, + CellLabel-> + "Out[325]=",ExpressionUUID->"cebf7c0c-e117-6441-a465-087c93e87be5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[326]:=",ExpressionUUID->"9e4d84a7-8664-a749-b8b4-3df6645764a5"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.991339230837267*^9}, + CellLabel-> + "Out[326]=",ExpressionUUID->"53acb857-d475-4b46-bdab-d2addcedb13c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[327]:=",ExpressionUUID->"29cc8bdf-8683-214b-bd33-b4d8b4da1114"], + +Cell[BoxData["0.00990105610750653`"], "Output", + CellChangeTimes->{3.9913392308522797`*^9}, + CellLabel-> + "Out[327]=",ExpressionUUID->"9962c954-af09-2844-91ec-70eb43451868"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[328]:=",ExpressionUUID->"2190c129-8a98-bf45-873d-af8f8d048936"], + +Cell[BoxData["8.906440683949702`"], "Output", + CellChangeTimes->{3.991339230966341*^9}, + CellLabel-> + "Out[328]=",ExpressionUUID->"1f5b5c64-ee33-0943-822d-b5e2806576ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[329]:=",ExpressionUUID->"972f1c0f-a59f-2847-8b2b-bd88c5077325"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991339230988348*^9}, + CellLabel-> + "Out[329]=",ExpressionUUID->"a3bdb7fa-0a90-d14f-81e9-757139920dcb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[330]:=",ExpressionUUID->"c06a7373-f345-6147-b882-1c88bef9608a"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991339231030445*^9}, + CellLabel-> + "Out[330]=",ExpressionUUID->"1b098546-b8b7-b741-b993-7512b0787277"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[331]:=",ExpressionUUID->"82838793-cf71-8049-a4ac-b01daf51205b"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.991339231060343*^9}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d3b57aaa-e0b1-cb4b-b411-ab6c214b3d77"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"0055f95b-c532-\ +e24d-bdc4-544ea2d2fbd9"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497046469917`*^9},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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"56fc0528-7ab2-a142-bc04-9f31af965213"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"523f0cae-d948-764c-a560-b9272d5e2d53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 332, 327, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339231105339*^9}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"0a6922e0-d70a-8f48-87c3-f1e8776a3316"], + +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}, + CellLabel-> + "During evaluation of \ +In[332]:=",ExpressionUUID->"777b8d50-cc35-c140-9ef3-025284fd7e68"], + +Cell[BoxData["6.551890985609901`"], "Output", + CellChangeTimes->{3.9913392346332226`*^9}, + CellLabel-> + "Out[332]=",ExpressionUUID->"bbad1871-e996-ef4b-8dc6-3a39d5c410ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849710877041*^9},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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"e613a9b2-edeb-4743-aa3f-3db45e0849dd"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"d082687e-fa98-c642-8741-e0aeeee8492c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.608653316951178`*^-217\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 333, 331, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339234685627*^9}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"1cb847b5-98cf-0a42-bcd2-893a3a64388b"], + +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}, + CellLabel-> + "During evaluation of \ +In[333]:=",ExpressionUUID->"0d526236-fa4c-334c-9891-0cc458f43fbe"], + +Cell[BoxData["8.906440683949707`"], "Output", + CellChangeTimes->{3.99133923819088*^9}, + CellLabel-> + "Out[333]=",ExpressionUUID->"a61472f3-b6b3-5d40-8ec5-35b87df5c824"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849713921898*^9},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== + "]]}, + 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: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== + "]]}, "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}, + "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.5986424829233534, + 1.5968711170700145`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5986424829233548}, + "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.12306105754327`, + 253.30690491292427`}, {-15.402138689748952`, 5.769736310251048}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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== + "]]}, "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}, + "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.5986424829233548}, + 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.5986424829233534, 1.5968711170700145`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991339493274267*^9}, + CellLabel-> + "Out[334]=",ExpressionUUID->"84263d17-cde8-2246-a26d-50fe65f34979"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849724783457*^9},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[335]:=",ExpressionUUID->"07354318-4dcc-6049-94e1-9227bd3406fc"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.11602348907445073`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.11602348907445073`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991340117671425*^9}, + CellLabel-> + "Out[335]=",ExpressionUUID->"4fedf89c-a1d1-0f4a-bf53-44f2e928d059"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"2d5a8299-5376-9747-8056-\ +2bd9764114a1"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"d5fa6d0d-0ad8-f845-b7df-\ +0ac982b58a3a"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918497405884743`*^9},ExpressionUUID->"650e43f8-1352-de46-8137-\ +52adca93b0cf"], + +Cell[BoxData["12.55365498952246`"], "Output", + CellChangeTimes->{3.991340544411957*^9}, + CellLabel-> + "Out[337]=",ExpressionUUID->"ced270d8-1772-ff41-a012-a661d8496312"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849742961588*^9},ExpressionUUID->"9ad75b45-8f6d-114b-80bd-\ +d2b12a49fd20"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.744035802858657`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 341, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544611845*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"82d24bea-da89-924f-8c72-34dd3938ca31"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.2192044618644736`*^-272\\\", \ +\\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 338, 342, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913405446218624`*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"dec01940-92d8-ec46-9a19-7eeb83f307cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.752435063894365`*^-282\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 338, 343, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340544630844*^9}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"b8576457-d231-bd44-9899-a0c0bb16b9e8"], + +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}, + CellLabel-> + "During evaluation of \ +In[338]:=",ExpressionUUID->"8bc3094a-336c-7a48-a7ed-1449be3156c0"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.060553949877372025`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.060553949877372025`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913408819317417`*^9}, + CellLabel-> + "Out[338]=",ExpressionUUID->"8cd361e0-0597-af48-9664-8ef179548a96"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[339]:=",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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"6b02dcd6-679e-e045-823b-19e8112735bb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.2375694519917973`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 346, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340881991743*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"1777b2e8-4814-3b40-9d26-e365522e2fa7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.9304457788981872`*^-189\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 339, 347, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991340882000746*^9}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"343e800a-6390-7b48-892a-7785bb4151c8"], + +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}, + CellLabel-> + "During evaluation of \ +In[339]:=",ExpressionUUID->"30a8c837-a97a-f04a-b90a-1e6b32a15ee9"], + +Cell[BoxData["12.553654989521348`"], "Output", + CellChangeTimes->{3.9913408882266617`*^9}, + CellLabel-> + "Out[339]=",ExpressionUUID->"ae05a7c3-f5d6-d640-8f8e-efe8f63ceb63"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918497473740044`*^9, {3.99184977815234*^9, + 3.991849780845421*^9}},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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"089dc3ff-480d-db4f-bbed-05630517df59"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"6e93a9b9-9460-8649-881d-48f37a709a1b"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"1ee8858a-971e-d34f-bafe-57ab88be1238"], + +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}, + CellLabel-> + "During evaluation of \ +In[340]:=",ExpressionUUID->"96f8e027-4313-4f4f-a21d-2291fe960276"], + +Cell[BoxData["1.3456729512531673`"], "Output", + CellChangeTimes->{3.991340895263792*^9}, + CellLabel-> + "Out[340]=",ExpressionUUID->"53e3f7cd-1b3e-7343-931d-6e137013b0b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497892022038`*^9, + 3.991849792285101*^9}},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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"2abeeb06-100d-8a4f-bcb1-ddb8c833ff54"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"7e411bd4-b3ce-e244-9ce0-8d1f78e8cd14"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"1eef1d19-4a0f-cd45-ac5f-c8b603cf3443"], + +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}, + CellLabel-> + "During evaluation of \ +In[341]:=",ExpressionUUID->"6022a732-4a2e-1544-a8b7-891b74c71e8b"], + +Cell[BoxData["11.729429210875175`"], "Output", + CellChangeTimes->{3.9913409010488796`*^9}, + CellLabel-> + "Out[341]=",ExpressionUUID->"3c53d31a-b5c8-d04c-a31f-fccb4feaa955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918497964884186`*^9, + 3.9918497998504505`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"419d88aa-08de-a042-b43b-49810fba72bb"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"4a9a6268-a319-d748-9834-40ccb49d2b51"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"575d1045-9e4b-4643-b969-4ea2653f65d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[342]:=",ExpressionUUID->"0c807644-74de-9c49-acac-c7123cbacadc"], + +Cell[BoxData["21.67464099510054`"], "Output", + CellChangeTimes->{3.991340904517517*^9}, + CellLabel-> + "Out[342]=",ExpressionUUID->"40f79c92-c788-c843-8a8c-07266b265dee"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[343]=",ExpressionUUID->"5f3fc6c2-7014-7c43-bf96-8a336bebf769"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[345]:=",ExpressionUUID->"b6bc4645-bb9b-da49-b314-4566a6ca9506"], + +Cell[BoxData["19.580504093356314`"], "Output", + CellChangeTimes->{3.9913409045775146`*^9}, + CellLabel-> + "Out[345]=",ExpressionUUID->"c9ac712d-c12f-0747-84df-4fbc596a4bc5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[347]:=",ExpressionUUID->"1f225213-8143-a346-8c4e-e69f41e85c6f"], + +Cell[BoxData["0.8477067309358528`"], "Output", + CellChangeTimes->{3.991340904625164*^9}, + CellLabel-> + "Out[347]=",ExpressionUUID->"265915a4-bf42-cc4a-850a-ff4e02169aa3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[350]:=",ExpressionUUID->"4b9388d7-dfe0-ca44-90a4-ea60f173579a"], + +Cell[BoxData["16.598525115055164`"], "Output", + CellChangeTimes->{3.9913409046880226`*^9}, + CellLabel-> + "Out[350]=",ExpressionUUID->"31530b6e-e89a-9145-8021-0dc6b1c7eda5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[351]:=",ExpressionUUID->"b0d5a77d-c2c5-e84d-b4be-bec051c1557c"], + +Cell[BoxData["0.021613768236132463`"], "Output", + CellChangeTimes->{3.9913409047132187`*^9}, + CellLabel-> + "Out[351]=",ExpressionUUID->"498f3df6-21c9-ce42-acfb-0b180bf5016e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[352]:=",ExpressionUUID->"e543ccd6-d1e6-3c4d-9364-2a9eec09292b"], + +Cell[BoxData["6.028089553291302`"], "Output", + CellChangeTimes->{3.9913409048112164`*^9}, + CellLabel-> + "Out[352]=",ExpressionUUID->"7c93e621-3415-c743-b6e4-6e9478aa49a4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[353]:=",ExpressionUUID->"50e98a1c-f33a-9242-9267-bbd8a1753662"], + +Cell[BoxData["0.010798036798660033`"], "Output", + CellChangeTimes->{3.991340904825058*^9}, + CellLabel-> + "Out[353]=",ExpressionUUID->"ac3c9970-0aac-ba4f-878d-3a3d1e5e2e3e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[354]:=",ExpressionUUID->"339251a5-83bd-8642-8c5c-4fff9ebe10d7"], + +Cell[BoxData["8.5284977476633`"], "Output", + CellChangeTimes->{3.9913409049303207`*^9}, + CellLabel-> + "Out[354]=",ExpressionUUID->"d74ba3c3-6f35-614a-92df-d33bcc5e630d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[355]:=",ExpressionUUID->"ad1f9bb1-e9e6-5b4f-9f95-8eeef0cc66ae"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991340904948307*^9}, + CellLabel-> + "Out[355]=",ExpressionUUID->"33da748c-8c98-4649-9b81-8e00dd5f5d44"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[356]:=",ExpressionUUID->"4b0fdfc8-7d81-3a4d-90ed-a9bb76dc96a0"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.991340904981308*^9}, + CellLabel-> + "Out[356]=",ExpressionUUID->"a300919b-1d52-ed46-bc06-5e86812c0bf8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[357]:=",ExpressionUUID->"31524ab0-bcc9-e948-9393-cfc225600ff2"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.99134090500931*^9}, + CellLabel-> + "Out[357]=",ExpressionUUID->"45caa3aa-b655-b94b-bc88-ae750a9e28b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849824909197*^9},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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"fdac5db3-60d6-7a42-93b8-a74d8fc5d39e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"46e50c50-b3b4-9847-b413-3bf52122b53e"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"5df9105e-cc71-b049-a285-30acff0c246a"], + +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}, + CellLabel-> + "During evaluation of \ +In[358]:=",ExpressionUUID->"84079c6c-500c-0643-b357-e1da142371e6"], + +Cell[BoxData["6.028089553291301`"], "Output", + CellChangeTimes->{3.991340908920454*^9}, + CellLabel-> + "Out[358]=",ExpressionUUID->"8303ac5a-d080-3741-a2d8-b7ff63ccb029"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918498299076843`*^9},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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"65ad7cc5-5634-7d43-8ec3-48fd3e044014"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"c7632c59-b44f-2c47-aaf4-873ba9758677"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"509e3117-7502-a34e-9f96-72b696066a2b"], + +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}, + CellLabel-> + "During evaluation of \ +In[359]:=",ExpressionUUID->"0e1f3a7a-70f7-bc47-9700-06e687643558"], + +Cell[BoxData["8.528497747663296`"], "Output", + CellChangeTimes->{3.991340912767397*^9}, + CellLabel-> + "Out[359]=",ExpressionUUID->"15bebbf4-baae-a44a-84b5-59b3a1f444c3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849833066021*^9},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 + "]]}, + 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: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 + "]]}, "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`}, + "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.4222837130873766, 2.103798844286089}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.42228371308737755`}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "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`}, + "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.42228371308737755`}, + 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.4222837130873766, 2.103798844286089}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913411752988663`*^9}, + CellLabel-> + "Out[360]=",ExpressionUUID->"d9c156b6-0b42-724f-8e7d-964560057978"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918498397477245`*^9, + 3.9918498435341415`*^9}},ExpressionUUID->"92d458c4-bfde-c447-a06c-\ +70a15768b745"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.939746899581406`*^-267\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 361, + 369, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755393047`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"74b51561-a06a-7345-9196-225d76f7f21f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7974258435449576`*^-278\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 361, 370, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913411755492897`*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"ee03248d-dd91-8b4e-835e-9c4a5f039c61"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.87479384448772`*^-289\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 361, 371, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991341175557289*^9}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"81d7736e-0167-fe4f-bd5c-40ffaca911e4"], + +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}, + CellLabel-> + "During evaluation of \ +In[361]:=",ExpressionUUID->"43062041-d596-b540-8a1c-36df0575e1f0"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1261051971575712}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1261051971575712}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913414579436264`*^9}, + CellLabel-> + "Out[361]=",ExpressionUUID->"4ce3b436-d895-8b48-899f-c7dec78bd5cd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"e1c8585a-8b57-f841-82e1-\ +8e8787fb2589"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[365]:=",ExpressionUUID->"8cd26316-ef9d-184c-93c8-dd96bfd24ea1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7233721930057495`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 365, 381, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913423358439445`*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"bf4d283e-fed2-af41-90e7-a9b6911d8baf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.534866194708534`*^-177\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 365, 382, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335853943*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"9f6ca4d5-4251-0341-9c65-a603c68721f6"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.360372708843676`*^-180\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 365, 383, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342335861944*^9}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"108eeaac-8397-bf4f-90a4-e14dbe759ebf"], + +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}, + CellLabel-> + "During evaluation of \ +In[365]:=",ExpressionUUID->"1a2f2a3c-e511-b846-8a84-9fad6555a680"], + +Cell[BoxData["12.5536549879565`"], "Output", + CellChangeTimes->{3.9913423425170345`*^9}, + CellLabel-> + "Out[365]=",ExpressionUUID->"ca1793f9-9753-5e46-b385-c8dd36228fd1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99184987967128*^9, + 3.9918498857615337`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"642a7168-3d33-6b4e-9213-0f67bfd30f54"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"315984db-f497-2940-bd36-1d820037ad00"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"2698bbc8-6aa1-c54b-9b5c-3f71a7eb3345"], + +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}, + CellLabel-> + "During evaluation of \ +In[366]:=",ExpressionUUID->"7f632647-49b8-a945-8682-8e4f7ae37cda"], + +Cell[BoxData["2.904399821349581`"], "Output", + CellChangeTimes->{3.9913423499055786`*^9}, + CellLabel-> + "Out[366]=",ExpressionUUID->"0f5bf0f0-4e96-2c4d-9011-c6ae92f19c83"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849890499424*^9, + 3.9918498944226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"704bc64b-0e53-8146-9696-c0e9ea00ec4d"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"68985ea1-064e-2c42-b957-ce16147f9e13"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"48a38db6-6d68-6140-9cb6-9dfc686aa062"], + +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}, + CellLabel-> + "During evaluation of \ +In[367]:=",ExpressionUUID->"ac6e6758-d573-7947-b88c-92831bb5be70"], + +Cell[BoxData["9.928941323789857`"], "Output", + CellChangeTimes->{3.991342356382967*^9}, + CellLabel-> + "Out[367]=",ExpressionUUID->"4d1b179c-7677-2745-8308-576346b6bf0b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499002266407`*^9, + 3.9918499040814323`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"0a9cfe95-3a6f-384b-8656-bdf67695e5d7"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"700ebedb-417e-8043-ab89-eb4672a7847d"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"599826a9-6d60-6843-9eef-e381cafa0758"], + +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}, + CellLabel-> + "During evaluation of \ +In[368]:=",ExpressionUUID->"d92d3772-b819-d145-8d96-f897b04ae4a7"], + +Cell[BoxData["19.874153108015193`"], "Output", + CellChangeTimes->{3.9913423600715523`*^9}, + CellLabel-> + "Out[368]=",ExpressionUUID->"98a57fa3-05ea-0d42-95b5-58c14727d753"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[369]=",ExpressionUUID->"ea5023c6-5364-074e-904d-43b5c1077635"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[371]:=",ExpressionUUID->"28979542-d43a-e54a-88e0-087a68060d62"], + +Cell[BoxData["29.129739599983825`"], "Output", + CellChangeTimes->{3.9913423601345863`*^9}, + CellLabel-> + "Out[371]=",ExpressionUUID->"b967ea88-4a73-d84a-86f5-ad4ded7dfd59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[373]:=",ExpressionUUID->"c3303a76-2bd9-454b-b35d-6119cde0197e"], + +Cell[BoxData["0.6950071373045505`"], "Output", + CellChangeTimes->{3.9913423601709976`*^9}, + CellLabel-> + "Out[373]=",ExpressionUUID->"fd8ea80a-f1d4-be4f-9cfa-b37871c5703d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[376]:=",ExpressionUUID->"b83c9900-e14a-064d-b097-089d758a0eb6"], + +Cell[BoxData["20.245376929811762`"], "Output", + CellChangeTimes->{3.9913423602320137`*^9}, + CellLabel-> + "Out[376]=",ExpressionUUID->"7d039035-dcf9-ec46-abdb-20c0c777b3ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[377]:=",ExpressionUUID->"17437a0c-d9be-a242-b57f-efef95056982"], + +Cell[BoxData["0.02003459702393596`"], "Output", + CellChangeTimes->{3.991342360260002*^9}, + CellLabel-> + "Out[377]=",ExpressionUUID->"ec08a5f9-ba46-9147-9d7b-cc1decdb981f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[378]:=",ExpressionUUID->"b3706ed1-2e71-9941-86c4-d789cf8ea193"], + +Cell[BoxData["6.261157591052328`"], "Output", + CellChangeTimes->{3.9913423603598785`*^9}, + CellLabel-> + "Out[378]=",ExpressionUUID->"71ad1ede-d77d-ee46-a908-e7b20c10ebe8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[379]:=",ExpressionUUID->"2dad5775-7b90-2241-a408-e59b2ea47cb0"], + +Cell[BoxData["0.010388932679900494`"], "Output", + CellChangeTimes->{3.991342360375868*^9}, + CellLabel-> + "Out[379]=",ExpressionUUID->"819de60b-5785-6448-8fe2-0db5976d700d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"ea913ab0-daa5-1f4d-93f4-2e6143537b5d"], + +Cell[BoxData["8.694797556550151`"], "Output", + CellChangeTimes->{3.991342360471882*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"8dd6a8d3-1dbb-0d4a-9edc-e78196c49a86"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[381]:=",ExpressionUUID->"53a0bfe7-010b-d445-822a-52c57127f779"], + +Cell[BoxData["0.6154782275967796`"], "Output", + CellChangeTimes->{3.991342360486868*^9}, + CellLabel-> + "Out[381]=",ExpressionUUID->"ae861452-cf77-f740-9f62-141306c9a07a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[382]:=",ExpressionUUID->"4e482268-3ff3-d74a-9ba6-ed262245ad4b"], + +Cell[BoxData["0.3845217724032204`"], "Output", + CellChangeTimes->{3.9913423605138645`*^9}, + CellLabel-> + "Out[382]=",ExpressionUUID->"253d4a43-9313-5444-b0f9-3aae32edd842"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[383]:=",ExpressionUUID->"df39eab0-0939-764b-8de6-27d0ba2be7e8"], + +Cell[BoxData["0.2366647789511063`"], "Output", + CellChangeTimes->{3.9913423605448647`*^9}, + CellLabel-> + "Out[383]=",ExpressionUUID->"0c1e1373-3726-9c43-862b-62a8708f83a9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849936863495*^9},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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"d55599c5-2bb2-8f4a-a245-aa6d5998cb8f"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"bdcd3bac-beba-5242-b376-95b5ed40a02a"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"b91a3ff7-a025-fd4e-b11c-58fa6385068b"], + +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}, + CellLabel-> + "During evaluation of \ +In[384]:=",ExpressionUUID->"9e66d374-59c2-ce4b-b0d2-5a3813a10542"], + +Cell[BoxData["6.261157591052324`"], "Output", + CellChangeTimes->{3.9913423642473736`*^9}, + CellLabel-> + "Out[384]=",ExpressionUUID->"5742ee33-8e4b-444c-91b6-6d4c403c91e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991849940282545*^9},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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"49d9e2db-79aa-5b48-897e-3089c92c79b4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"2361061c-25a8-4549-ba9e-397593d876d4"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"a2993171-fcd7-8742-bf17-921d87bded0b"], + +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}, + CellLabel-> + "During evaluation of \ +In[385]:=",ExpressionUUID->"c72ccd11-884d-074a-bf1c-ed71d6dc6298"], + +Cell[BoxData["8.694797556550144`"], "Output", + CellChangeTimes->{3.9913423679416714`*^9}, + CellLabel-> + "Out[385]=",ExpressionUUID->"9dfb51ec-f6bd-9540-91f7-9d4800c6c680"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991849946138607*^9},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= + + "]]}, + 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: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= + + "]]}, "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}, + "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.5012481131960838, + 1.8440472181603567`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5012481131960849}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "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}, + "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.5012481131960849}, + 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.5012481131960838, 1.8440472181603567`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991342629715925*^9}, + CellLabel-> + "Out[386]=",ExpressionUUID->"e400bdb6-95ee-464e-9e4c-d5d7da48485f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991849950722357*^9, + 3.9918499540026855`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"1c59fae3-3f74-0144-b936-915cf372347d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.366286872093514`*^-285\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 387, 406, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629956772*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"c058b3d2-ecc0-7348-bdec-143a71e7f77c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.843812508005402`*^-296\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 387, 407, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991342629966284*^9}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"049ee41e-a5fd-7e46-9ca5-37402fcadc74"], + +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}, + CellLabel-> + "During evaluation of \ +In[387]:=",ExpressionUUID->"5bf93938-89e6-8d49-a495-6173a8c36739"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.12141098789525176`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.12141098789525176`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913429049348164`*^9}, + CellLabel-> + "Out[387]=",ExpressionUUID->"0ea0f8f9-2a4b-804f-a2c8-287645f62313"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"b530b35f-2a32-0145-82a7-\ +25a7a01bdd8f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[391]:=",ExpressionUUID->"a0d63734-417a-b84f-b5c7-88ca33cb9355"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.6103394901964062`*^-176\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 417, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437636167164`*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"cb4665e4-f252-8e4c-9d71-b694fbe7aa53"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.41644839595733`*^-180\\\", \ +\\\"65057412219066675752453169974731864698669050632262085573439989315594807001\ +54550540918463145870938904834370174976000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 391, 418, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763625717*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"e67b353a-d4a9-454a-9cac-3e22ef8a4d4b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3968570267101824`*^-183\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 391, 419, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991343763634718*^9}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"9dbc6a20-c95c-084e-b19f-b6bb6bd70d6b"], + +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}, + CellLabel-> + "During evaluation of \ +In[391]:=",ExpressionUUID->"f9b6cbc5-ab52-2741-b8bf-bf6796495def"], + +Cell[BoxData["12.55365498945131`"], "Output", + CellChangeTimes->{3.991343769962549*^9}, + CellLabel-> + "Out[391]=",ExpressionUUID->"1439e238-af89-2243-beb8-0a46e5e09115"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499777649403`*^9, + 3.9918499820026073`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"033374a1-a008-6240-84e3-c1c7a7e65b75"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"88ab6d85-4789-7346-aeee-8e9a4b87248d"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"051100a9-488b-4d4d-83c7-cdc54aef13e0"], + +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}, + CellLabel-> + "During evaluation of \ +In[392]:=",ExpressionUUID->"a33cd954-f1de-bf45-8642-effd7c3e029f"], + +Cell[BoxData["2.1234790234082306`"], "Output", + CellChangeTimes->{3.9913437771602173`*^9}, + CellLabel-> + "Out[392]=",ExpressionUUID->"48a4017b-948a-6a48-8b10-d81adf4b9038"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918499862910366`*^9, + 3.991849989300226*^9}},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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"d8156b3f-4442-9146-9c48-cb34fdfb79d3"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"60007a19-2492-cd46-a203-7c2bbbc6591f"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"8754c4a5-0539-0247-94a5-8a81a9ae7e49"], + +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}, + CellLabel-> + "During evaluation of \ +In[393]:=",ExpressionUUID->"3af4c7f8-fe90-6646-8e3b-058500b348e9"], + +Cell[BoxData["10.711562421053975`"], "Output", + CellChangeTimes->{3.991343783589731*^9}, + CellLabel-> + "Out[393]=",ExpressionUUID->"46f7d520-9bcf-9d48-ae7c-54e91ca06983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849992549782*^9, + 3.9918499952553864`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"ba4db233-5a2e-4340-98d0-df918a11e2c7"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"444b24ca-68bb-7144-a655-403eefa4900f"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"f2dc2286-68d4-d74f-83ea-dd0f591156a8"], + +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}, + CellLabel-> + "During evaluation of \ +In[394]:=",ExpressionUUID->"4974a702-c238-6d47-b5b2-a3c25cacf142"], + +Cell[BoxData["20.656774205279326`"], "Output", + CellChangeTimes->{3.9913437870822353`*^9}, + CellLabel-> + "Out[394]=",ExpressionUUID->"d46043b7-707b-4740-ab89-0a2b96978cff"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[395]=",ExpressionUUID->"188c2681-ea17-924e-adb2-007b19a9ee86"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{17.25, Automatic}, {Automatic, 24}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"c5c6a337-d1c3-0f45-98d9-a2509510bd89" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..14330be --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw1.nb @@ -0,0 +1,9769 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 419556, 9759] +NotebookOptionsPosition[ 394772, 9385] +NotebookOutlinePosition[ 395226, 9403] +CellTagsIndexPosition[ 395183, 9400] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ +c079ad464f5d"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848851636154*^9, + 3.9918488516427097`*^9}},ExpressionUUID->"bc946e22-fdd1-8b4b-8e5a-\ +11f4dcb03e07"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[150]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.9915575644922657`*^9},ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-\ +7221ff813b6d"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.991327932129387*^9}, + CellLabel-> + "Out[151]=",ExpressionUUID->"d307b81f-3de4-ab46-9ef8-af5c6bc7c05b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915575683388195`*^9, + 3.991557570173399*^9}},ExpressionUUID->"f22831a7-63b7-f444-8e3a-\ +fa370a62ac27"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.991327932138338*^9}, + CellLabel-> + "Out[152]=",ExpressionUUID->"866e2a7a-c08a-d14a-ae9c-f63fbc316d85"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[153]:=",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913279321616154`*^9}, + CellLabel-> + "Out[153]=",ExpressionUUID->"bba1ae64-a2a6-4745-b870-cca298627f62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], + RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", + CellLabel-> + "In[154]:=",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], + +Cell[BoxData["37.77192070584817`"], "Output", + CellChangeTimes->{3.9913279321696014`*^9}, + CellLabel-> + "Out[154]=",ExpressionUUID->"2d9a2576-51c1-274e-bb6b-3d0a12d8f955"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[155]:=",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913279321926613`*^9}, + CellLabel-> + "Out[155]=",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[156]:=",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], + +Cell[BoxData["3.2238916343938024`"], "Output", + CellChangeTimes->{3.991327932200657*^9}, + CellLabel-> + "Out[156]=",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[157]:=",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], + +Cell[BoxData["121.77257917856996`"], "Output", + CellChangeTimes->{3.99132793222501*^9}, + CellLabel-> + "Out[157]=",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[158]:=",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913279322642612`*^9}, + CellLabel-> + "Out[158]=",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[159]:=",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], + +Cell[BoxData["0.032550594324745`"], "Output", + CellChangeTimes->{3.9913279322906475`*^9}, + CellLabel-> + "Out[159]=",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[160]:=",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], + +Cell[BoxData["4.91208054446651`"], "Output", + CellChangeTimes->{3.9913279323826447`*^9}, + CellLabel-> + "Out[160]=",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[161]:=",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], + +Cell[BoxData["0.012685641417856707`"], "Output", + CellChangeTimes->{3.991327932394655*^9}, + CellLabel-> + "Out[161]=",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[162]:=",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.991327932491659*^9}, + CellLabel-> + "Out[162]=",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[163]:=",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991327932509678*^9}, + CellLabel-> + "Out[163]=",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[164]:=",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913279325457134`*^9}, + CellLabel-> + "Out[164]=",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[165]:=",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913279325697117`*^9}, + CellLabel-> + "Out[165]=",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"714abd93-e0d1-\ +eb45-a9e1-7a2f5d020eb1"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918488620812244`*^9},ExpressionUUID->"137c38a2-741c-bd43-b6d9-\ +c0135e32eaf8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 166, 109, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279325947113`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 110, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279326047096`*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 166, 111, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327932612709*^9}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], + +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}, + CellLabel-> + "During evaluation of \ +In[166]:=",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], + +Cell[BoxData["4.912080544466506`"], "Output", + CellChangeTimes->{3.9913279359974174`*^9}, + CellLabel-> + "Out[166]=",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848865140564*^9},ExpressionUUID->"9b196534-2ca5-e54b-8014-\ +b0ab3cd09ac2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 167, 113, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936033827*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 114, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913279360428295`*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 167, 115, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991327936050829*^9}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], + +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}, + CellLabel-> + "During evaluation of \ +In[167]:=",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], + +Cell[BoxData["7.868441587445692`"], "Output", + CellChangeTimes->{3.9913279393385086`*^9}, + CellLabel-> + "Out[167]=",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848869193308*^9},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 + "]]}, + 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: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 + "]]}, "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}, + "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.8190010003206292, 1.212160280392001}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.819001000320631}, + "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.80048673422971, + 202.7475686600987}, {-12.9358605040218, 4.401639495978198}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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 + "]]}, "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}, + "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.819001000320631}, + 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.8190010003206292, 1.212160280392001}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913281932019863`*^9}, + CellLabel-> + "Out[168]=",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488717861137`*^9},ExpressionUUID->"5a7f9400-1446-9746-a463-\ +bade8ae5c530"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.0472568361461936`*^-267\\\", \ +\\\"668326769467589022464821184293345689600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 169, + 117, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934227676`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.5836247142456827`*^-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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"6.3739060311364366`*^-291\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 169, 119, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913281934409904`*^9}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], + +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}, + CellLabel-> + "During evaluation of \ +In[169]:=",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15475569508294718`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15475569508294718`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913290128289948`*^9}, + CellLabel-> + "Out[169]=",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"0f83f761-b16d-5343-987d-\ +511095eaf120"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"8cdd4baa-f7c9-104e-b978-\ +89d3982ba28f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918488983507824`*^9},ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-\ +3438788b15d6"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913294794877434`*^9}, + CellLabel-> + "Out[171]=",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918488997875195`*^9},ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-\ +0e75880d5d98"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 172, 125, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913294796838703`*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], + +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}, + CellLabel-> + "During evaluation of \ +In[172]:=",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07773075306777268}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07773075306777268}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913298974454536`*^9}, + CellLabel-> + "Out[172]=",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[173]:=",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 173, 129, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913298974999084`*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 173, 130, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329897510906*^9}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[173]:=",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], + +Cell[BoxData["9.77956849963325`"], "Output", + CellChangeTimes->{3.991329904262455*^9}, + CellLabel-> + "Out[173]=",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489049186344`*^9, + 3.991848908595253*^9}},ExpressionUUID->"eb852908-4d60-c84e-80d9-\ +a57fd4094f56"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 174, 133, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904300501*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 134, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329904310505*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 174, 135, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299043185062`*^9}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], + +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}, + CellLabel-> + "During evaluation of \ +In[174]:=",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], + +Cell[BoxData["0.1491428555515254`"], "Output", + CellChangeTimes->{3.9913299110465336`*^9}, + CellLabel-> + "Out[174]=",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489121661835`*^9, + 3.9918489145264854`*^9}},ExpressionUUID->"d11037f6-09e7-b44f-8a1d-\ +47c1a485c608"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 175, 137, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911081766*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 138, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911090769*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 175, 139, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329911098768*^9}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], + +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}, + CellLabel-> + "During evaluation of \ +In[175]:=",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], + +Cell[BoxData["6.5928699937564845`"], "Output", + CellChangeTimes->{3.9913299163114815`*^9}, + CellLabel-> + "Out[175]=",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918489192162857`*^9, + 3.991848922582632*^9}},ExpressionUUID->"431dd2fa-6331-2449-bc19-\ +0d79e6ed8953"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2791901340591166`*^-213\\\", \ +\\\"11190715368044327750599419739138633850047809524416019520761040973844462607\ +31183104000000000000000000\\\"]\\) is too small to represent as a normalized \ +machine number; precision may be lost.\"", 2, 176, 141, 24483298974280422597, + "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163444805`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.153893970830207`*^-218\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 142, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991329916354479*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.4147576224365044`*^-223\\\", \ +\\\"36500040110166628987154089000285177156134537265978168245616958637766157640\ +66213134598144000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 176, 143, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913299163634796`*^9}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], + +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}, + CellLabel-> + "During evaluation of \ +In[176]:=",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], + +Cell[BoxData["16.916908616104454`"], "Output", + CellChangeTimes->{3.9913299193276234`*^9}, + CellLabel-> + "Out[176]=",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[177]=",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[179]:=",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.9913299193849545`*^9}, + CellLabel-> + "Out[179]=",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[181]:=",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913299194207077`*^9}, + CellLabel-> + "Out[181]=",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[184]:=",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.9913299194738407`*^9}, + CellLabel-> + "Out[184]=",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[185]:=",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], + +Cell[BoxData["0.04472011299838893`"], "Output", + CellChangeTimes->{3.991329919501911*^9}, + CellLabel-> + "Out[185]=",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[186]:=",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329919596855*^9}, + CellLabel-> + "Out[186]=",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[187]:=",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], + +Cell[BoxData["0.014190600885170185`"], "Output", + CellChangeTimes->{3.9913299196126003`*^9}, + CellLabel-> + "Out[187]=",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[188]:=",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], + +Cell[BoxData["7.439513700547701`"], "Output", + CellChangeTimes->{3.9913299197036095`*^9}, + CellLabel-> + "Out[188]=",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[189]:=",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913299197165985`*^9}, + CellLabel-> + "Out[189]=",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[190]:=",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991329919739599*^9}, + CellLabel-> + "Out[190]=",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[191]:=",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913299197646008`*^9}, + CellLabel-> + "Out[191]=",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.991848964116934*^9},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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], + +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}, + CellLabel-> + "During evaluation of \ +In[192]:=",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], + +Cell[BoxData["4.190766798679958`"], "Output", + CellChangeTimes->{3.991329923627493*^9}, + CellLabel-> + "Out[192]=",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918489685110855`*^9},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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], + +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}, + CellLabel-> + "During evaluation of \ +In[193]:=",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], + +Cell[BoxData["7.439513700547696`"], "Output", + CellChangeTimes->{3.9913299274564743`*^9}, + CellLabel-> + "Out[193]=",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991848973885317*^9},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== + + "]]}, + 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: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847401, + 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5311368545847401, 1.7610246145622632`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5311368545847414}, + "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.5311368545847414}, + 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.5311368545847401, 1.7610246145622632`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913301734961166`*^9}, + CellLabel-> + "Out[194]=",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.991848978152012*^9, + 3.99184898469532*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[195]:=",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1813924222088017}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1813924222088017}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913306567510605`*^9}, + CellLabel-> + "Out[195]=",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-\ +6bd251746ea6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[199]:=",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.2460289533654366`*^-170\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 199, 165, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991331752212366*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.3587055546643305`*^-173\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 199, 166, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133175222237*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 199, 167, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913317522303677`*^9}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], + +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}, + CellLabel-> + "During evaluation of \ +In[199]:=",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.991331759108553*^9}, + CellLabel-> + "Out[199]=",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849016830597*^9, + 3.991849020984995*^9}},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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], + +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}, + CellLabel-> + "During evaluation of \ +In[200]:=",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], + +Cell[BoxData["1.044718879268698`"], "Output", + CellChangeTimes->{3.991331766558941*^9}, + CellLabel-> + "Out[200]=",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849024657757*^9, + 3.991849027138817*^9}},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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], + +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}, + CellLabel-> + "During evaluation of \ +In[201]:=",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], + +Cell[BoxData["4.7987767072565894`"], "Output", + CellChangeTimes->{3.991331773590704*^9}, + CellLabel-> + "Out[201]=",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849031047804*^9, + 3.9918490341764317`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], + +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}, + CellLabel-> + "During evaluation of \ +In[202]:=",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], + +Cell[BoxData["15.12281532960454`"], "Output", + CellChangeTimes->{3.991331777337887*^9}, + CellLabel-> + "Out[202]=",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[203]=",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[205]:=",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.9913317774008274`*^9}, + CellLabel-> + "Out[205]=",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[207]:=",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.9913317774358253`*^9}, + CellLabel-> + "Out[207]=",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[210]:=",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.991331777510603*^9}, + CellLabel-> + "Out[210]=",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[211]:=",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], + +Cell[BoxData["0.041096786108657246`"], "Output", + CellChangeTimes->{3.991331777537592*^9}, + CellLabel-> + "Out[211]=",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[212]:=",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], + +Cell[BoxData["4.371605972693579`"], "Output", + CellChangeTimes->{3.9913317776362495`*^9}, + CellLabel-> + "Out[212]=",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[213]:=",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], + +Cell[BoxData["0.013804398425195999`"], "Output", + CellChangeTimes->{3.9913317776511555`*^9}, + CellLabel-> + "Out[213]=",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[214]:=",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], + +Cell[BoxData["7.5428626210616345`"], "Output", + CellChangeTimes->{3.991331777742655*^9}, + CellLabel-> + "Out[214]=",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[215]:=",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913317777546787`*^9}, + CellLabel-> + "Out[215]=",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[216]:=",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991331777779663*^9}, + CellLabel-> + "Out[216]=",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[217]:=",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913317778036633`*^9}, + CellLabel-> + "Out[217]=",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918490946810665`*^9},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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], + +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}, + CellLabel-> + "During evaluation of \ +In[218]:=",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], + +Cell[BoxData["4.37160597269358`"], "Output", + CellChangeTimes->{3.991331781456501*^9}, + CellLabel-> + "Out[218]=",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.99184909912471*^9},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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], + +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}, + CellLabel-> + "During evaluation of \ +In[219]:=",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], + +Cell[BoxData["7.54286262106163`"], "Output", + CellChangeTimes->{3.9913317851500416`*^9}, + CellLabel-> + "Out[219]=",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918491043389053`*^9},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= + + "]]}, + 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: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843431, + 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.6044061540843431, 1.5841467887057727`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.6044061540843444}, + "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.6044061540843444}, + 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.6044061540843431, 1.5841467887057727`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913320330871353`*^9}, + CellLabel-> + "Out[220]=",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918491076725483`*^9, + 3.9918491120260525`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.376858869110442`*^-282\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 221, 190, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913320333342056`*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.193593532260836`*^-293\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 221, 191, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991332033342205*^9}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], + +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}, + CellLabel-> + "During evaluation of \ +In[221]:=",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.17388882737814787`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.17388882737814787`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913324679337597`*^9}, + CellLabel-> + "Out[221]=",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"f380af60-a605-c546-a4c8-\ +b989835aa113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[225]:=",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.5794624625701512`*^-174\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 225, 201, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512859148*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"8.303016475329449`*^-178\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 225, 202, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991333512868147*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.3647813242367804`*^-181\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 225, 203, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913335128761463`*^9}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], + +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}, + CellLabel-> + "During evaluation of \ +In[225]:=",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], + +Cell[BoxData["9.779568499633264`"], "Output", + CellChangeTimes->{3.9913335200445786`*^9}, + CellLabel-> + "Out[225]=",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491385551624`*^9, + 3.991849142620474*^9}},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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], + +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}, + CellLabel-> + "During evaluation of \ +In[226]:=",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], + +Cell[BoxData["0.7348275136088338`"], "Output", + CellChangeTimes->{3.9913335271231823`*^9}, + CellLabel-> + "Out[226]=",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849146408966*^9, + 3.9918491485488663`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], + +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}, + CellLabel-> + "During evaluation of \ +In[227]:=",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], + +Cell[BoxData["5.221864211842707`"], "Output", + CellChangeTimes->{3.9913335331581306`*^9}, + CellLabel-> + "Out[227]=",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918491518098984`*^9, + 3.9918491543107758`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], + +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}, + CellLabel-> + "During evaluation of \ +In[228]:=",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], + +Cell[BoxData["15.545902834190647`"], "Output", + CellChangeTimes->{3.9913335366055527`*^9}, + CellLabel-> + "Out[228]=",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[229]=",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{0, Automatic}, {Automatic, 0}}, +CellContext->Notebook, +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* 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 new file mode 100644 index 0000000..1226680 --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_pr_Qw2.nb @@ -0,0 +1,9510 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 407368, 9500] +NotebookOptionsPosition[ 383518, 9136] +NotebookOutlinePosition[ 383944, 9153] +CellTagsIndexPosition[ 383901, 9150] +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[BoxData[ + RowBox[{"f2", "="}]], "Input", + CellChangeTimes->{ + 3.9918501402114105`*^9},ExpressionUUID->"08e75bd6-0b05-8b42-9fb2-\ +092c5143dcf0"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918501388085117`*^9, + 3.991850138811516*^9}},ExpressionUUID->"6e7c45d7-0298-ce41-ba97-\ +a3c857e6ae57"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ir", "=", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"A1", "*", + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}]}], "A"], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}], "+", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], + ")"}]}]], "Input", + CellLabel-> + "In[399]:=",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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Il", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", + CellChangeTimes->{ + 3.991557655438551*^9},ExpressionUUID->"f2e6289f-a8bc-6d44-a856-\ +301cf9f22a61"], + +Cell[BoxData["8.839304777809617`*^-55"], "Output", + CellChangeTimes->{3.9913437872132397`*^9}, + CellLabel-> + "Out[400]=",ExpressionUUID->"7c075ec9-a97b-ab47-b241-cc392b585c5e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Ih", "=", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.16", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}]], "Input", + CellChangeTimes->{{3.9915576595317745`*^9, + 3.9915576617156334`*^9}},ExpressionUUID->"cdf84d2f-1e96-4c43-9286-\ +fda42549e334"], + +Cell[BoxData["2.0384594858915346`*^-54"], "Output", + CellChangeTimes->{3.9913437872412376`*^9}, + CellLabel-> + "Out[401]=",ExpressionUUID->"ddda4800-8c90-d44b-acfd-6ccb39eee852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ih", "*", "Ir"}], + RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[402]:=",ExpressionUUID->"a7d184c1-375c-094d-82ba-c6d8cfdfa4a1"], + +Cell[BoxData["27.24865368249903`"], "Output", + CellChangeTimes->{3.9913437872672386`*^9}, + CellLabel-> + "Out[402]=",ExpressionUUID->"046d7438-d73f-9343-9ae7-b01adfd6d8f5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qw3", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"Ih", "+", "Il"}], ")"}], "*", + RowBox[{"(", + RowBox[{"Ih", "+", "Ir", "+", "Il"}], ")"}]}], "Ir"]}]}]], "Input", + CellLabel-> + "In[403]:=",ExpressionUUID->"cc7d9e01-d61b-5a43-abcd-9714383fe0fe"], + +Cell[BoxData["47.62007062351`"], "Output", + CellChangeTimes->{3.991343787279253*^9}, + CellLabel-> + "Out[403]=",ExpressionUUID->"d2928e96-58be-3a4f-8bee-5b9e193c2ac6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb3"]]}]], "Input", + CellLabel-> + "In[404]:=",ExpressionUUID->"1204358e-ac52-0f4c-bf22-945336ddda4e"], + +Cell[BoxData["0.718596406513947`"], "Output", + CellChangeTimes->{3.9913437873062572`*^9}, + CellLabel-> + "Out[404]=",ExpressionUUID->"bf655ed3-7200-2249-b687-593ee351a598"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hw", "=", + SqrtBox[ + FractionBox["Kw", "Qw3"]]}]], "Input", + CellLabel-> + "In[405]:=",ExpressionUUID->"66c9dc01-c171-8f4f-b59a-2829d67b4589"], + +Cell[BoxData["2.8712430196956706`"], "Output", + CellChangeTimes->{3.9913437873353844`*^9}, + CellLabel-> + "Out[405]=",ExpressionUUID->"56f5f06b-52e2-6941-b28e-41b961cb42e9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cw", "=", + FractionBox[ + RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", + CellLabel-> + "In[406]:=",ExpressionUUID->"09b0eefd-6263-8a44-8015-82d02046019c"], + +Cell[BoxData["136.72879537516795`"], "Output", + CellChangeTimes->{3.991343787361582*^9}, + CellLabel-> + "Out[406]=",ExpressionUUID->"8c210f75-69a5-5340-94a4-65e97302ca45"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[407]:=",ExpressionUUID->"c1911d35-4f2b-d042-9073-088b56a17885"], + +Cell[BoxData["19.58078461858683`"], "Output", + CellChangeTimes->{3.9913437873734856`*^9}, + CellLabel-> + "Out[407]=",ExpressionUUID->"bad7f5b6-1bd3-6b4b-87e4-44aee3a120fc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[408]:=",ExpressionUUID->"6fd22be4-12e4-0d4e-b7f7-ab28adc2524f"], + +Cell[BoxData["0.03116264120310575`"], "Output", + CellChangeTimes->{3.9913437874002857`*^9}, + CellLabel-> + "Out[408]=",ExpressionUUID->"ffdf2eb3-13bd-724f-a87b-fb40655ae9c4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[409]:=",ExpressionUUID->"788e89bc-20c8-8541-af10-81d8741a0e5b"], + +Cell[BoxData["5.020278507983894`"], "Output", + CellChangeTimes->{3.9913437875033875`*^9}, + CellLabel-> + "Out[409]=",ExpressionUUID->"609425d6-cf9c-7a45-bc21-030ca3aa1290"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[410]:=",ExpressionUUID->"c19137b0-217d-0844-9acb-cc5878ab26fc"], + +Cell[BoxData["0.011613560908040731`"], "Output", + CellChangeTimes->{3.9913437875342865`*^9}, + CellLabel-> + "Out[410]=",ExpressionUUID->"b20cbe94-36a3-8548-a61e-959a25814c62"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[411]:=",ExpressionUUID->"7c3bd40f-ac17-c54f-a888-ac3b4c84d9d9"], + +Cell[BoxData["8.223604958038852`"], "Output", + CellChangeTimes->{3.9913437876352882`*^9}, + CellLabel-> + "Out[411]=",ExpressionUUID->"4fc2e2c1-457d-3d4a-a5b7-180877c6f370"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[412]:=",ExpressionUUID->"bdca581e-5d9f-434b-8ec4-903e0edf0216"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991343787650694*^9}, + CellLabel-> + "Out[412]=",ExpressionUUID->"08fcefa1-a87b-bf4b-998d-0c9017752dd4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[413]:=",ExpressionUUID->"1cec8cc2-764e-3d42-a680-d2ec92565257"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913437876776943`*^9}, + CellLabel-> + "Out[413]=",ExpressionUUID->"5678b502-e98a-5d4b-9c03-fe98b2cc6f78"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[414]:=",ExpressionUUID->"800aba4f-a7e9-864a-a38b-f618fe3c89be"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913437877049465`*^9}, + CellLabel-> + "Out[414]=",ExpressionUUID->"d74c1470-6eae-4841-b978-069a86bca67d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"8111b6bb-cdcb-\ +ad40-9440-412e77bed40d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501532204666`*^9},ExpressionUUID->"fc88a60e-e348-d344-96c4-\ +1f4f66f53217"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 415, 433, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437877189426`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[415]:=",ExpressionUUID->"ce9bd686-d768-5440-b47e-1ee2b5aa0183"], + +Cell[BoxData["5.020278507983898`"], "Output", + CellChangeTimes->{3.991343791131052*^9}, + CellLabel-> + "Out[415]=",ExpressionUUID->"a6ab28bd-0b4e-3443-93b3-734d7cf3d8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918501579408264`*^9},ExpressionUUID->"dca13eb7-7f94-3e45-81a8-\ +b62dad3009d2"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 416, 437, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913437911686516`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[416]:=",ExpressionUUID->"3c3d4134-2c7d-0949-9759-036664c530e3"], + +Cell[BoxData["8.223604958038848`"], "Output", + CellChangeTimes->{3.991343794599764*^9}, + CellLabel-> + "Out[416]=",ExpressionUUID->"742dfe41-8369-8942-b522-c174c845c383"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + FractionBox[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501631488323`*^9},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"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918501659425144`*^9},ExpressionUUID->"06bd0169-a5a6-404c-935d-\ +e1a61565f71e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.7414575136308495`*^-273\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 418, + 441, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621885586`*^9}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"8a980d1e-9dd5-194d-803a-ac5d63bbe693"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.133412609607657`*^-284\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 418, 442, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913440621975574`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[418]:=",ExpressionUUID->"40c56d25-ed26-3045-9759-ae8eef5eb7cb"], + +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== + "]]}, + 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: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.15142054732361562`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.15142054732361562`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.99134491550045*^9}, + CellLabel-> + "Out[418]=",ExpressionUUID->"f96372ea-8786-a94e-801e-a3ab56caf675"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"xx", "=", + RowBox[{"ListPlot", "[", + RowBox[{"{", "}"}], "]"}]}]], "Input", + CellChangeTimes->{{3.991799458254999*^9, + 3.9917994623413925`*^9}},ExpressionUUID->"74d9506e-5e9f-ed4e-9e11-\ +b938908ab9a4"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6b0777bb-40fd-b54e-aa03-\ +b6e82cb2e939"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + FractionBox[ + SqrtBox[ + RowBox[{"Cw", "*", "\[Pi]"}]], "2"]}]], "Input", + CellChangeTimes->{ + 3.9918501819649506`*^9},ExpressionUUID->"1ec1e156-ca0f-9240-857c-\ +ac86e3a0e3fd"], + +Cell[BoxData["10.362747935330784`"], "Output", + CellChangeTimes->{3.9913453868532257`*^9}, + CellLabel-> + "Out[420]=",ExpressionUUID->"1ffcb79a-13e7-7549-b41c-23408ffbacea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"L", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850184857586*^9},ExpressionUUID->"2a22eb8b-38c3-1f4b-a455-\ +da901e49f6f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"5.792597307294861`*^-262\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 421, 449, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345387062414*^9}, + 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\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"67cdfb4c-9282-934a-b3c5-526027acebf5"], + +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}, + CellLabel-> + "During evaluation of \ +In[421]:=",ExpressionUUID->"760e7203-a507-b249-aaf5-4906557faed2"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07335635796919572}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07335635796919572}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913457856953163`*^9}, + CellLabel-> + "Out[421]=",ExpressionUUID->"f25b03e8-0c50-2442-86f8-c19dc28b43cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[422]:=",ExpressionUUID->"6e7e1815-2cc6-b24e-a02d-18991b1a751b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.67335071652559`*^-182\\\", \ +\\\"92501706528250791901347072323588368234948680742190198770613927101881057071\ +7360434442383213140448215302144000000000000000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 422, 453, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785749161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"b6e3034b-dd99-1142-8723-42090efc2980"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8309848438100978`*^-185\\\", \ +\\\"24059693867998030973540373511365334577910151861043670700236682439199262944\ +35854489984638737378305808000876544000000000000000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 422, 454, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345785759161*^9}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"54e48413-1d3a-b844-8316-bcdf9191e67e"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.369024200916844`*^-189\\\", \ +\\\"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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"44ccd47c-7323-4a4e-a9d6-7424d8b3399f"], + +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}, + CellLabel-> + "During evaluation of \ +In[422]:=",ExpressionUUID->"4c2e41d3-b5d7-3f4c-ba94-0408b6a0e82d"], + +Cell[BoxData["10.362747935330768`"], "Output", + CellChangeTimes->{3.991345792196575*^9}, + CellLabel-> + "Out[422]=",ExpressionUUID->"c1bfc082-c70f-3140-a59c-c21547622f5b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918501903071613`*^9, + 3.9918501951272774`*^9}},ExpressionUUID->"0b10f52e-4583-2a4b-993d-\ +96e59dd43e6a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 423, 457, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345792232563*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[423]:=",ExpressionUUID->"41503ce3-67a0-8a4a-b10a-c3db53fd260d"], + +Cell[BoxData["0.32136877427435395`"], "Output", + CellChangeTimes->{3.991345799137081*^9}, + CellLabel-> + "Out[423]=",ExpressionUUID->"d9451200-e1de-5d43-8d07-ddcfc9babc52"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.99185020477277*^9, + 3.991850207864538*^9}},ExpressionUUID->"a58948c9-6d3d-e847-a269-\ +d2e0cc5d1484"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 424, 461, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913457991730843`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[424]:=",ExpressionUUID->"52af17f2-aff2-c34f-85c8-700b3d2f5f39"], + +Cell[BoxData["6.886509882261309`"], "Output", + CellChangeTimes->{3.991345804559931*^9}, + CellLabel-> + "Out[424]=",ExpressionUUID->"9a4afbd4-21df-4744-836a-2ed068742fdd"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918502122939777`*^9, + 3.991850217343153*^9}},ExpressionUUID->"c817b2d1-7deb-5a45-9938-\ +ca10003188eb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.970918103158478`*^-207\\\", \ +\\\"19740421909230194152057376419840550111484336001069858434622476277861632039\ +29806995456000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 425, 465, + 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913458046014442`*^9}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[425]:=",ExpressionUUID->"27fa1c02-4896-1547-8cb5-b1b86182517f"], + +Cell[BoxData["18.478556086442907`"], "Output", + CellChangeTimes->{3.991345807954506*^9}, + CellLabel-> + "Out[425]=",ExpressionUUID->"7fdd69fb-d48e-e24a-a681-093b62cad9ba"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[426]=",ExpressionUUID->"20848a4e-e706-ec41-8982-5a7089f6420d"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb2", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Il", "*", "Ih"}], + RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellLabel-> + "In[428]:=",ExpressionUUID->"d8a22216-586e-3641-8d6a-b19164cbbef2"], + +Cell[BoxData["8.947947137013426`"], "Output", + CellChangeTimes->{3.991345808020666*^9}, + CellLabel-> + "Out[428]=",ExpressionUUID->"c70c9f2e-d3ac-284f-9a22-d110345400ba"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb2"]]}]], "Input", + CellLabel-> + "In[430]:=",ExpressionUUID->"fdbad1ee-10c7-0843-8319-ad9a3350b059"], + +Cell[BoxData["1.2539951617800844`"], "Output", + CellChangeTimes->{3.9913458080616665`*^9}, + CellLabel-> + "Out[430]=",ExpressionUUID->"dc218355-20da-7845-8c8d-e506361cd90c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[433]:=",ExpressionUUID->"1e4255c3-6733-664e-86c8-98281eb7b3d1"], + +Cell[BoxData["11.220682417678793`"], "Output", + CellChangeTimes->{3.991345808188246*^9}, + CellLabel-> + "Out[433]=",ExpressionUUID->"b98e2d62-3142-7d4b-8175-9f6bcc8f676f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[434]:=",ExpressionUUID->"70c538a1-1fdf-1447-919a-237a7f13ec4c"], + +Cell[BoxData["0.04214145338799881`"], "Output", + CellChangeTimes->{3.991345808220566*^9}, + CellLabel-> + "Out[434]=",ExpressionUUID->"e2235b96-63a9-b14d-b5d1-d13c73c5b35b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[435]:=",ExpressionUUID->"309f305e-3fbc-e84e-99d9-1087d7a09460"], + +Cell[BoxData["4.317080886816563`"], "Output", + CellChangeTimes->{3.9913458083195686`*^9}, + CellLabel-> + "Out[435]=",ExpressionUUID->"776526ba-6ae1-2140-8428-6e0766592ce2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[436]:=",ExpressionUUID->"e745b4b9-6adc-da40-98cf-d19095e176b2"], + +Cell[BoxData["0.012862376162526763`"], "Output", + CellChangeTimes->{3.991345808334568*^9}, + CellLabel-> + "Out[436]=",ExpressionUUID->"4456bf68-737e-1947-bc9d-24db2abd4b39"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[437]:=",ExpressionUUID->"9d206cd8-8a5b-4046-b84a-e6b4fe810128"], + +Cell[BoxData["7.814196669618258`"], "Output", + CellChangeTimes->{3.991345808432392*^9}, + CellLabel-> + "Out[437]=",ExpressionUUID->"04031349-1bc1-2c40-8d25-2e90a8f4b902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[438]:=",ExpressionUUID->"2ec72619-a762-004d-a8c1-9773b798bf0e"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.991345808448488*^9}, + CellLabel-> + "Out[438]=",ExpressionUUID->"ab924ecc-12c3-f448-be6e-b37b3bf2a7ea"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[439]:=",ExpressionUUID->"499f8153-6e36-8043-876b-5343c0af179e"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.9913458084773808`*^9}, + CellLabel-> + "Out[439]=",ExpressionUUID->"edd230b8-d34a-9d46-9fb1-cbff36fb79ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[440]:=",ExpressionUUID->"33c0834c-5a76-7640-a18c-d9704d756896"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913458085134735`*^9}, + CellLabel-> + "Out[440]=",ExpressionUUID->"7ff053b6-f84b-bf44-8265-ecf6593e97c0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"ba9cccb8-fdfa-1d4c-9151-4c0bb8135009"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 441, 471, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991345808564377*^9}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"7a2a8f8b-abfe-9646-a4d6-23b88b4059ef"], + +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}, + CellLabel-> + "During evaluation of \ +In[441]:=",ExpressionUUID->"61579f38-09d5-bc4c-9509-0aaf4718ceff"], + +Cell[BoxData["4.317080886816564`"], "Output", + CellChangeTimes->{3.9913458125059433`*^9}, + CellLabel-> + "Out[441]=",ExpressionUUID->"87b4581c-42ec-3248-906f-f100fdcc36d4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"19016d8b-0ad0-804c-b867-298523611be5"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 442, 475, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99134581256196*^9}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"120f2ab5-c971-b748-a471-5d053961b4f2"], + +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}, + CellLabel-> + "During evaluation of \ +In[442]:=",ExpressionUUID->"e219a46d-9b55-8b4b-a17f-972d0b60293c"], + +Cell[BoxData["7.8141966696182585`"], "Output", + CellChangeTimes->{3.991345816415531*^9}, + CellLabel-> + "Out[442]=",ExpressionUUID->"15e7db41-f53f-7c4b-886f-7ba04bf10a25"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918502605597496`*^9},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= + "]]}, + 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: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= + "]]}, "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}, + "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.48341415918018676`, + 1.8971786059380225`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.4834141591801878}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "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}, + "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.4834141591801878}, + 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.48341415918018676`, 1.8971786059380225`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913460797739086`*^9}, + CellLabel-> + "Out[443]=",ExpressionUUID->"33ceb84f-c9c7-504c-ae94-1b1d69b769af"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9918502644064465`*^9, + 3.9918502684162617`*^9}},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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"b616cb85-0c12-9449-8e54-a070530c7874"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1421038932835147`*^-273\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 444, 478, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991346080026985*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"d17cbbe2-194b-ec4c-bb30-d2fcc4c1a181"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.655058850000931`*^-284\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 444, 479, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913460800358925`*^9}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"6c23e3dc-9bc5-a441-99df-2985793b0df8"], + +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}, + CellLabel-> + "During evaluation of \ +In[444]:=",ExpressionUUID->"de9af779-0821-a544-b1ce-6c66cf00e4d6"], + +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 + "]]}, + 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: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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 + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.1760850255633475}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.1760850255633475}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913465524249306`*^9}, + CellLabel-> + "Out[444]=",ExpressionUUID->"d2a47969-eb62-c243-9b06-713ae9ea0a7d"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"6883477e-2a54-0a45-979a-\ +ae60c73e9e82"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "In[448]:=",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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"ca0dab71-62e4-1c4e-b2d5-91f300055932"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"aa43f3fc-5ec5-414d-bbd9-cf1b638f0a27"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.7139378525370916`*^-176\\\", \ +\\\"50551899186051012364014314729082680202635225929690499661567079008136135175\ +2672150136605792106222330469781300859512072804761600000000000000000000000000\\\ +\"]\\) is too small to represent as a normalized machine number; precision \ +may be lost.\"", 2, 448, 491, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475711592274`*^9}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"eaa52aca-1e19-e84e-9825-10ec4ac94baf"], + +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}, + CellLabel-> + "During evaluation of \ +In[448]:=",ExpressionUUID->"40ddf79f-d82f-b94d-9b78-050a48c24dda"], + +Cell[BoxData["10.362747935330763`"], "Output", + CellChangeTimes->{3.991347578228073*^9}, + CellLabel-> + "Out[448]=",ExpressionUUID->"f752c3f0-fe06-284b-bff8-a09adf8994cc"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"03b49875-7e1c-734a-9395-591c7a6a0147"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 449, 495, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475782835484`*^9}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"340351a4-e10e-7141-b933-75e80a563962"], + +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}, + CellLabel-> + "During evaluation of \ +In[449]:=",ExpressionUUID->"45363ba5-7011-ce4a-bbb2-25b54117d598"], + +Cell[BoxData["1.4359199941844076`"], "Output", + CellChangeTimes->{3.9913475858902473`*^9}, + CellLabel-> + "Out[449]=",ExpressionUUID->"a7117811-d866-a74a-b451-2e5611fcbe98"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"d229ea6a-26e4-d448-90bf-3044f07066eb"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 450, 499, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913475859463177`*^9}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"62b490bd-3e68-5b49-8d2e-1bbb1e520215"], + +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}, + CellLabel-> + "During evaluation of \ +In[450]:=",ExpressionUUID->"2c340204-da84-dd4d-abb8-8821cc152f8d"], + +Cell[BoxData["5.09241659576143`"], "Output", + CellChangeTimes->{3.9913475931276417`*^9}, + CellLabel-> + "Out[450]=",ExpressionUUID->"88b2df22-3f75-ff45-90a9-fda3ac3bb827"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"8c45e08e-3e6d-d74b-a260-2b9be908c427"], + +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 \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 451, 503, 24483298974280422597, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991347593182852*^9}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"880f1d89-ca48-ef4c-8955-16a02dd06624"], + +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}, + CellLabel-> + "During evaluation of \ +In[451]:=",ExpressionUUID->"fbbc91b1-3b40-a04c-8f78-5ca75ca88c9b"], + +Cell[BoxData["16.684462799943017`"], "Output", + CellChangeTimes->{3.9913475973006153`*^9}, + CellLabel-> + "Out[451]=",ExpressionUUID->"ea027f70-f222-b745-8c2e-f4a8bd2e0421"] +}, Open ]], + +Cell[CellGroupData[{ + +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}, + CellLabel-> + "Out[452]=",ExpressionUUID->"3682abd7-ed62-9948-84cf-8fffa8ddbfe7"] +}, 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"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[454]:=",ExpressionUUID->"403fd1b3-6929-134c-834a-14f2acd2fccb"], + +Cell[BoxData["12.368532070745184`"], "Output", + CellChangeTimes->{3.991347597372614*^9}, + CellLabel-> + "Out[454]=",ExpressionUUID->"9fbf2f5c-e66a-8c48-92c5-cb97211e83a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[456]:=",ExpressionUUID->"434ec2be-ef30-1d48-bf44-e1e8b179c2e0"], + +Cell[BoxData["1.0665924029125342`"], "Output", + CellChangeTimes->{3.991347597428034*^9}, + CellLabel-> + "Out[456]=",ExpressionUUID->"7a911217-f777-234b-9e3e-66fa91b95a93"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[459]:=",ExpressionUUID->"defdc4af-a758-2c46-b8da-ac4403e5ffd4"], + +Cell[BoxData["13.192182341836848`"], "Output", + CellChangeTimes->{3.9913475974971066`*^9}, + CellLabel-> + "Out[459]=",ExpressionUUID->"71512215-c060-b042-87dd-cf63c2fdbe79"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[460]:=",ExpressionUUID->"7643457c-ba0b-b641-aa35-59c61447beaf"], + +Cell[BoxData["0.038908834568544604`"], "Output", + CellChangeTimes->{3.991347597528105*^9}, + CellLabel-> + "Out[460]=",ExpressionUUID->"83eb5a5c-2221-9048-9616-76c841caa7ff"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[461]:=",ExpressionUUID->"88a32c79-3b56-5047-96b0-6fadcea3787e"], + +Cell[BoxData["4.492838724335521`"], "Output", + CellChangeTimes->{3.9913475976441536`*^9}, + CellLabel-> + "Out[461]=",ExpressionUUID->"3469ea64-5888-e347-a592-fe58acf45252"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[462]:=",ExpressionUUID->"12b95c40-ca91-7148-a053-e8c97b54e7b6"], + +Cell[BoxData["0.012544276227890849`"], "Output", + CellChangeTimes->{3.991347597671173*^9}, + CellLabel-> + "Out[462]=",ExpressionUUID->"6078ae64-e041-ef46-9c98-aeb384a7565b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[463]:=",ExpressionUUID->"4e259183-4a48-7f41-8fc6-1aa60d807e18"], + +Cell[BoxData["7.912653285153153`"], "Output", + CellChangeTimes->{3.9913475977705975`*^9}, + CellLabel-> + "Out[463]=",ExpressionUUID->"ed53339e-8a54-b740-a712-127e0aa48364"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[464]:=",ExpressionUUID->"73b06553-f9e2-3447-85e9-8a163aa2ec21"], + +Cell[BoxData["0.6975316474635891`"], "Output", + CellChangeTimes->{3.9913475977856007`*^9}, + CellLabel-> + "Out[464]=",ExpressionUUID->"0881e898-a895-4f44-9932-c9b57f23fb23"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[465]:=",ExpressionUUID->"64658d71-e48f-7c4d-bfd6-30344127c7bf"], + +Cell[BoxData["0.3024683525364109`"], "Output", + CellChangeTimes->{3.991347597813669*^9}, + CellLabel-> + "Out[465]=",ExpressionUUID->"6f8be6ff-3439-7547-b2e5-a7f15df03852"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[466]:=",ExpressionUUID->"02b10812-8656-6e43-99ab-3ff059fd6dae"], + +Cell[BoxData["0.21098124825032033`"], "Output", + CellChangeTimes->{3.9913475978426323`*^9}, + CellLabel-> + "Out[466]=",ExpressionUUID->"5f1268db-50d9-294a-839d-2dc73b3483c5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503626529236`*^9},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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"fea97571-51b6-bc4d-8922-e67cbea226be"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"f9381c1d-d837-a646-bb62-f69cb564b78b"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"2dd3f3b2-ca3e-6c42-abc0-5cf7523a6a65"], + +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}, + CellLabel-> + "During evaluation of \ +In[467]:=",ExpressionUUID->"5a727290-5b6b-a347-9739-3df9958ec415"], + +Cell[BoxData["4.492838724335523`"], "Output", + CellChangeTimes->{3.9913476018505497`*^9}, + CellLabel-> + "Out[467]=",ExpressionUUID->"44426372-aa84-bf4c-9f95-4de13286a09a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{ + 3.9918503657638073`*^9},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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"a32ffe4b-5346-7b46-9dee-b8bad033001e"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"902c6490-8537-484d-8825-0d2295db4f12"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"1b49285c-a5d9-074c-871b-37b4cadb7269"], + +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}, + CellLabel-> + "During evaluation of \ +In[468]:=",ExpressionUUID->"2ff3d4da-4949-1448-b68b-aac1ae56bb1a"], + +Cell[BoxData["7.912653285153152`"], "Output", + CellChangeTimes->{3.9913476058912296`*^9}, + CellLabel-> + "Out[468]=",ExpressionUUID->"046dcac0-9165-4b41-8a82-c19ed01a7ad4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.991850369070572*^9},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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120075, + 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5511670383120075, 1.7091854080147844`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5511670383120088}, + "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.5511670383120088}, + 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.5511670383120075, 1.7091854080147844`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991347865018469*^9}, + CellLabel-> + "Out[469]=",ExpressionUUID->"d1cda4a3-f1fb-0d44-a506-74525ae66245"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918503718899097`*^9, {3.991850469268881*^9, + 3.9918504694651966`*^9}},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}, + 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"], + +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}, + CellLabel-> + "During evaluation of \ +In[470]:=",ExpressionUUID->"64c101a8-dc8b-1f4e-9946-a38ce949c736"], + +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= + "]]}, + 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: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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{117.9605728938093, + 256.1444167491903}, {-15.489822627663699`, 5.682052372336301}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + 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= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 15}, {0., 0.16919668648256683`}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 15}, {0., 0.16919668648256683`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913483238131485`*^9}, + CellLabel-> + "Out[470]=",ExpressionUUID->"f98d1ba6-9bcb-b94f-a8fa-792e22f5ac65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, + 3.991799466675585*^9}},ExpressionUUID->"54d9c986-d109-3d4c-9ee8-\ +76427bb63659"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input",Expression\ +UUID->"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"], + +Cell[BoxData["15.784298544249628`"], "Output",ExpressionUUID->"b372c493-d6de-934f-951c-1a3f45718733"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991850391956293*^9, + 3.9918503966918755`*^9}},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"], + +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"], + +Cell[BoxData["1.0713232818739324`"], "Output",ExpressionUUID->"37cdd74c-8ec4-9047-aa14-d493ed3e18d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504007528324`*^9, + 3.991850403970867*^9}},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"], + +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"], + +Cell[BoxData["5.515504100347031`"], "Output",ExpressionUUID->"5fc76ad3-8f3e-9246-bda1-78737e269d99"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918504078476295`*^9, + 3.9918504110344543`*^9}},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"], + +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"], + +Cell[BoxData["17.107550304528036`"], "Output",ExpressionUUID->"dbb2a900-6759-7349-a1e8-ea8b52a29f31"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.9918504490520267`*^9, + 3.991850453720993*^9}},ExpressionUUID->"54a5e329-20bd-e742-afe8-\ +d2cfa007cfcf"], + +Cell[BoxData["0.11028946354837708`"], "Output",ExpressionUUID->"8f1edf59-aed7-914f-9d19-1949d2a555d6"] +}, Open ]] +}, +WindowSize->{718.5, 729.75}, +WindowMargins->{{6, Automatic}, {Automatic, 4.5}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"f83c5602-f0d5-2d47-8a1b-23029521caf0" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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"] +}, 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 ]] +} +] +*) + +(* End of internal cache information *) + diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_фитирование.nb b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_фитирование.nb new file mode 100644 index 0000000..8a93780 --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/h_172-68_Pu240_26-27_фитирование.nb @@ -0,0 +1,4571 @@ +(* Content-type: application/vnd.wolfram.mathematica *) + +(*** Wolfram Notebook File ***) +(* http://www.wolfram.com/nb *) + +(* CreatedBy='Wolfram 14.1' *) + +(*CacheID: 234*) +(* Internal cache information: +NotebookFileLineBreakTest +NotebookFileLineBreakTest +NotebookDataPosition[ 154, 7] +NotebookDataLength[ 204733, 4563] +NotebookOptionsPosition[ 193652, 4374] +NotebookOutlinePosition[ 194066, 4391] +CellTagsIndexPosition[ 194023, 4388] +WindowFrame->Normal*) + +(* Beginning of Notebook Content *) +Notebook[{ + +Cell[CellGroupData[{ +Cell[BoxData[ + RowBox[{ + RowBox[{"p", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}], "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}]}]]}]], "Input", + CellLabel->"In[1]:=",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], + +Cell[BoxData[ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "a0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], + "a0"], "]"}]}]]], "Output", + CellChangeTimes->{3.9917123412710648`*^9, 3.991964081912874*^9, + 3.9919650528748665`*^9, 3.9931375697372923`*^9}, + CellLabel->"Out[1]=",ExpressionUUID->"213e67fa-9f56-43ba-970a-371b5ac5a1da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pp", "[", + RowBox[{"p0_", ",", "R0_", ",", "a0_", ",", "x0_", ",", "r_", ",", "b1_"}], + "]"}], "=", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}]}], + ")"}]}]}], "a0"]]}]]}]], "Input", + CellLabel->"In[2]:=",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], + +Cell[BoxData[ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", + RowBox[{"R0", " ", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + SuperscriptBox["b1", "2"], + RowBox[{"4", " ", "\[Pi]"}]], "+", + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}]}], ")"}]}]}], + "a0"]]}]]], "Output", + CellChangeTimes->{3.991712341297064*^9, 3.9919640821998634`*^9, + 3.991965052903612*^9, 3.993137570132181*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"626def5c-a415-4e93-b7ac-68fbab1209d0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[3]:=",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], + +Cell[BoxData[ + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"4", " ", "b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "3"]}]], "-", + FractionBox[ + RowBox[{ + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]], " ", "p0"}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "b0"]]}], ")"}], "2"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341324932*^9, 3.9919640822258663`*^9, + 3.9919650529266243`*^9, 3.993137570160797*^9}, + CellLabel->"Out[3]=",ExpressionUUID->"08d4cbc1-4494-4fb0-b40d-24e3c9ffeeed"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}], "*", "b1", + "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[4]:=",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + SuperscriptBox["p0", "2"], + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"b1", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"], " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}]}], + RowBox[{"2", " ", "bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"2", " ", + RowBox[{"(", + RowBox[{"r", "-", "R0"}], ")"}]}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "4"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]], " ", + SuperscriptBox["p0", "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R0"}], "bb0"]]}], ")"}], "3"]}]]}], ")"}], + " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.9917123413539066`*^9, 3.991964082252865*^9, + 3.9919650529506397`*^9, 3.99313757019036*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"1847432c-666f-4346-8a10-8894f37de8cf"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[5]:=",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}]], "+", + RowBox[{"y", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{"b0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "-", + FractionBox[ + RowBox[{"p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "2"]}], + RowBox[{"b0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"3", " ", "p0", " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "2"]}]]}], "+", + FractionBox[ + RowBox[{"p0", " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}]}]], "+", + FractionBox[ + RowBox[{"2", " ", "p0", " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "b0"], "]"}], "3"]}], + RowBox[{ + SuperscriptBox["b0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "b0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "b0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341376917*^9, 3.9919640822778645`*^9, + 3.9919650529736423`*^9, 3.99313757021948*^9}, + CellLabel->"Out[5]=",ExpressionUUID->"0b606863-fb8c-4301-b2ca-256c649da861"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"pppp2", "[", + RowBox[{"p0_", ",", "R0_", ",", "x0_", ",", "r_", ",", "b1_"}], "]"}], "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R0", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], "+", + RowBox[{ + FractionBox[ + RowBox[{"R0", "*", "R0"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R0"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}]}]], ")"}], "2"]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x0", ",", "\[Phi]"}], "]"}]}], ")"}], + "2"]}]}], ")"}]}]}]}]], "Input", + CellLabel->"In[6]:=",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], + +Cell[BoxData[ + RowBox[{ + FractionBox[ + RowBox[{ + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]], "+", + RowBox[{"yy", " ", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["1", "4"], " ", "b1", " ", + SqrtBox[ + FractionBox["5", "\[Pi]"]], " ", "R0", " ", + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "3"]}], + RowBox[{"bb0", " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]]}], ")"}]}], + "+", + FractionBox[ + RowBox[{"5", " ", + SuperscriptBox["b1", "2"], " ", + SuperscriptBox["R0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"-", "1"}], "+", + RowBox[{"3", " ", + SuperscriptBox[ + RowBox[{"Cos", "[", "x0", "]"}], "2"]}]}], ")"}], "2"], " ", + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "-", + FractionBox[ + RowBox[{"10", " ", + SuperscriptBox["p0", "2"], " ", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "3"]}]], "+", + FractionBox[ + RowBox[{"2", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "2"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "2"]}]], "+", + FractionBox[ + RowBox[{"6", " ", + SuperscriptBox["p0", "2"], " ", + SuperscriptBox[ + RowBox[{"Sinh", "[", + FractionBox["R0", "bb0"], "]"}], "4"]}], + RowBox[{ + SuperscriptBox["bb0", "2"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox["r", "bb0"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["R0", "bb0"], "]"}]}], ")"}], "4"]}]]}], ")"}]}], + RowBox[{"32", " ", "\[Pi]"}]]}], ")"}]}]}]], "Output", + CellChangeTimes->{3.991712341392933*^9, 3.9919640822888775`*^9, + 3.9919650530016823`*^9, 3.993137570251424*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"887f2313-87d4-4833-9c9d-39753963cdb7"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{3.9917077685737076`*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.991567249576977*^9, 3.9915672513871117`*^9}, { + 3.9917123499378605`*^9, 3.9917123524269905`*^9}, {3.9917930368126183`*^9, + 3.99179303935478*^9}, {3.992162742007002*^9, 3.9921627427606335`*^9}}, + CellLabel->"In[8]:=",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], + +Cell[BoxData["240"], "Output", + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.9917078280760555`*^9, {3.991712341402319*^9, + 3.9917123683710194`*^9}, 3.991964088272585*^9, 3.9919650668367367`*^9, + 3.99313757028266*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"7b64265e-5c70-4b7f-8d26-df017ffe899f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "172"}]], "Input", + CellChangeTimes->{ + 3.9917123636954575`*^9, 3.9917930477498703`*^9, {3.9919640953047657`*^9, + 3.991964095496088*^9}, 3.9919730324857025`*^9, {3.993137541709112*^9, + 3.9931375458695793`*^9}}, + CellLabel->"In[9]:=",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], + +Cell[BoxData["172"], "Output", + CellChangeTimes->{ + 3.9913196497578354`*^9, 3.991707828199957*^9, {3.991712341409319*^9, + 3.9917123684317207`*^9}, 3.9919640965938797`*^9, 3.9919650679796085`*^9, + 3.9931375703083897`*^9}, + CellLabel->"Out[9]=",ExpressionUUID->"24fc2b2a-dc95-4695-949e-1108bb0391be"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel->"In[10]:=",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{3.991319649777508*^9, 3.991707828219631*^9, + 3.9917123414174232`*^9, 3.9919641050847206`*^9, 3.9919650689841537`*^9, + 3.993137570312859*^9}, + CellLabel->"Out[10]=",ExpressionUUID->"70c87e62-3604-4250-a3c0-ec89e2d43e19"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel->"In[11]:=",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], + +Cell[BoxData["0.5435000000000001`"], "Output", + CellChangeTimes->{3.9913196497965145`*^9, 3.9917078282275677`*^9, + 3.9917123414253197`*^9, 3.991964105132374*^9, 3.99196507082041*^9, + 3.9931375703391542`*^9}, + CellLabel->"Out[11]=",ExpressionUUID->"2a5d5209-aa0d-41d7-a7ab-053789d9af1a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel->"In[12]:=",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{3.9913196498144608`*^9, 3.9917078282485256`*^9, + 3.9917123414324265`*^9, 3.991964105152542*^9, 3.9919650751473694`*^9, + 3.9931375703661547`*^9}, + CellLabel->"Out[12]=",ExpressionUUID->"04648764-717f-4352-a776-3f7f64efb22a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel->"In[13]:=",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], + +Cell[BoxData["6.451105409164632`"], "Output", + CellChangeTimes->{3.9913196498225155`*^9, 3.9917078282706223`*^9, + 3.9917123414384117`*^9, 3.991964105158039*^9, 3.9919650774986343`*^9, + 3.9931375703926477`*^9}, + CellLabel->"Out[13]=",ExpressionUUID->"6dce9d98-08f4-46e7-aa94-7c4a822f9f3a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel->"In[14]:=",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], + +Cell[BoxData["4.734719918224123`"], "Output", + CellChangeTimes->{3.9913196498425236`*^9, 3.9917078282785244`*^9, + 3.991712341447321*^9, 3.9919641051782207`*^9, 3.99196507853343*^9, + 3.99313757041656*^9}, + CellLabel->"Out[14]=",ExpressionUUID->"dff6a52f-b088-4b6a-9ae6-97ef8c2eef50"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", "0.852277809"}]], "Input", + CellChangeTimes->{ + 3.9917123951294365`*^9, 3.99179305435186*^9, {3.99196410971159*^9, + 3.9919641153565598`*^9}, {3.991965091938593*^9, 3.9919650927835865`*^9}, + 3.991973034922682*^9, 3.993137552875965*^9}, + CellLabel->"In[15]:=",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], + +Cell[BoxData["0.852277809`"], "Output", + CellChangeTimes->{3.993137570439334*^9}, + CellLabel->"Out[15]=",ExpressionUUID->"75dfa57e-35b3-4a15-a6fc-c5b8d05c0439"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", "0.3903505481"}]], "Input", + CellChangeTimes->{ + 3.9917124038115807`*^9, 3.991793052797516*^9, {3.9919641207252083`*^9, + 3.991964121458187*^9}, {3.991965119761894*^9, 3.9919651201266823`*^9}, + 3.9919730365316715`*^9, 3.993137555851111*^9}, + CellLabel->"In[16]:=",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], + +Cell[BoxData["0.3903505481`"], "Output", + CellChangeTimes->{3.993137570461409*^9}, + CellLabel->"Out[16]=",ExpressionUUID->"de782772-0761-4902-bc2c-7145e3ff4a08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel->"In[17]:=",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498927155`*^9, 3.9917078283276424`*^9, + 3.991712341478319*^9, 3.9919641257179623`*^9, 3.9919651236440945`*^9, + 3.993137570484353*^9}, + CellLabel->"Out[17]=",ExpressionUUID->"85151190-68aa-4130-b899-00de1b446f2e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel->"In[18]:=",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{3.9913196498996067`*^9, 3.99170782834754*^9, + 3.9917123414863186`*^9, 3.9919641257640095`*^9, 3.991965124607527*^9, + 3.993137570504456*^9}, + CellLabel->"Out[18]=",ExpressionUUID->"122cf5a4-d0e0-4b1e-9d20-be6552164d6b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{"l1", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + FractionBox[ + RowBox[{"p0", "*", + RowBox[{"Sinh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}]}], + RowBox[{ + RowBox[{"Cosh", "[", + FractionBox[ + RowBox[{"R1", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}]}], ")"}]}], "a1"], "]"}], "+", + RowBox[{"Cosh", "[", + FractionBox["r", "a1"], "]"}]}]], "p0"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{{3.9919641474075165`*^9, 3.9919641522943115`*^9}, { + 3.9931375606914473`*^9, 3.993137562196657*^9}}, + CellLabel->"In[19]:=",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV0Hk4lIsXB3Bbkly5KSWVGcu870skLbds50jhVipbpRhjRKWMrQxCkz0p +ydiukoposUSSFlcoilTKXjIRskaXoqHf/P44z3k+z3mec57zpbO9bNwkxMTE +rorq/50edUxSTIyGRFHalqDVIyDt8lDihch6vR9WmuqOwJChjMRFcRqyB2r0 +5+qMwIOx62IakjQ0Temek6A1ArudOmYspGn4TsnKKl1zBELXbfsZL0fDNfG7 +xWNVRqDjMzGsqkxDg2at6XrpEUiC7mbQp+H3lYpX37QPQzmDU1x2mIY5xucv +iXkNw/SZhoMp6TQ8EM3RNZoaAq1dyjknXtFwUbFCwnO/IViwOWD8nCQdPV+t +Vb1TPwhz795ZKLuBjupGLMN25UG4ZzVhWHGMjk4zo++tjQfAfgc56X+NjnsC +z4hxLb/CvBq9yIT3dNxynOPx97Z+8PWyWtErq4bEa8XdUip9MJIIsRnGasjy +lE852vcFmMuWx+z1UsN/RqO92dk9EN4gF78tWw1j7fJGheu64dFso8fVFjXM +VrizmvFGALmOebv05dUxWyCvZLW1C2KW+z6rMlNH26BS73LeRwjeJ6dQdkId +x7XihXYl7aBZ+dC1/7Y6qrZ/9pv7rAUEOSZxJzvVMenvdh1boglsHjU/sVys +gdolVipuoY1wX8+Bp7RdA+dPNbd9W/wGdNTuLrEM0cD764Q+jIX14GC64kFx +sQZ6DRTurlaohdQPTJ3wXg2MFLOK935cDXVtsWttl2qipN9ux8qWp1AsVbfZ +aacmxlhJu3H1yiH/dhejjqeJCRcuyxY+LgMmT3aRX6kmPpJkCnbxS0CidOVF +lWFNPGsRKZ2tXARlR2S+EKoM7IzbczY3Nx80t0mbcuwZWL8s8LzPuZuQdaPN +Z2kMAzu874SlRWbDEreUtVVlDCzLTRLYal0DsD4ymzPKwMaA+ZVsvQzoGumj ++XxjoIxUUUCwSgbw4tzNDMYYeO+z619Z0hlQWeMaUz/OQLvxWzdXfLwM5ibM +hWMTDDR9qXSsNPYy7NS2ZRgIGXjop9nL0P5L4DjHeGe9DIE9TZ0jtPx0CCpT +yPhGJ3DTszmTAuc0aMwpzn2pRuDtxvb+f3ekgVbynuIsdQI/NWcN3t6UBm2+ +l2r3aRI43+DnVJ5iGmxcRX6vIAk0NJKnHGpTYTIDLBNWE2g2Ls0yW5cKvhGc +8TXGBK7+N7dTQykFPHbVm/vtI3DlzXD/5WJJUJRY2WXiQGC/o/3uzWN8mG55 +ECS7n8AJK9LP9zMfYlnZ+VcPELiinx8wVs2HWz6hSm+YBMZ9fVp9JJYPg4l6 +vavcCFTVDTptvIQPx1r5kb0+BG51nLvXbGMieLo4VTucJZCVczDTNTkBjHal +sOhxBN7YEK9BxCaAnPFbYb/I77WNpL+HJMCdpVvXB5wn8OUCxfrrbgkw9HrV +jeQEArVtydrD6xPAw0QY/S6FQHtZv4qTzRfgsEr6dqssApuCe6wzV14A16bW +RnxCYHGKuDDq7DkYUPxrr3I5gZWmi55rnzgH3jZJHWMis10bDAXMcxD62rrn +WgWBodJzpkP0z0Hqi5cTUtWifxJbfELa46DhyeOlL14SWJLpP3RGJw423shk +WrcS6CVllR79KRbkuYcHXL4TuMH/2aPr3jEQOX/ZrPZ/BBp57ki1d44B4ZW6 +PydFLtj8O15xZwwM1Opuip0k8MvDzwXF2jHwfNlEdNEUgbTqa3XhfdEQWn5a +U1KMxJVOx+0cXaJheE46K0uOxILM5tr7TlFQz3/V3KtJ4rwDOm/Z3AiYDrze ++JRBYrl7kHbOoQggnQMbLhEkDrV/DP2xNwLCKc3nNhSJrzsMhh9tjACD8uCS +8lUkFktOjDZOh8PNPm1+8loSq63tPq05HQ5RBrHW5qYkJsoXG3CTwwC6zOuz +HUls6YnaYiPgwX8c1stgJxID2w8pxL/nwa2ZwFpbJoka3Us5TTU8UFLJqxZn +kRhcV1oZms+DIXvFJ06uJF7JSZMzC+ZBat2nvMUeJGrrlyvEKfNg/H5AfCSX +xPdV5oldJaFw49wtG7eLJOqbPJ4hR0/CDt8lXTqJJKr1kfmeHSdhfE+E56TI +NbvMN1TUnAQTGjMmOolEnvb2nPOZJ6Gp6M/ym6kkLtQaFH9jcxKkWgOokQwS +Oe86HD6UBYGrmoUY9zaJwnJ+V3tCINBKu/NiqkkcLnydGXKICyFDx9XZz0ik +Tr1VjbPnQjtdOs3wuege02NHrhkXEuPIiJEaEkd1VkfOo3FBmu25366OxFu+ +Vns4bf4wJPdDmtZIYsOz0rQHO/3hAVuWVfqJxOvJ4iBrdgJ2ya9Z2DstuteR +veb8bj+4lLZ4yd1fJJ4JPqVTutkPBjSmVYKFJFpU0mUG1vlBhGGV5sJZEjUP +CYw9lf3gwWH7TSbiFE4JN3/t/+wLtKpAVvJcCjPYgyYFXF/4xq3MN19E4fRk +SItlrg8kCGy35+iI5jf6DMw1vMFdKdiGo0uhv60DfXipNxhsz3JYv1q078HK +6fQ/vKHn3n+HqvQoFL/HaFMb8YKNMUkRn9ZSKOiY9i/he0GnbsuTJQYUKq2v +4FX3cGBV8H69GHMKu3wpgAueUKPksviIM4VRc1fbeSw8CjaX8qRMWRS21v46 +9nTGAzrp09+XulCod+qOEfnVAyZXJTbWsilMld3yVqPCAzTMnsWT7hQ6pohH +tnI8IMyLku0/RuF9A2WB6usjYFQ7NuseRKHQSyKs85/DUBQY1n8wicIVisW2 +pY7uoGuvdkg3mUJV7onxmh3ucEuv8ssPkbUEhj3dRu5wrU+8OzaVwn9vNmca +r3CHi/anPxamU2hRcOYKt9MNfNfwGoVXKXTYuun1LNsN1nwNeczPp3Boj9RP +9eMHoXBf4IXqGtE/dtdKtUrYsP4pFZpdS6HOVJOU5Q02PKTaj0a9oLCw0ELd +J4UNVdMGFpZ1onwrE/J7A9nQfEk4U9dAoXPagl9OwAZh16mj75oo3MH84Hai +3gUsj0SZf+6m8F2jRq3MKAtevd2wrqqHQn7h/YLzAhbYGPTRs75QWJHhtV31 +PQsOzLecceujsPoPXgirjAWcvHn3vg5QKHOloMslggX8sTj62BiFSQXeTg7L +WaC833hB4ziFvhb9l6MWsCCjclhY9J3C/Bx1+XIJFuQk7mw9PiHKM9/xUXKj +MzxcrxD/8yeFs/8I7j7xdAaTjIrgtikKKwc5nDI7Z6iS9vF4OE1hgMyw7AtD +Z6hvebs1WEjhj78+ZqnLOoM1hq11mqGwf2A2jDPGhOZcfbrJLIVkqrfEq1Ym +7P+zW171N4W/HucqQgUTPgUmCn+LPCarlVOdw4T/AYLCkUY= + "]]}, + 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:eJwV0Hk4lIsXB3Bbkly5KSWVGcu870skLbds50jhVipbpRhjRKWMrQxCkz0p +ydiukoposUSSFlcoilTKXjIRskaXoqHf/P44z3k+z3mec57zpbO9bNwkxMTE +rorq/50edUxSTIyGRFHalqDVIyDt8lDihch6vR9WmuqOwJChjMRFcRqyB2r0 +5+qMwIOx62IakjQ0Temek6A1ArudOmYspGn4TsnKKl1zBELXbfsZL0fDNfG7 +xWNVRqDjMzGsqkxDg2at6XrpEUiC7mbQp+H3lYpX37QPQzmDU1x2mIY5xucv +iXkNw/SZhoMp6TQ8EM3RNZoaAq1dyjknXtFwUbFCwnO/IViwOWD8nCQdPV+t +Vb1TPwhz795ZKLuBjupGLMN25UG4ZzVhWHGMjk4zo++tjQfAfgc56X+NjnsC +z4hxLb/CvBq9yIT3dNxynOPx97Z+8PWyWtErq4bEa8XdUip9MJIIsRnGasjy +lE852vcFmMuWx+z1UsN/RqO92dk9EN4gF78tWw1j7fJGheu64dFso8fVFjXM +VrizmvFGALmOebv05dUxWyCvZLW1C2KW+z6rMlNH26BS73LeRwjeJ6dQdkId +x7XihXYl7aBZ+dC1/7Y6qrZ/9pv7rAUEOSZxJzvVMenvdh1boglsHjU/sVys +gdolVipuoY1wX8+Bp7RdA+dPNbd9W/wGdNTuLrEM0cD764Q+jIX14GC64kFx +sQZ6DRTurlaohdQPTJ3wXg2MFLOK935cDXVtsWttl2qipN9ux8qWp1AsVbfZ +aacmxlhJu3H1yiH/dhejjqeJCRcuyxY+LgMmT3aRX6kmPpJkCnbxS0CidOVF +lWFNPGsRKZ2tXARlR2S+EKoM7IzbczY3Nx80t0mbcuwZWL8s8LzPuZuQdaPN +Z2kMAzu874SlRWbDEreUtVVlDCzLTRLYal0DsD4ymzPKwMaA+ZVsvQzoGumj ++XxjoIxUUUCwSgbw4tzNDMYYeO+z619Z0hlQWeMaUz/OQLvxWzdXfLwM5ibM +hWMTDDR9qXSsNPYy7NS2ZRgIGXjop9nL0P5L4DjHeGe9DIE9TZ0jtPx0CCpT +yPhGJ3DTszmTAuc0aMwpzn2pRuDtxvb+f3ekgVbynuIsdQI/NWcN3t6UBm2+ +l2r3aRI43+DnVJ5iGmxcRX6vIAk0NJKnHGpTYTIDLBNWE2g2Ls0yW5cKvhGc +8TXGBK7+N7dTQykFPHbVm/vtI3DlzXD/5WJJUJRY2WXiQGC/o/3uzWN8mG55 +ECS7n8AJK9LP9zMfYlnZ+VcPELiinx8wVs2HWz6hSm+YBMZ9fVp9JJYPg4l6 +vavcCFTVDTptvIQPx1r5kb0+BG51nLvXbGMieLo4VTucJZCVczDTNTkBjHal +sOhxBN7YEK9BxCaAnPFbYb/I77WNpL+HJMCdpVvXB5wn8OUCxfrrbgkw9HrV +jeQEArVtydrD6xPAw0QY/S6FQHtZv4qTzRfgsEr6dqssApuCe6wzV14A16bW +RnxCYHGKuDDq7DkYUPxrr3I5gZWmi55rnzgH3jZJHWMis10bDAXMcxD62rrn +WgWBodJzpkP0z0Hqi5cTUtWifxJbfELa46DhyeOlL14SWJLpP3RGJw423shk +WrcS6CVllR79KRbkuYcHXL4TuMH/2aPr3jEQOX/ZrPZ/BBp57ki1d44B4ZW6 +PydFLtj8O15xZwwM1Opuip0k8MvDzwXF2jHwfNlEdNEUgbTqa3XhfdEQWn5a +U1KMxJVOx+0cXaJheE46K0uOxILM5tr7TlFQz3/V3KtJ4rwDOm/Z3AiYDrze ++JRBYrl7kHbOoQggnQMbLhEkDrV/DP2xNwLCKc3nNhSJrzsMhh9tjACD8uCS +8lUkFktOjDZOh8PNPm1+8loSq63tPq05HQ5RBrHW5qYkJsoXG3CTwwC6zOuz +HUls6YnaYiPgwX8c1stgJxID2w8pxL/nwa2ZwFpbJoka3Us5TTU8UFLJqxZn +kRhcV1oZms+DIXvFJ06uJF7JSZMzC+ZBat2nvMUeJGrrlyvEKfNg/H5AfCSX +xPdV5oldJaFw49wtG7eLJOqbPJ4hR0/CDt8lXTqJJKr1kfmeHSdhfE+E56TI +NbvMN1TUnAQTGjMmOolEnvb2nPOZJ6Gp6M/ym6kkLtQaFH9jcxKkWgOokQwS +Oe86HD6UBYGrmoUY9zaJwnJ+V3tCINBKu/NiqkkcLnydGXKICyFDx9XZz0ik +Tr1VjbPnQjtdOs3wuege02NHrhkXEuPIiJEaEkd1VkfOo3FBmu25366OxFu+ +Vns4bf4wJPdDmtZIYsOz0rQHO/3hAVuWVfqJxOvJ4iBrdgJ2ya9Z2DstuteR +veb8bj+4lLZ4yd1fJJ4JPqVTutkPBjSmVYKFJFpU0mUG1vlBhGGV5sJZEjUP +CYw9lf3gwWH7TSbiFE4JN3/t/+wLtKpAVvJcCjPYgyYFXF/4xq3MN19E4fRk +SItlrg8kCGy35+iI5jf6DMw1vMFdKdiGo0uhv60DfXipNxhsz3JYv1q078HK +6fQ/vKHn3n+HqvQoFL/HaFMb8YKNMUkRn9ZSKOiY9i/he0GnbsuTJQYUKq2v +4FX3cGBV8H69GHMKu3wpgAueUKPksviIM4VRc1fbeSw8CjaX8qRMWRS21v46 +9nTGAzrp09+XulCod+qOEfnVAyZXJTbWsilMld3yVqPCAzTMnsWT7hQ6pohH +tnI8IMyLku0/RuF9A2WB6usjYFQ7NuseRKHQSyKs85/DUBQY1n8wicIVisW2 +pY7uoGuvdkg3mUJV7onxmh3ucEuv8ssPkbUEhj3dRu5wrU+8OzaVwn9vNmca +r3CHi/anPxamU2hRcOYKt9MNfNfwGoVXKXTYuun1LNsN1nwNeczPp3Boj9RP +9eMHoXBf4IXqGtE/dtdKtUrYsP4pFZpdS6HOVJOU5Q02PKTaj0a9oLCw0ELd +J4UNVdMGFpZ1onwrE/J7A9nQfEk4U9dAoXPagl9OwAZh16mj75oo3MH84Hai +3gUsj0SZf+6m8F2jRq3MKAtevd2wrqqHQn7h/YLzAhbYGPTRs75QWJHhtV31 +PQsOzLecceujsPoPXgirjAWcvHn3vg5QKHOloMslggX8sTj62BiFSQXeTg7L +WaC833hB4ziFvhb9l6MWsCCjclhY9J3C/Bx1+XIJFuQk7mw9PiHKM9/xUXKj +MzxcrxD/8yeFs/8I7j7xdAaTjIrgtikKKwc5nDI7Z6iS9vF4OE1hgMyw7AtD +Z6hvebs1WEjhj78+ZqnLOoM1hq11mqGwf2A2jDPGhOZcfbrJLIVkqrfEq1Ym +7P+zW171N4W/HucqQgUTPgUmCn+LPCarlVOdw4T/AYLCkUY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9432956065989558}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9432956065989558}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV0Hk4lIsXB3Bbkly5KSWVGcu870skLbds50jhVipbpRhjRKWMrQxCkz0p +ydiukoposUSSFlcoilTKXjIRskaXoqHf/P44z3k+z3mec57zpbO9bNwkxMTE +rorq/50edUxSTIyGRFHalqDVIyDt8lDihch6vR9WmuqOwJChjMRFcRqyB2r0 +5+qMwIOx62IakjQ0Temek6A1ArudOmYspGn4TsnKKl1zBELXbfsZL0fDNfG7 +xWNVRqDjMzGsqkxDg2at6XrpEUiC7mbQp+H3lYpX37QPQzmDU1x2mIY5xucv +iXkNw/SZhoMp6TQ8EM3RNZoaAq1dyjknXtFwUbFCwnO/IViwOWD8nCQdPV+t +Vb1TPwhz795ZKLuBjupGLMN25UG4ZzVhWHGMjk4zo++tjQfAfgc56X+NjnsC +z4hxLb/CvBq9yIT3dNxynOPx97Z+8PWyWtErq4bEa8XdUip9MJIIsRnGasjy +lE852vcFmMuWx+z1UsN/RqO92dk9EN4gF78tWw1j7fJGheu64dFso8fVFjXM +VrizmvFGALmOebv05dUxWyCvZLW1C2KW+z6rMlNH26BS73LeRwjeJ6dQdkId +x7XihXYl7aBZ+dC1/7Y6qrZ/9pv7rAUEOSZxJzvVMenvdh1boglsHjU/sVys +gdolVipuoY1wX8+Bp7RdA+dPNbd9W/wGdNTuLrEM0cD764Q+jIX14GC64kFx +sQZ6DRTurlaohdQPTJ3wXg2MFLOK935cDXVtsWttl2qipN9ux8qWp1AsVbfZ +aacmxlhJu3H1yiH/dhejjqeJCRcuyxY+LgMmT3aRX6kmPpJkCnbxS0CidOVF +lWFNPGsRKZ2tXARlR2S+EKoM7IzbczY3Nx80t0mbcuwZWL8s8LzPuZuQdaPN +Z2kMAzu874SlRWbDEreUtVVlDCzLTRLYal0DsD4ymzPKwMaA+ZVsvQzoGumj ++XxjoIxUUUCwSgbw4tzNDMYYeO+z619Z0hlQWeMaUz/OQLvxWzdXfLwM5ibM +hWMTDDR9qXSsNPYy7NS2ZRgIGXjop9nL0P5L4DjHeGe9DIE9TZ0jtPx0CCpT +yPhGJ3DTszmTAuc0aMwpzn2pRuDtxvb+f3ekgVbynuIsdQI/NWcN3t6UBm2+ +l2r3aRI43+DnVJ5iGmxcRX6vIAk0NJKnHGpTYTIDLBNWE2g2Ls0yW5cKvhGc +8TXGBK7+N7dTQykFPHbVm/vtI3DlzXD/5WJJUJRY2WXiQGC/o/3uzWN8mG55 +ECS7n8AJK9LP9zMfYlnZ+VcPELiinx8wVs2HWz6hSm+YBMZ9fVp9JJYPg4l6 +vavcCFTVDTptvIQPx1r5kb0+BG51nLvXbGMieLo4VTucJZCVczDTNTkBjHal +sOhxBN7YEK9BxCaAnPFbYb/I77WNpL+HJMCdpVvXB5wn8OUCxfrrbgkw9HrV +jeQEArVtydrD6xPAw0QY/S6FQHtZv4qTzRfgsEr6dqssApuCe6wzV14A16bW +RnxCYHGKuDDq7DkYUPxrr3I5gZWmi55rnzgH3jZJHWMis10bDAXMcxD62rrn +WgWBodJzpkP0z0Hqi5cTUtWifxJbfELa46DhyeOlL14SWJLpP3RGJw423shk +WrcS6CVllR79KRbkuYcHXL4TuMH/2aPr3jEQOX/ZrPZ/BBp57ki1d44B4ZW6 +PydFLtj8O15xZwwM1Opuip0k8MvDzwXF2jHwfNlEdNEUgbTqa3XhfdEQWn5a +U1KMxJVOx+0cXaJheE46K0uOxILM5tr7TlFQz3/V3KtJ4rwDOm/Z3AiYDrze ++JRBYrl7kHbOoQggnQMbLhEkDrV/DP2xNwLCKc3nNhSJrzsMhh9tjACD8uCS +8lUkFktOjDZOh8PNPm1+8loSq63tPq05HQ5RBrHW5qYkJsoXG3CTwwC6zOuz +HUls6YnaYiPgwX8c1stgJxID2w8pxL/nwa2ZwFpbJoka3Us5TTU8UFLJqxZn +kRhcV1oZms+DIXvFJ06uJF7JSZMzC+ZBat2nvMUeJGrrlyvEKfNg/H5AfCSX +xPdV5oldJaFw49wtG7eLJOqbPJ4hR0/CDt8lXTqJJKr1kfmeHSdhfE+E56TI +NbvMN1TUnAQTGjMmOolEnvb2nPOZJ6Gp6M/ym6kkLtQaFH9jcxKkWgOokQwS +Oe86HD6UBYGrmoUY9zaJwnJ+V3tCINBKu/NiqkkcLnydGXKICyFDx9XZz0ik +Tr1VjbPnQjtdOs3wuege02NHrhkXEuPIiJEaEkd1VkfOo3FBmu25366OxFu+ +Vns4bf4wJPdDmtZIYsOz0rQHO/3hAVuWVfqJxOvJ4iBrdgJ2ya9Z2DstuteR +veb8bj+4lLZ4yd1fJJ4JPqVTutkPBjSmVYKFJFpU0mUG1vlBhGGV5sJZEjUP +CYw9lf3gwWH7TSbiFE4JN3/t/+wLtKpAVvJcCjPYgyYFXF/4xq3MN19E4fRk +SItlrg8kCGy35+iI5jf6DMw1vMFdKdiGo0uhv60DfXipNxhsz3JYv1q078HK +6fQ/vKHn3n+HqvQoFL/HaFMb8YKNMUkRn9ZSKOiY9i/he0GnbsuTJQYUKq2v +4FX3cGBV8H69GHMKu3wpgAueUKPksviIM4VRc1fbeSw8CjaX8qRMWRS21v46 +9nTGAzrp09+XulCod+qOEfnVAyZXJTbWsilMld3yVqPCAzTMnsWT7hQ6pohH +tnI8IMyLku0/RuF9A2WB6usjYFQ7NuseRKHQSyKs85/DUBQY1n8wicIVisW2 +pY7uoGuvdkg3mUJV7onxmh3ucEuv8ssPkbUEhj3dRu5wrU+8OzaVwn9vNmca +r3CHi/anPxamU2hRcOYKt9MNfNfwGoVXKXTYuun1LNsN1nwNeczPp3Boj9RP +9eMHoXBf4IXqGtE/dtdKtUrYsP4pFZpdS6HOVJOU5Q02PKTaj0a9oLCw0ELd +J4UNVdMGFpZ1onwrE/J7A9nQfEk4U9dAoXPagl9OwAZh16mj75oo3MH84Hai +3gUsj0SZf+6m8F2jRq3MKAtevd2wrqqHQn7h/YLzAhbYGPTRs75QWJHhtV31 +PQsOzLecceujsPoPXgirjAWcvHn3vg5QKHOloMslggX8sTj62BiFSQXeTg7L +WaC833hB4ziFvhb9l6MWsCCjclhY9J3C/Bx1+XIJFuQk7mw9PiHKM9/xUXKj +MzxcrxD/8yeFs/8I7j7xdAaTjIrgtikKKwc5nDI7Z6iS9vF4OE1hgMyw7AtD +Z6hvebs1WEjhj78+ZqnLOoM1hq11mqGwf2A2jDPGhOZcfbrJLIVkqrfEq1Ym +7P+zW171N4W/HucqQgUTPgUmCn+LPCarlVOdw4T/AYLCkUY= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.9432956065989558}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.9432956065989558}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.9917124540376835`*^9, {3.991964135503311*^9, 3.9919641527564583`*^9}, + 3.991965132478647*^9, 3.993137570636154*^9}, + CellLabel->"Out[19]=",ExpressionUUID->"e539fa1e-daba-4183-871b-2aea4cee8026"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{ + 3.991842459440727*^9},ExpressionUUID->"7b24a916-b850-f042-8ae8-\ +50b3ad5aa448"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "10", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.65"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919641656458683`*^9, 3.9919641703540897`*^9}, { + 3.991965146253729*^9, 3.991965149824396*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.9052282716664432`"}], ",", + RowBox[{"b0", "\[Rule]", "0.6047945945713056`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991712518051634*^9, 3.9919641715267353`*^9, + 3.99196515126849*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "-", + RowBox[{"pppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6.5", ",", "10", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.7"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellLabel-> + "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "0.8843341005280374`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7578746971183462`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9917125237225304`*^9}, + CellLabel-> + "Out[380]=",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "0.905"}]], "Input", + CellChangeTimes->{{3.991712542905905*^9, 3.991712545766283*^9}, { + 3.9919641812561817`*^9, 3.9919641814730263`*^9}, {3.991965164548561*^9, + 3.9919651652528534`*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], + +Cell[BoxData["0.905`"], "Output", + CellChangeTimes->{3.991712577539974*^9, 3.9919641835911674`*^9, + 3.991965166337839*^9}, + CellLabel->"Out[21]=",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.605"}]], "Input", + CellChangeTimes->{{3.9917125549495907`*^9, 3.9917125609834213`*^9}, { + 3.9919641902090893`*^9, 3.9919641942126675`*^9}, {3.9919651710886517`*^9, + 3.991965171325409*^9}}, + CellLabel->"In[22]:=",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], + +Cell[BoxData["0.605`"], "Output", + CellChangeTimes->{ + 3.9917125776046295`*^9, {3.9919641919259663`*^9, 3.9919641946011486`*^9}, + 3.991965172422703*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R1", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}], "*", "b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R1", "*", "R1"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R1"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R1"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b1", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x1", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "a1"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "12"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, + CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519988325634*^9, + 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l1", ",", "l2"}], "]"}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925199899203997`*^9, + 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.765, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 7.84, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.895, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.2060547869196, 115.8310547869196}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.1216797869196, 204.7466797869196}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l11", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.99196423637006*^9, 3.9919651876297417`*^9, {3.9931376505353317`*^9, + 3.9931376534320374`*^9}}, + CellLabel->"In[20]:=",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwVl3c8l90bx2WEkkJCZH7XnU1UPO7rShmFhhFJsiopIw+VSEgloxQp4xGy +EtmVmVFSIbOMsrISskno9/39dV7v1znnPp/787mv+5wjZedqfIqVhYUlaA0L +y/9bqZvn2VhYJFH2W1yugdcYrLUtZn3PZCW32Lnli2MwpsnFen+NJO7Vv9SV +6TEGr6aesFDYJPG0i0Ewl9sYHD7RtaK3VhJTWDnss0+Pge+OA4t3eSTxjWum +Z7HJGHT108clRCSRTWLju0q5MXgA3z+DiiRWXW2zd+/8CeU0l/wiR0m8Pf6X +nsf/E5ZuNzg8jJVEa1WdgHLNUdh+SCTNs56pj7P3BGn4AzZqX54OY5PCHN6W +4Gu0EeDMzeRfpy6F+p5/aYUzQ1BgNKdZcV4K1flbrmwNHAQzQ8b8xSQp3P1G +YF337+/A/U7pxr1WKdS06ozY6tYP7q5G24bWSSObkgPr+PNemIiA4HgtaUwR +YUsKW/4G1lvFgsxdpVHfjTVGJrkTrjfw3D2QIo37RSd3BPF+gZLVZqfEL9K4 +Cf3WDra2QLpV1iEVXhnkd3Q9WhPSCEFi7m+r98pgTApQTqp+BB8Lnk1FnjIo +4pqfnHWgBqhVxfYjz2SQLduycyGtEkqbrHLyMmUwrM3/6bpHlWDct7rskyWD +cgr5/9GDKsGPZW8UX7YMHv+pPn3NsRK+kh9rNfJkkMd3q1oGUQmRJV3yYa9k +0CrpqslAVgWwFS4vKL+VQZp9zpd679fQl0aGenfLYPBc6N+YhRJQ4OKoPNoj +g7fZbkv4dZaAj+PHOeVeGRwLFRD1KSsBYcLi5EifDPrLuoS8ul4ChzMuqJgN +ymDhtp5Ybb4SKM9MblcYY/aXOsY9UCqGmNx11P7fMugpn/eH3e8VGJd8LtMX +pOD52uOL+20KgfG2d1ZiCwWzsrc8EN5fCCsNo7ILTDadkdb7o1wI6f2r0SnC +FGSh5NcssxXCKjf9IqsYBfeWH1L5lV4AzywuKZRKU/C7TWLE7fl8YJ8Xeqyo +RMGT9w7fO5KQBy+UjvltMaCg7DGBD39lc8An/IVuD5P9Sq9WVW/NAe1JgQ3p +hhQckvbnesidAw3ZDdG7D1LQ/oRU4eeGbBhU2JdvdYSp92C7TqReNmyWVxxK +MqdgF01bI5d8Du4Eh6GiAwXXU6UFFrQzYddtO/5FJkffij+lRMmE1ZHX7RWn +KLh/+oP4TY5MCE6/csr4DAXnimqv3qx9Bon0SV9PJ+b4DYu/2w89g0ZqV26J +GwV7dHy0C+0zQF46V0j/KgX1a4fv1z9Oh4xmlRopXwq2TJ5woASkA+16gccf +JiukhcxGO6SD5MDLpud+FBw7HzfXS6QDf2p5iGAgBUGifKmrMA0Wibq//cEU +DFKJE3JvSYVq5eHhq48oeM/K2uAaJQWw3zHKPJr5vMcWDf7rUqD0/ug+5RgK +llr17UqYTIYXM+OJA7EU1Kl74qRUlgzphbPHDR5TUC1Eoi7WPBnu7GZtFE6l +YOSy4VTwvSdwbM+2V/n5FGxz5tVWFEmCGr3pOd8CCk6dlXvNxp4EKgffqR4o +pGCiSS5tYiIReI5fyO59QUG5tSou7G8TocLjbeqGYmYeByWndrgnAiPd+cGZ +CgpKVOQ7RTUmwCJvubtoPQUP/rpGVO9+DKcEI3KGmMw7/kL0yebH0CzqOJHb +QEEji5g7Gb/iIZPB76TfyPSbx9FVMTUebLRP23q2UPCr/1HXDYLxUOvJe/hT +BwXTM1O3r/yOg0dfreWvD1FQYOJa+ZueGAgLveR8YJiCHot9uxdex0DAP+FZ +fCMULDouVmKQEAPn4irlE35QMNxll7mlbQyQVhSFsjEKrqr9k7duMBoGu34o +LExT0BdzOeOnH4FKl4fSub/M78O1l6ea+hDoIWFuKixU7NYctVjhfghimqk5 +v5nsFPqS++hEFHDEflEKYqXi+uo8wu5lFLRbaiincFAxlW5v3n8gCnw7/yr3 +rKfifPnwHqdLD+BjR7CqiTAVFYZbAzsHI+Bi57vjsiJUHE7965rwMQKku9gD +2bZS8UFmMvVmbgRc+erbmi9KxY0LeudzrkYAo8fdc7MEFS8+DP3kIxQBNwYs +X7ZRqbj3Vp1f++H7AL+2a1qoUtHoQPzaso5wGP11xl5pBxVZjac5yepwiJpM +DuFSo+KXPI/ezsxwmJgS//pKnYp5Yh3xZ/zCIW6W/6qIBhVzA+gbPjDC4ffv +pfJOpGKD5slS5ZU7kM/+UfvEQSoOWlnoEN6hcPD48SXaISrK8fTHoXkojOb+ +zJ1kcmK42+4A1VCQPskjFXiEiqKnXe9dHwuB+0VGfzNMqdh3/vKMl00IuLs0 +lixaUnH5YVjaxsPBoNTetiPyDFNfBV3rpWEQ1CmcHjvhSMX8VvNLb+SDwPHG +/BP6WaY/B0ZfzvMGQYKKkECJExXN1Fyy3jfdgk1hFlN9zlS80j8iQj12C37t +6cpS9KBidIX98F2Xm/D8WS/tox8VN9l1pcvmB8Iakwc1Kf5Mf2P4K8yiAsF0 +af9pvwAqNmpdr03xCoTf+vkpaoFU3H5cZvEFBsK+oRuUhFvMPG0f/HjUeB06 +JWWlPe9Q8bt30MkdCwGwNspzm0QcFRdio1rirP3hmNb2st9MZku3fKqk6w+Z +A91Wrf9RceVQveigvD8cUdWPu/2Yij9zdHdmr/hBXONW0dkkKj47t2+uOt4P +VNZXCL9/SsVxN8fpmPprYO23bvO/L6m42D9xMWfrVdjVxPpi/ysqGne5yctO ++4CA9B9zySIq9nBPFHe994Ha6p+x9cVUNBe+YvzNywdUOOtlGOVUnJkJ1j/+ +1Rs479xV/faGivyy7zq4n12BnNjNJnrNVPQ++rLZ2/kyBI/xzG1roSJHh+V5 +dYPLcEqL4+Eskwddf4pKEJdha89cZ2IbFWPiFtq8Bi9BoPQXu+V2pv7OmH8P +2lyCY0+j3XN7mHrSdfn3Wl8E1pfi90XHmf6Yrz371csD6k84VX9n8ipL3e0e +aw94xP5i9tkEFX3TuwbY93mAgrGR+T+TVAyvXE4t5PWAY+PeYidmqOjqWTCZ +kfIv5Mh0pMb/pqLJwZKmyg53sA6PKJFaS0PR7FKJiGMXgNjZM/aDydf6rWvu +aV+A2W/bxfM4afjHwKI3S/YCBMtW+Wlz09BOnLtXa9UNCmsmdex5aBiwaVSl +KNkNeFaMGpP5afh6NvLeyrgrFJ3lGqRL0NCU98J0wUln0LC9vMoiScP8GjE3 +Us0ZSi1GhDqZvGS1epJtvTNU6NUeCJWm4ctfzyzJl+ehhhqUM0ml4WxvjIIb +/3lo7eP0KZKjYa3/yja/Fif4dYxTwECDhiY/FM4e8HUEtyOX5CiaNOQo2imd +Y+kI0/rDOitM3nYyTEJ/pyPM73x3OVuLhgcUr7VvmDoDy4K3ugX20LBa/cqv +kdNnYF3z2oyvejSM5b8llXz8NFAPrN3jYkbDurLhBPczDhD18P2PXUdpuFOX +zh9v4ABcg6H32cxpuO9gvfeEogOMXRMYeGRBw/lFus/Koj0UFEreqj7OnC+j +Lfwp1B72SWnWC9vREIQePxMusQOHRddj1S403KRckLZR2RY+66iy3nGl4Rtp +dfbrIragHzGfYeFGwyJJ5W5BVluQU7i6PH6Bhu3ZSY7RLTYwax/8WNiThk3K +9zwELttA4KfkQWdvZj5Xsrttw05CcmrHBeEgGtpO9wXyzlhB/H+9Yj1M/mZQ +9WttnRU8ihx+l3Kbhm7W/K0qKVYQEjC3TTWEhlyBHGwUCytwt+b7YHSHhqfe ++vc5VByHPVv2S1+PpKGZgVMHI8YSum+8ah5PYL4/n8nsugsW0O7z+mpBIg3X +8qkb/D5kAc3/1jC8k2iYYPLSW0DRAt7atvpyJdMw+Kdv0Idxc8jUmtwuk0ZD +/u3Xd2k5m8OVOfp1iywaFjh8W8fhcRSETj1UrS6ioWpDemHmY1OozayqiSmm +4T2fE3+M/E3h8uz4MfcSZp75qoSovSl0Xt/nJ1VGQ+Tr091FN4W4pKm6axU0 +HA2/2XMx1wSkeg1O//OOhoYbhTWa6o1B9jhLdGErDTNy4s0cKUfga5KsXFgb +DfUvPdguuP4IhI4efe3wmYb3p3I+DE0dhgmvrEGBdub6fbpxC68PQ84jSxX3 +Lhr+mhz5/v7EYVD7XPBRoZ+GM6yyFdx4CODI2dW0XzQUcDE0Y/U2hN6JYckL +kzSU+U9rNcHEEPxCT+/VmKJhak2xvqecIVS9sw+qm6bhxR6LlLJuA9Alrfmn +5mjYMclV81bHAA7KmtA0lpn1ut2O/9K2A2DFoXWwjouOy8knRUKm9GAlqcTt +ATcdue9qn7Ns1IN41IiwXkfHVvk2MfNsPej13tk+uZ6OO55dzfzirAcO08p2 +ghvpSAmQHJ8Y04VzPbSL1oJ09Nhp4aQ9owNXijbFT0rR0f/YfqtJ8X3QnJaf +/kGajsP9Q7+esOyD7VFH85Nl6Kiasy88sH8vdLjH1VpQ6fj9bvfkx9S9sEuO +MVPBoOO3RV6R88p7YT4e9O8p0lH9RPi54oPa4B7oMq2sRccBtV/GA2kIH9z5 +VtaTdDwV7LtacQdB2raAc4jJrLRE2WpPhCatJbEYpGPbJnbFnfsQlBZu6LHu +o6Nwv0Br9luAibP/xTUfoKPFmSqzWCMSnA7V6f5rQUcGafjyQLgm5EVU9ZLH +6Eg3jEs7flYTlr68urLOko7FiYbsT7Q1Idgm5XnicTpG1hZ/aZnTgIwLvlsa +relYySX9qdBaA35GKA3JnaLjhJT7DU2N3XC+PfLG0AU62ooovDu1ZScUiIVI +5LnTMeeGQ3DxnDos2/gXXf2X6Y+JjZBWmzqE/nAe3+xJRyORNfc/RKpD5pKu +2d7LdEz3G1Nl2aIOY2K/KQm+dAT9b6EJkmrgbHvizbEQOm6O2bNXxEwV/jn0 +0EYqlI7iZbp8/2ioAo9W0/IIk19EjfVel1CFTGEdtct36OjwgVrqP6oCY5/k +UqPu0Zn/U+VppQAVcCKXb7U8pOPMnr95Kq+UwVE01sAomY5/vLT3emspwS7u +tuHNKcz1fLfm9dGUgGuBN/Ark3+yHjQ9s0kJ0psDSs+l0XEq4B7f43eKMHzb +ST44g45ev+aUxIUV4fTi7o3vcuj4t9rpitEbebBva2/GMmY+D59y6ujJwqjA +TnORcjpe4Dl2kkdcFtyMH3RNMVmy6nMY39x28P10ZCCpgo52VjUsrU+2w6P3 +H+bY39DxyTbTo4rs26GhrFT4/Qc6nhNfLzf9iQG7UhOsj7TTcfJIQq3ZPRq8 +HljtJzroeLtNYUbRlQa6MifOsHbS8dp3fnctIxqYJIi45XfR0be/UnOKmwYu +Mff9BXvoGChu8zr/BhWe3AlM7hikY+0r3xn7mxTgveQ4ajtDx7dWm4QCMqTh +xvqtq7KzdLzz7e5ZsXBpWH78kW+eydNtjl+6PKVhtFZhd/A8HeXfZqm/3yMN +NVvnbuX9pqNKbbKzRZcU+Jb7U9lYGFiXpTwtJigF4xyxNsk8DGwXNQvr2isB +DjGGHi4bGLiqkSoULSQBnQqrt3bxMnC9WutU5E9xqDW3za7byMCVAlJDN1Ic +kp/SV2f5GVjj9bzgxsg2sDIqiNURYeCNnX2xCnFiUBdZ/3mIysDjqppdU/Jb +YcnrSXMljYFfHFrPVXJsBcZJr4Y4OoN5nko62fBNBK4T1BpjgjmfS3El/o4I +aJT7FJbLMfDclTB2vhlheDosGxmlysDRwR1pP2qE4KZG8BHdPQwUWxTaK/BI +EAokbIyktBkYYKTCO3hREPrZ1fcvM1lDbzj6h5kgaH3qw7x9DKwklV/f3izI +3L92K4nrM3AqZHRiW+RmsAsb4Z0/yMCUf3WrTeMEAHp161KsGCgp6pPM/YkP +Zl1sPvicYKBdxpo5agEfZKx41ZpYM8dfsi9wiuaDLaJZb9bYMPDe4uk75x34 +YMxMoOyEPQM9ou4SBsub4NHHnixBJ6ZfXUs/UXUTTL+4fPfGJaa+xoYGXq8N +kK5zP8zqMgNbatrYbxpugBOtz0JUvRioO6mjg5IboHaq+1bfFQZ2+t819anl +gcdyOn5avgwsPHDuC6cYDxgm8V2YC2Sg5U63BKFP6yA1LMP41H0GcpvnPAq3 +4wJDd6Fe+QgGbnoTV0ogF0wfDXSeZ/L7f0rJmW1cQEpaB916wEAsMjm0pZMT +2vL4yp8+YiD97R3jB6acwN5+mZiIZ+DX25URWsZrwV5aj+XSM6bftaZ1vi7s +wMVZEMa8JOL3m5cupx1hh+c/JUW5sph5bbYvXtzBDksFS2rRzxnY5xYotnmZ +De7rPT9XkstAm7pcNUYoG1SdF/zy9yUDE/dYPnyQzwqSL79nBb1h4Oel5v0C +4mvg6piHjN1bBurXhEh2s62BTqm10Zo1DCzj4l1q/MECEaGMwIl3DPTi8K+S +f8ECa+2cLU0/MtDAKVq47DALjPEsrJVsZiDH3OD8qshf8pXdOpuXPQz0dNT4 +KLBnmRR8FNsW3stAYx/upo+Cy6R7vZyBUx8D/+5uWHg7+oeU3XVIfdt3BnYE +a2259uAPGb8hkuf6EAOtv08X/R5fIgNfbSs6OM7Ay9474ksyfpOHeJX5h5aY +eW/5oD98eIGMixYUyv3DwE/7LmneVlwgRylLoj7LDCxSH2iy5F0gAzWrqfyr +DDxzT7srpG6efOVotptcQ+CVL80bxA3mSclqL5soTgIjltsj3h+eIycvVT3X +3Uzgt4SBN4E+M6QWW1o+nyCBlp8pHfE2M2TwnZBXX5lM+25a27tvhqSkmFa5 +CxFY8V+TadeGGdKieagtfiuB0Qbt7CmJ02SF3PqVeUkCC0PqX1o2TpH3+kwM +0uQJ/PWEJ79bf5I8vcXH2EWBQGmJJqE1KpOkhkHyMTVFAndeSL61V3SSHCiY +PVOtRGDmRnh26OsvclfQg8AeVQIZqUJPm7f/IrsVvpQJaRD4onL/kEnLOCnn +Y6kUpEuga5TS1+VDP8k1uQE7D+kRGDVyauUx8ZP8PJhBbtEn8ImP+Mhltp+k +36E/hsn7CayMeDb+4eUo2SIdd7bCkMDenauPhqVHySvvvyUtGhMYdLq8vJr1 +B/lui63g2ZMEqths5BQfHiKN47LY99gQWPtYLVz9zRDZLbU0I2xLYN3F8h2B +iUPkvFxEc60dgT+2cd0psxoiKXvf3mWcJjBlrUvD47ZBMsCVWDdynkBPBz2P +7sYB8p/aqdXTVwi0k8/T1fzZT9YakROkN9P/yQ0/7Bv6SdOW4G9bfAgU23bU +/VVuP3muW6a05iqBM1WWigOX+8mYWTMvmj+BIw5TksDdTy5IFs8M3iKwlN8g +4oNyH5nnFTDi8IBAndAnTnx7ekgFM+kzClEEsvNxHI7a3ENmKFUNLjCZMAtw +thzpJpOG13wPfkRgRlnSaHx4N3nfzP9bTiyByrPNWhsHvpHuyn7Ny4kE/tuk +Ybsn6iup/ONqaeRzAo1nh+eSqZ1k5pttmtbZzPzWL1qdZ+kkGQllRfQcApfr +XLIduzpISfOVF8W5BL52eTC6eq+D3PTWJ7e3gOlXNfd/0Ws6yMkE71S5EgI7 +ne1s9Ue/kDkWXuFv3hE4x7bV40lPG6lWSfim1BIoOXtbur+0jSwmOs/dfE/g +0d1/fpvHtJHVSxp6+h+Zfqt9rhk2ayM/xy2vfGwgcGg35dydT63kcu+1cy1t +BHJKXpJ/XtdC6p+9qdv/ncDs6qep7GNNZH2T+o7qAQKr3v8rdftTE2msMSyV +PEggxf9cq0Z+E3l8vf7KqWECH6vEvaF4N5EuWdwFP0aZfhzO5V+/oYmMnAqV +mpoicHdI7NzArkZSxFJrY/M0s18rxVBMopGMrxpfzpth6neMi/ThaCTTIg62 +e8wx6zGPMuKc8oksVtt0d3GRQBMXsz6h7gaSjK/w6fhN4DW1rIecWQ1k9doL +TsVLBJbHuu/U8Wkg67406fgsE5hq2aWTLtpAHsEA1RMrBLaX57yu+1lPfk5X +kSJXmfXgYbZbq7SetOT7zivxl8D0hH0av0PryR6viOW/TA4Qf3WAxbqe/B84 +SQ5P + "]]}, + 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:eJwVl3c8l90bx2WEkkJCZH7XnU1UPO7rShmFhhFJsiopIw+VSEgloxQp4xGy +EtmVmVFSIbOMsrISskno9/39dV7v1znnPp/787mv+5wjZedqfIqVhYUlaA0L +y/9bqZvn2VhYJFH2W1yugdcYrLUtZn3PZCW32Lnli2MwpsnFen+NJO7Vv9SV +6TEGr6aesFDYJPG0i0Ewl9sYHD7RtaK3VhJTWDnss0+Pge+OA4t3eSTxjWum +Z7HJGHT108clRCSRTWLju0q5MXgA3z+DiiRWXW2zd+/8CeU0l/wiR0m8Pf6X +nsf/E5ZuNzg8jJVEa1WdgHLNUdh+SCTNs56pj7P3BGn4AzZqX54OY5PCHN6W +4Gu0EeDMzeRfpy6F+p5/aYUzQ1BgNKdZcV4K1flbrmwNHAQzQ8b8xSQp3P1G +YF337+/A/U7pxr1WKdS06ozY6tYP7q5G24bWSSObkgPr+PNemIiA4HgtaUwR +YUsKW/4G1lvFgsxdpVHfjTVGJrkTrjfw3D2QIo37RSd3BPF+gZLVZqfEL9K4 +Cf3WDra2QLpV1iEVXhnkd3Q9WhPSCEFi7m+r98pgTApQTqp+BB8Lnk1FnjIo +4pqfnHWgBqhVxfYjz2SQLduycyGtEkqbrHLyMmUwrM3/6bpHlWDct7rskyWD +cgr5/9GDKsGPZW8UX7YMHv+pPn3NsRK+kh9rNfJkkMd3q1oGUQmRJV3yYa9k +0CrpqslAVgWwFS4vKL+VQZp9zpd679fQl0aGenfLYPBc6N+YhRJQ4OKoPNoj +g7fZbkv4dZaAj+PHOeVeGRwLFRD1KSsBYcLi5EifDPrLuoS8ul4ChzMuqJgN +ymDhtp5Ybb4SKM9MblcYY/aXOsY9UCqGmNx11P7fMugpn/eH3e8VGJd8LtMX +pOD52uOL+20KgfG2d1ZiCwWzsrc8EN5fCCsNo7ILTDadkdb7o1wI6f2r0SnC +FGSh5NcssxXCKjf9IqsYBfeWH1L5lV4AzywuKZRKU/C7TWLE7fl8YJ8Xeqyo +RMGT9w7fO5KQBy+UjvltMaCg7DGBD39lc8An/IVuD5P9Sq9WVW/NAe1JgQ3p +hhQckvbnesidAw3ZDdG7D1LQ/oRU4eeGbBhU2JdvdYSp92C7TqReNmyWVxxK +MqdgF01bI5d8Du4Eh6GiAwXXU6UFFrQzYddtO/5FJkffij+lRMmE1ZHX7RWn +KLh/+oP4TY5MCE6/csr4DAXnimqv3qx9Bon0SV9PJ+b4DYu/2w89g0ZqV26J +GwV7dHy0C+0zQF46V0j/KgX1a4fv1z9Oh4xmlRopXwq2TJ5woASkA+16gccf +JiukhcxGO6SD5MDLpud+FBw7HzfXS6QDf2p5iGAgBUGifKmrMA0Wibq//cEU +DFKJE3JvSYVq5eHhq48oeM/K2uAaJQWw3zHKPJr5vMcWDf7rUqD0/ug+5RgK +llr17UqYTIYXM+OJA7EU1Kl74qRUlgzphbPHDR5TUC1Eoi7WPBnu7GZtFE6l +YOSy4VTwvSdwbM+2V/n5FGxz5tVWFEmCGr3pOd8CCk6dlXvNxp4EKgffqR4o +pGCiSS5tYiIReI5fyO59QUG5tSou7G8TocLjbeqGYmYeByWndrgnAiPd+cGZ +CgpKVOQ7RTUmwCJvubtoPQUP/rpGVO9+DKcEI3KGmMw7/kL0yebH0CzqOJHb +QEEji5g7Gb/iIZPB76TfyPSbx9FVMTUebLRP23q2UPCr/1HXDYLxUOvJe/hT +BwXTM1O3r/yOg0dfreWvD1FQYOJa+ZueGAgLveR8YJiCHot9uxdex0DAP+FZ +fCMULDouVmKQEAPn4irlE35QMNxll7mlbQyQVhSFsjEKrqr9k7duMBoGu34o +LExT0BdzOeOnH4FKl4fSub/M78O1l6ea+hDoIWFuKixU7NYctVjhfghimqk5 +v5nsFPqS++hEFHDEflEKYqXi+uo8wu5lFLRbaiincFAxlW5v3n8gCnw7/yr3 +rKfifPnwHqdLD+BjR7CqiTAVFYZbAzsHI+Bi57vjsiJUHE7965rwMQKku9gD +2bZS8UFmMvVmbgRc+erbmi9KxY0LeudzrkYAo8fdc7MEFS8+DP3kIxQBNwYs +X7ZRqbj3Vp1f++H7AL+2a1qoUtHoQPzaso5wGP11xl5pBxVZjac5yepwiJpM +DuFSo+KXPI/ezsxwmJgS//pKnYp5Yh3xZ/zCIW6W/6qIBhVzA+gbPjDC4ffv +pfJOpGKD5slS5ZU7kM/+UfvEQSoOWlnoEN6hcPD48SXaISrK8fTHoXkojOb+ +zJ1kcmK42+4A1VCQPskjFXiEiqKnXe9dHwuB+0VGfzNMqdh3/vKMl00IuLs0 +lixaUnH5YVjaxsPBoNTetiPyDFNfBV3rpWEQ1CmcHjvhSMX8VvNLb+SDwPHG +/BP6WaY/B0ZfzvMGQYKKkECJExXN1Fyy3jfdgk1hFlN9zlS80j8iQj12C37t +6cpS9KBidIX98F2Xm/D8WS/tox8VN9l1pcvmB8Iakwc1Kf5Mf2P4K8yiAsF0 +af9pvwAqNmpdr03xCoTf+vkpaoFU3H5cZvEFBsK+oRuUhFvMPG0f/HjUeB06 +JWWlPe9Q8bt30MkdCwGwNspzm0QcFRdio1rirP3hmNb2st9MZku3fKqk6w+Z +A91Wrf9RceVQveigvD8cUdWPu/2Yij9zdHdmr/hBXONW0dkkKj47t2+uOt4P +VNZXCL9/SsVxN8fpmPprYO23bvO/L6m42D9xMWfrVdjVxPpi/ysqGne5yctO ++4CA9B9zySIq9nBPFHe994Ha6p+x9cVUNBe+YvzNywdUOOtlGOVUnJkJ1j/+ +1Rs479xV/faGivyy7zq4n12BnNjNJnrNVPQ++rLZ2/kyBI/xzG1roSJHh+V5 +dYPLcEqL4+Eskwddf4pKEJdha89cZ2IbFWPiFtq8Bi9BoPQXu+V2pv7OmH8P +2lyCY0+j3XN7mHrSdfn3Wl8E1pfi90XHmf6Yrz371csD6k84VX9n8ipL3e0e +aw94xP5i9tkEFX3TuwbY93mAgrGR+T+TVAyvXE4t5PWAY+PeYidmqOjqWTCZ +kfIv5Mh0pMb/pqLJwZKmyg53sA6PKJFaS0PR7FKJiGMXgNjZM/aDydf6rWvu +aV+A2W/bxfM4afjHwKI3S/YCBMtW+Wlz09BOnLtXa9UNCmsmdex5aBiwaVSl +KNkNeFaMGpP5afh6NvLeyrgrFJ3lGqRL0NCU98J0wUln0LC9vMoiScP8GjE3 +Us0ZSi1GhDqZvGS1epJtvTNU6NUeCJWm4ctfzyzJl+ehhhqUM0ml4WxvjIIb +/3lo7eP0KZKjYa3/yja/Fif4dYxTwECDhiY/FM4e8HUEtyOX5CiaNOQo2imd +Y+kI0/rDOitM3nYyTEJ/pyPM73x3OVuLhgcUr7VvmDoDy4K3ugX20LBa/cqv +kdNnYF3z2oyvejSM5b8llXz8NFAPrN3jYkbDurLhBPczDhD18P2PXUdpuFOX +zh9v4ABcg6H32cxpuO9gvfeEogOMXRMYeGRBw/lFus/Koj0UFEreqj7OnC+j +Lfwp1B72SWnWC9vREIQePxMusQOHRddj1S403KRckLZR2RY+66iy3nGl4Rtp +dfbrIragHzGfYeFGwyJJ5W5BVluQU7i6PH6Bhu3ZSY7RLTYwax/8WNiThk3K +9zwELttA4KfkQWdvZj5Xsrttw05CcmrHBeEgGtpO9wXyzlhB/H+9Yj1M/mZQ +9WttnRU8ihx+l3Kbhm7W/K0qKVYQEjC3TTWEhlyBHGwUCytwt+b7YHSHhqfe ++vc5VByHPVv2S1+PpKGZgVMHI8YSum+8ah5PYL4/n8nsugsW0O7z+mpBIg3X +8qkb/D5kAc3/1jC8k2iYYPLSW0DRAt7atvpyJdMw+Kdv0Idxc8jUmtwuk0ZD +/u3Xd2k5m8OVOfp1iywaFjh8W8fhcRSETj1UrS6ioWpDemHmY1OozayqiSmm +4T2fE3+M/E3h8uz4MfcSZp75qoSovSl0Xt/nJ1VGQ+Tr091FN4W4pKm6axU0 +HA2/2XMx1wSkeg1O//OOhoYbhTWa6o1B9jhLdGErDTNy4s0cKUfga5KsXFgb +DfUvPdguuP4IhI4efe3wmYb3p3I+DE0dhgmvrEGBdub6fbpxC68PQ84jSxX3 +Lhr+mhz5/v7EYVD7XPBRoZ+GM6yyFdx4CODI2dW0XzQUcDE0Y/U2hN6JYckL +kzSU+U9rNcHEEPxCT+/VmKJhak2xvqecIVS9sw+qm6bhxR6LlLJuA9Alrfmn +5mjYMclV81bHAA7KmtA0lpn1ut2O/9K2A2DFoXWwjouOy8knRUKm9GAlqcTt +ATcdue9qn7Ns1IN41IiwXkfHVvk2MfNsPej13tk+uZ6OO55dzfzirAcO08p2 +ghvpSAmQHJ8Y04VzPbSL1oJ09Nhp4aQ9owNXijbFT0rR0f/YfqtJ8X3QnJaf +/kGajsP9Q7+esOyD7VFH85Nl6Kiasy88sH8vdLjH1VpQ6fj9bvfkx9S9sEuO +MVPBoOO3RV6R88p7YT4e9O8p0lH9RPi54oPa4B7oMq2sRccBtV/GA2kIH9z5 +VtaTdDwV7LtacQdB2raAc4jJrLRE2WpPhCatJbEYpGPbJnbFnfsQlBZu6LHu +o6Nwv0Br9luAibP/xTUfoKPFmSqzWCMSnA7V6f5rQUcGafjyQLgm5EVU9ZLH +6Eg3jEs7flYTlr68urLOko7FiYbsT7Q1Idgm5XnicTpG1hZ/aZnTgIwLvlsa +relYySX9qdBaA35GKA3JnaLjhJT7DU2N3XC+PfLG0AU62ooovDu1ZScUiIVI +5LnTMeeGQ3DxnDos2/gXXf2X6Y+JjZBWmzqE/nAe3+xJRyORNfc/RKpD5pKu +2d7LdEz3G1Nl2aIOY2K/KQm+dAT9b6EJkmrgbHvizbEQOm6O2bNXxEwV/jn0 +0EYqlI7iZbp8/2ioAo9W0/IIk19EjfVel1CFTGEdtct36OjwgVrqP6oCY5/k +UqPu0Zn/U+VppQAVcCKXb7U8pOPMnr95Kq+UwVE01sAomY5/vLT3emspwS7u +tuHNKcz1fLfm9dGUgGuBN/Ark3+yHjQ9s0kJ0psDSs+l0XEq4B7f43eKMHzb +ST44g45ev+aUxIUV4fTi7o3vcuj4t9rpitEbebBva2/GMmY+D59y6ujJwqjA +TnORcjpe4Dl2kkdcFtyMH3RNMVmy6nMY39x28P10ZCCpgo52VjUsrU+2w6P3 +H+bY39DxyTbTo4rs26GhrFT4/Qc6nhNfLzf9iQG7UhOsj7TTcfJIQq3ZPRq8 +HljtJzroeLtNYUbRlQa6MifOsHbS8dp3fnctIxqYJIi45XfR0be/UnOKmwYu +Mff9BXvoGChu8zr/BhWe3AlM7hikY+0r3xn7mxTgveQ4ajtDx7dWm4QCMqTh +xvqtq7KzdLzz7e5ZsXBpWH78kW+eydNtjl+6PKVhtFZhd/A8HeXfZqm/3yMN +NVvnbuX9pqNKbbKzRZcU+Jb7U9lYGFiXpTwtJigF4xyxNsk8DGwXNQvr2isB +DjGGHi4bGLiqkSoULSQBnQqrt3bxMnC9WutU5E9xqDW3za7byMCVAlJDN1Ic +kp/SV2f5GVjj9bzgxsg2sDIqiNURYeCNnX2xCnFiUBdZ/3mIysDjqppdU/Jb +YcnrSXMljYFfHFrPVXJsBcZJr4Y4OoN5nko62fBNBK4T1BpjgjmfS3El/o4I +aJT7FJbLMfDclTB2vhlheDosGxmlysDRwR1pP2qE4KZG8BHdPQwUWxTaK/BI +EAokbIyktBkYYKTCO3hREPrZ1fcvM1lDbzj6h5kgaH3qw7x9DKwklV/f3izI +3L92K4nrM3AqZHRiW+RmsAsb4Z0/yMCUf3WrTeMEAHp161KsGCgp6pPM/YkP +Zl1sPvicYKBdxpo5agEfZKx41ZpYM8dfsi9wiuaDLaJZb9bYMPDe4uk75x34 +YMxMoOyEPQM9ou4SBsub4NHHnixBJ6ZfXUs/UXUTTL+4fPfGJaa+xoYGXq8N +kK5zP8zqMgNbatrYbxpugBOtz0JUvRioO6mjg5IboHaq+1bfFQZ2+t819anl +gcdyOn5avgwsPHDuC6cYDxgm8V2YC2Sg5U63BKFP6yA1LMP41H0GcpvnPAq3 +4wJDd6Fe+QgGbnoTV0ogF0wfDXSeZ/L7f0rJmW1cQEpaB916wEAsMjm0pZMT +2vL4yp8+YiD97R3jB6acwN5+mZiIZ+DX25URWsZrwV5aj+XSM6bftaZ1vi7s +wMVZEMa8JOL3m5cupx1hh+c/JUW5sph5bbYvXtzBDksFS2rRzxnY5xYotnmZ +De7rPT9XkstAm7pcNUYoG1SdF/zy9yUDE/dYPnyQzwqSL79nBb1h4Oel5v0C +4mvg6piHjN1bBurXhEh2s62BTqm10Zo1DCzj4l1q/MECEaGMwIl3DPTi8K+S +f8ECa+2cLU0/MtDAKVq47DALjPEsrJVsZiDH3OD8qshf8pXdOpuXPQz0dNT4 +KLBnmRR8FNsW3stAYx/upo+Cy6R7vZyBUx8D/+5uWHg7+oeU3XVIfdt3BnYE +a2259uAPGb8hkuf6EAOtv08X/R5fIgNfbSs6OM7Ay9474ksyfpOHeJX5h5aY +eW/5oD98eIGMixYUyv3DwE/7LmneVlwgRylLoj7LDCxSH2iy5F0gAzWrqfyr +DDxzT7srpG6efOVotptcQ+CVL80bxA3mSclqL5soTgIjltsj3h+eIycvVT3X +3Uzgt4SBN4E+M6QWW1o+nyCBlp8pHfE2M2TwnZBXX5lM+25a27tvhqSkmFa5 +CxFY8V+TadeGGdKieagtfiuB0Qbt7CmJ02SF3PqVeUkCC0PqX1o2TpH3+kwM +0uQJ/PWEJ79bf5I8vcXH2EWBQGmJJqE1KpOkhkHyMTVFAndeSL61V3SSHCiY +PVOtRGDmRnh26OsvclfQg8AeVQIZqUJPm7f/IrsVvpQJaRD4onL/kEnLOCnn +Y6kUpEuga5TS1+VDP8k1uQE7D+kRGDVyauUx8ZP8PJhBbtEn8ImP+Mhltp+k +36E/hsn7CayMeDb+4eUo2SIdd7bCkMDenauPhqVHySvvvyUtGhMYdLq8vJr1 +B/lui63g2ZMEqths5BQfHiKN47LY99gQWPtYLVz9zRDZLbU0I2xLYN3F8h2B +iUPkvFxEc60dgT+2cd0psxoiKXvf3mWcJjBlrUvD47ZBMsCVWDdynkBPBz2P +7sYB8p/aqdXTVwi0k8/T1fzZT9YakROkN9P/yQ0/7Bv6SdOW4G9bfAgU23bU +/VVuP3muW6a05iqBM1WWigOX+8mYWTMvmj+BIw5TksDdTy5IFs8M3iKwlN8g +4oNyH5nnFTDi8IBAndAnTnx7ekgFM+kzClEEsvNxHI7a3ENmKFUNLjCZMAtw +thzpJpOG13wPfkRgRlnSaHx4N3nfzP9bTiyByrPNWhsHvpHuyn7Ny4kE/tuk +Ybsn6iup/ONqaeRzAo1nh+eSqZ1k5pttmtbZzPzWL1qdZ+kkGQllRfQcApfr +XLIduzpISfOVF8W5BL52eTC6eq+D3PTWJ7e3gOlXNfd/0Ws6yMkE71S5EgI7 +ne1s9Ue/kDkWXuFv3hE4x7bV40lPG6lWSfim1BIoOXtbur+0jSwmOs/dfE/g +0d1/fpvHtJHVSxp6+h+Zfqt9rhk2ayM/xy2vfGwgcGg35dydT63kcu+1cy1t +BHJKXpJ/XtdC6p+9qdv/ncDs6qep7GNNZH2T+o7qAQKr3v8rdftTE2msMSyV +PEggxf9cq0Z+E3l8vf7KqWECH6vEvaF4N5EuWdwFP0aZfhzO5V+/oYmMnAqV +mpoicHdI7NzArkZSxFJrY/M0s18rxVBMopGMrxpfzpth6neMi/ThaCTTIg62 +e8wx6zGPMuKc8oksVtt0d3GRQBMXsz6h7gaSjK/w6fhN4DW1rIecWQ1k9doL +TsVLBJbHuu/U8Wkg67406fgsE5hq2aWTLtpAHsEA1RMrBLaX57yu+1lPfk5X +kSJXmfXgYbZbq7SetOT7zivxl8D0hH0av0PryR6viOW/TA4Qf3WAxbqe/B84 +SQ5P + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.889806601428892}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.889806601428892}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwVl3c8l90bx2WEkkJCZH7XnU1UPO7rShmFhhFJsiopIw+VSEgloxQp4xGy +EtmVmVFSIbOMsrISskno9/39dV7v1znnPp/787mv+5wjZedqfIqVhYUlaA0L +y/9bqZvn2VhYJFH2W1yugdcYrLUtZn3PZCW32Lnli2MwpsnFen+NJO7Vv9SV +6TEGr6aesFDYJPG0i0Ewl9sYHD7RtaK3VhJTWDnss0+Pge+OA4t3eSTxjWum +Z7HJGHT108clRCSRTWLju0q5MXgA3z+DiiRWXW2zd+/8CeU0l/wiR0m8Pf6X +nsf/E5ZuNzg8jJVEa1WdgHLNUdh+SCTNs56pj7P3BGn4AzZqX54OY5PCHN6W +4Gu0EeDMzeRfpy6F+p5/aYUzQ1BgNKdZcV4K1flbrmwNHAQzQ8b8xSQp3P1G +YF337+/A/U7pxr1WKdS06ozY6tYP7q5G24bWSSObkgPr+PNemIiA4HgtaUwR +YUsKW/4G1lvFgsxdpVHfjTVGJrkTrjfw3D2QIo37RSd3BPF+gZLVZqfEL9K4 +Cf3WDra2QLpV1iEVXhnkd3Q9WhPSCEFi7m+r98pgTApQTqp+BB8Lnk1FnjIo +4pqfnHWgBqhVxfYjz2SQLduycyGtEkqbrHLyMmUwrM3/6bpHlWDct7rskyWD +cgr5/9GDKsGPZW8UX7YMHv+pPn3NsRK+kh9rNfJkkMd3q1oGUQmRJV3yYa9k +0CrpqslAVgWwFS4vKL+VQZp9zpd679fQl0aGenfLYPBc6N+YhRJQ4OKoPNoj +g7fZbkv4dZaAj+PHOeVeGRwLFRD1KSsBYcLi5EifDPrLuoS8ul4ChzMuqJgN +ymDhtp5Ybb4SKM9MblcYY/aXOsY9UCqGmNx11P7fMugpn/eH3e8VGJd8LtMX +pOD52uOL+20KgfG2d1ZiCwWzsrc8EN5fCCsNo7ILTDadkdb7o1wI6f2r0SnC +FGSh5NcssxXCKjf9IqsYBfeWH1L5lV4AzywuKZRKU/C7TWLE7fl8YJ8Xeqyo +RMGT9w7fO5KQBy+UjvltMaCg7DGBD39lc8An/IVuD5P9Sq9WVW/NAe1JgQ3p +hhQckvbnesidAw3ZDdG7D1LQ/oRU4eeGbBhU2JdvdYSp92C7TqReNmyWVxxK +MqdgF01bI5d8Du4Eh6GiAwXXU6UFFrQzYddtO/5FJkffij+lRMmE1ZHX7RWn +KLh/+oP4TY5MCE6/csr4DAXnimqv3qx9Bon0SV9PJ+b4DYu/2w89g0ZqV26J +GwV7dHy0C+0zQF46V0j/KgX1a4fv1z9Oh4xmlRopXwq2TJ5woASkA+16gccf +JiukhcxGO6SD5MDLpud+FBw7HzfXS6QDf2p5iGAgBUGifKmrMA0Wibq//cEU +DFKJE3JvSYVq5eHhq48oeM/K2uAaJQWw3zHKPJr5vMcWDf7rUqD0/ug+5RgK +llr17UqYTIYXM+OJA7EU1Kl74qRUlgzphbPHDR5TUC1Eoi7WPBnu7GZtFE6l +YOSy4VTwvSdwbM+2V/n5FGxz5tVWFEmCGr3pOd8CCk6dlXvNxp4EKgffqR4o +pGCiSS5tYiIReI5fyO59QUG5tSou7G8TocLjbeqGYmYeByWndrgnAiPd+cGZ +CgpKVOQ7RTUmwCJvubtoPQUP/rpGVO9+DKcEI3KGmMw7/kL0yebH0CzqOJHb +QEEji5g7Gb/iIZPB76TfyPSbx9FVMTUebLRP23q2UPCr/1HXDYLxUOvJe/hT +BwXTM1O3r/yOg0dfreWvD1FQYOJa+ZueGAgLveR8YJiCHot9uxdex0DAP+FZ +fCMULDouVmKQEAPn4irlE35QMNxll7mlbQyQVhSFsjEKrqr9k7duMBoGu34o +LExT0BdzOeOnH4FKl4fSub/M78O1l6ea+hDoIWFuKixU7NYctVjhfghimqk5 +v5nsFPqS++hEFHDEflEKYqXi+uo8wu5lFLRbaiincFAxlW5v3n8gCnw7/yr3 +rKfifPnwHqdLD+BjR7CqiTAVFYZbAzsHI+Bi57vjsiJUHE7965rwMQKku9gD +2bZS8UFmMvVmbgRc+erbmi9KxY0LeudzrkYAo8fdc7MEFS8+DP3kIxQBNwYs +X7ZRqbj3Vp1f++H7AL+2a1qoUtHoQPzaso5wGP11xl5pBxVZjac5yepwiJpM +DuFSo+KXPI/ezsxwmJgS//pKnYp5Yh3xZ/zCIW6W/6qIBhVzA+gbPjDC4ffv +pfJOpGKD5slS5ZU7kM/+UfvEQSoOWlnoEN6hcPD48SXaISrK8fTHoXkojOb+ +zJ1kcmK42+4A1VCQPskjFXiEiqKnXe9dHwuB+0VGfzNMqdh3/vKMl00IuLs0 +lixaUnH5YVjaxsPBoNTetiPyDFNfBV3rpWEQ1CmcHjvhSMX8VvNLb+SDwPHG +/BP6WaY/B0ZfzvMGQYKKkECJExXN1Fyy3jfdgk1hFlN9zlS80j8iQj12C37t +6cpS9KBidIX98F2Xm/D8WS/tox8VN9l1pcvmB8Iakwc1Kf5Mf2P4K8yiAsF0 +af9pvwAqNmpdr03xCoTf+vkpaoFU3H5cZvEFBsK+oRuUhFvMPG0f/HjUeB06 +JWWlPe9Q8bt30MkdCwGwNspzm0QcFRdio1rirP3hmNb2st9MZku3fKqk6w+Z +A91Wrf9RceVQveigvD8cUdWPu/2Yij9zdHdmr/hBXONW0dkkKj47t2+uOt4P +VNZXCL9/SsVxN8fpmPprYO23bvO/L6m42D9xMWfrVdjVxPpi/ysqGne5yctO ++4CA9B9zySIq9nBPFHe994Ha6p+x9cVUNBe+YvzNywdUOOtlGOVUnJkJ1j/+ +1Rs479xV/faGivyy7zq4n12BnNjNJnrNVPQ++rLZ2/kyBI/xzG1roSJHh+V5 +dYPLcEqL4+Eskwddf4pKEJdha89cZ2IbFWPiFtq8Bi9BoPQXu+V2pv7OmH8P +2lyCY0+j3XN7mHrSdfn3Wl8E1pfi90XHmf6Yrz371csD6k84VX9n8ipL3e0e +aw94xP5i9tkEFX3TuwbY93mAgrGR+T+TVAyvXE4t5PWAY+PeYidmqOjqWTCZ +kfIv5Mh0pMb/pqLJwZKmyg53sA6PKJFaS0PR7FKJiGMXgNjZM/aDydf6rWvu +aV+A2W/bxfM4afjHwKI3S/YCBMtW+Wlz09BOnLtXa9UNCmsmdex5aBiwaVSl +KNkNeFaMGpP5afh6NvLeyrgrFJ3lGqRL0NCU98J0wUln0LC9vMoiScP8GjE3 +Us0ZSi1GhDqZvGS1epJtvTNU6NUeCJWm4ctfzyzJl+ehhhqUM0ml4WxvjIIb +/3lo7eP0KZKjYa3/yja/Fif4dYxTwECDhiY/FM4e8HUEtyOX5CiaNOQo2imd +Y+kI0/rDOitM3nYyTEJ/pyPM73x3OVuLhgcUr7VvmDoDy4K3ugX20LBa/cqv +kdNnYF3z2oyvejSM5b8llXz8NFAPrN3jYkbDurLhBPczDhD18P2PXUdpuFOX +zh9v4ABcg6H32cxpuO9gvfeEogOMXRMYeGRBw/lFus/Koj0UFEreqj7OnC+j +Lfwp1B72SWnWC9vREIQePxMusQOHRddj1S403KRckLZR2RY+66iy3nGl4Rtp +dfbrIragHzGfYeFGwyJJ5W5BVluQU7i6PH6Bhu3ZSY7RLTYwax/8WNiThk3K +9zwELttA4KfkQWdvZj5Xsrttw05CcmrHBeEgGtpO9wXyzlhB/H+9Yj1M/mZQ +9WttnRU8ihx+l3Kbhm7W/K0qKVYQEjC3TTWEhlyBHGwUCytwt+b7YHSHhqfe ++vc5VByHPVv2S1+PpKGZgVMHI8YSum+8ah5PYL4/n8nsugsW0O7z+mpBIg3X +8qkb/D5kAc3/1jC8k2iYYPLSW0DRAt7atvpyJdMw+Kdv0Idxc8jUmtwuk0ZD +/u3Xd2k5m8OVOfp1iywaFjh8W8fhcRSETj1UrS6ioWpDemHmY1OozayqiSmm +4T2fE3+M/E3h8uz4MfcSZp75qoSovSl0Xt/nJ1VGQ+Tr091FN4W4pKm6axU0 +HA2/2XMx1wSkeg1O//OOhoYbhTWa6o1B9jhLdGErDTNy4s0cKUfga5KsXFgb +DfUvPdguuP4IhI4efe3wmYb3p3I+DE0dhgmvrEGBdub6fbpxC68PQ84jSxX3 +Lhr+mhz5/v7EYVD7XPBRoZ+GM6yyFdx4CODI2dW0XzQUcDE0Y/U2hN6JYckL +kzSU+U9rNcHEEPxCT+/VmKJhak2xvqecIVS9sw+qm6bhxR6LlLJuA9Alrfmn +5mjYMclV81bHAA7KmtA0lpn1ut2O/9K2A2DFoXWwjouOy8knRUKm9GAlqcTt +ATcdue9qn7Ns1IN41IiwXkfHVvk2MfNsPej13tk+uZ6OO55dzfzirAcO08p2 +ghvpSAmQHJ8Y04VzPbSL1oJ09Nhp4aQ9owNXijbFT0rR0f/YfqtJ8X3QnJaf +/kGajsP9Q7+esOyD7VFH85Nl6Kiasy88sH8vdLjH1VpQ6fj9bvfkx9S9sEuO +MVPBoOO3RV6R88p7YT4e9O8p0lH9RPi54oPa4B7oMq2sRccBtV/GA2kIH9z5 +VtaTdDwV7LtacQdB2raAc4jJrLRE2WpPhCatJbEYpGPbJnbFnfsQlBZu6LHu +o6Nwv0Br9luAibP/xTUfoKPFmSqzWCMSnA7V6f5rQUcGafjyQLgm5EVU9ZLH +6Eg3jEs7flYTlr68urLOko7FiYbsT7Q1Idgm5XnicTpG1hZ/aZnTgIwLvlsa +relYySX9qdBaA35GKA3JnaLjhJT7DU2N3XC+PfLG0AU62ooovDu1ZScUiIVI +5LnTMeeGQ3DxnDos2/gXXf2X6Y+JjZBWmzqE/nAe3+xJRyORNfc/RKpD5pKu +2d7LdEz3G1Nl2aIOY2K/KQm+dAT9b6EJkmrgbHvizbEQOm6O2bNXxEwV/jn0 +0EYqlI7iZbp8/2ioAo9W0/IIk19EjfVel1CFTGEdtct36OjwgVrqP6oCY5/k +UqPu0Zn/U+VppQAVcCKXb7U8pOPMnr95Kq+UwVE01sAomY5/vLT3emspwS7u +tuHNKcz1fLfm9dGUgGuBN/Ark3+yHjQ9s0kJ0psDSs+l0XEq4B7f43eKMHzb +ST44g45ev+aUxIUV4fTi7o3vcuj4t9rpitEbebBva2/GMmY+D59y6ujJwqjA +TnORcjpe4Dl2kkdcFtyMH3RNMVmy6nMY39x28P10ZCCpgo52VjUsrU+2w6P3 +H+bY39DxyTbTo4rs26GhrFT4/Qc6nhNfLzf9iQG7UhOsj7TTcfJIQq3ZPRq8 +HljtJzroeLtNYUbRlQa6MifOsHbS8dp3fnctIxqYJIi45XfR0be/UnOKmwYu +Mff9BXvoGChu8zr/BhWe3AlM7hikY+0r3xn7mxTgveQ4ajtDx7dWm4QCMqTh +xvqtq7KzdLzz7e5ZsXBpWH78kW+eydNtjl+6PKVhtFZhd/A8HeXfZqm/3yMN +NVvnbuX9pqNKbbKzRZcU+Jb7U9lYGFiXpTwtJigF4xyxNsk8DGwXNQvr2isB +DjGGHi4bGLiqkSoULSQBnQqrt3bxMnC9WutU5E9xqDW3za7byMCVAlJDN1Ic +kp/SV2f5GVjj9bzgxsg2sDIqiNURYeCNnX2xCnFiUBdZ/3mIysDjqppdU/Jb +YcnrSXMljYFfHFrPVXJsBcZJr4Y4OoN5nko62fBNBK4T1BpjgjmfS3El/o4I +aJT7FJbLMfDclTB2vhlheDosGxmlysDRwR1pP2qE4KZG8BHdPQwUWxTaK/BI +EAokbIyktBkYYKTCO3hREPrZ1fcvM1lDbzj6h5kgaH3qw7x9DKwklV/f3izI +3L92K4nrM3AqZHRiW+RmsAsb4Z0/yMCUf3WrTeMEAHp161KsGCgp6pPM/YkP +Zl1sPvicYKBdxpo5agEfZKx41ZpYM8dfsi9wiuaDLaJZb9bYMPDe4uk75x34 +YMxMoOyEPQM9ou4SBsub4NHHnixBJ6ZfXUs/UXUTTL+4fPfGJaa+xoYGXq8N +kK5zP8zqMgNbatrYbxpugBOtz0JUvRioO6mjg5IboHaq+1bfFQZ2+t819anl +gcdyOn5avgwsPHDuC6cYDxgm8V2YC2Sg5U63BKFP6yA1LMP41H0GcpvnPAq3 +4wJDd6Fe+QgGbnoTV0ogF0wfDXSeZ/L7f0rJmW1cQEpaB916wEAsMjm0pZMT +2vL4yp8+YiD97R3jB6acwN5+mZiIZ+DX25URWsZrwV5aj+XSM6bftaZ1vi7s +wMVZEMa8JOL3m5cupx1hh+c/JUW5sph5bbYvXtzBDksFS2rRzxnY5xYotnmZ +De7rPT9XkstAm7pcNUYoG1SdF/zy9yUDE/dYPnyQzwqSL79nBb1h4Oel5v0C +4mvg6piHjN1bBurXhEh2s62BTqm10Zo1DCzj4l1q/MECEaGMwIl3DPTi8K+S +f8ECa+2cLU0/MtDAKVq47DALjPEsrJVsZiDH3OD8qshf8pXdOpuXPQz0dNT4 +KLBnmRR8FNsW3stAYx/upo+Cy6R7vZyBUx8D/+5uWHg7+oeU3XVIfdt3BnYE +a2259uAPGb8hkuf6EAOtv08X/R5fIgNfbSs6OM7Ay9474ksyfpOHeJX5h5aY +eW/5oD98eIGMixYUyv3DwE/7LmneVlwgRylLoj7LDCxSH2iy5F0gAzWrqfyr +DDxzT7srpG6efOVotptcQ+CVL80bxA3mSclqL5soTgIjltsj3h+eIycvVT3X +3Uzgt4SBN4E+M6QWW1o+nyCBlp8pHfE2M2TwnZBXX5lM+25a27tvhqSkmFa5 +CxFY8V+TadeGGdKieagtfiuB0Qbt7CmJ02SF3PqVeUkCC0PqX1o2TpH3+kwM +0uQJ/PWEJ79bf5I8vcXH2EWBQGmJJqE1KpOkhkHyMTVFAndeSL61V3SSHCiY +PVOtRGDmRnh26OsvclfQg8AeVQIZqUJPm7f/IrsVvpQJaRD4onL/kEnLOCnn +Y6kUpEuga5TS1+VDP8k1uQE7D+kRGDVyauUx8ZP8PJhBbtEn8ImP+Mhltp+k +36E/hsn7CayMeDb+4eUo2SIdd7bCkMDenauPhqVHySvvvyUtGhMYdLq8vJr1 +B/lui63g2ZMEqths5BQfHiKN47LY99gQWPtYLVz9zRDZLbU0I2xLYN3F8h2B +iUPkvFxEc60dgT+2cd0psxoiKXvf3mWcJjBlrUvD47ZBMsCVWDdynkBPBz2P +7sYB8p/aqdXTVwi0k8/T1fzZT9YakROkN9P/yQ0/7Bv6SdOW4G9bfAgU23bU +/VVuP3muW6a05iqBM1WWigOX+8mYWTMvmj+BIw5TksDdTy5IFs8M3iKwlN8g +4oNyH5nnFTDi8IBAndAnTnx7ekgFM+kzClEEsvNxHI7a3ENmKFUNLjCZMAtw +thzpJpOG13wPfkRgRlnSaHx4N3nfzP9bTiyByrPNWhsHvpHuyn7Ny4kE/tuk +Ybsn6iup/ONqaeRzAo1nh+eSqZ1k5pttmtbZzPzWL1qdZ+kkGQllRfQcApfr +XLIduzpISfOVF8W5BL52eTC6eq+D3PTWJ7e3gOlXNfd/0Ws6yMkE71S5EgI7 +ne1s9Ue/kDkWXuFv3hE4x7bV40lPG6lWSfim1BIoOXtbur+0jSwmOs/dfE/g +0d1/fpvHtJHVSxp6+h+Zfqt9rhk2ayM/xy2vfGwgcGg35dydT63kcu+1cy1t +BHJKXpJ/XtdC6p+9qdv/ncDs6qep7GNNZH2T+o7qAQKr3v8rdftTE2msMSyV +PEggxf9cq0Z+E3l8vf7KqWECH6vEvaF4N5EuWdwFP0aZfhzO5V+/oYmMnAqV +mpoicHdI7NzArkZSxFJrY/M0s18rxVBMopGMrxpfzpth6neMi/ThaCTTIg62 +e8wx6zGPMuKc8oksVtt0d3GRQBMXsz6h7gaSjK/w6fhN4DW1rIecWQ1k9doL +TsVLBJbHuu/U8Wkg67406fgsE5hq2aWTLtpAHsEA1RMrBLaX57yu+1lPfk5X +kSJXmfXgYbZbq7SetOT7zivxl8D0hH0av0PryR6viOW/TA4Qf3WAxbqe/B84 +SQ5P + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.889806601428892}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.889806601428892}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{{3.9919642330912876`*^9, 3.991964236757889*^9}, { + 3.991965183952503*^9, 3.991965188526533*^9}, 3.993137653918981*^9}, + CellLabel->"Out[20]=",ExpressionUUID->"a15ff009-1b6a-4666-8be3-f36363556706"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R1", ",", "a1", ",", "x1", ",", "r", ",", + "b1"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "8", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "1.2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}]], "Input", + CellChangeTimes->{{3.9919642544864635`*^9, 3.991964272002693*^9}, { + 3.991965198532404*^9, 3.991965201015888*^9}}, + CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.0285007968743203`"}], ",", + RowBox[{"bb0", "\[Rule]", "0.6825258812945496`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964272691372*^9, 3.99196520714266*^9}, + CellLabel->"Out[27]=",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.03"}]], "Input", + CellChangeTimes->{{3.991964278686388*^9, 3.9919642789396744`*^9}, + 3.991965211114523*^9}, + CellLabel->"In[28]:=",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], + +Cell[BoxData["1.03`"], "Output", + CellChangeTimes->{3.991964280066925*^9, 3.991965218521267*^9}, + CellLabel->"Out[28]=",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "0.68"}]], "Input", + CellChangeTimes->{{3.991964284161188*^9, 3.9919642845938396`*^9}, { + 3.9919652166473465`*^9, 3.991965216788891*^9}}, + CellLabel->"In[29]:=",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], + +Cell[BoxData["0.68`"], "Output", + CellChangeTimes->{3.991964285066065*^9, 3.9919652203929043`*^9}, + CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l22", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], "]"}], + SuperscriptBox["p0", "2"]], "}"}], "/.", + RowBox[{"R1", "\[Rule]", "R01"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a1", "\[Rule]", "0.55"}]}], "/.", + RowBox[{"x1", "\[Rule]", "0"}]}], "/.", + RowBox[{"b1", "\[Rule]", "b1"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "4", ",", "11"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, + CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519993740715*^9, + 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ +f05e39e52441"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l11", ",", "l22"}], "]"}]], "Input", + CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519995212555*^9, + 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ +f5e698425a9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9, {3.993137659792347*^9, 3.993137660608603*^9}}, + CellLabel->"In[21]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = + 1.1150000000000002`, $CellContext`xmax$$ = 12.64, $CellContext`xmin$$ = + 7.72, $CellContext`ymax$$ = 0.907, $CellContext`yyv$$ = 2.605, + Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.7, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.7, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9, + 3.993137661966765*^9}, + CellLabel->"Out[22]=",ExpressionUUID->"f1652746-e7a6-46a2-8565-b3bcbfa37e7c"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"b0", ",", "y", ",", "bb0", ",", "yy", ",", "r"}], "]"}]], "Input", + CellChangeTimes->{3.9918427409143257`*^9}, + CellLabel->"In[23]:=",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}]}], "]"}]}]], "Input", + CellLabel->"In[24]:=",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1nc41t8bB3AhiZZERHn2sMdXIs65ZQuFyE4JTSIKSWbJCJFUksrKiCiU +6AnZhIQUISslo2zp9/z++lyv63POdd/nff9xDvGYu5kzJwcHh9EaDo7/f5PL +iicEawggeSJSKK0zGEseEM30bibASudllyyLYDzXoMtr0kKAbSH4bZReMH6r +63WS9p4AU0M7+y6pBmMr9F6qq5UAvqr/NPx2BuOrMmEFezoIcIOoUTw3HIS/ +8U+/XO4hQOgn1t1RnyCcXFfXFDRGgJL7jAnPjEC8eZ/PTDQXEQjC1UO7NAJw +g+Di4GFuIoxiQX8HegC+Ouz7gbiWCH4VuvfyBALwavil5y94iJBOeKbjN3IZ +/3ofcKF3PRE4BWJ3NMVexs32YUvSW4jQ+uGqnf6YP470vcnZJE4ELqPMAOtH +l/C6Z7lb+XYTQVhlSTUTfLHfB9MfQ2wH7kzaNSPti3/OzlW9USGCgo6ykZGo +L25X0/T2ViVCReFDc9kZH5xc/bGrX50InWfuNGem+WDF7tXkEi0i5E9utHfZ +4IMd/h2kO5sSQS1yM6Fq5AJ+bjy7l3WGCI0qR9sfVHvhp6J9wrfPEsH9ut7r +Z8+98JPhmumzbkT4uuTa8j7NC6dcTsoUO0cEj4ePdOXDvHB43l7Bi+eJ8Hv1 ++rUgXS9stzF4XMaPXa/7irN943nM3bzpzr1rRIjpO/fmda8ntjBizF14RIRD +t0y1gOyBwe24I35MhLiEkJ1Lwh5YMja1YV0aEZqguPQ1nwfm6BB5kJROBLjm +IGo3cw7n2q7Xf5VFBOpFjy7OynOY8/T4nb9PidCsZjwzfuwczr+eqxFaRoSe +YJnSeQt3vL5WPiyugwi9eRKyb9LP4GzVuK5TH4kQdLzwlH/MGWyUO83U7iTC +FUuxIUPfMzg2rrBlroudzzVvKzHjM1jY7j8Ru89ESDF+3Bk+expTplVyaINE +UI9SqY4wOI2RGG4rmyTCPWIVavt7Enu6G+8c4SPBjk8fnCsSXDH3njX/CvhJ +IPzdiic1xBUncrzov7SBBMnkXfw3PF3xqzjxNIFNJKjRqtoZc9AVcz7/Iakh +QIKIVFN3ykZXHLdwfU/CdhLwHekTTgh3wQVBNeb7KCQIN/S13B/ujH/F44gU +DRL0NKlIGD1xwrw8Km7OiASa8Xe0je45YZKPrJk0JoHVoXxby2gnbGG3c8cr +YPdzsHdfuIcTfk1ZfvJRiwSRDY8Vjqk54YgXxfUbDEnQKtcVMtZ8DNO6ZNZf +siQBa+1q9OaVo9hhh3j4YXcS+DXmcdmed8SyvSqH5M6RwERTNyXNxRH/e2BO +WOdBgp8Nr3gWrB1xKjWytNiTBBOau8ivwREPyi+NCV0gwRM1m9LSTY7YVa/b +oMOfBNV4d8mi1RF8ziuB3zSCBGuy1CpXeu1xSMuGGMN0dj4ytXXvxG2x9uil +ccEMEvDc72nbvd4Wc3P80Olle0r859SLWRt8VaF+xT2LBPysFP2+FhsckRB2 +6lYOCZwP/NDuDLLBcTarOv3PSMDc1FBuM26NH4xMrnhXkCB1qCzM450VLltt +P/WwiwTFW5MONj60xIonXJ5e6iZB1dkagkisJc5uW5y2+ESCw1OtVZ4Blvhu +GsGX7zMJ6A0eh01tLbGPodu1830kmFy6eL1QyBLvTlyfpjPMzo9Xp3s5ygIX +ykDv9xkS3Ld+U3M07BDOsss7oLiJDHkXT2SY3jPDWe6ht3g3k6HkmnfAumgz +nBls+7mPbW/FCqO6ADOckbXeNVKADGuP+mafOmaG0/44BwxtI4OoqUaQgqQZ +To3alZcoRgY/9yFnVpkpTnodw7fMIIOK27nU7JGDOFzc812VFhky/Sb2cj43 +wT5hyXcjtclgWrx9mTPFBJ/4VeNurkMG5L3gIxhugvVYYju+6ZLhYMFIiJOd +CeY5/s6N05AMex97369Ya4LDckRENA+S4XK5qcJhW2McrPbmVIUdGY7sFeOu +ETDC/lYbtrz0JgPOAa1DTwwwaattc9wFMtzh5rVwumWA6xufRJy6SAbaUv5g +UJABFsZ6a8V9ybBamKE5YW2An1GDlwL8yaBEtGJd4jfAIzPzQ9ohZEi/Qzh3 +1kMfH4z+9rI1lgy1a7f9NNPXw9TKV05jOWToDz1kWy6hg1+32RUU5pKhqzxj +56ktOthsYHXFP48M88GuK8Q1OjiQQytRIJ8MDqv8k4WD2vgLaqxTKyTDNVPe +eqsMbZxQ9lkmupQMnN8GnfLktDHXi5V5hXdkKD28aVXLUAsPZKKoS31k+Fi5 ++uvqfU0sy7v2reVXMpBEJ/7kxWhi/xONswr9ZNjtuePL1yBNLMK0OjI2QIaW +/i3Sx1008cFsD0WLYXa9+YWhCTlNXJGb1i37kwz/uVQeX60GfPcZH3VwkQwv +OyKDnk9gbFbWWa4vRAHKQIzAjUl1zHjX/0dCmALW+8+jPZ/U8d+Wcal5tp1J +Uxm/K9Vx1uDqnXQRCixQ7s/eT1THq+vpFzjFKZD0+KDIG6SOc6wuyr4mUeCZ +TQov4+ZezD23/YGcPAV6qkQN9uqo4WJ560Dh/RRYHSnSfP1JBfvHFut+ZVvZ +2LzsRp0K3jcluDHLiAKSmjzxZ0tUcEt+yx1VEwqE/xBSPXhLBQ/LahfZmVJg +wy/DE1mmKnibjNzIo8MUuB+8Nye5aTf2ZK41kjtOAYkL+Q1WjcpYhvRsu/5l +Cpy8rmtjPq6Es9sVa4gBFLipqnG6pkcJ00Keey2znd9V9ECnUQkThkrangZS +4IqRnvGJXCW8NaMiUiiUAje2FhRpuCvhBWbTv8EICjx0LI0gzCviKoXR0ctJ +FOiU8qm8ulkRW2vuLC0qokBf2p6FX47yuEZvZjbgOft89itFfw/JY0WTWiXD +F+z+xo9ThAzk8QZbj/z+Ygpsn6hf76Agj1le7zI2vqLAoPXp3Yc55TEj6+wt +VxYF3hqHalftl8MLmyo8xZopoPQkcavViAxO+uIgEzJCgYrdzoMphlI4Ouri +WcNRCsiUpBuJq0jhYPXYPIExClw+8TQrkyyFTye/lUn9TgGNRZ1NYyuSGNlR +ZMt/UuDLbhu/TQWSePjzd9n5GQpkJ0RofReRxIqfveRP/6NAx7j9ufg/DNz4 +KULJXIQKKkozzcVtNHyhp9ZWSpQK6heVS7lZNEz6zB3KtYMKo7Q2G8enNOz3 +JaCjSIwKwTWxKRBJw4yvnt7bJKgg1+C98FiHhsOGbEo+UqmQ6pDb/vM1FeNJ +yb1WSlTYLBKWjV9QcBF34z57Eyq8jzzkUdtAwia2tku0A1SQZbgmyJST8Piz +H8+m2G6sZcTczydh0pENxFBTKgyW7Ju8m0DCN18a/8s+RAWq2/N4viMk7OnW +WrZgQwWDW9bGJbNELN/98b8EVyr7vr8ULixJxE9z+mmNgVT4+/6R6oKNBF5j +fqsmPYgKQ0lUHcd9EvjQkoFLYDAVfDuN735mSuBF/aJ05VD2+qfiw/yLu7D2 +SBgl9RoVpP2lrEyTduEeghTJ+wYVdFXlio/17MQ8id47JZKp4ByVWq56Rhw7 +BPJtO19CBaX59akFVaJ4TxtnsUEpFXhOfvH/lC+KBUnLhwkvqdAZmpgqkCyK +66p+3Gt+RYVLj99E53uJYsV1zWRGBRW+MlpLUmmieN2NGKXeaiosfrwpZxIt +ggvubTPXa6fCCVOPB1edt2POkl03xSaoYGJGbNqChdjvx1NV39hObbyT0ywn +hJO4i//k/KLCrh/BQbcIQljWzPiw+hR7nuWy0zqcQth64pK4/W8q6L/p5WbW +bMMF5E8ZKYvsPDdeUJk+sA07xMaXEXlo8E65qPTQaUH88iTvMF2CBqyvUfxt +bwSw2lGfVQ4CDY7oXS37+0wAv7Ya297D9ihVXl45TQCz9OoMo0g0yPHdolsd +LoBrqOEFU1QaZB9pUTtmJoA7Btb5v5SmwVHxcsHE0S140nqd4H41GrwZ9ZZK +F92CqYY8mm4WNFDGeceOK2/Eibfrv++xpIHvEfP3NMJGzDscdZPrMA2i+hfy +Fvg24p9XBIeSrGigkeuQ0NC/AT9/QbhWZUsD6zZqMzV6A9Ym7m0WOUYDjtD7 +OgVj/Pj4grt1lRsNWh9IZddn8+G0jE8eIuE0aL7us6vBihen3O8X/8r24c6B +Ejc9XpyUMFqbfp0GJrsHCiR28+LI4NmdSpE0WDPjmJIhyIs9HQQajG+w/2cu +eei9X4c1hQ1IIQk0mJTMPd6svw73hZW2T6TSQMzDYE2+Ng/e7nxbqeolDWTu +TJVzOHDjutzKmruvaPB+fqgSm3Bjnz8T1p5lNEiSUZqPQNy4J0Q7kFhOA4Uj +inU6Etw4+dF00xUWDb75Z641GuDCxP79Luq1NDAdcv5405ULS9ly3HnRQYOB +1ErPBn9OjE1PrmZO0qB7dcHoby0H7v81SvCYosGXeLO0/jIOHBjloqU2TQOJ +wrCXTfkcuLLWKbxphgaLi8D95jYH1kUOW6dn2fP5G3qa/wQHNpEyp6mt0ECa +s1UQ8XFgu7UaJk28dPiT/iOG9WQV+b3ckjJFpEOw5QfDNK4V1J5ZlNVAooPz +QbPMlxPLSDLRsiiNTIe7AuLM/q5l9Mkzuc6KSofogd8ujrnLaI804zeLQQcz +pVeW0pbLaC4F68fJ0aG3tT5wJHcJeYa6zSho0GHOsnn4ussiOnWgSfe8FR2o +Orz6X9bNo8L4yn5kTYdP3N/e8M7PoaWuUj8+Gzq8dKwO1hyZQxGO6U8f2tLB +Xu7Fu67qOZTtESDc6kAH2wPeuonBc+hHvPyItDMdBIeGfc055tCZ7oSwEQ86 +9AXdlrzJPYvOHrWvto6kQ619xNRB2d9I/cBtR2IUHXi1Hj6JJ/xGGzTaVsbY +To4TV+vf+hvliugo+9ygw/V9gu8S52fQz/fSGYlxbDf0Vfi8nUGn0Mq1D7fp +MO+hrsB3eAadELu33ziNDk47FqKUrk8jp4/d7VDO7vfk/kgl3ik0LqhyWLSC +DqHyN8QD5ifRObNbn6fZ9hNJ8c/qm0QB702HHrHosKl/apNK3iRKqm+Y5a6m +g3DZgR7V/ZOopfy1SH0DHezOKhHrI36hPRmpDqbddMiOzTv9ZPsE2nTxxPjR +33TYzxOVdMZ5HIXx71iV+kOHFv3HPvpm42jlQaPAHNvTF1ZVFfE4Gq+TVY2Y +o4Nrsc4eOdFxVLNj9lrhIh0CpAX5W5q/o4CKICoXBwOKOmWPJqp+RxNr7zmm +bWDAmoFb/zaKjaGmhObOESoDZIixS7FcI2jJ93H7WxoD0uL8FrVnhhHjiG9L +Mp0BIZujY3gGhlEIk1pjxmSA/35/y8KKYaRW4f+iQpoBSnWJtBy/YfRkVCoh +UYkBP9oCH4vMDqGrahGmupoMEFGftrr3+xvC/bpN6XYM8IgTSxcTGkR/3Bwb +/O3Z9SkdDxjrBlH2X986cwcGaJEO2MPiABIWy6te48iAV8kO/2J6B9BPC8Fy +eycG0J/yLj7NGEBJjV/zhE4xYPysR+qQ2gCaKfaJCbvIgAS1jD9zp/pRRnS2 +mfNNBtg4cP0Rbe1FRp7b+2XiGbBp7see9Fe9aMYy9Owc2zOZPb9wei9CBIfw +a7cYcLTNIeixXy/6WChQ8SSJAd3bWvlJtF7E3e3D/JXCgL3k57TfV74gJ5Ie +x8UcBlBk9sTcRZ8RoeRbXng1A9wtuB68Ge5Gl396kY+9YwBB6rGzWXs36iHy +3Nlbw54H8+mhPxXdKD6KEfqrlgE1PCx/56RuxHPsrM2hRgbI/TeZs7y/G/3c +MM9DaGeAbj22n3jRhUqP8TmWfGVA9Jzk7cSETnRgk8LWkSUG5CnsWvvQrwMl +3xHa/myZAZUPXe+/ON2BxilLYv4rDAizVt320a4Dhe6tom5dZQAMt1z+D3eg +0hMWqmgNE5LcvY97cXcgQpWvY+I6JjhdXMmfjv2Api5WPtXdxgSlbtux3Gft +KG7AfH+mDBPSo6e/Rm1pQy7C/mZuskwYd5p9bcfdhtT2p1kryzFh+cB5E+WF +VjT0/I9rlTwTFBy5LnD0t6I94bdCvyoxYZ3oBcnV/FbUJ9tVvl2NCdeldryP +M21F0v428uG6TLiZM67Wr/we1QofFTp5hAmGmgyrGxFNyCw5j1vTkQllQ97S +Hl5NqI+49FvkKBP09baQnR2a0Jx0fHvdMSacjxPbF6jYhCha72IYLky47GnX +GfS5EQW7M/nGzjCB+Md2MkO+EanXTa+6+DEhOhjnSYzWo0Lf4LHjt5igKzjF +JAbXIlkLkqtsIhMOXq/KIHrUomz5yuF5tiecud1kHWvRo9E13yKSmKAaol96 +BtWimxZBvQX3mLDTI0n70nIN8lQIbF95yITn8rtud1+sQQrfL79OeMoEj83x +mla+71CBlW9sdS07L5VWx9T7VUj5LTMgvY4Jd0oN6xujq9ArZs/pq/Xs/CRM +F7gCqlDVkpqefiMTTps3Bd51qEKdySt/G1uYcOBdl/gRQhVa6b9y+sNHJmQE +bc7UyKhE+iev6g5+Y+/fzPzEV/YWNbft/q9qiAldk33FZblvkZnaKDFtmAmT +8R8IPilvkS2//l/nUSaEpKl6CQa/RW55659/H2eCq1y/0AeDtyhhOoo4Pc2E +3DQpbbfPLCRqo7G5fYYJ50qrbn9oZqGUyomVwt9MuNYyP6zFYqHMeJNur1km +DOIGE510FnqlvCVmYYEJnIJVtg3uLIRSWP6fFplQUlIUffUYC1XxeJx6tcSE +xSCql7EFCzV1ten4rzAhdJhbfVmNhUwhWMn+LxOshWHDoAwLdWYpEtEqExJi +b7t9ILCQjcC3TRL/mGDhHmLzXpCFvvrGr/xj+2d+cO1HHhb6H1B9Rbc= + "]]}, + 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:eJwV1nc41t8bB3AhiZZERHn2sMdXIs65ZQuFyE4JTSIKSWbJCJFUksrKiCiU +6AnZhIQUISslo2zp9/z++lyv63POdd/nff9xDvGYu5kzJwcHh9EaDo7/f5PL +iicEawggeSJSKK0zGEseEM30bibASudllyyLYDzXoMtr0kKAbSH4bZReMH6r +63WS9p4AU0M7+y6pBmMr9F6qq5UAvqr/NPx2BuOrMmEFezoIcIOoUTw3HIS/ +8U+/XO4hQOgn1t1RnyCcXFfXFDRGgJL7jAnPjEC8eZ/PTDQXEQjC1UO7NAJw +g+Di4GFuIoxiQX8HegC+Ouz7gbiWCH4VuvfyBALwavil5y94iJBOeKbjN3IZ +/3ofcKF3PRE4BWJ3NMVexs32YUvSW4jQ+uGqnf6YP470vcnZJE4ELqPMAOtH +l/C6Z7lb+XYTQVhlSTUTfLHfB9MfQ2wH7kzaNSPti3/OzlW9USGCgo6ykZGo +L25X0/T2ViVCReFDc9kZH5xc/bGrX50InWfuNGem+WDF7tXkEi0i5E9utHfZ +4IMd/h2kO5sSQS1yM6Fq5AJ+bjy7l3WGCI0qR9sfVHvhp6J9wrfPEsH9ut7r +Z8+98JPhmumzbkT4uuTa8j7NC6dcTsoUO0cEj4ePdOXDvHB43l7Bi+eJ8Hv1 ++rUgXS9stzF4XMaPXa/7irN943nM3bzpzr1rRIjpO/fmda8ntjBizF14RIRD +t0y1gOyBwe24I35MhLiEkJ1Lwh5YMja1YV0aEZqguPQ1nwfm6BB5kJROBLjm +IGo3cw7n2q7Xf5VFBOpFjy7OynOY8/T4nb9PidCsZjwzfuwczr+eqxFaRoSe +YJnSeQt3vL5WPiyugwi9eRKyb9LP4GzVuK5TH4kQdLzwlH/MGWyUO83U7iTC +FUuxIUPfMzg2rrBlroudzzVvKzHjM1jY7j8Ru89ESDF+3Bk+expTplVyaINE +UI9SqY4wOI2RGG4rmyTCPWIVavt7Enu6G+8c4SPBjk8fnCsSXDH3njX/CvhJ +IPzdiic1xBUncrzov7SBBMnkXfw3PF3xqzjxNIFNJKjRqtoZc9AVcz7/Iakh +QIKIVFN3ykZXHLdwfU/CdhLwHekTTgh3wQVBNeb7KCQIN/S13B/ujH/F44gU +DRL0NKlIGD1xwrw8Km7OiASa8Xe0je45YZKPrJk0JoHVoXxby2gnbGG3c8cr +YPdzsHdfuIcTfk1ZfvJRiwSRDY8Vjqk54YgXxfUbDEnQKtcVMtZ8DNO6ZNZf +siQBa+1q9OaVo9hhh3j4YXcS+DXmcdmed8SyvSqH5M6RwERTNyXNxRH/e2BO +WOdBgp8Nr3gWrB1xKjWytNiTBBOau8ivwREPyi+NCV0gwRM1m9LSTY7YVa/b +oMOfBNV4d8mi1RF8ziuB3zSCBGuy1CpXeu1xSMuGGMN0dj4ytXXvxG2x9uil +ccEMEvDc72nbvd4Wc3P80Olle0r859SLWRt8VaF+xT2LBPysFP2+FhsckRB2 +6lYOCZwP/NDuDLLBcTarOv3PSMDc1FBuM26NH4xMrnhXkCB1qCzM450VLltt +P/WwiwTFW5MONj60xIonXJ5e6iZB1dkagkisJc5uW5y2+ESCw1OtVZ4Blvhu +GsGX7zMJ6A0eh01tLbGPodu1830kmFy6eL1QyBLvTlyfpjPMzo9Xp3s5ygIX +ykDv9xkS3Ld+U3M07BDOsss7oLiJDHkXT2SY3jPDWe6ht3g3k6HkmnfAumgz +nBls+7mPbW/FCqO6ADOckbXeNVKADGuP+mafOmaG0/44BwxtI4OoqUaQgqQZ +To3alZcoRgY/9yFnVpkpTnodw7fMIIOK27nU7JGDOFzc812VFhky/Sb2cj43 +wT5hyXcjtclgWrx9mTPFBJ/4VeNurkMG5L3gIxhugvVYYju+6ZLhYMFIiJOd +CeY5/s6N05AMex97369Ya4LDckRENA+S4XK5qcJhW2McrPbmVIUdGY7sFeOu +ETDC/lYbtrz0JgPOAa1DTwwwaattc9wFMtzh5rVwumWA6xufRJy6SAbaUv5g +UJABFsZ6a8V9ybBamKE5YW2An1GDlwL8yaBEtGJd4jfAIzPzQ9ohZEi/Qzh3 +1kMfH4z+9rI1lgy1a7f9NNPXw9TKV05jOWToDz1kWy6hg1+32RUU5pKhqzxj +56ktOthsYHXFP48M88GuK8Q1OjiQQytRIJ8MDqv8k4WD2vgLaqxTKyTDNVPe +eqsMbZxQ9lkmupQMnN8GnfLktDHXi5V5hXdkKD28aVXLUAsPZKKoS31k+Fi5 ++uvqfU0sy7v2reVXMpBEJ/7kxWhi/xONswr9ZNjtuePL1yBNLMK0OjI2QIaW +/i3Sx1008cFsD0WLYXa9+YWhCTlNXJGb1i37kwz/uVQeX60GfPcZH3VwkQwv +OyKDnk9gbFbWWa4vRAHKQIzAjUl1zHjX/0dCmALW+8+jPZ/U8d+Wcal5tp1J +Uxm/K9Vx1uDqnXQRCixQ7s/eT1THq+vpFzjFKZD0+KDIG6SOc6wuyr4mUeCZ +TQov4+ZezD23/YGcPAV6qkQN9uqo4WJ560Dh/RRYHSnSfP1JBfvHFut+ZVvZ +2LzsRp0K3jcluDHLiAKSmjzxZ0tUcEt+yx1VEwqE/xBSPXhLBQ/LahfZmVJg +wy/DE1mmKnibjNzIo8MUuB+8Nye5aTf2ZK41kjtOAYkL+Q1WjcpYhvRsu/5l +Cpy8rmtjPq6Es9sVa4gBFLipqnG6pkcJ00Keey2znd9V9ECnUQkThkrangZS +4IqRnvGJXCW8NaMiUiiUAje2FhRpuCvhBWbTv8EICjx0LI0gzCviKoXR0ctJ +FOiU8qm8ulkRW2vuLC0qokBf2p6FX47yuEZvZjbgOft89itFfw/JY0WTWiXD +F+z+xo9ThAzk8QZbj/z+Ygpsn6hf76Agj1le7zI2vqLAoPXp3Yc55TEj6+wt +VxYF3hqHalftl8MLmyo8xZopoPQkcavViAxO+uIgEzJCgYrdzoMphlI4Ouri +WcNRCsiUpBuJq0jhYPXYPIExClw+8TQrkyyFTye/lUn9TgGNRZ1NYyuSGNlR +ZMt/UuDLbhu/TQWSePjzd9n5GQpkJ0RofReRxIqfveRP/6NAx7j9ufg/DNz4 +KULJXIQKKkozzcVtNHyhp9ZWSpQK6heVS7lZNEz6zB3KtYMKo7Q2G8enNOz3 +JaCjSIwKwTWxKRBJw4yvnt7bJKgg1+C98FiHhsOGbEo+UqmQ6pDb/vM1FeNJ +yb1WSlTYLBKWjV9QcBF34z57Eyq8jzzkUdtAwia2tku0A1SQZbgmyJST8Piz +H8+m2G6sZcTczydh0pENxFBTKgyW7Ju8m0DCN18a/8s+RAWq2/N4viMk7OnW +WrZgQwWDW9bGJbNELN/98b8EVyr7vr8ULixJxE9z+mmNgVT4+/6R6oKNBF5j +fqsmPYgKQ0lUHcd9EvjQkoFLYDAVfDuN735mSuBF/aJ05VD2+qfiw/yLu7D2 +SBgl9RoVpP2lrEyTduEeghTJ+wYVdFXlio/17MQ8id47JZKp4ByVWq56Rhw7 +BPJtO19CBaX59akFVaJ4TxtnsUEpFXhOfvH/lC+KBUnLhwkvqdAZmpgqkCyK +66p+3Gt+RYVLj99E53uJYsV1zWRGBRW+MlpLUmmieN2NGKXeaiosfrwpZxIt +ggvubTPXa6fCCVOPB1edt2POkl03xSaoYGJGbNqChdjvx1NV39hObbyT0ywn +hJO4i//k/KLCrh/BQbcIQljWzPiw+hR7nuWy0zqcQth64pK4/W8q6L/p5WbW +bMMF5E8ZKYvsPDdeUJk+sA07xMaXEXlo8E65qPTQaUH88iTvMF2CBqyvUfxt +bwSw2lGfVQ4CDY7oXS37+0wAv7Ya297D9ihVXl45TQCz9OoMo0g0yPHdolsd +LoBrqOEFU1QaZB9pUTtmJoA7Btb5v5SmwVHxcsHE0S140nqd4H41GrwZ9ZZK +F92CqYY8mm4WNFDGeceOK2/Eibfrv++xpIHvEfP3NMJGzDscdZPrMA2i+hfy +Fvg24p9XBIeSrGigkeuQ0NC/AT9/QbhWZUsD6zZqMzV6A9Ym7m0WOUYDjtD7 +OgVj/Pj4grt1lRsNWh9IZddn8+G0jE8eIuE0aL7us6vBihen3O8X/8r24c6B +Ejc9XpyUMFqbfp0GJrsHCiR28+LI4NmdSpE0WDPjmJIhyIs9HQQajG+w/2cu +eei9X4c1hQ1IIQk0mJTMPd6svw73hZW2T6TSQMzDYE2+Ng/e7nxbqeolDWTu +TJVzOHDjutzKmruvaPB+fqgSm3Bjnz8T1p5lNEiSUZqPQNy4J0Q7kFhOA4Uj +inU6Etw4+dF00xUWDb75Z641GuDCxP79Luq1NDAdcv5405ULS9ly3HnRQYOB +1ErPBn9OjE1PrmZO0qB7dcHoby0H7v81SvCYosGXeLO0/jIOHBjloqU2TQOJ +wrCXTfkcuLLWKbxphgaLi8D95jYH1kUOW6dn2fP5G3qa/wQHNpEyp6mt0ECa +s1UQ8XFgu7UaJk28dPiT/iOG9WQV+b3ckjJFpEOw5QfDNK4V1J5ZlNVAooPz +QbPMlxPLSDLRsiiNTIe7AuLM/q5l9Mkzuc6KSofogd8ujrnLaI804zeLQQcz +pVeW0pbLaC4F68fJ0aG3tT5wJHcJeYa6zSho0GHOsnn4ussiOnWgSfe8FR2o +Orz6X9bNo8L4yn5kTYdP3N/e8M7PoaWuUj8+Gzq8dKwO1hyZQxGO6U8f2tLB +Xu7Fu67qOZTtESDc6kAH2wPeuonBc+hHvPyItDMdBIeGfc055tCZ7oSwEQ86 +9AXdlrzJPYvOHrWvto6kQ619xNRB2d9I/cBtR2IUHXi1Hj6JJ/xGGzTaVsbY +To4TV+vf+hvliugo+9ygw/V9gu8S52fQz/fSGYlxbDf0Vfi8nUGn0Mq1D7fp +MO+hrsB3eAadELu33ziNDk47FqKUrk8jp4/d7VDO7vfk/kgl3ik0LqhyWLSC +DqHyN8QD5ifRObNbn6fZ9hNJ8c/qm0QB702HHrHosKl/apNK3iRKqm+Y5a6m +g3DZgR7V/ZOopfy1SH0DHezOKhHrI36hPRmpDqbddMiOzTv9ZPsE2nTxxPjR +33TYzxOVdMZ5HIXx71iV+kOHFv3HPvpm42jlQaPAHNvTF1ZVFfE4Gq+TVY2Y +o4Nrsc4eOdFxVLNj9lrhIh0CpAX5W5q/o4CKICoXBwOKOmWPJqp+RxNr7zmm +bWDAmoFb/zaKjaGmhObOESoDZIixS7FcI2jJ93H7WxoD0uL8FrVnhhHjiG9L +Mp0BIZujY3gGhlEIk1pjxmSA/35/y8KKYaRW4f+iQpoBSnWJtBy/YfRkVCoh +UYkBP9oCH4vMDqGrahGmupoMEFGftrr3+xvC/bpN6XYM8IgTSxcTGkR/3Bwb +/O3Z9SkdDxjrBlH2X986cwcGaJEO2MPiABIWy6te48iAV8kO/2J6B9BPC8Fy +eycG0J/yLj7NGEBJjV/zhE4xYPysR+qQ2gCaKfaJCbvIgAS1jD9zp/pRRnS2 +mfNNBtg4cP0Rbe1FRp7b+2XiGbBp7see9Fe9aMYy9Owc2zOZPb9wei9CBIfw +a7cYcLTNIeixXy/6WChQ8SSJAd3bWvlJtF7E3e3D/JXCgL3k57TfV74gJ5Ie +x8UcBlBk9sTcRZ8RoeRbXng1A9wtuB68Ge5Gl396kY+9YwBB6rGzWXs36iHy +3Nlbw54H8+mhPxXdKD6KEfqrlgE1PCx/56RuxHPsrM2hRgbI/TeZs7y/G/3c +MM9DaGeAbj22n3jRhUqP8TmWfGVA9Jzk7cSETnRgk8LWkSUG5CnsWvvQrwMl +3xHa/myZAZUPXe+/ON2BxilLYv4rDAizVt320a4Dhe6tom5dZQAMt1z+D3eg +0hMWqmgNE5LcvY97cXcgQpWvY+I6JjhdXMmfjv2Api5WPtXdxgSlbtux3Gft +KG7AfH+mDBPSo6e/Rm1pQy7C/mZuskwYd5p9bcfdhtT2p1kryzFh+cB5E+WF +VjT0/I9rlTwTFBy5LnD0t6I94bdCvyoxYZ3oBcnV/FbUJ9tVvl2NCdeldryP +M21F0v428uG6TLiZM67Wr/we1QofFTp5hAmGmgyrGxFNyCw5j1vTkQllQ97S +Hl5NqI+49FvkKBP09baQnR2a0Jx0fHvdMSacjxPbF6jYhCha72IYLky47GnX +GfS5EQW7M/nGzjCB+Md2MkO+EanXTa+6+DEhOhjnSYzWo0Lf4LHjt5igKzjF +JAbXIlkLkqtsIhMOXq/KIHrUomz5yuF5tiecud1kHWvRo9E13yKSmKAaol96 +BtWimxZBvQX3mLDTI0n70nIN8lQIbF95yITn8rtud1+sQQrfL79OeMoEj83x +mla+71CBlW9sdS07L5VWx9T7VUj5LTMgvY4Jd0oN6xujq9ArZs/pq/Xs/CRM +F7gCqlDVkpqefiMTTps3Bd51qEKdySt/G1uYcOBdl/gRQhVa6b9y+sNHJmQE +bc7UyKhE+iev6g5+Y+/fzPzEV/YWNbft/q9qiAldk33FZblvkZnaKDFtmAmT +8R8IPilvkS2//l/nUSaEpKl6CQa/RW55659/H2eCq1y/0AeDtyhhOoo4Pc2E +3DQpbbfPLCRqo7G5fYYJ50qrbn9oZqGUyomVwt9MuNYyP6zFYqHMeJNur1km +DOIGE510FnqlvCVmYYEJnIJVtg3uLIRSWP6fFplQUlIUffUYC1XxeJx6tcSE +xSCql7EFCzV1ten4rzAhdJhbfVmNhUwhWMn+LxOshWHDoAwLdWYpEtEqExJi +b7t9ILCQjcC3TRL/mGDhHmLzXpCFvvrGr/xj+2d+cO1HHhb6H1B9Rbc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.009198457629668939}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.009198457629668939}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1nc41t8bB3AhiZZERHn2sMdXIs65ZQuFyE4JTSIKSWbJCJFUksrKiCiU +6AnZhIQUISslo2zp9/z++lyv63POdd/nff9xDvGYu5kzJwcHh9EaDo7/f5PL +iicEawggeSJSKK0zGEseEM30bibASudllyyLYDzXoMtr0kKAbSH4bZReMH6r +63WS9p4AU0M7+y6pBmMr9F6qq5UAvqr/NPx2BuOrMmEFezoIcIOoUTw3HIS/ +8U+/XO4hQOgn1t1RnyCcXFfXFDRGgJL7jAnPjEC8eZ/PTDQXEQjC1UO7NAJw +g+Di4GFuIoxiQX8HegC+Ouz7gbiWCH4VuvfyBALwavil5y94iJBOeKbjN3IZ +/3ofcKF3PRE4BWJ3NMVexs32YUvSW4jQ+uGqnf6YP470vcnZJE4ELqPMAOtH +l/C6Z7lb+XYTQVhlSTUTfLHfB9MfQ2wH7kzaNSPti3/OzlW9USGCgo6ykZGo +L25X0/T2ViVCReFDc9kZH5xc/bGrX50InWfuNGem+WDF7tXkEi0i5E9utHfZ +4IMd/h2kO5sSQS1yM6Fq5AJ+bjy7l3WGCI0qR9sfVHvhp6J9wrfPEsH9ut7r +Z8+98JPhmumzbkT4uuTa8j7NC6dcTsoUO0cEj4ePdOXDvHB43l7Bi+eJ8Hv1 ++rUgXS9stzF4XMaPXa/7irN943nM3bzpzr1rRIjpO/fmda8ntjBizF14RIRD +t0y1gOyBwe24I35MhLiEkJ1Lwh5YMja1YV0aEZqguPQ1nwfm6BB5kJROBLjm +IGo3cw7n2q7Xf5VFBOpFjy7OynOY8/T4nb9PidCsZjwzfuwczr+eqxFaRoSe +YJnSeQt3vL5WPiyugwi9eRKyb9LP4GzVuK5TH4kQdLzwlH/MGWyUO83U7iTC +FUuxIUPfMzg2rrBlroudzzVvKzHjM1jY7j8Ru89ESDF+3Bk+expTplVyaINE +UI9SqY4wOI2RGG4rmyTCPWIVavt7Enu6G+8c4SPBjk8fnCsSXDH3njX/CvhJ +IPzdiic1xBUncrzov7SBBMnkXfw3PF3xqzjxNIFNJKjRqtoZc9AVcz7/Iakh +QIKIVFN3ykZXHLdwfU/CdhLwHekTTgh3wQVBNeb7KCQIN/S13B/ujH/F44gU +DRL0NKlIGD1xwrw8Km7OiASa8Xe0je45YZKPrJk0JoHVoXxby2gnbGG3c8cr +YPdzsHdfuIcTfk1ZfvJRiwSRDY8Vjqk54YgXxfUbDEnQKtcVMtZ8DNO6ZNZf +siQBa+1q9OaVo9hhh3j4YXcS+DXmcdmed8SyvSqH5M6RwERTNyXNxRH/e2BO +WOdBgp8Nr3gWrB1xKjWytNiTBBOau8ivwREPyi+NCV0gwRM1m9LSTY7YVa/b +oMOfBNV4d8mi1RF8ziuB3zSCBGuy1CpXeu1xSMuGGMN0dj4ytXXvxG2x9uil +ccEMEvDc72nbvd4Wc3P80Olle0r859SLWRt8VaF+xT2LBPysFP2+FhsckRB2 +6lYOCZwP/NDuDLLBcTarOv3PSMDc1FBuM26NH4xMrnhXkCB1qCzM450VLltt +P/WwiwTFW5MONj60xIonXJ5e6iZB1dkagkisJc5uW5y2+ESCw1OtVZ4Blvhu +GsGX7zMJ6A0eh01tLbGPodu1830kmFy6eL1QyBLvTlyfpjPMzo9Xp3s5ygIX +ykDv9xkS3Ld+U3M07BDOsss7oLiJDHkXT2SY3jPDWe6ht3g3k6HkmnfAumgz +nBls+7mPbW/FCqO6ADOckbXeNVKADGuP+mafOmaG0/44BwxtI4OoqUaQgqQZ +To3alZcoRgY/9yFnVpkpTnodw7fMIIOK27nU7JGDOFzc812VFhky/Sb2cj43 +wT5hyXcjtclgWrx9mTPFBJ/4VeNurkMG5L3gIxhugvVYYju+6ZLhYMFIiJOd +CeY5/s6N05AMex97369Ya4LDckRENA+S4XK5qcJhW2McrPbmVIUdGY7sFeOu +ETDC/lYbtrz0JgPOAa1DTwwwaattc9wFMtzh5rVwumWA6xufRJy6SAbaUv5g +UJABFsZ6a8V9ybBamKE5YW2An1GDlwL8yaBEtGJd4jfAIzPzQ9ohZEi/Qzh3 +1kMfH4z+9rI1lgy1a7f9NNPXw9TKV05jOWToDz1kWy6hg1+32RUU5pKhqzxj +56ktOthsYHXFP48M88GuK8Q1OjiQQytRIJ8MDqv8k4WD2vgLaqxTKyTDNVPe +eqsMbZxQ9lkmupQMnN8GnfLktDHXi5V5hXdkKD28aVXLUAsPZKKoS31k+Fi5 ++uvqfU0sy7v2reVXMpBEJ/7kxWhi/xONswr9ZNjtuePL1yBNLMK0OjI2QIaW +/i3Sx1008cFsD0WLYXa9+YWhCTlNXJGb1i37kwz/uVQeX60GfPcZH3VwkQwv +OyKDnk9gbFbWWa4vRAHKQIzAjUl1zHjX/0dCmALW+8+jPZ/U8d+Wcal5tp1J +Uxm/K9Vx1uDqnXQRCixQ7s/eT1THq+vpFzjFKZD0+KDIG6SOc6wuyr4mUeCZ +TQov4+ZezD23/YGcPAV6qkQN9uqo4WJ560Dh/RRYHSnSfP1JBfvHFut+ZVvZ +2LzsRp0K3jcluDHLiAKSmjzxZ0tUcEt+yx1VEwqE/xBSPXhLBQ/LahfZmVJg +wy/DE1mmKnibjNzIo8MUuB+8Nye5aTf2ZK41kjtOAYkL+Q1WjcpYhvRsu/5l +Cpy8rmtjPq6Es9sVa4gBFLipqnG6pkcJ00Keey2znd9V9ECnUQkThkrangZS +4IqRnvGJXCW8NaMiUiiUAje2FhRpuCvhBWbTv8EICjx0LI0gzCviKoXR0ctJ +FOiU8qm8ulkRW2vuLC0qokBf2p6FX47yuEZvZjbgOft89itFfw/JY0WTWiXD +F+z+xo9ThAzk8QZbj/z+Ygpsn6hf76Agj1le7zI2vqLAoPXp3Yc55TEj6+wt +VxYF3hqHalftl8MLmyo8xZopoPQkcavViAxO+uIgEzJCgYrdzoMphlI4Ouri +WcNRCsiUpBuJq0jhYPXYPIExClw+8TQrkyyFTye/lUn9TgGNRZ1NYyuSGNlR +ZMt/UuDLbhu/TQWSePjzd9n5GQpkJ0RofReRxIqfveRP/6NAx7j9ufg/DNz4 +KULJXIQKKkozzcVtNHyhp9ZWSpQK6heVS7lZNEz6zB3KtYMKo7Q2G8enNOz3 +JaCjSIwKwTWxKRBJw4yvnt7bJKgg1+C98FiHhsOGbEo+UqmQ6pDb/vM1FeNJ +yb1WSlTYLBKWjV9QcBF34z57Eyq8jzzkUdtAwia2tku0A1SQZbgmyJST8Piz +H8+m2G6sZcTczydh0pENxFBTKgyW7Ju8m0DCN18a/8s+RAWq2/N4viMk7OnW +WrZgQwWDW9bGJbNELN/98b8EVyr7vr8ULixJxE9z+mmNgVT4+/6R6oKNBF5j +fqsmPYgKQ0lUHcd9EvjQkoFLYDAVfDuN735mSuBF/aJ05VD2+qfiw/yLu7D2 +SBgl9RoVpP2lrEyTduEeghTJ+wYVdFXlio/17MQ8id47JZKp4ByVWq56Rhw7 +BPJtO19CBaX59akFVaJ4TxtnsUEpFXhOfvH/lC+KBUnLhwkvqdAZmpgqkCyK +66p+3Gt+RYVLj99E53uJYsV1zWRGBRW+MlpLUmmieN2NGKXeaiosfrwpZxIt +ggvubTPXa6fCCVOPB1edt2POkl03xSaoYGJGbNqChdjvx1NV39hObbyT0ywn +hJO4i//k/KLCrh/BQbcIQljWzPiw+hR7nuWy0zqcQth64pK4/W8q6L/p5WbW +bMMF5E8ZKYvsPDdeUJk+sA07xMaXEXlo8E65qPTQaUH88iTvMF2CBqyvUfxt +bwSw2lGfVQ4CDY7oXS37+0wAv7Ya297D9ihVXl45TQCz9OoMo0g0yPHdolsd +LoBrqOEFU1QaZB9pUTtmJoA7Btb5v5SmwVHxcsHE0S140nqd4H41GrwZ9ZZK +F92CqYY8mm4WNFDGeceOK2/Eibfrv++xpIHvEfP3NMJGzDscdZPrMA2i+hfy +Fvg24p9XBIeSrGigkeuQ0NC/AT9/QbhWZUsD6zZqMzV6A9Ym7m0WOUYDjtD7 +OgVj/Pj4grt1lRsNWh9IZddn8+G0jE8eIuE0aL7us6vBihen3O8X/8r24c6B +Ejc9XpyUMFqbfp0GJrsHCiR28+LI4NmdSpE0WDPjmJIhyIs9HQQajG+w/2cu +eei9X4c1hQ1IIQk0mJTMPd6svw73hZW2T6TSQMzDYE2+Ng/e7nxbqeolDWTu +TJVzOHDjutzKmruvaPB+fqgSm3Bjnz8T1p5lNEiSUZqPQNy4J0Q7kFhOA4Uj +inU6Etw4+dF00xUWDb75Z641GuDCxP79Luq1NDAdcv5405ULS9ly3HnRQYOB +1ErPBn9OjE1PrmZO0qB7dcHoby0H7v81SvCYosGXeLO0/jIOHBjloqU2TQOJ +wrCXTfkcuLLWKbxphgaLi8D95jYH1kUOW6dn2fP5G3qa/wQHNpEyp6mt0ECa +s1UQ8XFgu7UaJk28dPiT/iOG9WQV+b3ckjJFpEOw5QfDNK4V1J5ZlNVAooPz +QbPMlxPLSDLRsiiNTIe7AuLM/q5l9Mkzuc6KSofogd8ujrnLaI804zeLQQcz +pVeW0pbLaC4F68fJ0aG3tT5wJHcJeYa6zSho0GHOsnn4ussiOnWgSfe8FR2o +Orz6X9bNo8L4yn5kTYdP3N/e8M7PoaWuUj8+Gzq8dKwO1hyZQxGO6U8f2tLB +Xu7Fu67qOZTtESDc6kAH2wPeuonBc+hHvPyItDMdBIeGfc055tCZ7oSwEQ86 +9AXdlrzJPYvOHrWvto6kQ619xNRB2d9I/cBtR2IUHXi1Hj6JJ/xGGzTaVsbY +To4TV+vf+hvliugo+9ygw/V9gu8S52fQz/fSGYlxbDf0Vfi8nUGn0Mq1D7fp +MO+hrsB3eAadELu33ziNDk47FqKUrk8jp4/d7VDO7vfk/kgl3ik0LqhyWLSC +DqHyN8QD5ifRObNbn6fZ9hNJ8c/qm0QB702HHrHosKl/apNK3iRKqm+Y5a6m +g3DZgR7V/ZOopfy1SH0DHezOKhHrI36hPRmpDqbddMiOzTv9ZPsE2nTxxPjR +33TYzxOVdMZ5HIXx71iV+kOHFv3HPvpm42jlQaPAHNvTF1ZVFfE4Gq+TVY2Y +o4Nrsc4eOdFxVLNj9lrhIh0CpAX5W5q/o4CKICoXBwOKOmWPJqp+RxNr7zmm +bWDAmoFb/zaKjaGmhObOESoDZIixS7FcI2jJ93H7WxoD0uL8FrVnhhHjiG9L +Mp0BIZujY3gGhlEIk1pjxmSA/35/y8KKYaRW4f+iQpoBSnWJtBy/YfRkVCoh +UYkBP9oCH4vMDqGrahGmupoMEFGftrr3+xvC/bpN6XYM8IgTSxcTGkR/3Bwb +/O3Z9SkdDxjrBlH2X986cwcGaJEO2MPiABIWy6te48iAV8kO/2J6B9BPC8Fy +eycG0J/yLj7NGEBJjV/zhE4xYPysR+qQ2gCaKfaJCbvIgAS1jD9zp/pRRnS2 +mfNNBtg4cP0Rbe1FRp7b+2XiGbBp7see9Fe9aMYy9Owc2zOZPb9wei9CBIfw +a7cYcLTNIeixXy/6WChQ8SSJAd3bWvlJtF7E3e3D/JXCgL3k57TfV74gJ5Ie +x8UcBlBk9sTcRZ8RoeRbXng1A9wtuB68Ge5Gl396kY+9YwBB6rGzWXs36iHy +3Nlbw54H8+mhPxXdKD6KEfqrlgE1PCx/56RuxHPsrM2hRgbI/TeZs7y/G/3c +MM9DaGeAbj22n3jRhUqP8TmWfGVA9Jzk7cSETnRgk8LWkSUG5CnsWvvQrwMl +3xHa/myZAZUPXe+/ON2BxilLYv4rDAizVt320a4Dhe6tom5dZQAMt1z+D3eg +0hMWqmgNE5LcvY97cXcgQpWvY+I6JjhdXMmfjv2Api5WPtXdxgSlbtux3Gft +KG7AfH+mDBPSo6e/Rm1pQy7C/mZuskwYd5p9bcfdhtT2p1kryzFh+cB5E+WF +VjT0/I9rlTwTFBy5LnD0t6I94bdCvyoxYZ3oBcnV/FbUJ9tVvl2NCdeldryP +M21F0v428uG6TLiZM67Wr/we1QofFTp5hAmGmgyrGxFNyCw5j1vTkQllQ97S +Hl5NqI+49FvkKBP09baQnR2a0Jx0fHvdMSacjxPbF6jYhCha72IYLky47GnX +GfS5EQW7M/nGzjCB+Md2MkO+EanXTa+6+DEhOhjnSYzWo0Lf4LHjt5igKzjF +JAbXIlkLkqtsIhMOXq/KIHrUomz5yuF5tiecud1kHWvRo9E13yKSmKAaol96 +BtWimxZBvQX3mLDTI0n70nIN8lQIbF95yITn8rtud1+sQQrfL79OeMoEj83x +mla+71CBlW9sdS07L5VWx9T7VUj5LTMgvY4Jd0oN6xujq9ArZs/pq/Xs/CRM +F7gCqlDVkpqefiMTTps3Bd51qEKdySt/G1uYcOBdl/gRQhVa6b9y+sNHJmQE +bc7UyKhE+iev6g5+Y+/fzPzEV/YWNbft/q9qiAldk33FZblvkZnaKDFtmAmT +8R8IPilvkS2//l/nUSaEpKl6CQa/RW55659/H2eCq1y/0AeDtyhhOoo4Pc2E +3DQpbbfPLCRqo7G5fYYJ50qrbn9oZqGUyomVwt9MuNYyP6zFYqHMeJNur1km +DOIGE510FnqlvCVmYYEJnIJVtg3uLIRSWP6fFplQUlIUffUYC1XxeJx6tcSE +xSCql7EFCzV1ten4rzAhdJhbfVmNhUwhWMn+LxOshWHDoAwLdWYpEtEqExJi +b7t9ILCQjcC3TRL/mGDhHmLzXpCFvvrGr/xj+2d+cO1HHhb6H1B9Rbc= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{8, 13}, {0., 0.009198457629668939}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {8.000000000000018, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{8.000000000000018, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{8, 13}, {0., 0.009198457629668939}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9919643389546776`*^9, 3.9919652326803303`*^9, + 3.993137701306756*^9}, + CellLabel->"Out[24]=",ExpressionUUID->"84075ef1-b627-4a6f-aae3-3a60e57063ad"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "y"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "b0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "-", + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8.5", ",", "12", ",", "0.1"}], "}"}]}], + "]"}], "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"y", ",", "1.1"}], "}"}], ",", + RowBox[{"{", + RowBox[{"b0", ",", "0.8"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellLabel->"In[34]:=",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], + +Cell[BoxData[ + TemplateBox[{ + "FindRoot", "nlnum", + "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"\ +\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\",\\\", \ +RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ +\\\"}\\\"}]\\) is not a list of numbers with dimensions \ +\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ +\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ +\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.1`\\\", \\\",\\\", \ +\\\"0.8`\\\"}], \\\"}\\\"}]\\).\"", 2, 34, 3, 24487566792016397019, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99196434662237*^9, 3.991965267764641*^9}, + CellLabel-> + "During evaluation of \ +In[34]:=",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"y", "\[Rule]", "1.2126471180583713`"}], ",", + RowBox[{"b0", "\[Rule]", "0.7404404359662677`"}]}], "}"}]], "Output", + CellChangeTimes->{3.9919643466702614`*^9, 3.9919652678273296`*^9}, + CellLabel->"Out[34]=",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"y", "=", "1.21"}]], "Input", + CellChangeTimes->{{3.9919643517017803`*^9, 3.9919643518904247`*^9}, { + 3.991965271719015*^9, 3.991965272747534*^9}}, + CellLabel->"In[36]:=",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], + +Cell[BoxData["1.21`"], "Output", + CellChangeTimes->{3.991964352345875*^9, 3.9919652787755985`*^9}, + CellLabel->"Out[36]=",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b0", "=", "0.74"}]], "Input", + CellChangeTimes->{{3.991964356946327*^9, 3.991964357098551*^9}, { + 3.9919652753355255`*^9, 3.991965275476549*^9}}, + CellLabel->"In[35]:=",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], + +Cell[BoxData["0.74`"], "Output", + CellChangeTimes->{3.9919643574642944`*^9, 3.9919652764203777`*^9}, + CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], + +Cell[BoxData[ + RowBox[{ + RowBox[{"l222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", "p0"], + RowBox[{"(", + RowBox[{ + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]], "+", + RowBox[{"y", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}], "*", "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "b0"]]}]]}]}], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "8", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}], + "\[IndentingNewLine]"}]], "Input", + CellChangeTimes->{3.9917169014568214`*^9}, + CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519998013506*^9, + 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"l111", ",", "l222"}], "]"}]], "Input", + CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519999593614*^9, + 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.545, $CellContext`xmax$$ = + 12.120000000000001`, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 0.01, $CellContext`yv$$ = 1.375, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {110.20605478691961`, 115.83105478691961`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {199.12167978691963`, 204.74667978691963`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"l1111", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "p0"], ")"}], "2"], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "0.57"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "0.892"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "6", ",", "9"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{{3.9931377335745907`*^9, 3.993137739487052*^9}}, + CellLabel->"In[26]:=",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV12k4llsXB3DzUCkaiGe6b1OGyJBQuddKRMpQQoQi85BQHEMRQio9nCJC +ZopKRIYkFSIlDepEkrEj06FQlPd5P+3rd+1rD/+115dNOvvtd+Xh4uJax83F +9f/x2op+Nx0pSQx+8oJ3pKMa7lTOSgdrS+K9zdu61vPch8C3HuIrTkjiWG3R +kW/3KmCng3xYRaUkRjsnzF5KLgO+xyl2CrOSSN469yy2swRu1PnqGmtIYZGX +yo4HZ4vgEIt9LjRQCt32bLYTjM2DKQnJf2zKpHD+h315mU02BI0dyOMZk8Jt +q38P3LW/BsLKPb0NG2kIqqMicWEpYN3fEnFXhYYf54MTv3mlQH5aBZGnSsPn +Fy/tPGSXAih03jlWjYbhk+/U7XVT4K8h3eG9m2nodP+qz8DcFRi+njr+zzYa +HqFiOrmDr8DTtZaLMyY0vM0wTdh/6jJE/mmVVPCk4YjsR3K8OBmCBkL5VL1o +6J7Zmd6Ylgw+z5QnNb1p2C3zOjAnIRkOJl98Cr40XNwUoRDtkwxq8vv8bPxp +qFW/reOFWjJ8Mf3wNDaEhlEaX8pD6pJAP3PYb+gcDe+IzMf//MAG3u28zbk3 +abjw320nWbdE8BjLGs4roWFWdctMlGkivMzYKlhQSsPcpPVS3zcnQvpvf+Oi +2zR85bpiWoQvETQa+tpKymkoNrY9mJl3EY7oP+y4V0tDOXVR5eLBC1BvHPJP +cxunfj/KmMtOnodgq8mx0VEado1angp7Fg9q2fE1H79x6qlY7hdZGQ+jo2Rs +2xgNz/+IFvg7Nx7sIw+wbk7QsKnE809feDzol9Ts85ymocncBWmWRjyIcMdU +jfyk4bVAuwL69TjIK10fOShER0vepy19UbHQwau/pleejvY3lM7U+8WAWni2 +Yv8GOlpXFE0lO8ZA8vc/MKxAx9KikqWTpjFgPVTnM6FEx2+aq9+5KMdAT7NW +8x9VOqYEy+4dHImGr+cUQ1jadHRh3vnudDQauEXFPh8xouPJDdpF61yiQJPe +d3PAnY5S4yfe2idEwlfV7b5dHnSMVeZrgVORkLXj6qZWTzpK7N+TsfF4JAi5 +W9y77U3Ha3L5b2SsI6Hn7qP6ED86rq5+WxUnHQlnjXJerQqm4/YPMy+o0Ah4 +H+A8uy2Wjg4Lf/1smD4FYa2DOy7n03GGtdnjtGQYfBAWMLtWQMfQnzUFS9xh +sMVkg11uIR33fbWwvzwaClNtngFlxXR0q3g/P1cXCm7tE7ntpXT0YkeaFR4O +BYuOeV7+Sjo2GqbGJt8MAbl3K5pPNtExccsWLgOzv6Cjb7OJzTAdfdeo7+Ru +OwkZY3jBdoSOl6eON+6+fxK85ve+PPSVjg9fRZbn5J8EPlHX/UdGOfkfW9VH +RJwEHbhi5zlBx4y0KMUZrZOQnfnDK2yWjhqVvGtvFZyAALuq89cFGBgkU5pK +ZwfCurfaL0bkGbjs8UfViER/2BK6o+7DBgZKTWWyLCL9wZrYc6NVgYEtCddY +GwP84aqP49kSJQYapj7YyG/tD1L8Z/X8VBnY7cSTtpXpD8SW17dmtRj4Qu5q +VUnZcVC66pPIb8jAM8ZWgn21fkDZ55jLHGXggjKEVdzwAUG143EKLgzM4L5V +48v2gVe80KDiysCjdzcl6gX7gHNJj6qOOwOVcv0qGIY+cPaXxEpTbwZuOHtZ +sPeLN7RfTWwPCuTcpyuu2ZzlDbbvwna3RTPQ6ha75swNTzhhZr3TP5+BZh/6 +86/OuQH7gfQG1wIG5lzRW84edINbSpPLbAsZeOrjgZaUTjcYFoh/jcUMLFeK +EXtd4gY2DTVOoqUcPzMp+HPEDbaqMSLvVDAwLX4hW+6lK3CtHnww/piBrdmm +ew9VuMDFd/5bvL5w5idvVPIUOYPUKkUL234GbtK3qm5KdYZC4z5P4wEG+qw8 +1Xs53hke1pllyg8xkMefOG7j5QwTOcp8A18ZKL+NKvRRdQaLY0Odh6YYWB1y +83BHtROsFrT1NV3i5Gvg9dLuOgKpOpivxmDirukLzKNHHaH9+gPBzUwmWrBs +6i2NHYFLUNdbm8XEnY61o4dUHMHjnboGRTLRyFkrt3zOAbYGyDzaI8dEiaxW +h+CLDtBTItDjpsLE2VfpQqb19iDNerEmU4+JtatdrfJVDsFtfrtoYUcmxj0a +27vC9CBsEXybvMCxnotjXKPOQXgoZJY7fpiJb1YqOsTJHoSXy/UbO52YGK25 +odBg0QYmxJSW0lyZqJITCTGlNqDC/BWq5MvE/V9z9VaI2kDplvSAPeFM/Ku0 +onO43wpuuH90upjOxHf9Y/pEpSV8TJGs+/saE7MTndt18ixhWfPBtekZTHwi +HG7ulGQJXrLvmwuzmFjG0F7e72sJSl/eKD/KZaLm69T32Rss4abdix/TN5mc +fjr/WTBrP5SaPjp3sI6Jc0+4O5kp+6BMs/CuTA8TTcUj5G2dzMFC9RXKfWKi +GnvjDjQ0hymFXx3yvUw80DTOQEVzUGOaTSj2MdGtOuvZuf/M4I7QrJLaIBOZ +u7T/1o82g9ufDPO3jzExiylRq11iCqVxQylWi0x8uWZfRc6KvVDcLRseR2fh +yfv7zbTEdkPG8b33gxksVM9MN9JcNIZL/Cem3ZksLBzVydAfMYagTU88jAkW +NrxxZ12pNwaDaCcrYVkWfioKExTyNobPSlmq55VZ+PGH/T7JViMQD5X4kriV +haRtI/t80i6IWb9sV8pBFo5Pno7ttTAAonu2Ld2Whb/5ZoQPUQZQlzlgft2O +hcY7U7S+KhvAtHS9bbE9C1m7ykw2CxqAk8px39ojLBxZ9fFN0sOdQOl3Xe71 +YOEFkakWK7WdMO+dOyAfwsIHCxWDWSx98GnYeuZ+GguXJ76o2q2EcIguV34z +nYWSAXeMI+gIJiGrBjKvsVAz+2j4o5UIipqDBjGZLExtDDR8PgwwXHhRaF8O +C4U9pR8GhgIcTuy7NFrMQq5L3lm8hRTsd4jNYlSz8O1w1MNMET3QWeisi+5i +IW/AMNUntRVSZYqkA96zMIQlDn/4tsLsnvBzRz6wcG5DrrvqpC7cy5C30fvI +wutcsbNPn+iCGhU2PfuJhYm8on6tvrqgcEZW0WuIhecyJFbKNOmAhGBwisV3 +FnbnrTxZGakNYcKJ1SuFCdzw/MktRwUtOL25W5TNcbVhS7H4Oi2IOqzgKbaM +wJ7VpEgftxYkVD6WXLucwMrQvjeF3ZvhqtNcqKQIgTn2D2/ysDfDvZojerJi +BHbvVdEcXtCECU/Nx7qSBJ7bO8v/47MGHGn78NxFkcCjkwMXGV1qkPhYNvQT +xxKi42RTixrU1R5XsFYi8KPM7Xd/1aiBeInQWSNlzn45Q4F8mWrw/LwOpaRC +YONCl3+JixpsMb1aNqlGYH0vT/zhsU2w4pXNlVAdAp0U9Dqv7VSF+++6HNlG +BE5H28dUaihDtQu/xhpjAtWTp9MuSCpD7YwmfwrH+rtOtIVyKcMDsaSSa7sJ +1F5yUMh4qQSPTffMF+4hMK/pPXvKWwleNjUk1ZsTKD7vKvnypiIMVxY/HbUh +kFFqO9yhowBrU0KVDD0I1O0O2dGcJAcwXWTZwDFm+LvQI+TAy+xduK4nJ79F +T3KUjxw0Cqh1qHgRGKR3ovu0kRwcCx4KFPfh5Fkjlq31RxaeHbSoH/EjUOWM +ArCPyUI4Td4iIZjAGzfyD2XZycBAdufJjlgC317P3+zqQEKz83ddozgCC1rT +ZvPNSLgpK/HnIcfvTdtU/gMSjhfbx96OJ1C0SfX1bWkSFu+MpFxMILDlNauz +/isBaxt+39+TSKARYXuPDCZg1yfFXy1XCBzWGLIO0mXBTcmo04/yOetlhIVw +NR2cAuLc9QsI9MxtvX5ongbrn1+weMpxW2rmz8ReGsSFp0o/KyRwrbBo5vYS +Grh8Lm3uKCZQKcfU5K4hDRgF71d+LiVwJuZc1fhpKWCrqVz/fY/AJfOdAdI8 +khBs9KFhaxOB/y3+ttc0EoeDvj1/KjiuUA9PWNIUB52/+/RUmgk8fjVavYcQ +h1+9X+tYLQTWua671/xrHZwO+nmfr5XA1h0q/IfvrIPYAqmyl+0EeryvbWfT +1kEKr0O281sCy0V0Z9OX1kBVw5fIhAECn2ov/HtqRgy8w58Nigxy+tdSZKmy +XwwI3TvGSRx7r7Sq+N0pBgnl4aJXhwhMEXjaUFcmBo4FEtkFIwQe8K3pmjom +BoLnTRsefeO812xGhsaEKBy0rvk9O8Opb3fqLo/JVbAwxg49ykeiP3cFo9h9 +BXis8g0Z5Hj7p2R+tukKeKu++y9XfhLNLoV0XNJcAbeDuIPcBUhs+x1W3rW0 +HJy5Avy9hUhkREbYRqQth7Y1lh6BK0gssDa4oNi5DNK3rrOOXkviakLbx2Kf +MOjGp6nnyZIYuiD3PJ0tAK+CT8TS5Ei8d/nnTzglAG7u5t1/c5y01Hzvh6cA +XN7FfzZGnsQmQ5GU5J0CMMnn/8FVgcTb/4hGsuf4oeCMcYTCRhJlqcpetjM/ +iIXNtd/SJNHFJifO0IAP/vW18qjWJ/FGq1tLmSYPHPi+un/rThKrVjs8eiTN +Aw9DXx2q5zjuotHxPjEeuBy3x/yxAYlZL2drzaa4AXN2bGnfRaJO9hWPoVvc +kPJWha/PhES74PSqCWVuMNgmkC1oSaLE1nZTUU0uuC50/731URJ/hkgEOr9b +pDbbBxa94ti8M3zK4sEi9ezOpmATFxL1sh4pWeUtUtPWxeKUK4k3x/9JyPJf +pAwK0qzk3Dnn+f09qbFqkfp3R/ibGS8S/0ybqO83W6A0w3Z0sANIPBybMz/W +/ZNqGX/e3HaGxHanLTXv1eaotUWn1PWjSDR4c+u2KGOOOnJkU0YNx21cH4Lt +hOeoX6+T/YujSQy0wL1E/yy1sdqWHnuWxPwz/ccDL89S7KgR/x3nSJw95+Wj +vPiDOijBy6hmkygtMVMY9f479RW3BhZcJ3FipUvebO00JZT0kmdDNomCVTUX +s29MU4pfnJOLOT5rohBmd3Wa8jpz/m5JDonJXa6yf05OU+ONPZN380gcOPFN +nFdjmprWj/B5WERi74o1PbOl/1GLBk9d398h8XtLd5LM7Slq1W6zg8KPOP0h +09ZuXjlO2bl90Yvi+JrW+WN518ap/OgTMgscl+yy0RKJGqd0HqZPjDWSOB4z +NSRtPk45a47EvHpC4sfWrsYDo2NUFSPybmoLiT+WV618LDtG2U/fXSbfQaLi +AZ2EnTdGqeJr6+r1e0n0GTETXz8+QiWJSJa3cqyxS2UjT9cI54tDL7L4TOKL +3XWneRpGqL1HZZIc+zj1PhMTY5g0Qk0pqbuG9pMY5HK58fWWEUq3dq9I+TCJ +rXJLNXNnh6m2D9EO5CRnnsjw+6Q5RFWYxO0v5jg5eULbnTVEZTxIMNo0RWLq +yLH7fMuHqGPZSep6/3HyW+qxQ/sHqdUe1/ltZ0iMvtSfbp48SB2aq73FniNR +6kfYp8QfA5SB58NciXkSj1Y1OuzpH6BUuxtTsziGQdtjUh0DFFfDszOlP0mM +dFT9OVk8QOXHdlk9WyAxrbG7KchhgLo4/4+J+SKJMkZlH5pMBqggr0/QxfHn +2X8n5HUGKGOzQcXB3yQ6mFj1MdcMUOqPRpjef0gMS12bVsk1QElpfFszzfG/ +Ow6IOk70U7z5E0IhSyR6GPJpre/pp8bWTf9e4lh3XnZ2oLWf+h9RYqdh + "]]}, + 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:eJwV12k4llsXB3DzUCkaiGe6b1OGyJBQuddKRMpQQoQi85BQHEMRQio9nCJC +ZopKRIYkFSIlDepEkrEj06FQlPd5P+3rd+1rD/+115dNOvvtd+Xh4uJax83F +9f/x2op+Nx0pSQx+8oJ3pKMa7lTOSgdrS+K9zdu61vPch8C3HuIrTkjiWG3R +kW/3KmCng3xYRaUkRjsnzF5KLgO+xyl2CrOSSN469yy2swRu1PnqGmtIYZGX +yo4HZ4vgEIt9LjRQCt32bLYTjM2DKQnJf2zKpHD+h315mU02BI0dyOMZk8Jt +q38P3LW/BsLKPb0NG2kIqqMicWEpYN3fEnFXhYYf54MTv3mlQH5aBZGnSsPn +Fy/tPGSXAih03jlWjYbhk+/U7XVT4K8h3eG9m2nodP+qz8DcFRi+njr+zzYa +HqFiOrmDr8DTtZaLMyY0vM0wTdh/6jJE/mmVVPCk4YjsR3K8OBmCBkL5VL1o +6J7Zmd6Ylgw+z5QnNb1p2C3zOjAnIRkOJl98Cr40XNwUoRDtkwxq8vv8bPxp +qFW/reOFWjJ8Mf3wNDaEhlEaX8pD6pJAP3PYb+gcDe+IzMf//MAG3u28zbk3 +abjw320nWbdE8BjLGs4roWFWdctMlGkivMzYKlhQSsPcpPVS3zcnQvpvf+Oi +2zR85bpiWoQvETQa+tpKymkoNrY9mJl3EY7oP+y4V0tDOXVR5eLBC1BvHPJP +cxunfj/KmMtOnodgq8mx0VEado1angp7Fg9q2fE1H79x6qlY7hdZGQ+jo2Rs +2xgNz/+IFvg7Nx7sIw+wbk7QsKnE809feDzol9Ts85ymocncBWmWRjyIcMdU +jfyk4bVAuwL69TjIK10fOShER0vepy19UbHQwau/pleejvY3lM7U+8WAWni2 +Yv8GOlpXFE0lO8ZA8vc/MKxAx9KikqWTpjFgPVTnM6FEx2+aq9+5KMdAT7NW +8x9VOqYEy+4dHImGr+cUQ1jadHRh3vnudDQauEXFPh8xouPJDdpF61yiQJPe +d3PAnY5S4yfe2idEwlfV7b5dHnSMVeZrgVORkLXj6qZWTzpK7N+TsfF4JAi5 +W9y77U3Ha3L5b2SsI6Hn7qP6ED86rq5+WxUnHQlnjXJerQqm4/YPMy+o0Ah4 +H+A8uy2Wjg4Lf/1smD4FYa2DOy7n03GGtdnjtGQYfBAWMLtWQMfQnzUFS9xh +sMVkg11uIR33fbWwvzwaClNtngFlxXR0q3g/P1cXCm7tE7ntpXT0YkeaFR4O +BYuOeV7+Sjo2GqbGJt8MAbl3K5pPNtExccsWLgOzv6Cjb7OJzTAdfdeo7+Ru +OwkZY3jBdoSOl6eON+6+fxK85ve+PPSVjg9fRZbn5J8EPlHX/UdGOfkfW9VH +RJwEHbhi5zlBx4y0KMUZrZOQnfnDK2yWjhqVvGtvFZyAALuq89cFGBgkU5pK +ZwfCurfaL0bkGbjs8UfViER/2BK6o+7DBgZKTWWyLCL9wZrYc6NVgYEtCddY +GwP84aqP49kSJQYapj7YyG/tD1L8Z/X8VBnY7cSTtpXpD8SW17dmtRj4Qu5q +VUnZcVC66pPIb8jAM8ZWgn21fkDZ55jLHGXggjKEVdzwAUG143EKLgzM4L5V +48v2gVe80KDiysCjdzcl6gX7gHNJj6qOOwOVcv0qGIY+cPaXxEpTbwZuOHtZ +sPeLN7RfTWwPCuTcpyuu2ZzlDbbvwna3RTPQ6ha75swNTzhhZr3TP5+BZh/6 +86/OuQH7gfQG1wIG5lzRW84edINbSpPLbAsZeOrjgZaUTjcYFoh/jcUMLFeK +EXtd4gY2DTVOoqUcPzMp+HPEDbaqMSLvVDAwLX4hW+6lK3CtHnww/piBrdmm +ew9VuMDFd/5bvL5w5idvVPIUOYPUKkUL234GbtK3qm5KdYZC4z5P4wEG+qw8 +1Xs53hke1pllyg8xkMefOG7j5QwTOcp8A18ZKL+NKvRRdQaLY0Odh6YYWB1y +83BHtROsFrT1NV3i5Gvg9dLuOgKpOpivxmDirukLzKNHHaH9+gPBzUwmWrBs +6i2NHYFLUNdbm8XEnY61o4dUHMHjnboGRTLRyFkrt3zOAbYGyDzaI8dEiaxW +h+CLDtBTItDjpsLE2VfpQqb19iDNerEmU4+JtatdrfJVDsFtfrtoYUcmxj0a +27vC9CBsEXybvMCxnotjXKPOQXgoZJY7fpiJb1YqOsTJHoSXy/UbO52YGK25 +odBg0QYmxJSW0lyZqJITCTGlNqDC/BWq5MvE/V9z9VaI2kDplvSAPeFM/Ku0 +onO43wpuuH90upjOxHf9Y/pEpSV8TJGs+/saE7MTndt18ixhWfPBtekZTHwi +HG7ulGQJXrLvmwuzmFjG0F7e72sJSl/eKD/KZaLm69T32Rss4abdix/TN5mc +fjr/WTBrP5SaPjp3sI6Jc0+4O5kp+6BMs/CuTA8TTcUj5G2dzMFC9RXKfWKi +GnvjDjQ0hymFXx3yvUw80DTOQEVzUGOaTSj2MdGtOuvZuf/M4I7QrJLaIBOZ +u7T/1o82g9ufDPO3jzExiylRq11iCqVxQylWi0x8uWZfRc6KvVDcLRseR2fh +yfv7zbTEdkPG8b33gxksVM9MN9JcNIZL/Cem3ZksLBzVydAfMYagTU88jAkW +NrxxZ12pNwaDaCcrYVkWfioKExTyNobPSlmq55VZ+PGH/T7JViMQD5X4kriV +haRtI/t80i6IWb9sV8pBFo5Pno7ttTAAonu2Ld2Whb/5ZoQPUQZQlzlgft2O +hcY7U7S+KhvAtHS9bbE9C1m7ykw2CxqAk8px39ojLBxZ9fFN0sOdQOl3Xe71 +YOEFkakWK7WdMO+dOyAfwsIHCxWDWSx98GnYeuZ+GguXJ76o2q2EcIguV34z +nYWSAXeMI+gIJiGrBjKvsVAz+2j4o5UIipqDBjGZLExtDDR8PgwwXHhRaF8O +C4U9pR8GhgIcTuy7NFrMQq5L3lm8hRTsd4jNYlSz8O1w1MNMET3QWeisi+5i +IW/AMNUntRVSZYqkA96zMIQlDn/4tsLsnvBzRz6wcG5DrrvqpC7cy5C30fvI +wutcsbNPn+iCGhU2PfuJhYm8on6tvrqgcEZW0WuIhecyJFbKNOmAhGBwisV3 +FnbnrTxZGakNYcKJ1SuFCdzw/MktRwUtOL25W5TNcbVhS7H4Oi2IOqzgKbaM +wJ7VpEgftxYkVD6WXLucwMrQvjeF3ZvhqtNcqKQIgTn2D2/ysDfDvZojerJi +BHbvVdEcXtCECU/Nx7qSBJ7bO8v/47MGHGn78NxFkcCjkwMXGV1qkPhYNvQT +xxKi42RTixrU1R5XsFYi8KPM7Xd/1aiBeInQWSNlzn45Q4F8mWrw/LwOpaRC +YONCl3+JixpsMb1aNqlGYH0vT/zhsU2w4pXNlVAdAp0U9Dqv7VSF+++6HNlG +BE5H28dUaihDtQu/xhpjAtWTp9MuSCpD7YwmfwrH+rtOtIVyKcMDsaSSa7sJ +1F5yUMh4qQSPTffMF+4hMK/pPXvKWwleNjUk1ZsTKD7vKvnypiIMVxY/HbUh +kFFqO9yhowBrU0KVDD0I1O0O2dGcJAcwXWTZwDFm+LvQI+TAy+xduK4nJ79F +T3KUjxw0Cqh1qHgRGKR3ovu0kRwcCx4KFPfh5Fkjlq31RxaeHbSoH/EjUOWM +ArCPyUI4Td4iIZjAGzfyD2XZycBAdufJjlgC317P3+zqQEKz83ddozgCC1rT +ZvPNSLgpK/HnIcfvTdtU/gMSjhfbx96OJ1C0SfX1bWkSFu+MpFxMILDlNauz +/isBaxt+39+TSKARYXuPDCZg1yfFXy1XCBzWGLIO0mXBTcmo04/yOetlhIVw +NR2cAuLc9QsI9MxtvX5ongbrn1+weMpxW2rmz8ReGsSFp0o/KyRwrbBo5vYS +Grh8Lm3uKCZQKcfU5K4hDRgF71d+LiVwJuZc1fhpKWCrqVz/fY/AJfOdAdI8 +khBs9KFhaxOB/y3+ttc0EoeDvj1/KjiuUA9PWNIUB52/+/RUmgk8fjVavYcQ +h1+9X+tYLQTWua671/xrHZwO+nmfr5XA1h0q/IfvrIPYAqmyl+0EeryvbWfT +1kEKr0O281sCy0V0Z9OX1kBVw5fIhAECn2ov/HtqRgy8w58Nigxy+tdSZKmy +XwwI3TvGSRx7r7Sq+N0pBgnl4aJXhwhMEXjaUFcmBo4FEtkFIwQe8K3pmjom +BoLnTRsefeO812xGhsaEKBy0rvk9O8Opb3fqLo/JVbAwxg49ykeiP3cFo9h9 +BXis8g0Z5Hj7p2R+tukKeKu++y9XfhLNLoV0XNJcAbeDuIPcBUhs+x1W3rW0 +HJy5Avy9hUhkREbYRqQth7Y1lh6BK0gssDa4oNi5DNK3rrOOXkviakLbx2Kf +MOjGp6nnyZIYuiD3PJ0tAK+CT8TS5Ei8d/nnTzglAG7u5t1/c5y01Hzvh6cA +XN7FfzZGnsQmQ5GU5J0CMMnn/8FVgcTb/4hGsuf4oeCMcYTCRhJlqcpetjM/ +iIXNtd/SJNHFJifO0IAP/vW18qjWJ/FGq1tLmSYPHPi+un/rThKrVjs8eiTN +Aw9DXx2q5zjuotHxPjEeuBy3x/yxAYlZL2drzaa4AXN2bGnfRaJO9hWPoVvc +kPJWha/PhES74PSqCWVuMNgmkC1oSaLE1nZTUU0uuC50/731URJ/hkgEOr9b +pDbbBxa94ti8M3zK4sEi9ezOpmATFxL1sh4pWeUtUtPWxeKUK4k3x/9JyPJf +pAwK0qzk3Dnn+f09qbFqkfp3R/ibGS8S/0ybqO83W6A0w3Z0sANIPBybMz/W +/ZNqGX/e3HaGxHanLTXv1eaotUWn1PWjSDR4c+u2KGOOOnJkU0YNx21cH4Lt +hOeoX6+T/YujSQy0wL1E/yy1sdqWHnuWxPwz/ccDL89S7KgR/x3nSJw95+Wj +vPiDOijBy6hmkygtMVMY9f479RW3BhZcJ3FipUvebO00JZT0kmdDNomCVTUX +s29MU4pfnJOLOT5rohBmd3Wa8jpz/m5JDonJXa6yf05OU+ONPZN380gcOPFN +nFdjmprWj/B5WERi74o1PbOl/1GLBk9d398h8XtLd5LM7Slq1W6zg8KPOP0h +09ZuXjlO2bl90Yvi+JrW+WN518ap/OgTMgscl+yy0RKJGqd0HqZPjDWSOB4z +NSRtPk45a47EvHpC4sfWrsYDo2NUFSPybmoLiT+WV618LDtG2U/fXSbfQaLi +AZ2EnTdGqeJr6+r1e0n0GTETXz8+QiWJSJa3cqyxS2UjT9cI54tDL7L4TOKL +3XWneRpGqL1HZZIc+zj1PhMTY5g0Qk0pqbuG9pMY5HK58fWWEUq3dq9I+TCJ +rXJLNXNnh6m2D9EO5CRnnsjw+6Q5RFWYxO0v5jg5eULbnTVEZTxIMNo0RWLq +yLH7fMuHqGPZSep6/3HyW+qxQ/sHqdUe1/ltZ0iMvtSfbp48SB2aq73FniNR +6kfYp8QfA5SB58NciXkSj1Y1OuzpH6BUuxtTsziGQdtjUh0DFFfDszOlP0mM +dFT9OVk8QOXHdlk9WyAxrbG7KchhgLo4/4+J+SKJMkZlH5pMBqggr0/QxfHn +2X8n5HUGKGOzQcXB3yQ6mFj1MdcMUOqPRpjef0gMS12bVsk1QElpfFszzfG/ +Ow6IOk70U7z5E0IhSyR6GPJpre/pp8bWTf9e4lh3XnZ2oLWf+h9RYqdh + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.09692233889451339}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.09692233889451339}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV12k4llsXB3DzUCkaiGe6b1OGyJBQuddKRMpQQoQi85BQHEMRQio9nCJC +ZopKRIYkFSIlDepEkrEj06FQlPd5P+3rd+1rD/+115dNOvvtd+Xh4uJax83F +9f/x2op+Nx0pSQx+8oJ3pKMa7lTOSgdrS+K9zdu61vPch8C3HuIrTkjiWG3R +kW/3KmCng3xYRaUkRjsnzF5KLgO+xyl2CrOSSN469yy2swRu1PnqGmtIYZGX +yo4HZ4vgEIt9LjRQCt32bLYTjM2DKQnJf2zKpHD+h315mU02BI0dyOMZk8Jt +q38P3LW/BsLKPb0NG2kIqqMicWEpYN3fEnFXhYYf54MTv3mlQH5aBZGnSsPn +Fy/tPGSXAih03jlWjYbhk+/U7XVT4K8h3eG9m2nodP+qz8DcFRi+njr+zzYa +HqFiOrmDr8DTtZaLMyY0vM0wTdh/6jJE/mmVVPCk4YjsR3K8OBmCBkL5VL1o +6J7Zmd6Ylgw+z5QnNb1p2C3zOjAnIRkOJl98Cr40XNwUoRDtkwxq8vv8bPxp +qFW/reOFWjJ8Mf3wNDaEhlEaX8pD6pJAP3PYb+gcDe+IzMf//MAG3u28zbk3 +abjw320nWbdE8BjLGs4roWFWdctMlGkivMzYKlhQSsPcpPVS3zcnQvpvf+Oi +2zR85bpiWoQvETQa+tpKymkoNrY9mJl3EY7oP+y4V0tDOXVR5eLBC1BvHPJP +cxunfj/KmMtOnodgq8mx0VEado1angp7Fg9q2fE1H79x6qlY7hdZGQ+jo2Rs +2xgNz/+IFvg7Nx7sIw+wbk7QsKnE809feDzol9Ts85ymocncBWmWRjyIcMdU +jfyk4bVAuwL69TjIK10fOShER0vepy19UbHQwau/pleejvY3lM7U+8WAWni2 +Yv8GOlpXFE0lO8ZA8vc/MKxAx9KikqWTpjFgPVTnM6FEx2+aq9+5KMdAT7NW +8x9VOqYEy+4dHImGr+cUQ1jadHRh3vnudDQauEXFPh8xouPJDdpF61yiQJPe +d3PAnY5S4yfe2idEwlfV7b5dHnSMVeZrgVORkLXj6qZWTzpK7N+TsfF4JAi5 +W9y77U3Ha3L5b2SsI6Hn7qP6ED86rq5+WxUnHQlnjXJerQqm4/YPMy+o0Ah4 +H+A8uy2Wjg4Lf/1smD4FYa2DOy7n03GGtdnjtGQYfBAWMLtWQMfQnzUFS9xh +sMVkg11uIR33fbWwvzwaClNtngFlxXR0q3g/P1cXCm7tE7ntpXT0YkeaFR4O +BYuOeV7+Sjo2GqbGJt8MAbl3K5pPNtExccsWLgOzv6Cjb7OJzTAdfdeo7+Ru +OwkZY3jBdoSOl6eON+6+fxK85ve+PPSVjg9fRZbn5J8EPlHX/UdGOfkfW9VH +RJwEHbhi5zlBx4y0KMUZrZOQnfnDK2yWjhqVvGtvFZyAALuq89cFGBgkU5pK +ZwfCurfaL0bkGbjs8UfViER/2BK6o+7DBgZKTWWyLCL9wZrYc6NVgYEtCddY +GwP84aqP49kSJQYapj7YyG/tD1L8Z/X8VBnY7cSTtpXpD8SW17dmtRj4Qu5q +VUnZcVC66pPIb8jAM8ZWgn21fkDZ55jLHGXggjKEVdzwAUG143EKLgzM4L5V +48v2gVe80KDiysCjdzcl6gX7gHNJj6qOOwOVcv0qGIY+cPaXxEpTbwZuOHtZ +sPeLN7RfTWwPCuTcpyuu2ZzlDbbvwna3RTPQ6ha75swNTzhhZr3TP5+BZh/6 +86/OuQH7gfQG1wIG5lzRW84edINbSpPLbAsZeOrjgZaUTjcYFoh/jcUMLFeK +EXtd4gY2DTVOoqUcPzMp+HPEDbaqMSLvVDAwLX4hW+6lK3CtHnww/piBrdmm +ew9VuMDFd/5bvL5w5idvVPIUOYPUKkUL234GbtK3qm5KdYZC4z5P4wEG+qw8 +1Xs53hke1pllyg8xkMefOG7j5QwTOcp8A18ZKL+NKvRRdQaLY0Odh6YYWB1y +83BHtROsFrT1NV3i5Gvg9dLuOgKpOpivxmDirukLzKNHHaH9+gPBzUwmWrBs +6i2NHYFLUNdbm8XEnY61o4dUHMHjnboGRTLRyFkrt3zOAbYGyDzaI8dEiaxW +h+CLDtBTItDjpsLE2VfpQqb19iDNerEmU4+JtatdrfJVDsFtfrtoYUcmxj0a +27vC9CBsEXybvMCxnotjXKPOQXgoZJY7fpiJb1YqOsTJHoSXy/UbO52YGK25 +odBg0QYmxJSW0lyZqJITCTGlNqDC/BWq5MvE/V9z9VaI2kDplvSAPeFM/Ku0 +onO43wpuuH90upjOxHf9Y/pEpSV8TJGs+/saE7MTndt18ixhWfPBtekZTHwi +HG7ulGQJXrLvmwuzmFjG0F7e72sJSl/eKD/KZaLm69T32Rss4abdix/TN5mc +fjr/WTBrP5SaPjp3sI6Jc0+4O5kp+6BMs/CuTA8TTcUj5G2dzMFC9RXKfWKi +GnvjDjQ0hymFXx3yvUw80DTOQEVzUGOaTSj2MdGtOuvZuf/M4I7QrJLaIBOZ +u7T/1o82g9ufDPO3jzExiylRq11iCqVxQylWi0x8uWZfRc6KvVDcLRseR2fh +yfv7zbTEdkPG8b33gxksVM9MN9JcNIZL/Cem3ZksLBzVydAfMYagTU88jAkW +NrxxZ12pNwaDaCcrYVkWfioKExTyNobPSlmq55VZ+PGH/T7JViMQD5X4kriV +haRtI/t80i6IWb9sV8pBFo5Pno7ttTAAonu2Ld2Whb/5ZoQPUQZQlzlgft2O +hcY7U7S+KhvAtHS9bbE9C1m7ykw2CxqAk8px39ojLBxZ9fFN0sOdQOl3Xe71 +YOEFkakWK7WdMO+dOyAfwsIHCxWDWSx98GnYeuZ+GguXJ76o2q2EcIguV34z +nYWSAXeMI+gIJiGrBjKvsVAz+2j4o5UIipqDBjGZLExtDDR8PgwwXHhRaF8O +C4U9pR8GhgIcTuy7NFrMQq5L3lm8hRTsd4jNYlSz8O1w1MNMET3QWeisi+5i +IW/AMNUntRVSZYqkA96zMIQlDn/4tsLsnvBzRz6wcG5DrrvqpC7cy5C30fvI +wutcsbNPn+iCGhU2PfuJhYm8on6tvrqgcEZW0WuIhecyJFbKNOmAhGBwisV3 +FnbnrTxZGakNYcKJ1SuFCdzw/MktRwUtOL25W5TNcbVhS7H4Oi2IOqzgKbaM +wJ7VpEgftxYkVD6WXLucwMrQvjeF3ZvhqtNcqKQIgTn2D2/ysDfDvZojerJi +BHbvVdEcXtCECU/Nx7qSBJ7bO8v/47MGHGn78NxFkcCjkwMXGV1qkPhYNvQT +xxKi42RTixrU1R5XsFYi8KPM7Xd/1aiBeInQWSNlzn45Q4F8mWrw/LwOpaRC +YONCl3+JixpsMb1aNqlGYH0vT/zhsU2w4pXNlVAdAp0U9Dqv7VSF+++6HNlG +BE5H28dUaihDtQu/xhpjAtWTp9MuSCpD7YwmfwrH+rtOtIVyKcMDsaSSa7sJ +1F5yUMh4qQSPTffMF+4hMK/pPXvKWwleNjUk1ZsTKD7vKvnypiIMVxY/HbUh +kFFqO9yhowBrU0KVDD0I1O0O2dGcJAcwXWTZwDFm+LvQI+TAy+xduK4nJ79F +T3KUjxw0Cqh1qHgRGKR3ovu0kRwcCx4KFPfh5Fkjlq31RxaeHbSoH/EjUOWM +ArCPyUI4Td4iIZjAGzfyD2XZycBAdufJjlgC317P3+zqQEKz83ddozgCC1rT +ZvPNSLgpK/HnIcfvTdtU/gMSjhfbx96OJ1C0SfX1bWkSFu+MpFxMILDlNauz +/isBaxt+39+TSKARYXuPDCZg1yfFXy1XCBzWGLIO0mXBTcmo04/yOetlhIVw +NR2cAuLc9QsI9MxtvX5ongbrn1+weMpxW2rmz8ReGsSFp0o/KyRwrbBo5vYS +Grh8Lm3uKCZQKcfU5K4hDRgF71d+LiVwJuZc1fhpKWCrqVz/fY/AJfOdAdI8 +khBs9KFhaxOB/y3+ttc0EoeDvj1/KjiuUA9PWNIUB52/+/RUmgk8fjVavYcQ +h1+9X+tYLQTWua671/xrHZwO+nmfr5XA1h0q/IfvrIPYAqmyl+0EeryvbWfT +1kEKr0O281sCy0V0Z9OX1kBVw5fIhAECn2ov/HtqRgy8w58Nigxy+tdSZKmy +XwwI3TvGSRx7r7Sq+N0pBgnl4aJXhwhMEXjaUFcmBo4FEtkFIwQe8K3pmjom +BoLnTRsefeO812xGhsaEKBy0rvk9O8Opb3fqLo/JVbAwxg49ykeiP3cFo9h9 +BXis8g0Z5Hj7p2R+tukKeKu++y9XfhLNLoV0XNJcAbeDuIPcBUhs+x1W3rW0 +HJy5Avy9hUhkREbYRqQth7Y1lh6BK0gssDa4oNi5DNK3rrOOXkviakLbx2Kf +MOjGp6nnyZIYuiD3PJ0tAK+CT8TS5Ei8d/nnTzglAG7u5t1/c5y01Hzvh6cA +XN7FfzZGnsQmQ5GU5J0CMMnn/8FVgcTb/4hGsuf4oeCMcYTCRhJlqcpetjM/ +iIXNtd/SJNHFJifO0IAP/vW18qjWJ/FGq1tLmSYPHPi+un/rThKrVjs8eiTN +Aw9DXx2q5zjuotHxPjEeuBy3x/yxAYlZL2drzaa4AXN2bGnfRaJO9hWPoVvc +kPJWha/PhES74PSqCWVuMNgmkC1oSaLE1nZTUU0uuC50/731URJ/hkgEOr9b +pDbbBxa94ti8M3zK4sEi9ezOpmATFxL1sh4pWeUtUtPWxeKUK4k3x/9JyPJf +pAwK0qzk3Dnn+f09qbFqkfp3R/ibGS8S/0ybqO83W6A0w3Z0sANIPBybMz/W +/ZNqGX/e3HaGxHanLTXv1eaotUWn1PWjSDR4c+u2KGOOOnJkU0YNx21cH4Lt +hOeoX6+T/YujSQy0wL1E/yy1sdqWHnuWxPwz/ccDL89S7KgR/x3nSJw95+Wj +vPiDOijBy6hmkygtMVMY9f479RW3BhZcJ3FipUvebO00JZT0kmdDNomCVTUX +s29MU4pfnJOLOT5rohBmd3Wa8jpz/m5JDonJXa6yf05OU+ONPZN380gcOPFN +nFdjmprWj/B5WERi74o1PbOl/1GLBk9d398h8XtLd5LM7Slq1W6zg8KPOP0h +09ZuXjlO2bl90Yvi+JrW+WN518ap/OgTMgscl+yy0RKJGqd0HqZPjDWSOB4z +NSRtPk45a47EvHpC4sfWrsYDo2NUFSPybmoLiT+WV618LDtG2U/fXSbfQaLi +AZ2EnTdGqeJr6+r1e0n0GTETXz8+QiWJSJa3cqyxS2UjT9cI54tDL7L4TOKL +3XWneRpGqL1HZZIc+zj1PhMTY5g0Qk0pqbuG9pMY5HK58fWWEUq3dq9I+TCJ +rXJLNXNnh6m2D9EO5CRnnsjw+6Q5RFWYxO0v5jg5eULbnTVEZTxIMNo0RWLq +yLH7fMuHqGPZSep6/3HyW+qxQ/sHqdUe1/ltZ0iMvtSfbp48SB2aq73FniNR +6kfYp8QfA5SB58NciXkSj1Y1OuzpH6BUuxtTsziGQdtjUh0DFFfDszOlP0mM +dFT9OVk8QOXHdlk9WyAxrbG7KchhgLo4/4+J+SKJMkZlH5pMBqggr0/QxfHn +2X8n5HUGKGOzQcXB3yQ6mFj1MdcMUOqPRpjef0gMS12bVsk1QElpfFszzfG/ +Ow6IOk70U7z5E0IhSyR6GPJpre/pp8bWTf9e4lh3XnZ2oLWf+h9RYqdh + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{6, 9}, {0., 0.09692233889451339}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {6.000000000000013, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{6.000000000000013, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{6, 9}, {0., 0.09692233889451339}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{ + 3.991964380582947*^9, 3.9919653530989933`*^9, {3.993137734347739*^9, + 3.993137740191683*^9}}, + CellLabel->"Out[26]=",ExpressionUUID->"57b62674-2aa1-4c31-b99b-ab4cce4ab590"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"FindRoot", "[", + RowBox[{ + RowBox[{"{", + RowBox[{ + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "yy"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}], ",", + RowBox[{ + RowBox[{"Sum", "[", + RowBox[{ + RowBox[{ + SubscriptBox["\[PartialD]", "bb0"], " ", + RowBox[{"(", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"p", "[", + RowBox[{ + "p0", ",", "R2", ",", "a2", ",", "x2", ",", "r", ",", + "b2"}], "]"}], "2"], "-", + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}]}], ")"}], "2"], ")"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "12", ",", "0.1"}], "}"}]}], "]"}], + "\[Equal]", "0"}]}], "}"}], ",", + RowBox[{"{", + RowBox[{"yy", ",", "2"}], "}"}], ",", + RowBox[{"{", + RowBox[{"bb0", ",", "1"}], "}"}]}], "]"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", "\[IndentingNewLine]", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}]], "Input", + CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, + CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], + +Cell[BoxData[ + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "\[Rule]", "1.3500734902449187`"}], ",", + RowBox[{"bb0", "\[Rule]", "1.2509407283612735`"}]}], "}"}]], "Output", + CellChangeTimes->{3.991964391814556*^9, 3.9919653643031864`*^9}, + CellLabel->"Out[40]=",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"yy", "=", "1.35"}]], "Input", + CellChangeTimes->{{3.9919643977866764`*^9, 3.991964402237297*^9}, { + 3.991965369034729*^9, 3.9919653692465267`*^9}}, + CellLabel->"In[42]:=",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], + +Cell[BoxData["1.35`"], "Output", + CellChangeTimes->{3.9919644079976406`*^9, 3.9919653747711143`*^9}, + CellLabel->"Out[42]=",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"bb0", "=", "1.25"}]], "Input", + CellChangeTimes->{{3.9919644056263065`*^9, 3.991964406063389*^9}, { + 3.9919653725905457`*^9, 3.991965372909004*^9}}, + CellLabel->"In[41]:=",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], + +Cell[BoxData["1.25`"], "Output", + CellChangeTimes->{3.9919644088621464`*^9, 3.991965373888151*^9}, + CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"l2222", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"{", + RowBox[{ + FractionBox["1", + SuperscriptBox["p0", "2"]], + RowBox[{"(", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"], "+", + RowBox[{"yy", "*", + RowBox[{"(", + RowBox[{ + RowBox[{"R2", "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}], "*", + "b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], "]"}]}], + "+", + RowBox[{ + FractionBox[ + RowBox[{"R2", "*", "R2"}], "2"], "*", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + RowBox[{ + SubscriptBox["\[PartialD]", "R2"], " ", + SuperscriptBox[ + RowBox[{"(", + FractionBox["p0", + RowBox[{"1", "+", + SuperscriptBox["\[ExponentialE]", + FractionBox[ + RowBox[{"r", "-", "R2"}], "bb0"]]}]], ")"}], "2"]}]}], + "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"b2", "*", + RowBox[{"SphericalHarmonicY", "[", + RowBox[{"2", ",", "0", ",", "x2", ",", "\[Phi]"}], + "]"}]}], ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "}"}], "/.", + RowBox[{"R2", "\[Rule]", "R02"}]}], "/.", + RowBox[{"p0", "\[Rule]", "0.17"}]}], "/.", + RowBox[{"a2", "\[Rule]", "a2"}]}], "/.", + RowBox[{"x2", "\[Rule]", "0"}]}], "/.", + RowBox[{"b2", "\[Rule]", "b2"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "7", ",", "13"}], "}"}], ",", + RowBox[{"ColorFunction", "->", + RowBox[{"Function", "[", + RowBox[{"{", "Red", "}"}], "]"}]}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, + CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992520003015276*^9, + 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ +40714b1d68e9"], + +Cell[BoxData[ + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", + CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925200045686483`*^9, + 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ +0db8ce2e2f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + +Cell[BoxData[ + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.655, $CellContext`xmax$$ = + 9.38, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.108, $CellContext`yyv$$ = 1.35, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 360., {105.10417287785263`, 110.72917287785263`}}, Typeset`update$$ = 0, + Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{405.1, {194.01979787785262`, 199.64479787785262`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 11, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9924899121466837`*^9}, + CellLabel->"",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], + +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 12, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99248991233014*^9}, + CellLabel->"",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], + +Cell["\<\ +Show::gcomb: Could not combine the graphics objects in + Show[l1111, -Graphics-, PlotRange -> {{6, 13}, {0, 0.15}}].\ +\>", "Message", "MSG", + CellChangeTimes->{3.992520011711594*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] +}, Open ]] +}, +WindowSize->{714, 258}, +WindowMargins->{{-3, Automatic}, {267, Automatic}}, +CellContext->Notebook, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", +StyleDefinitions->"Default.nb", +ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" +] +(* End of Notebook Content *) + +(* Internal cache information *) +(*CellTagsOutline +CellTagsIndex->{} +*) +(*CellTagsIndex +CellTagsIndex->{} +*) +(*NotebookFileOutline +Notebook[{ +Cell[CellGroupData[{ +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1492, 46, 98, "Output",ExpressionUUID->"213e67fa-9f56-43ba-970a-371b5ac5a1da"] +}, Open ]], +Cell[CellGroupData[{ +Cell[3260, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3983, 131, 885, 25, 71, "Output",ExpressionUUID->"626def5c-a415-4e93-b7ac-68fbab1209d0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[4905, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], +Cell[6373, 204, 2581, 75, 149, "Output",ExpressionUUID->"08d4cbc1-4494-4fb0-b40d-24e3c9ffeeed"] +}, Open ]], +Cell[CellGroupData[{ +Cell[8991, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], +Cell[10674, 334, 2779, 81, 149, "Output",ExpressionUUID->"1847432c-666f-4346-8a10-8894f37de8cf"] +}, Open ]], +Cell[CellGroupData[{ +Cell[13490, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], +Cell[15336, 475, 3717, 109, 158, "Output",ExpressionUUID->"0b606863-fb8c-4301-b2ca-256c649da861"] +}, Open ]], +Cell[CellGroupData[{ +Cell[19090, 589, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], +Cell[21173, 650, 4787, 138, 193, "Output",ExpressionUUID->"887f2313-87d4-4833-9c9d-39753963cdb7"] +}, Open ]], +Cell[25975, 791, 148, 2, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[CellGroupData[{ +Cell[26148, 797, 348, 5, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26499, 804, 302, 5, 33, "Output",ExpressionUUID->"7b64265e-5c70-4b7f-8d26-df017ffe899f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[26838, 814, 334, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[27175, 822, 305, 5, 33, "Output",ExpressionUUID->"24fc2b2a-dc95-4695-949e-1108bb0391be"] +}, Open ]], +Cell[CellGroupData[{ +Cell[27517, 832, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27696, 837, 275, 4, 33, "Output",ExpressionUUID->"70c87e62-3604-4250-a3c0-ec89e2d43e19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28008, 846, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28269, 855, 290, 4, 33, "Output",ExpressionUUID->"2a5d5209-aa0d-41d7-a7ab-053789d9af1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[28596, 864, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28731, 868, 279, 4, 33, "Output",ExpressionUUID->"04648764-717f-4352-a776-3f7f64efb22a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29047, 877, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29327, 885, 292, 4, 33, "Output",ExpressionUUID->"6dce9d98-08f4-46e7-aa94-7c4a822f9f3a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[29656, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29917, 903, 286, 4, 33, "Output",ExpressionUUID->"dff6a52f-b088-4b6a-9ae6-97ef8c2eef50"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30240, 912, 354, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30597, 920, 160, 2, 33, "Output",ExpressionUUID->"75dfa57e-35b3-4a15-a6fc-c5b8d05c0439"] +}, Open ]], +Cell[CellGroupData[{ +Cell[30794, 927, 359, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[31156, 935, 161, 2, 33, "Output",ExpressionUUID->"de782772-0761-4902-bc2c-7145e3ff4a08"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31354, 942, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[31486, 946, 273, 4, 33, "Output",ExpressionUUID->"85151190-68aa-4130-b899-00de1b446f2e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[31796, 955, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31928, 959, 270, 4, 33, "Output",ExpressionUUID->"122cf5a4-d0e0-4b1e-9d20-be6552164d6b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[32235, 968, 2016, 51, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[34254, 1021, 16487, 317, 236, "Output",ExpressionUUID->"e539fa1e-daba-4183-871b-2aea4cee8026"] +}, Open ]], +Cell[50756, 1341, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[CellGroupData[{ +Cell[50909, 1348, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[53188, 1409, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +}, Open ]], +Cell[CellGroupData[{ +Cell[53564, 1421, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[55735, 1481, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +}, Open ]], +Cell[CellGroupData[{ +Cell[56069, 1493, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[56374, 1500, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +}, Open ]], +Cell[CellGroupData[{ +Cell[56614, 1508, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[56924, 1515, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[57174, 1522, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[59698, 1587, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[59853, 1592, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[60017, 1597, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[60198, 1604, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[62756, 1677, 3501, 67, 420, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[66294, 1749, 968, 27, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[67265, 1778, 30805, 553, 236, "Output",ExpressionUUID->"a15ff009-1b6a-4666-8be3-f36363556706"] +}, Open ]], +Cell[CellGroupData[{ +Cell[98107, 2336, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[100473, 2399, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[100824, 2410, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[101053, 2416, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[101265, 2423, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[101520, 2429, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[101712, 2434, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[102696, 2462, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], +Cell[102850, 2467, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[103016, 2472, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], +Cell[CellGroupData[{ +Cell[103193, 2479, 2625, 72, 247, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[105821, 2553, 3580, 68, 420, "Output",ExpressionUUID->"f1652746-e7a6-46a2-8565-b3bcbfa37e7c"] +}, Open ]], +Cell[109416, 2624, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[109679, 2632, 773, 22, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[110455, 2656, 27083, 490, 229, "Output",ExpressionUUID->"84075ef1-b627-4a6f-aae3-3a60e57063ad"] +}, Open ]], +Cell[CellGroupData[{ +Cell[137575, 3151, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[139740, 3210, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[140577, 3227, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +}, Open ]], +Cell[CellGroupData[{ +Cell[140931, 3238, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[141184, 3244, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[141398, 3251, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[141650, 3257, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[141844, 3262, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[144407, 3328, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[144562, 3333, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[144730, 3338, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[144907, 3345, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[147438, 3418, 3517, 67, 420, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] +}, Open ]], +Cell[CellGroupData[{ +Cell[150992, 3490, 918, 25, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[151913, 3517, 23624, 434, 233, "Output",ExpressionUUID->"57b62674-2aa1-4c31-b99b-ab4cce4ab590"] +}, Open ]], +Cell[CellGroupData[{ +Cell[175574, 3956, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[177910, 4018, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178264, 4029, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[178518, 4035, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[178734, 4042, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[178989, 4048, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] +}, Open ]], +Cell[179181, 4053, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[182028, 4127, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], +Cell[182183, 4132, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[182390, 4138, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], +Cell[CellGroupData[{ +Cell[182569, 4145, 2580, 72, 247, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[185152, 4219, 3531, 67, 410, "Output",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], +Cell[188686, 4288, 2324, 36, 54, "Message",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], +Cell[191013, 4326, 2321, 36, 54, "Message",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], +Cell[193337, 4364, 299, 7, 36, "Message",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] +}, Open ]] +} +] +*) + diff --git a/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/rename.zsh b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/rename.zsh new file mode 100755 index 0000000..f26637d --- /dev/null +++ b/Pu240_798-811_TitovAA/172-68_h_Pu240_26-27/rename.zsh @@ -0,0 +1,30 @@ +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb index 78f75b1..0ac9e7a 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_gid_Qw1.nb @@ -10,35 +10,5085 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 399390, 9355] -NotebookOptionsPosition[ 375168, 8989] -NotebookOutlinePosition[ 375597, 9006] -CellTagsIndexPosition[ 375554, 9003] +NotebookDataLength[ 683860, 16260] +NotebookOptionsPosition[ 643955, 15618] +NotebookOutlinePosition[ 644396, 15636] +CellTagsIndexPosition[ 644353, 15633] 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.8"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993120093374651*^9, 3.993120098406262*^9}, { + 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, + 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { + 3.993120826638487*^9, 3.99312091050727*^9}}, + CellLabel-> + "(Debug) In[4]:=",ExpressionUUID->"271fe1ed-be37-42ae-9e61-4864b7a72f68"], + +Cell[BoxData["1.8`"], "Output", + CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, + 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}, + 3.9931263962514753`*^9, 3.993127107949593*^9, 3.9931273269905376`*^9, + 3.993129929766796*^9}, + CellLabel-> + "(Debug) Out[4]=",ExpressionUUID->"ebefacdd-7c8f-4a47-ae8e-c1f8f105d41e"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9921791748924236`*^9, 3.992179175479521*^9}}, + CellLabel-> + "(Debug) In[5]:=",ExpressionUUID->"9cd63ee4-4ab5-4c2c-8ee8-5d4dc579ec08"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], + 3.9913196497381973`*^9, 3.992179197984804*^9, 3.992572214097535*^9, + 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, + 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { + 3.9931208090163393`*^9, 3.993120918005108*^9}, 3.993126396590149*^9, + 3.99312710802812*^9, 3.993127327031427*^9, 3.993129929806696*^9}, + CellLabel-> + "(Debug) Out[5]=",ExpressionUUID->"bb1df696-37fa-4a20-8ec5-05ece139f6ca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, + CellLabel-> + "(Debug) In[6]:=",ExpressionUUID->"fb64ed71-2f89-4ffd-a85b-88f0e717228e"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{ + 3.992179213346216*^9, 3.992572214121804*^9, 3.992572317082644*^9, + 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, + 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, + 3.993120918033216*^9}, 3.9931263966177673`*^9, 3.993127108045971*^9, + 3.993127327055435*^9, 3.99312992983158*^9}, + CellLabel-> + "(Debug) Out[6]=",ExpressionUUID->"7f69aaf4-4125-4adf-bcc7-37fe98ba68a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "(Debug) In[7]:=",ExpressionUUID->"47510b32-ee4a-4496-acc3-48b173a35079"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.992572214146598*^9, 3.992572317086834*^9, + 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, + 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, + 3.993120918037675*^9}, 3.9931263966592207`*^9, 3.993127108062867*^9, + 3.9931273270590353`*^9, 3.993129929855886*^9}, + CellLabel-> + "(Debug) Out[7]=",ExpressionUUID->"51e72b23-65ad-49dd-958e-f23cdd456570"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "(Debug) In[8]:=",ExpressionUUID->"76a29ca9-f66e-471a-a5b3-2720107b703f"], + +Cell[BoxData["0.54325`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.992572214170871*^9, 3.992572317111895*^9, + 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, + 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, + 3.993120918063335*^9}, 3.9931263966877337`*^9, 3.993127108066464*^9, + 3.993127327083083*^9, 3.99312992986033*^9}, + CellLabel-> + "(Debug) Out[8]=",ExpressionUUID->"8cd9f6e5-5b6a-41f5-95f0-22c9292a7f1d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "(Debug) In[9]:=",ExpressionUUID->"a9a537d4-3477-43ed-9561-f1c27109561d"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.992572214197208*^9, 3.992572317132773*^9, + 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, + 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, + 3.993120918090218*^9}, 3.993126396714637*^9, 3.993127108084917*^9, + 3.993127327106142*^9, 3.993129929903006*^9}, + CellLabel-> + "(Debug) Out[9]=",ExpressionUUID->"1a534a8a-4070-4f55-a155-8e910726f0a5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R01", "=", + RowBox[{"1.16", "*", + SuperscriptBox["A1", + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellChangeTimes->{{3.9434138465865016`*^9, 3.9434138476462865`*^9}}, + CellLabel-> + "(Debug) In[10]:=",ExpressionUUID->"f35fd140-9381-4b0b-8fc5-46fb9ab06ffc"], + +Cell[BoxData["6.4760133991237705`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.992572214222725*^9, 3.992572317154562*^9, + 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, + 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, + 3.9931209181194077`*^9}, 3.993126396741642*^9, 3.993127108102049*^9, + 3.993127327128428*^9, 3.993129929926125*^9}, + CellLabel-> + "(Debug) Out[10]=",ExpressionUUID->"d4213a27-68d2-4b73-ba2e-285739cc4330"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "(Debug) In[11]:=",ExpressionUUID->"2abdd448-7a98-4918-89e8-046050715ba9"], + +Cell[BoxData["4.6878384239217405`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992572214247353*^9, 3.9925723171758833`*^9, + 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, + 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, + 3.993120918144981*^9}, 3.993126396766501*^9, 3.9931271081205463`*^9, + 3.99312732715136*^9, 3.993129929948636*^9}, + CellLabel-> + "(Debug) Out[11]=",ExpressionUUID->"bf7971ec-4fc2-46bf-a38e-dd60e54755f9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, + CellLabel-> + "(Debug) In[12]:=",ExpressionUUID->"b226a67e-f233-4c25-9708-fe8587a7cd30"], + +Cell[BoxData["0.787635594208527`"], "Output", + CellChangeTimes->{ + 3.9921792420000687`*^9, 3.992572214271277*^9, 3.992572317197154*^9, + 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, + 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, + 3.993120918172269*^9}, 3.9931263967899513`*^9, 3.9931271081375427`*^9, + 3.993127327173975*^9, 3.9931299299716787`*^9}, + CellLabel-> + "(Debug) Out[12]=",ExpressionUUID->"639775c3-d20a-44fa-ae71-8969fa44aa82"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, + CellLabel-> + "(Debug) In[13]:=",ExpressionUUID->"61818bf8-739c-47e1-bc6c-0aa1f2b677d0"], + +Cell[BoxData["0.446333511300556`"], "Output", + CellChangeTimes->{ + 3.9921792398346214`*^9, 3.992572214295*^9, 3.992572317218054*^9, + 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, + 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, + 3.99312091819843*^9}, 3.993126396813437*^9, 3.993127108161908*^9, + 3.993127327196413*^9, 3.993129929995016*^9}, + CellLabel-> + "(Debug) Out[13]=",ExpressionUUID->"cb639b5b-e780-4e31-ab19-32e2980db4e2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "(Debug) In[14]:=",ExpressionUUID->"e8f86f84-d79c-4e94-ae80-1dca0472ec6f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992572214318672*^9, 3.992572317239251*^9, + 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, + 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, + 3.993120918224504*^9}, 3.993126396838297*^9, 3.993127108181823*^9, + 3.993127327218768*^9, 3.993129930018751*^9}, + CellLabel-> + "(Debug) Out[14]=",ExpressionUUID->"831f8196-7226-40d0-b021-2e3ed7f7a69a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "(Debug) In[15]:=",ExpressionUUID->"591e45a1-73ec-48a8-b273-8c08db5c8439"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.992572214341442*^9, 3.99257231726003*^9, + 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, + 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, + 3.993120918250256*^9}, 3.9931263968628597`*^9, 3.9931271081993628`*^9, + 3.9931273272409983`*^9, 3.993129930042575*^9}, + CellLabel-> + "(Debug) Out[15]=",ExpressionUUID->"3464a13f-8362-47ef-b4e3-27e939379e07"] +}, 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-> + "(Debug) In[16]:=",ExpressionUUID->"0940f8ce-9e49-412d-be4c-599647770f21"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9925722143657017`*^9, 3.992572317280959*^9, + 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, + 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, + 3.993120918276112*^9}, 3.9931263968879843`*^9, 3.993127108217485*^9, + 3.993127327263125*^9, 3.993129930068864*^9}, + CellLabel-> + "(Debug) Out[16]=",ExpressionUUID->"0e1f689a-2c0f-44e5-91bf-a418d704fd59"] +}, 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-> + "(Debug) In[17]:=",ExpressionUUID->"359bcdad-aa6b-4b8f-91c2-ebb5cf618c9c"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992572214389948*^9, 3.992572317303102*^9, + 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, + 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, + 3.99312091830203*^9}, 3.993126396911474*^9, 3.993127108235187*^9, + 3.993127327285036*^9, 3.993129930093583*^9}, + CellLabel-> + "(Debug) Out[17]=",ExpressionUUID->"05f87329-b707-4cee-adee-ca48e8ff5a75"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "(Debug) In[18]:=",ExpressionUUID->"e027fafe-fd13-4595-bbfc-2bc4bc0c7fe0"], + +Cell[BoxData["0.4893939523240862`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, + 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, + 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, + 3.99312091832813*^9}, 3.993126396937214*^9, 3.9931271082526913`*^9, + 3.993127327307868*^9, 3.9931299301179867`*^9}, + CellLabel-> + "(Debug) Out[18]=",ExpressionUUID->"667b2fd1-147a-47a4-b488-118bdfd47ba2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "(Debug) In[19]:=",ExpressionUUID->"b5fcad0f-f1ce-473f-8fd1-052a3498bcc7"], + +Cell[BoxData[ + RowBox[{"-", "0.11691975046471094`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, + 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, + 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, + 3.99312091835464*^9}, 3.993126396963295*^9, 3.993127108270629*^9, + 3.993127327330381*^9, 3.9931299301418533`*^9}, + CellLabel-> + "(Debug) Out[19]=",ExpressionUUID->"8a4aecc1-ffc9-481d-a476-225407926f30"] +}, 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-> + "(Debug) In[20]:=",ExpressionUUID->"37f45029-2ca4-4af1-9f80-2482ab313a91"], + +Cell[BoxData[ + RowBox[{"-", "0.47923841529777084`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, + 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, + 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, + 3.993120918381035*^9}, 3.993126396990156*^9, 3.9931271082880383`*^9, + 3.993127327353141*^9, 3.993129930165496*^9}, + CellLabel-> + "(Debug) Out[20]=",ExpressionUUID->"73988b34-4594-416f-9ca3-2e839f8d096a"] +}, 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-> + "(Debug) In[21]:=",ExpressionUUID->"4d48a5b7-4072-401d-8044-36ca3ea5b772"], + +Cell[BoxData["0.6645788995097195`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, + 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, + 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, + 3.993120918385751*^9}, 3.9931263970193033`*^9, 3.993127108305181*^9, + 3.9931273273757467`*^9, 3.993129930188332*^9}, + CellLabel-> + "(Debug) Out[21]=",ExpressionUUID->"a016c299-cc56-4abc-bb4b-f95bf1c292a1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "(Debug) In[22]:=",ExpressionUUID->"0939852a-6299-46a6-8f0e-68d50f0449fc"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.992572214515427*^9, 3.99257231741498*^9, + 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, + 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, + 3.9931209184116087`*^9}, 3.99312639704468*^9, 3.993127108308776*^9, + 3.993127327398494*^9, 3.9931299302114077`*^9}, + CellLabel-> + "(Debug) Out[22]=",ExpressionUUID->"94f9036b-1675-4c6a-b299-09dd10991902"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "(Debug) In[23]:=",ExpressionUUID->"3cd03327-b0ac-478a-96c2-9ade72bfa53e"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9925722145429707`*^9, 3.992572317437202*^9, + 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, + 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, + 3.9931209184381313`*^9}, 3.993126397071262*^9, 3.99312710832703*^9, + 3.9931273274216337`*^9, 3.993129930233728*^9}, + CellLabel-> + "(Debug) Out[23]=",ExpressionUUID->"59bfc96b-dd8d-480a-832c-32eef115bbc9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "(Debug) In[24]:=",ExpressionUUID->"6107329f-32aa-40a4-8e39-6ec72a5e7c48"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992572214574439*^9, 3.992572317459443*^9, + 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, + 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, + 3.9931209184643908`*^9}, 3.993126397099202*^9, 3.993127108343864*^9, + 3.993127327445428*^9, 3.9931299302566557`*^9}, + CellLabel-> + "(Debug) Out[24]=",ExpressionUUID->"2151269a-6045-4948-8a1c-deb3037e6171"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "(Debug) In[25]:=",ExpressionUUID->"208dc8fd-7d0a-4d4c-8c24-ba03a4a539fc"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992572214602646*^9, 3.9925723174828*^9, + 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, + 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, + 3.993120918489931*^9}, 3.993126397126109*^9, 3.993127108360798*^9, + 3.9931273274692783`*^9, 3.993129930279661*^9}, + CellLabel-> + "(Debug) Out[25]=",ExpressionUUID->"d21eef27-2174-4652-a8f8-eb8857a48287"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "(Debug) In[26]:=",ExpressionUUID->"03f697ec-0902-4c3d-be6e-7e81a5d22949"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992572214629313*^9, 3.992572317507607*^9, + 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, + 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, + 3.993120918515835*^9}, 3.9931263971541853`*^9, 3.9931271083779078`*^9, + 3.99312732750038*^9, 3.9931299303028812`*^9}, + CellLabel-> + "(Debug) Out[26]=",ExpressionUUID->"710d879c-8dfb-490e-afae-915b42bdb057"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.992179334842106*^9, 3.992179335687786*^9}}, + CellLabel-> + "(Debug) In[27]:=",ExpressionUUID->"549b305c-5dd2-41d0-942c-83e2182ed50c"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.992179336847067*^9, 3.9925722146573257`*^9, 3.992572317531928*^9, + 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, + 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, + 3.993120918541663*^9}, 3.993126397182165*^9, 3.9931271083947906`*^9, + 3.993127327526623*^9, 3.993129930307193*^9}, + CellLabel-> + "(Debug) Out[27]=",ExpressionUUID->"082ddb53-534e-4b83-8a07-c0da22a76d8d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, + CellLabel-> + "(Debug) In[28]:=",ExpressionUUID->"c84c8225-36b0-48ad-88a0-e38415676c68"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9921793318030663`*^9, 3.9925722146853657`*^9, + 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, + 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { + 3.993120809536613*^9, 3.9931209185672503`*^9}, 3.993126397209779*^9, + 3.993127108411848*^9, 3.993127327550788*^9, 3.993129930331666*^9}, + CellLabel-> + "(Debug) Out[28]=",ExpressionUUID->"e7bdefd6-cad3-4bf2-8ea4-7eed405830d5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "(Debug) In[29]:=",ExpressionUUID->"9a4cd3be-dd3c-4275-a42c-2cb1e2691517"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992572214711643*^9, 3.9925723175775127`*^9, + 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, + 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, + 3.993120918592782*^9}, 3.993126397236918*^9, 3.9931271084302473`*^9, + 3.9931273275743093`*^9, 3.9931299303548107`*^9}, + CellLabel-> + "(Debug) Out[29]=",ExpressionUUID->"8eedb5d0-2985-4a64-a2f9-2c4ac83fae38"] +}, 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-> + "(Debug) In[30]:=",ExpressionUUID->"3d2b5f54-d499-44d7-bb25-e459635e5ebe"], + +Cell[BoxData["0.10009404388714734`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9925722147384853`*^9, 3.9925723175992517`*^9, + 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, + 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, + 3.993120918618535*^9}, 3.993126397265643*^9, 3.993127108447774*^9, + 3.993127327597167*^9, 3.993129930377665*^9}, + CellLabel-> + "(Debug) Out[30]=",ExpressionUUID->"55929cc6-4d59-49dd-8dd4-e7d1d043b31d"] +}, 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-> + "(Debug) In[31]:=",ExpressionUUID->"29b3fd1f-47d5-4619-b1d4-ce04a95b9b2c"], + +Cell[BoxData[ + RowBox[{"-", "2.5770219435736674`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9925722147662983`*^9, 3.992572317620441*^9, + 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, + 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, + 3.99312091864408*^9}, 3.993126397321745*^9, 3.9931271084650297`*^9, + 3.993127327619956*^9, 3.9931299304007187`*^9}, + CellLabel-> + "(Debug) Out[31]=",ExpressionUUID->"a3b35340-7b20-4d1d-a111-c9aeef292259"] +}, 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-> + "(Debug) In[32]:=",ExpressionUUID->"2bdbfe37-41d1-4574-83d6-34dcfa23e750"], + +Cell[BoxData["17.107103859214785`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, + 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, + 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, + 3.99312091866967*^9}, 3.993126397349163*^9, 3.993127108482143*^9, + 3.993127327644107*^9, 3.993129930424616*^9}, + CellLabel-> + "(Debug) Out[32]=",ExpressionUUID->"a4a08d2b-5679-45de-93f7-abab7d09c36b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "(Debug) In[33]:=",ExpressionUUID->"99dc226c-1b4e-4f0a-bbd8-93adb991a39a"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992572214844244*^9, 3.992572317663885*^9, + 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, + 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, + 3.993120918694831*^9}, 3.9931263973740883`*^9, 3.99312710849828*^9, + 3.993127327666795*^9, 3.993129930447353*^9}, + CellLabel-> + "(Debug) Out[33]=",ExpressionUUID->"8b3f81f6-962b-479d-9739-64fa88cf1341"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.7300"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99217938935705*^9, 3.9921793928277493`*^9}}, + CellLabel-> + "(Debug) In[34]:=",ExpressionUUID->"f48ec7bd-dc86-47c4-b76b-d162a14a7041"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{ + 3.992179393619543*^9, 3.99257221486978*^9, 3.9925723176844263`*^9, + 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, + 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, + 3.9931209187201843`*^9}, 3.993126397400276*^9, 3.993127108513898*^9, + 3.9931273276905518`*^9, 3.993129930470989*^9}, + CellLabel-> + "(Debug) Out[34]=",ExpressionUUID->"ab8d9c52-9947-4c10-86be-736d8ac5babd"] +}, 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-> + "(Debug) In[35]:=",ExpressionUUID->"6143058e-d48f-4e50-ab88-a67fcfe19c2f"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", " ", "0.7600"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.992179397583227*^9, 3.992179400444868*^9}}, + CellLabel-> + "(Debug) In[36]:=",ExpressionUUID->"309c17e7-0272-49aa-adfc-a68234384595"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{ + 3.992179401201977*^9, 3.992572214909528*^9, 3.992572317717004*^9, + 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, + 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, + 3.993120918756428*^9}, 3.993126397434441*^9, 3.99312710854491*^9, + 3.993127327734688*^9, 3.993129930499295*^9}, + CellLabel-> + "(Debug) Out[36]=",ExpressionUUID->"ee588178-2057-4965-8183-a754de3d7dee"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "(Debug) In[37]:=",ExpressionUUID->"a746702c-1b33-4ace-93f7-a4df59bb032e"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", " ", "2.400"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, + CellLabel-> + "(Debug) In[38]:=",ExpressionUUID->"0f32b9a6-42f4-447a-8cea-879fe8270596"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{ + 3.992179407540327*^9, 3.992572214945683*^9, 3.9925723177561007`*^9, + 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, + 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, + 3.993120918792803*^9}, 3.993126397467867*^9, 3.993127108575645*^9, + 3.993127327780107*^9, 3.993129930527397*^9}, + CellLabel-> + "(Debug) Out[38]=",ExpressionUUID->"58349dd2-d771-42a1-98f5-11365127674a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "(Debug) In[39]:=",ExpressionUUID->"ff06262d-2a7d-4bf2-9889-3482d88544e6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", " ", "1.1050"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, + CellLabel-> + "(Debug) In[40]:=",ExpressionUUID->"32f78082-dea1-4601-b18d-c381615ae618"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{ + 3.992179415754301*^9, 3.992572214981649*^9, 3.992572317797142*^9, + 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, + 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, + 3.993120918832294*^9}, 3.9931263974996033`*^9, 3.9931271086069736`*^9, + 3.993127327858879*^9, 3.9931299305553226`*^9}, + CellLabel-> + "(Debug) Out[40]=",ExpressionUUID->"d9a056a7-1bf8-42e7-9d97-48db084449e1"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "(Debug) In[41]:=",ExpressionUUID->"2aafa00d-a8c1-4bad-a089-c7f42ec9638d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", " ", "1.4012"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, + 3.992179423583313*^9}}, + CellLabel-> + "(Debug) In[42]:=",ExpressionUUID->"9785ea3b-ac47-43e2-a47f-ae9c169e6d42"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{ + 3.9921794257836323`*^9, 3.992572215020274*^9, 3.9925723178372593`*^9, + 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, + 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, + 3.993120918882786*^9}, 3.9931263975308533`*^9, 3.993127108637912*^9, + 3.9931273279852*^9, 3.993129930582982*^9}, + CellLabel-> + "(Debug) Out[42]=",ExpressionUUID->"bb68f11a-a81a-4ae5-ad78-c76bdbed485b"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "(Debug) In[43]:=",ExpressionUUID->"ff11fa55-f797-455b-8b66-5cc8b90fb113"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", " ", "0.5547"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, + 3.9921794329809513`*^9}}, + CellLabel-> + "(Debug) In[44]:=",ExpressionUUID->"73c20400-1de0-4e8b-8b8e-e79c0739ef44"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{ + 3.9921794363325005`*^9, 3.992572215056624*^9, 3.992572317866984*^9, + 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, + 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, + 3.993120918919759*^9}, 3.993126397559119*^9, 3.993127108670261*^9, + 3.993127328084579*^9, 3.993129930610573*^9}, + CellLabel-> + "(Debug) Out[44]=",ExpressionUUID->"9b9cf5d8-064b-43db-b84d-8dc11486eded"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "(Debug) In[45]:=",ExpressionUUID->"cdd81c82-7dd4-4ea6-9c96-b8308c603ac5"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", " ", "1.1338"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, + 3.992179445208559*^9}}, + CellLabel-> + "(Debug) In[46]:=",ExpressionUUID->"10e11c9a-e95d-4c66-9815-1f1664c00891"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{ + 3.99217944657938*^9, 3.992572215093463*^9, 3.992572317906247*^9, + 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, + 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, + 3.993120918956725*^9}, 3.993126397589849*^9, 3.9931271087029333`*^9, + 3.993127328126643*^9, 3.9931299306393948`*^9}, + CellLabel-> + "(Debug) Out[46]=",ExpressionUUID->"038ee047-fe21-4a0b-8b4f-84b7a3ffee1c"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "(Debug) In[47]:=",ExpressionUUID->"315686a4-25e8-483d-92e8-dda064ea9ad6"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, + CellLabel-> + "(Debug) In[48]:=",ExpressionUUID->"0fabce16-24b0-4623-8e95-3d3e5f5dc8fa"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.992179452410452*^9, 3.9925722151320877`*^9, 3.99257231794547*^9, + 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, + 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, + 3.993120919005844*^9}, 3.9931263976232653`*^9, 3.993127108734625*^9, + 3.9931273281682453`*^9, 3.9931299306665077`*^9}, + CellLabel-> + "(Debug) Out[48]=",ExpressionUUID->"3f3daab7-2be3-4e5e-aa43-7906df30b338"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "(Debug) In[49]:=",ExpressionUUID->"01631860-7c61-4e51-8053-3b30ffca80a4"], + +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-> + "(Debug) In[50]:=",ExpressionUUID->"2fa4e45f-3062-48db-9f6e-ce327bff9a00"], + +Cell[BoxData["0.2740681472438999`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, + 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, + 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, + 3.993120919069702*^9}, 3.993126397737794*^9, 3.993127108801776*^9, + 3.993127328244122*^9, 3.99312993079362*^9}, + CellLabel-> + "(Debug) Out[50]=",ExpressionUUID->"ea5a3f16-6c3b-49f9-b156-90fa4f409bde"] +}, 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-> + "(Debug) In[51]:=",ExpressionUUID->"43ec8d96-7b69-43c2-937b-1c891c72816f"], + +Cell[BoxData["6.729727276682354`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, + 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, + 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, + 3.9931209190984907`*^9}, 3.993126397786759*^9, 3.9931271088494673`*^9, + 3.993127328284951*^9, 3.9931299308716*^9}, + CellLabel-> + "(Debug) Out[51]=",ExpressionUUID->"3dbb75d7-abe4-41b4-93ba-2c446d0dd472"] +}, 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-> + "(Debug) In[52]:=",ExpressionUUID->"6d71eb66-26f6-49c5-8a6f-6d4ab5736a74"], + +Cell[BoxData[ + RowBox[{"-", "33.539435872430126`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, + 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, + 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, + 3.9931209191268253`*^9}, 3.993126397844788*^9, 3.993127108888278*^9, + 3.993127328322741*^9, 3.993129930913966*^9}, + CellLabel-> + "(Debug) Out[52]=",ExpressionUUID->"f2f166ea-878e-4576-82d5-a4238865cde8"] +}, 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-> + "(Debug) In[53]:=",ExpressionUUID->"a0ccfd8f-a2a2-4336-a0a2-35083139f5e1"], + +Cell[BoxData[ + RowBox[{"-", "42.596524206199966`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, + 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, + 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, + 3.993120919158321*^9}, 3.993126397903695*^9, 3.993127108944912*^9, + 3.993127328366109*^9, 3.993129930961933*^9}, + CellLabel-> + "(Debug) Out[53]=",ExpressionUUID->"40197109-de31-4159-bf58-2f693f0908e9"] +}, 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-> + "(Debug) In[54]:=",ExpressionUUID->"8a22c72b-903e-4c44-a421-1707f3155c10"], + +Cell[BoxData[ + RowBox[{"-", "101.06737781470315`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, + 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, + 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, + 3.993120919189701*^9}, 3.9931263979617987`*^9, 3.993127109001227*^9, + 3.993127328408454*^9, 3.993129931011693*^9}, + CellLabel-> + "(Debug) Out[54]=",ExpressionUUID->"59ba51cd-46e1-4c22-866a-d93630eb6024"] +}, 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-> + "(Debug) In[55]:=",ExpressionUUID->"d7ac7cec-a30d-4b76-a656-0a157644dee5"], + +Cell[BoxData[ + RowBox[{"-", "257.9635659781649`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, + 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, + 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, + 3.993120919227768*^9}, 3.993126398030951*^9, 3.99312710912798*^9, + 3.993127328460342*^9, 3.993129931077551*^9}, + CellLabel-> + "(Debug) Out[55]=",ExpressionUUID->"79d3b66c-77b5-4612-a113-f6bb4711a0a0"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "(Debug) In[56]:=",ExpressionUUID->"9b7ebd55-dba8-4456-8559-93398d4bd488"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9925722154529037`*^9, 3.9925723182371407`*^9, + 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, + 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, + 3.9931209192549257`*^9}, 3.9931263980390377`*^9, 3.9931271092133408`*^9, + 3.9931273284825706`*^9, 3.9931299311037893`*^9}, + CellLabel-> + "(Debug) Out[56]=",ExpressionUUID->"f7fe0523-5b49-4502-82a9-a2ef8d4c9a65"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "(Debug) In[57]:=",ExpressionUUID->"0299b24a-b678-4d36-a234-69dc62f13a9d"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.992572215478106*^9, 3.992572318257779*^9, + 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, + 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, + 3.993120919282319*^9}, 3.9931263980458927`*^9, 3.993127109244834*^9, + 3.993127328504586*^9, 3.993129931127369*^9}, + CellLabel-> + "(Debug) Out[57]=",ExpressionUUID->"42f973a9-ce53-4ffc-a7ed-c6379f5c5455"] +}, 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-> + "(Debug) In[58]:=",ExpressionUUID->"014750f8-e22d-4a2e-9e29-9da66fd52d3a"], + +Cell[BoxData["206.09321333582264`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, + 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, + 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, + 3.9931209193092546`*^9}, 3.993126398052409*^9, 3.993127109275919*^9, + 3.993127328527534*^9, 3.9931299311534243`*^9}, + CellLabel-> + "(Debug) Out[58]=",ExpressionUUID->"9a16edf3-c7c5-4ea2-8c04-f62d4f5f12a1"] +}, 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-> + "(Debug) In[59]:=",ExpressionUUID->"2baf8cdb-f278-4e84-a711-91de26ed4a3c"], + +Cell[BoxData[ + RowBox[{"-", "161.1868287134346`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, + 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, + 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, + 3.9931209193366623`*^9}, 3.99312639805881*^9, 3.993127109307798*^9, + 3.993127328549741*^9, 3.9931299311778517`*^9}, + CellLabel-> + "(Debug) Out[59]=",ExpressionUUID->"8234b272-0f62-4e83-b8f5-6770359d0cda"] +}, 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-> + "(Debug) In[60]:=",ExpressionUUID->"ec1bf389-eb3b-44b1-b8ec-3e5dad509450"], + +Cell[BoxData["193.7537427380251`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, + 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, + 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, + 3.993120919363965*^9}, 3.99312639806597*^9, 3.993127109343749*^9, + 3.9931273285713377`*^9, 3.993129931200837*^9}, + CellLabel-> + "(Debug) Out[60]=",ExpressionUUID->"7aed2862-15f8-45f0-8ff3-2e43fad48da5"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "(Debug) In[61]:=",ExpressionUUID->"7cc5c200-d23a-4aab-8dd4-dd2b39dfb629"], + +Cell[BoxData["0.4893939523240862`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, + 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, + 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, + 3.993120919368601*^9}, 3.9931263980726233`*^9, 3.993127109381337*^9, + 3.993127328593055*^9, 3.99312993122449*^9}, + CellLabel-> + "(Debug) Out[61]=",ExpressionUUID->"9e0da62e-f7cd-4621-ae8a-18f8d1a4dd94"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "(Debug) In[62]:=",ExpressionUUID->"1d636216-0388-4ec1-9061-7a8f850c1529"], + +Cell[BoxData[ + RowBox[{"-", "0.11691975046471094`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, + 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, + 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, + 3.993120919396596*^9}, 3.993126398079549*^9, 3.9931271094149017`*^9, + 3.9931273286142263`*^9, 3.993129931247855*^9}, + CellLabel-> + "(Debug) Out[62]=",ExpressionUUID->"40f7067e-7234-4ee4-b319-e760495efaca"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "(Debug) In[63]:=",ExpressionUUID->"2b611e92-f5d7-4a75-a966-8087a81cb945"], + +Cell[BoxData[ + RowBox[{"-", "0.47923841529777084`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, + 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, + 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, + 3.993120919423568*^9}, 3.993126398086187*^9, 3.993127109447815*^9, + 3.9931273286352787`*^9, 3.993129931271668*^9}, + CellLabel-> + "(Debug) Out[63]=",ExpressionUUID->"f01ae50f-ea4f-47f0-844f-4a862ace4f6e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "(Debug) In[64]:=",ExpressionUUID->"bfd19aa0-e31d-4c48-af85-0609e9cece67"], + +Cell[BoxData["0.6645788995097195`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, + 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, + 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, + 3.993120919451396*^9}, 3.993126398093424*^9, 3.993127109479258*^9, + 3.9931273286560917`*^9, 3.993129931295282*^9}, + CellLabel-> + "(Debug) Out[64]=",ExpressionUUID->"d1def81e-2fae-4b69-9f76-40f86be8b607"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "(Debug) In[65]:=",ExpressionUUID->"7968bc87-c156-4586-9548-c0f484bc9993"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9925722156840057`*^9, 3.992572318405039*^9, + 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, + 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, + 3.9931209194800158`*^9}, 3.9931263980999727`*^9, 3.993127109512844*^9, + 3.9931273286772337`*^9, 3.9931299313180227`*^9}, + CellLabel-> + "(Debug) Out[65]=",ExpressionUUID->"d764b154-b19d-4d4c-b0f4-bf3fe23a9da3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "(Debug) In[66]:=",ExpressionUUID->"36690ea4-3542-490f-be49-8e8a3e2cf11e"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.992572215708795*^9, 3.992572318425254*^9, + 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, + 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, + 3.993120919508306*^9}, 3.993126398108006*^9, 3.993127109545864*^9, + 3.993127328698331*^9, 3.99312993132206*^9}, + CellLabel-> + "(Debug) Out[66]=",ExpressionUUID->"863cdf5d-f8f2-41de-91da-b49111eae39f"] +}, 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-> + "(Debug) In[67]:=",ExpressionUUID->"28e155e6-d777-43b5-ab9a-9d65def3bf50"], + +Cell[BoxData[ + RowBox[{"-", "32.4727450296612`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, + 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, + 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, + 3.993120919536584*^9}, 3.993126398115017*^9, 3.993127109578094*^9, + 3.993127328719265*^9, 3.993129931348179*^9}, + CellLabel-> + "(Debug) Out[67]=",ExpressionUUID->"758564e0-e462-4e8c-957d-3cd8c9522525"] +}, 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-> + "(Debug) In[68]:=",ExpressionUUID->"83bdd55e-e946-4e82-965c-da9c55a23023"], + +Cell[BoxData[ + RowBox[{"-", "8.129129787064175`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, + 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, + 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, + 3.9931209195640697`*^9}, 3.9931263981223907`*^9, 3.99312710961084*^9, + 3.993127328741523*^9, 3.993129931371181*^9}, + CellLabel-> + "(Debug) Out[68]=",ExpressionUUID->"581ae010-1231-4ca0-b981-88f1c24ff227"] +}, 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-> + "(Debug) In[69]:=",ExpressionUUID->"f8f823be-8610-4f22-9dbc-533917357c84"], + +Cell[BoxData["173.62046830616146`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, + 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, + 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, + 3.9931209195925417`*^9}, 3.99312639812998*^9, 3.9931271096448097`*^9, + 3.993127328762958*^9, 3.993129931395224*^9}, + CellLabel-> + "(Debug) Out[69]=",ExpressionUUID->"d4d851c7-cd70-4ac3-b109-95f55c8d0761"] +}, 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-> + "(Debug) In[70]:=",ExpressionUUID->"dbe3cd19-4cd0-48c1-af8e-a0d307ca0803"], + +Cell[BoxData[ + RowBox[{"-", "161.1868287134346`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, + 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, + 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, + 3.993120919619622*^9}, 3.993126398136746*^9, 3.9931271096761827`*^9, + 3.993127328784665*^9, 3.993129931420856*^9}, + CellLabel-> + "(Debug) Out[70]=",ExpressionUUID->"39503f31-36c9-47a9-a139-692afb97a7dd"] +}, 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-> + "(Debug) In[71]:=",ExpressionUUID->"6092ca40-2509-433e-a8b8-29bb7669c5e0"], + +Cell[BoxData["185.6246129509609`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, + 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, + 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, + 3.993120919646469*^9}, 3.993126398145216*^9, 3.9931271097094097`*^9, + 3.993127328806025*^9, 3.9931299314504623`*^9}, + CellLabel-> + "(Debug) Out[71]=",ExpressionUUID->"a98597ef-364c-45c0-9ea5-1b4825faa800"] +}, 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-> + "(Debug) In[72]:=",ExpressionUUID->"1d9f9507-a838-4c18-a92c-bedcb4632ee9"], + +Cell[BoxData["127.62329334000697`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, + 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, + 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, + 3.993120919673271*^9}, 3.993126398152495*^9, 3.9931271097434998`*^9, + 3.993127328827194*^9, 3.993129931478958*^9}, + CellLabel-> + "(Debug) Out[72]=",ExpressionUUID->"33858819-69a1-403d-ba28-550554811b9d"] +}, 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-> + "(Debug) In[73]:=",ExpressionUUID->"c4d4b328-ee8c-4b5a-9b11-265fc528d103"], + +Cell[BoxData["1146.2262301533601`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, + 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, + 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, + 3.993120919701824*^9}, 3.993126398158984*^9, 3.993127109775078*^9, + 3.993127328849209*^9, 3.993129931506402*^9}, + CellLabel-> + "(Debug) Out[73]=",ExpressionUUID->"35e0da26-fbb1-4202-8ff0-863867bf4c08"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f1", "=", " ", "0.356750214360086"}]], "Input", + CellChangeTimes->{ + 3.991849227197853*^9, {3.993121614826783*^9, 3.993121658847418*^9}}, + CellLabel-> + "(Debug) In[74]:=",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], + +Cell[BoxData["0.356750214360086`"], "Output", + CellChangeTimes->{3.993126398166068*^9, 3.993127109807927*^9, + 3.99312732887147*^9, 3.993129931531604*^9}, + CellLabel-> + "(Debug) Out[74]=",ExpressionUUID->"7a9ba5d8-5dcb-402a-a462-b815122c9391"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.144218611066051"}]], "Input", + CellChangeTimes->{ + 3.9918492290557346`*^9, {3.993121638035821*^9, 3.9931216687363377`*^9}}, + CellLabel-> + "(Debug) In[75]:=",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], + +Cell[BoxData["0.144218611066051`"], "Output", + CellChangeTimes->{3.9931263981726437`*^9, 3.99312710984081*^9, + 3.993127328893229*^9, 3.993129931556403*^9}, + CellLabel-> + "(Debug) Out[75]=",ExpressionUUID->"9f00d3e9-d0d0-457e-9324-48c3219c82c2"] +}, Open ]], Cell[CellGroupData[{ @@ -85,12 +5135,13 @@ Cell[BoxData[ RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", CellLabel-> - "In[233]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], + "(Debug) In[76]:=",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], -Cell[BoxData["2.3793916761039797`*^-53"], "Output", - CellChangeTimes->{3.9913335367025833`*^9}, +Cell[BoxData["1.3915391096243312`*^-53"], "Output", + CellChangeTimes->{3.9913335367025833`*^9, 3.993126398180801*^9, + 3.993127109871058*^9, 3.993127328914906*^9, 3.9931299315829363`*^9}, CellLabel-> - "Out[233]=",ExpressionUUID->"1db85c02-7ca3-154e-854d-2c36f89709c4"] + "(Debug) Out[76]=",ExpressionUUID->"7cc2287a-c99f-448e-a0b1-225c4a5aefdf"] }, Open ]], Cell[CellGroupData[{ @@ -124,14 +5175,15 @@ Cell[BoxData[ RowBox[{ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}]}]], "Input", - CellChangeTimes->{ - 3.9915575926932735`*^9},ExpressionUUID->"e4db2648-4e1a-2c46-83ab-\ -fcd932c3b663"], - -Cell[BoxData["5.020725113795862`*^-55"], "Output", - CellChangeTimes->{3.991333536726557*^9}, + CellChangeTimes->{3.9915575926932735`*^9}, CellLabel-> - "Out[234]=",ExpressionUUID->"78ed190c-23cd-4d45-867a-2b08174b715f"] + "(Debug) In[77]:=",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], + +Cell[BoxData["4.807668619842694`*^-55"], "Output", + CellChangeTimes->{3.991333536726557*^9, 3.993126398190411*^9, + 3.993127109902104*^9, 3.993127328936863*^9, 3.993129931608074*^9}, + CellLabel-> + "(Debug) Out[77]=",ExpressionUUID->"2a8ffee7-0b21-4081-8eec-27e8822a95a8"] }, Open ]], Cell[CellGroupData[{ @@ -164,14 +5216,15 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}]], "Input", - CellChangeTimes->{{3.991557595005127*^9, - 3.991557596789215*^9}},ExpressionUUID->"e4649c3d-e19e-ca42-95a0-\ -23b66397f1fd"], - -Cell[BoxData["1.871372642785671`*^-54"], "Output", - CellChangeTimes->{3.9913335367515736`*^9}, + CellChangeTimes->{{3.991557595005127*^9, 3.991557596789215*^9}}, CellLabel-> - "Out[235]=",ExpressionUUID->"82ec2512-4fcb-ba44-b472-bb3a66bb622e"] + "(Debug) In[78]:=",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], + +Cell[BoxData["8.297867719396083`*^-55"], "Output", + CellChangeTimes->{3.9913335367515736`*^9, 3.9931263981986027`*^9, + 3.99312710993598*^9, 3.9931273289588633`*^9, 3.9931299316337757`*^9}, + CellLabel-> + "(Debug) Out[78]=",ExpressionUUID->"0c1670f5-9b46-4689-8480-fa32ee2f2507"] }, Open ]], Cell[CellGroupData[{ @@ -195,12 +5248,13 @@ Cell[BoxData[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", CellLabel-> - "In[236]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], + "(Debug) In[79]:=",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], -Cell[BoxData["25.178011816139865`"], "Output", - CellChangeTimes->{3.9913335367605553`*^9}, +Cell[BoxData["11.364577453200564`"], "Output", + CellChangeTimes->{3.9913335367605553`*^9, 3.9931263982053547`*^9, + 3.993127109967596*^9, 3.993127328981167*^9, 3.993129931659111*^9}, CellLabel-> - "Out[236]=",ExpressionUUID->"9d53fa4a-be54-7b42-83bd-0a5560193c0f"] + "(Debug) Out[79]=",ExpressionUUID->"acfe3526-cff7-428c-940e-86625b711309"] }, Open ]], Cell[CellGroupData[{ @@ -226,12 +5280,13 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellLabel-> - "In[237]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], + "(Debug) In[80]:=",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], -Cell[BoxData["31.32034821453639`"], "Output", - CellChangeTimes->{3.991333536783556*^9}, +Cell[BoxData["17.38230441180636`"], "Output", + CellChangeTimes->{3.991333536783556*^9, 3.993126398211788*^9, + 3.9931271099997797`*^9, 3.993127329003345*^9, 3.9931299316840076`*^9}, CellLabel-> - "Out[237]=",ExpressionUUID->"4107fa63-a138-df48-a95c-ec944a983800"] + "(Debug) Out[80]=",ExpressionUUID->"10dfc282-d4e4-412b-9d74-03a285c0a8b8"] }, Open ]], Cell[CellGroupData[{ @@ -241,12 +5296,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", CellLabel-> - "In[238]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], + "(Debug) In[81]:=",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], -Cell[BoxData["0.7475613664925793`"], "Output", - CellChangeTimes->{3.9913335367915726`*^9}, +Cell[BoxData["3.3511072495835865`"], "Output", + CellChangeTimes->{3.9913335367915726`*^9, 3.9931263982181597`*^9, + 3.993127110032962*^9, 3.993127329024397*^9, 3.993129931709456*^9}, CellLabel-> - "Out[238]=",ExpressionUUID->"f894fb1d-1550-5146-a259-dfa871655c2a"] + "(Debug) Out[81]=",ExpressionUUID->"d3950c65-8a0b-4b6c-ab97-bd5a3cfc888e"] }, Open ]], Cell[CellGroupData[{ @@ -256,12 +5312,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kw", "Qw3"]]}]], "Input", CellLabel-> - "In[239]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], + "(Debug) In[82]:=",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], -Cell[BoxData["3.5403946764909393`"], "Output", - CellChangeTimes->{3.99133353681583*^9}, +Cell[BoxData["8.12047615876537`"], "Output", + CellChangeTimes->{3.99133353681583*^9, 3.993126398224197*^9, + 3.993127110070685*^9, 3.993127329046073*^9, 3.9931299317347927`*^9}, CellLabel-> - "Out[239]=",ExpressionUUID->"8d5b13a4-8c75-0f48-ab21-9720bb8c0cbc"] + "(Debug) Out[82]=",ExpressionUUID->"ae509a1d-0ca7-4772-9cf9-b2b08b7424c7"] }, Open ]], Cell[CellGroupData[{ @@ -271,12 +5328,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", CellLabel-> - "In[240]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], + "(Debug) In[83]:=",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], -Cell[BoxData["110.88639408458714`"], "Output", - CellChangeTimes->{3.991333536826782*^9}, +Cell[BoxData["141.15258856047566`"], "Output", + CellChangeTimes->{3.991333536826782*^9, 3.993126398230122*^9, + 3.99312711010113*^9, 3.99312732906721*^9, 3.993129931760734*^9}, CellLabel-> - "Out[240]=",ExpressionUUID->"4d4b493f-9f2d-1e41-979f-fb4d58d0e93a"] + "(Debug) Out[83]=",ExpressionUUID->"71470758-bc8b-47fa-a8b8-44523e4c936a"] }, Open ]], Cell[CellGroupData[{ @@ -286,12 +5344,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[241]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], + "(Debug) In[84]:=",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], -Cell[BoxData["18.822108918839827`"], "Output", - CellChangeTimes->{3.9913335368508377`*^9}, +Cell[BoxData["38.083917891874584`"], "Output", + CellChangeTimes->{3.9913335368508377`*^9, 3.99312639823732*^9, + 3.993127110130691*^9, 3.993127329096725*^9, 3.9931299317880363`*^9}, CellLabel-> - "Out[241]=",ExpressionUUID->"e40db20b-c65e-4a45-ba96-abcb59b0d0ac"] + "(Debug) Out[84]=",ExpressionUUID->"5c5821e6-5130-43c6-8a40-27f6a96f620c"] }, Open ]], Cell[CellGroupData[{ @@ -481,12 +5540,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[242]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], + "(Debug) In[85]:=",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], -Cell[BoxData["0.042044960793272385`"], "Output", - CellChangeTimes->{3.9913335368758316`*^9}, +Cell[BoxData["0.006180788025435743`"], "Output", + CellChangeTimes->{3.9913335368758316`*^9, 3.993126398249929*^9, + 3.993127110162187*^9, 3.9931273291203413`*^9, 3.9931299318141537`*^9}, CellLabel-> - "Out[242]=",ExpressionUUID->"cdf81fea-e12a-2b44-81a8-222b4bbf8a86"] + "(Debug) Out[85]=",ExpressionUUID->"e0c11602-0281-4957-b63f-587d7d1160f4"] }, Open ]], Cell[CellGroupData[{ @@ -500,12 +5560,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[243]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], + "(Debug) In[86]:=",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], -Cell[BoxData["4.322031867849089`"], "Output", - CellChangeTimes->{3.991333536973074*^9}, +Cell[BoxData["11.272571949995445`"], "Output", + CellChangeTimes->{3.991333536973074*^9, 3.993126398434402*^9, + 3.993127110230137*^9, 3.993127329188464*^9, 3.993129931922463*^9}, CellLabel-> - "Out[243]=",ExpressionUUID->"181dc1c8-632b-4b43-91c4-d3626d65bfc7"] + "(Debug) Out[86]=",ExpressionUUID->"929107ad-62cd-4d27-969c-09f03ec8ab40"] }, Open ]], Cell[CellGroupData[{ @@ -697,12 +5758,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[244]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], + "(Debug) In[87]:=",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], -Cell[BoxData["0.011395075201487413`"], "Output", - CellChangeTimes->{3.9913335369870644`*^9}, +Cell[BoxData["0.025867172173930968`"], "Output", + CellChangeTimes->{3.9913335369870644`*^9, 3.9931263985177402`*^9, + 3.9931271102609262`*^9, 3.9931273292121773`*^9, 3.993129931950283*^9}, CellLabel-> - "Out[244]=",ExpressionUUID->"c7d972b4-764c-954a-8260-240d49cfcff6"] + "(Debug) Out[87]=",ExpressionUUID->"6cd718e0-3375-4a53-8cb0-824dd0c04b69"] }, Open ]], Cell[CellGroupData[{ @@ -716,12 +5778,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[245]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], + "(Debug) In[88]:=",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], -Cell[BoxData["8.302069082299768`"], "Output", - CellChangeTimes->{3.9913335370800858`*^9}, +Cell[BoxData["5.5102393492541655`"], "Output", + CellChangeTimes->{3.9913335370800858`*^9, 3.993126398580374*^9, + 3.993127110330127*^9, 3.9931273292921143`*^9, 3.993129932012121*^9}, CellLabel-> - "Out[245]=",ExpressionUUID->"c285a758-c3ad-974b-93c3-4cb0d4bdd2ae"] + "(Debug) Out[88]=",ExpressionUUID->"1470f1c2-f609-4878-a556-2a0cc37f2d51"] }, Open ]], Cell[CellGroupData[{ @@ -814,12 +5877,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[246]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], + "(Debug) In[89]:=",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913335370930634`*^9}, +Cell[BoxData["0.063831488074104`"], "Output", + CellChangeTimes->{3.9913335370930634`*^9, 3.993126398590087*^9, + 3.9931271103593073`*^9, 3.9931273293157988`*^9, 3.99312993204004*^9}, CellLabel-> - "Out[246]=",ExpressionUUID->"5dc957f4-8f84-c54c-80a3-c76f756c5df4"] + "(Debug) Out[89]=",ExpressionUUID->"41648c74-eb0b-437f-b4ec-5aeb63bb86d9"] }, Open ]], Cell[CellGroupData[{ @@ -909,12 +5973,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[247]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], + "(Debug) In[90]:=",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991333537118065*^9}, +Cell[BoxData["0.9361685119258959`"], "Output", + CellChangeTimes->{3.991333537118065*^9, 3.9931263985991697`*^9, + 3.9931271103862247`*^9, 3.993127329337902*^9, 3.993129932067175*^9}, CellLabel-> - "Out[247]=",ExpressionUUID->"b4ee01d5-3415-494b-b28a-4587c8d8bb90"] + "(Debug) Out[90]=",ExpressionUUID->"46893405-0948-4f8e-a687-afb44851e6bd"] }, Open ]], Cell[CellGroupData[{ @@ -1037,18 +6102,20 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[248]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], + "(Debug) In[91]:=",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913335371420746`*^9}, +Cell[BoxData["0.05975702920434953`"], "Output", + CellChangeTimes->{3.9913335371420746`*^9, 3.9931263986084757`*^9, + 3.993127110415257*^9, 3.993127329360895*^9, 3.9931299320937853`*^9}, CellLabel-> - "Out[248]=",ExpressionUUID->"20c44e64-7085-8e4d-a9d6-f80b5532826e"] + "(Debug) Out[91]=",ExpressionUUID->"79750704-94b1-4c94-a61a-6f7e93f91252"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"ba4a3eff-9e3b-\ -5e47-a896-3a959bbbf44d"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "(Debug) In[92]:=",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], Cell[CellGroupData[{ @@ -1109,65 +6176,73 @@ 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-> + "(Debug) In[93]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 93, 6, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371540604`*^9}, + CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, + 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321298513`*^9}, CellLabel-> - "During evaluation of \ -In[249]:=",ExpressionUUID->"bd0a7da1-672e-6b4e-afbd-4af379292e8d"], + "(Debug) During evaluation of \ +In[93]:=",ExpressionUUID->"fa387332-d748-40d7-abb8-f8dc67c30ca4"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 93, 7, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371630745`*^9}, + CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, + 3.993127110464561*^9, 3.993127329400042*^9, 3.993129932133155*^9}, CellLabel-> - "During evaluation of \ -In[249]:=",ExpressionUUID->"9a8837e4-2afa-d145-83db-a88ef0e502bc"], + "(Debug) During evaluation of \ +In[93]:=",ExpressionUUID->"da2bc801-d228-484e-a808-c6c989d20bd3"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 93, 8, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335371710587`*^9}, + CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, + 3.993127110464561*^9, 3.993127329400042*^9, 3.9931299321356363`*^9}, CellLabel-> - "During evaluation of \ -In[249]:=",ExpressionUUID->"0aa4ed5d-b925-834d-b53a-95c75c4ff982"], + "(Debug) During evaluation of \ +In[93]:=",ExpressionUUID->"1a6bc40a-a87a-4639-8370-fe7df5a778a0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 249, 220, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 93, 9, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133353717906*^9}, + CellChangeTimes->{3.9913335371540604`*^9, 3.993126398647735*^9, + 3.993127110464561*^9, 3.993127329400042*^9, 3.993129932137561*^9}, CellLabel-> - "During evaluation of \ -In[249]:=",ExpressionUUID->"2742a735-9c26-7640-8a81-3e30eaffa353"], + "(Debug) During evaluation of \ +In[93]:=",ExpressionUUID->"03379fc2-13b7-4652-b6bc-27f60ae80517"], -Cell[BoxData["4.322031867849086`"], "Output", - CellChangeTimes->{3.9913335399194164`*^9}, +Cell[BoxData["11.272571949995436`"], "Output", + CellChangeTimes->{3.9913335399194164`*^9, 3.993126400712997*^9, + 3.993127112857092*^9, 3.993127331852377*^9, 3.99312993459098*^9}, CellLabel-> - "Out[249]=",ExpressionUUID->"d91a6bca-04d7-b84b-93cf-0695498dc4de"] + "(Debug) Out[93]=",ExpressionUUID->"16020b0e-a0ea-46f9-a413-1a75747d7807"] }, Open ]], Cell[CellGroupData[{ @@ -1229,65 +6304,73 @@ 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-> + "(Debug) In[94]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 94, 10, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399544125`*^9}, + CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.99312993467347*^9}, CellLabel-> - "During evaluation of \ -In[250]:=",ExpressionUUID->"2c553d54-16ec-9646-b6d7-75da3c367575"], + "(Debug) During evaluation of \ +In[94]:=",ExpressionUUID->"444729df-4cf2-4bbb-8351-ae7b66972d10"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 94, 11, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913335399644184`*^9}, + CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.993129934675859*^9}, CellLabel-> - "During evaluation of \ -In[250]:=",ExpressionUUID->"1c597fdf-5631-a84c-9feb-152df3629d86"], + "(Debug) During evaluation of \ +In[94]:=",ExpressionUUID->"7753222d-063b-48dd-9058-bf3297812306"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 94, + 12, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539972414*^9}, + CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.993129934678021*^9}, CellLabel-> - "During evaluation of \ -In[250]:=",ExpressionUUID->"48439b56-7b7d-fa4d-a4e2-5db2bbda0c77"], + "(Debug) During evaluation of \ +In[94]:=",ExpressionUUID->"78d7eb9c-730a-4116-8f6e-359dcb39d6e5"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 250, 224, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 94, 13, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333539979416*^9}, + CellChangeTimes->{3.9913335399544125`*^9, 3.993126400753316*^9, + 3.993127112895788*^9, 3.9931273318886557`*^9, 3.993129934680065*^9}, CellLabel-> - "During evaluation of \ -In[250]:=",ExpressionUUID->"66ce390f-34a9-df4d-9875-a339943ada86"], + "(Debug) During evaluation of \ +In[94]:=",ExpressionUUID->"612d1970-272d-4415-a2b6-367f92a5591d"], -Cell[BoxData["8.302069082299772`"], "Output", - CellChangeTimes->{3.991333542631773*^9}, +Cell[BoxData["5.510239349254163`"], "Output", + CellChangeTimes->{3.991333542631773*^9, 3.993126402745738*^9, + 3.993127115387978*^9, 3.9931273343339376`*^9, 3.993129937038766*^9}, CellLabel-> - "Out[250]=",ExpressionUUID->"2e46fa54-fabe-5040-8f8c-6829b7c76136"] + "(Debug) Out[94]=",ExpressionUUID->"7e8a05a5-2935-4bac-a180-696536d5ea81"] }, Open ]], Cell[CellGroupData[{ @@ -1343,9 +6426,9 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], "1"], "//", "N"}], ",", RowBox[{"{", RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492535482903`*^9},ExpressionUUID->"f373fe4f-940c-0842-9236-\ -63ec36d318ad"], + CellChangeTimes->{3.9918492535482903`*^9}, + CellLabel-> + "(Debug) In[95]:=",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], Cell[BoxData[ GraphicsBox[ @@ -1354,81 +6437,84 @@ Cell[BoxData[ 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= +1:eJwV1nk4VdsbB3AZSoYyXCSRTF1jrmNs8L4hIlQajEmcsw2ZqSiXJrpFioQG +ESnJFGlAUvmVShFSuqV9DCeZkgxxdrff6o/97OfzrGd917v2evd+9jLfMBeO +oICAwAC5ft8jXhksv9P6yjLcYrc/VUiD5egVE1+bEhB/ROX+Np1rmqFhUwcq +p7bZ+RNvYr+cK8H6H9A3zHYGEN+MSXgsYtMMH3QkPwcSH3+yqCGh+DWoanV2 +7ya+1xpxiTF6A6oP0m1DiQffP4+LrX0HD1SsVSKIF/ere05ZfwCvPZ850cQb +vsZZRDV/gsrZBOUY4npmUDymmAsCoxLr4og7DykcuB3aC91nUz8cJB6dazM4 +YdQPASjSl0g8NyXcnTXNAw3rCM9kYhXpnKaI2gFgZtus0oidlaaujloPwzL1 +2F2XiKk8NXl90VE4EFmfXUicoLkxcXfzV9A14UMp8TuFjr+ii78BW2NH931i +tkdQ4JmUcUjdfeTNE+KxiwKXK0O/g4FnwepWYlE1falvRpPQVtPm0UecwX5s +JyU3BT0He6W/Eqtec09YMT0FmRfGzGeJzfWSRkNqf0BTs+Bb6as0BJh+ah60 +ZqCsQnmLLfFEzB5hMa2f8D52+YmtxAdrxVdri/4HE1uN//IjzkbzG/7Nv2BQ +z7PlEDG7sMkmsngOSsTMbmgkLn5yhj6kJIjvKyyEOonHPnvHpaUI4mjGUZ0B +4jidyaqKUCH8ZG71TPIaqbd8mfpXIxHsSDpo5038vnW4/r8CEQyIw4QoYtXx +Ox4L5OZic7r88uPEJcbO6frTc/HZF7Gn1cSN9/bPCa4VxQwPy/V/FNEw+bj9 +04C1BMrHW2zmEcs4SkgdqJdA+qvgmPB1Ggw7bFDSQhJzJYpkNIiD+qrz/jJY +gDj/VK8fcbhgs+EaCSm0y5O/9YW4X63sW+KUNKak+MosuEGeD/V8fgtLBg0e +qo4ZEwve4C1bFCGDV7bwNnsRq7KWuhQPyWAj78zlEmIP69OVr2hZ5Lm+jthS +QkOLX2SUwgs5tK+rfXevlIbua6nJPqLySEnu+zFAPDxUXHB9nTzm3Qu7uKiM +BrHo3vZVDfKoJf5nRCyxzdGtxj7VCuiivdR5bTkNNVdMJ4tyFbGuM6frSwUN +V/pn966MVkYj47Ktl27RsH7bse6oUmW8Gpn6tIt4uFHWtpSnjGLVRmVy1TQY +X9GTU3VXQch825lK3OjrXSViuRQX35mbmXSbhvGv9L6BI6rofa6qJfkuDbIh +NreqnNTwq0vpxpE6GnhXxAI2BamhbOxxa7P7NNz90Ko0kqSG85bV3jhE7OW4 +44hWgxqeM2Z1KdST+nT3upwzUkemU+S6/QOy/uC1sXgFDaxf81z18UMatvqL +6ztwNbHzjHyW5FMaYO82I9efmjio4+TLJtZJzDVjK2rhpON/ObXEAgUsq/jN +Wmg1y6N2N9FQ2u3pWvlQC7UkoqD1GXk/t5ccWpy/HPuSM6XKm0l9Nk6dg77a +2Pzj5I6HbTQUbMn6dzpeGzXqiqy12mlI9eXSwhe0UcZE8EIyMfvgniGVdm10 +u52c49pBg3RdjsAWax3My6wan3hD+oc1qlOrros1r6x7bbpoUFI7lZDcp4fu +Yc4LVtI01J2Y0J4R1MenCoFjt4m9vrt3UMv0UU+mxc2YS8OlRg1tK299FAsu +qDPsoUHNv6btx1t9VJiJe72ij+y3pF+TemGANTOp5nYDNCgrqVCq7obkfFSt +/x2jQa8wWoIPRhhmx88/L8QFX/aRSX1nI1yQrPrSQJgL2erp3T5eRsh0nQt9 +TCyUX17xJMYIL6pUKIyKcOH9pcGt6TeN8F32ISF7US4cz/bJ0VZnoeXRow5y +klzgJTsauM01RraLcPc8BS5cjtTYVN1sgjN9ztGuelyo7G5IXvTBBFMGs+8t +0ufCI4cdTw8MmWDPPrPU98R9apmWVmKmeDiorH/nCi5otc/Tb7EzxZYW3Y0R +RlwoYQ3N//LIFH/KPVMsN+fC3Ymbj5fcM8NI+y+zmeu40LoXzI4WWuB5R+0D +Sru4sMz7jfOO4DWo07vG7FMOFzi/bpcpxyKK6e1SedXNBYWhu/MUfK1QvlD3 +dZJBD0SzVn9I17FB151NdkKHe8B3hGmSHVyHenfUf5V+6IFSq6h5uS12qPvP +A/vt9r1wZSLoYUmGPR4Rdi9vutsLP9YuetmYsAHPl1dOSazpg48CQt+4u5zw +1eVKsXkv+iB0SdjpQ+ob8aWki8ljj34oC2xqOJu4CdP2JW3IEOLB/u+K07qB +m/HOSLBPaykPJh1stz/d6YIpsbZqFdGfwcIzbW3/5i3owcs6rGY3AG2KOUGN +rK0ob1ogelrxCyy+eqSu6M9t+ERir9VlyUG4S+s4Oktux33e8gOfBYZApWPM +f+/IdmwpETT8678hYJ1NKymgXfFncbbY62UjkCP83SD9sRvaRUVbDq0dhdtr +V7xPvOeOO/j716Qkf4VssxPSTLEHyg6bN1mGj0HLv4VJrBRPfLP7ZNAD+W9Q +7XRRI/ygF7rlL0ySbv8G30K2CISyd6CSrUNMxvFxmLTVDhi19saZNfLmf1h9 +h6KRrh9RpjuxY+2b2YSFE+B2udBvh4QPbp7jHvKhbQKqKjfsFDrmg9O5Xk/E +rk+ChVLbzPEZH0x4YYGHI6ZAnfZ//zpwF5Zsbs5KM56GPvHdGy/27kJ6Tnu1 +nPAPaE119rPb5ouu6+Ud9z34ARkxueJ7Wn0xfNWQVOnBGair/zXjZ++HsV4G +5/GvWVjohcdYNX7ofy3QcvfTWbDwGS1KNGZjck+gqacrH66eG4tyNmVjfFdn +1QZ3PvzRPm6pYM7G2L5fEys9+TC6brqjaBUboz11G+R28sn3S2BOsxUb6cz9 +gXUUHxZMS7vLbGZjnUNk4ss9fOg7aTI/N4SN7+arfZxN50NqbVzg3atsjNLv +fOv7jA8hRlkWMUVslOr0vzX9nA+O12/ONy9mo9LHuZDczAexLN71O6VsbHiZ +4FXWwofEyE2Dt2+xkW35vbjvDR/itDV2Vz9iY3Fisa50Dx+Csl4EV3azsfNt +dRw1wwf7BbzVkTQbTXT2GbXO8uHPRAFJox42TmUeOWbO8IEXaVJ6s5+N+z3v +S4r84sMu59yRimE2ihckxZ8UZsBNJCq0fJaNcuKr0zwXMmAXtTi8RJ6DB9cV +nfyizsCj3CSH9EUclN3GYq3VZGB187hGzGIO/vmtTztLiwFDzRdd1ioc/DDv +gailNgOKbw9Y/6vJwffjR+P3GTAwtPKjvJgJB6nnXz5mmzNwSjDvvv8WDoY8 +1l2evoEBsRUS2U7bOHiinS9S5cjAUc+YSJYrB+/nLV/e5sRAzK1Ny395cHD3 +Eq6B+CYGdlFz0jJ9ObikWmN9wFYGWM992f+L4KDXJNi+8mLgbZqmuPppDg6X +bbxlG0z+c0AyYCCNg8az3heXhpD8kYnG0jMcbIy9MTlFbGTfGG+excGplo+z +eWEMpAr4jTtd4qBd+1e7nkgGbMPyumJKOPgoqbRCMZYBZeV/TC3LODjaI5HS +RTzxPOyMUAUHNeOCOrL2M5CvBU6pVRw87Kp2Y2EcAz8/fmwoqOHgQl5Z4HA8 +A7cclYpeNXFQrWvVlPtRBpJnBUUynnMwrb/pqEAiA75Fg7vcmzkodzgrrpBY +SrhGqa+Fg4buS64NJjEQXOt2aqaT1GvWyd11nAF1ncy9Gv0cPB+wqUEolYHZ +t3+3f+Fx0O+a+vPTxK2JHMPyAQ7umxFYueQUA/Fc40GLYQ5GhKhsMDjNwPvs +9h0bv3OwPLRHH9IZSJ8nvW7/HArr2WtaZDMZqBv/6BktRCHvAjcqg/jzx+LI +UBEK92x3kJfNIv1wyybPdz6Ftv9mbBHLZoDnE8N3kKZQqiqkmD5H6ndcJ7NO +lkKm9pTZ5vMMrDKT0QY5kqfa2/CA+LRkyXaWIoUlfuynmRfIeM2nm0rLKDR4 +OXxJL4cBqrCkSU6dQsm2ctGTxKdPx35aqElh5ZhtyBAxj5KVFNam0GHERSv/ +EhmXtQsYNqQw5ljtlulcBmr+k03gGVEYJ/X9lF0eA/1f6LO0MYXdN97+7yzx +yob9jzvMKXz4QENF7zIDfcFlKveRwgNF1N+Yz8ACtwMmd6woHF187shBYgvr +9Y43bcj6Sv8cridOVeyJLVxPYdgjVpBxAQN3hctP5zpQGHq83iWYuPfrgWvn +HCkcV81n5RObP5F7c3IThWLhit3zrpDzvtkzdMyFwmz1w9fMiE9eLBc8vJVC +OnckgEPcE2lvuNeNwmceB9triCW95e3CPSicG3UkrofY3L53R5AXheHz1iqL +FpL5S/9O9vah0PdFyTon4rtiDvluvhT631rzMpi4Z1L+ngubwsYUZ8cTxJLc +3hZHisJzb9seFRKbN1fwbAPI/Il6wwfEvnf+/olBFL5TEc3s/J2f7/DHqmAK +VcOujA/9zj+poGsSSmFh1wnbX7/zY/rWrgincPuKqjSpqwxIsG+6aUdSmKIs +37GU2GxjfJh6NIXKBqWS+sS+KzckKe+lkHoaaWlOnKK5KEchhkKWni+1lvi2 +VH+V9H7SPwf2Ja4n5vJvPhePo7CosvyC0+/8z/FckXgKnxSJXt9EbNq24cev +BAqjZA+Vbib+P4rqAUI= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -1445,90 +6531,93 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV1nk4VdsbB3AZSoYyXCSRTF1jrmNs8L4hIlQajEmcsw2ZqSiXJrpFioQG +ESnJFGlAUvmVShFSuqV9DCeZkgxxdrff6o/97OfzrGd917v2evd+9jLfMBeO +oICAwAC5ft8jXhksv9P6yjLcYrc/VUiD5egVE1+bEhB/ROX+Np1rmqFhUwcq +p7bZ+RNvYr+cK8H6H9A3zHYGEN+MSXgsYtMMH3QkPwcSH3+yqCGh+DWoanV2 +7ya+1xpxiTF6A6oP0m1DiQffP4+LrX0HD1SsVSKIF/ere05ZfwCvPZ850cQb +vsZZRDV/gsrZBOUY4npmUDymmAsCoxLr4og7DykcuB3aC91nUz8cJB6dazM4 +YdQPASjSl0g8NyXcnTXNAw3rCM9kYhXpnKaI2gFgZtus0oidlaaujloPwzL1 +2F2XiKk8NXl90VE4EFmfXUicoLkxcXfzV9A14UMp8TuFjr+ii78BW2NH931i +tkdQ4JmUcUjdfeTNE+KxiwKXK0O/g4FnwepWYlE1falvRpPQVtPm0UecwX5s +JyU3BT0He6W/Eqtec09YMT0FmRfGzGeJzfWSRkNqf0BTs+Bb6as0BJh+ah60 +ZqCsQnmLLfFEzB5hMa2f8D52+YmtxAdrxVdri/4HE1uN//IjzkbzG/7Nv2BQ +z7PlEDG7sMkmsngOSsTMbmgkLn5yhj6kJIjvKyyEOonHPnvHpaUI4mjGUZ0B +4jidyaqKUCH8ZG71TPIaqbd8mfpXIxHsSDpo5038vnW4/r8CEQyIw4QoYtXx +Ox4L5OZic7r88uPEJcbO6frTc/HZF7Gn1cSN9/bPCa4VxQwPy/V/FNEw+bj9 +04C1BMrHW2zmEcs4SkgdqJdA+qvgmPB1Ggw7bFDSQhJzJYpkNIiD+qrz/jJY +gDj/VK8fcbhgs+EaCSm0y5O/9YW4X63sW+KUNKak+MosuEGeD/V8fgtLBg0e +qo4ZEwve4C1bFCGDV7bwNnsRq7KWuhQPyWAj78zlEmIP69OVr2hZ5Lm+jthS +QkOLX2SUwgs5tK+rfXevlIbua6nJPqLySEnu+zFAPDxUXHB9nTzm3Qu7uKiM +BrHo3vZVDfKoJf5nRCyxzdGtxj7VCuiivdR5bTkNNVdMJ4tyFbGuM6frSwUN +V/pn966MVkYj47Ktl27RsH7bse6oUmW8Gpn6tIt4uFHWtpSnjGLVRmVy1TQY +X9GTU3VXQch825lK3OjrXSViuRQX35mbmXSbhvGv9L6BI6rofa6qJfkuDbIh +NreqnNTwq0vpxpE6GnhXxAI2BamhbOxxa7P7NNz90Ko0kqSG85bV3jhE7OW4 +44hWgxqeM2Z1KdST+nT3upwzUkemU+S6/QOy/uC1sXgFDaxf81z18UMatvqL +6ztwNbHzjHyW5FMaYO82I9efmjio4+TLJtZJzDVjK2rhpON/ObXEAgUsq/jN +Wmg1y6N2N9FQ2u3pWvlQC7UkoqD1GXk/t5ccWpy/HPuSM6XKm0l9Nk6dg77a +2Pzj5I6HbTQUbMn6dzpeGzXqiqy12mlI9eXSwhe0UcZE8EIyMfvgniGVdm10 +u52c49pBg3RdjsAWax3My6wan3hD+oc1qlOrros1r6x7bbpoUFI7lZDcp4fu +Yc4LVtI01J2Y0J4R1MenCoFjt4m9vrt3UMv0UU+mxc2YS8OlRg1tK299FAsu +qDPsoUHNv6btx1t9VJiJe72ij+y3pF+TemGANTOp5nYDNCgrqVCq7obkfFSt +/x2jQa8wWoIPRhhmx88/L8QFX/aRSX1nI1yQrPrSQJgL2erp3T5eRsh0nQt9 +TCyUX17xJMYIL6pUKIyKcOH9pcGt6TeN8F32ISF7US4cz/bJ0VZnoeXRow5y +klzgJTsauM01RraLcPc8BS5cjtTYVN1sgjN9ztGuelyo7G5IXvTBBFMGs+8t +0ufCI4cdTw8MmWDPPrPU98R9apmWVmKmeDiorH/nCi5otc/Tb7EzxZYW3Y0R +RlwoYQ3N//LIFH/KPVMsN+fC3Ymbj5fcM8NI+y+zmeu40LoXzI4WWuB5R+0D +Sru4sMz7jfOO4DWo07vG7FMOFzi/bpcpxyKK6e1SedXNBYWhu/MUfK1QvlD3 +dZJBD0SzVn9I17FB151NdkKHe8B3hGmSHVyHenfUf5V+6IFSq6h5uS12qPvP +A/vt9r1wZSLoYUmGPR4Rdi9vutsLP9YuetmYsAHPl1dOSazpg48CQt+4u5zw +1eVKsXkv+iB0SdjpQ+ob8aWki8ljj34oC2xqOJu4CdP2JW3IEOLB/u+K07qB +m/HOSLBPaykPJh1stz/d6YIpsbZqFdGfwcIzbW3/5i3owcs6rGY3AG2KOUGN +rK0ob1ogelrxCyy+eqSu6M9t+ERir9VlyUG4S+s4Oktux33e8gOfBYZApWPM +f+/IdmwpETT8678hYJ1NKymgXfFncbbY62UjkCP83SD9sRvaRUVbDq0dhdtr +V7xPvOeOO/j716Qkf4VssxPSTLEHyg6bN1mGj0HLv4VJrBRPfLP7ZNAD+W9Q +7XRRI/ygF7rlL0ySbv8G30K2CISyd6CSrUNMxvFxmLTVDhi19saZNfLmf1h9 +h6KRrh9RpjuxY+2b2YSFE+B2udBvh4QPbp7jHvKhbQKqKjfsFDrmg9O5Xk/E +rk+ChVLbzPEZH0x4YYGHI6ZAnfZ//zpwF5Zsbs5KM56GPvHdGy/27kJ6Tnu1 +nPAPaE119rPb5ouu6+Ud9z34ARkxueJ7Wn0xfNWQVOnBGair/zXjZ++HsV4G +5/GvWVjohcdYNX7ofy3QcvfTWbDwGS1KNGZjck+gqacrH66eG4tyNmVjfFdn +1QZ3PvzRPm6pYM7G2L5fEys9+TC6brqjaBUboz11G+R28sn3S2BOsxUb6cz9 +gXUUHxZMS7vLbGZjnUNk4ss9fOg7aTI/N4SN7+arfZxN50NqbVzg3atsjNLv +fOv7jA8hRlkWMUVslOr0vzX9nA+O12/ONy9mo9LHuZDczAexLN71O6VsbHiZ +4FXWwofEyE2Dt2+xkW35vbjvDR/itDV2Vz9iY3Fisa50Dx+Csl4EV3azsfNt +dRw1wwf7BbzVkTQbTXT2GbXO8uHPRAFJox42TmUeOWbO8IEXaVJ6s5+N+z3v +S4r84sMu59yRimE2ihckxZ8UZsBNJCq0fJaNcuKr0zwXMmAXtTi8RJ6DB9cV +nfyizsCj3CSH9EUclN3GYq3VZGB187hGzGIO/vmtTztLiwFDzRdd1ioc/DDv +gailNgOKbw9Y/6vJwffjR+P3GTAwtPKjvJgJB6nnXz5mmzNwSjDvvv8WDoY8 +1l2evoEBsRUS2U7bOHiinS9S5cjAUc+YSJYrB+/nLV/e5sRAzK1Ny395cHD3 +Eq6B+CYGdlFz0jJ9ObikWmN9wFYGWM992f+L4KDXJNi+8mLgbZqmuPppDg6X +bbxlG0z+c0AyYCCNg8az3heXhpD8kYnG0jMcbIy9MTlFbGTfGG+excGplo+z +eWEMpAr4jTtd4qBd+1e7nkgGbMPyumJKOPgoqbRCMZYBZeV/TC3LODjaI5HS +RTzxPOyMUAUHNeOCOrL2M5CvBU6pVRw87Kp2Y2EcAz8/fmwoqOHgQl5Z4HA8 +A7cclYpeNXFQrWvVlPtRBpJnBUUynnMwrb/pqEAiA75Fg7vcmzkodzgrrpBY +SrhGqa+Fg4buS64NJjEQXOt2aqaT1GvWyd11nAF1ncy9Gv0cPB+wqUEolYHZ +t3+3f+Fx0O+a+vPTxK2JHMPyAQ7umxFYueQUA/Fc40GLYQ5GhKhsMDjNwPvs +9h0bv3OwPLRHH9IZSJ8nvW7/HArr2WtaZDMZqBv/6BktRCHvAjcqg/jzx+LI +UBEK92x3kJfNIv1wyybPdz6Ftv9mbBHLZoDnE8N3kKZQqiqkmD5H6ndcJ7NO +lkKm9pTZ5vMMrDKT0QY5kqfa2/CA+LRkyXaWIoUlfuynmRfIeM2nm0rLKDR4 +OXxJL4cBqrCkSU6dQsm2ctGTxKdPx35aqElh5ZhtyBAxj5KVFNam0GHERSv/ +EhmXtQsYNqQw5ljtlulcBmr+k03gGVEYJ/X9lF0eA/1f6LO0MYXdN97+7yzx +yob9jzvMKXz4QENF7zIDfcFlKveRwgNF1N+Yz8ACtwMmd6woHF187shBYgvr +9Y43bcj6Sv8cridOVeyJLVxPYdgjVpBxAQN3hctP5zpQGHq83iWYuPfrgWvn +HCkcV81n5RObP5F7c3IThWLhit3zrpDzvtkzdMyFwmz1w9fMiE9eLBc8vJVC +OnckgEPcE2lvuNeNwmceB9triCW95e3CPSicG3UkrofY3L53R5AXheHz1iqL +FpL5S/9O9vah0PdFyTon4rtiDvluvhT631rzMpi4Z1L+ngubwsYUZ8cTxJLc +3hZHisJzb9seFRKbN1fwbAPI/Il6wwfEvnf+/olBFL5TEc3s/J2f7/DHqmAK +VcOujA/9zj+poGsSSmFh1wnbX7/zY/rWrgincPuKqjSpqwxIsG+6aUdSmKIs +37GU2GxjfJh6NIXKBqWS+sS+KzckKe+lkHoaaWlOnKK5KEchhkKWni+1lvi2 +VH+V9H7SPwf2Ja4n5vJvPhePo7CosvyC0+/8z/FckXgKnxSJXt9EbNq24cev +BAqjZA+Vbib+P4rqAUI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, - 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.520190431585247, + 1.7906052377231532`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.5201904315852481}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -1551,10 +6640,9 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "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.520190431585247, 1.7906052377231532`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5201904315852481}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -1572,8 +6660,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "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[{ @@ -1582,89 +6670,92 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV1nk4VdsbB3AZSoYyXCSRTF1jrmNs8L4hIlQajEmcsw2ZqSiXJrpFioQG +ESnJFGlAUvmVShFSuqV9DCeZkgxxdrff6o/97OfzrGd917v2evd+9jLfMBeO +oICAwAC5ft8jXhksv9P6yjLcYrc/VUiD5egVE1+bEhB/ROX+Np1rmqFhUwcq +p7bZ+RNvYr+cK8H6H9A3zHYGEN+MSXgsYtMMH3QkPwcSH3+yqCGh+DWoanV2 +7ya+1xpxiTF6A6oP0m1DiQffP4+LrX0HD1SsVSKIF/ere05ZfwCvPZ850cQb +vsZZRDV/gsrZBOUY4npmUDymmAsCoxLr4og7DykcuB3aC91nUz8cJB6dazM4 +YdQPASjSl0g8NyXcnTXNAw3rCM9kYhXpnKaI2gFgZtus0oidlaaujloPwzL1 +2F2XiKk8NXl90VE4EFmfXUicoLkxcXfzV9A14UMp8TuFjr+ii78BW2NH931i +tkdQ4JmUcUjdfeTNE+KxiwKXK0O/g4FnwepWYlE1falvRpPQVtPm0UecwX5s +JyU3BT0He6W/Eqtec09YMT0FmRfGzGeJzfWSRkNqf0BTs+Bb6as0BJh+ah60 +ZqCsQnmLLfFEzB5hMa2f8D52+YmtxAdrxVdri/4HE1uN//IjzkbzG/7Nv2BQ +z7PlEDG7sMkmsngOSsTMbmgkLn5yhj6kJIjvKyyEOonHPnvHpaUI4mjGUZ0B +4jidyaqKUCH8ZG71TPIaqbd8mfpXIxHsSDpo5038vnW4/r8CEQyIw4QoYtXx +Ox4L5OZic7r88uPEJcbO6frTc/HZF7Gn1cSN9/bPCa4VxQwPy/V/FNEw+bj9 +04C1BMrHW2zmEcs4SkgdqJdA+qvgmPB1Ggw7bFDSQhJzJYpkNIiD+qrz/jJY +gDj/VK8fcbhgs+EaCSm0y5O/9YW4X63sW+KUNKak+MosuEGeD/V8fgtLBg0e +qo4ZEwve4C1bFCGDV7bwNnsRq7KWuhQPyWAj78zlEmIP69OVr2hZ5Lm+jthS +QkOLX2SUwgs5tK+rfXevlIbua6nJPqLySEnu+zFAPDxUXHB9nTzm3Qu7uKiM +BrHo3vZVDfKoJf5nRCyxzdGtxj7VCuiivdR5bTkNNVdMJ4tyFbGuM6frSwUN +V/pn966MVkYj47Ktl27RsH7bse6oUmW8Gpn6tIt4uFHWtpSnjGLVRmVy1TQY +X9GTU3VXQch825lK3OjrXSViuRQX35mbmXSbhvGv9L6BI6rofa6qJfkuDbIh +NreqnNTwq0vpxpE6GnhXxAI2BamhbOxxa7P7NNz90Ko0kqSG85bV3jhE7OW4 +44hWgxqeM2Z1KdST+nT3upwzUkemU+S6/QOy/uC1sXgFDaxf81z18UMatvqL +6ztwNbHzjHyW5FMaYO82I9efmjio4+TLJtZJzDVjK2rhpON/ObXEAgUsq/jN +Wmg1y6N2N9FQ2u3pWvlQC7UkoqD1GXk/t5ccWpy/HPuSM6XKm0l9Nk6dg77a +2Pzj5I6HbTQUbMn6dzpeGzXqiqy12mlI9eXSwhe0UcZE8EIyMfvgniGVdm10 +u52c49pBg3RdjsAWax3My6wan3hD+oc1qlOrros1r6x7bbpoUFI7lZDcp4fu +Yc4LVtI01J2Y0J4R1MenCoFjt4m9vrt3UMv0UU+mxc2YS8OlRg1tK299FAsu +qDPsoUHNv6btx1t9VJiJe72ij+y3pF+TemGANTOp5nYDNCgrqVCq7obkfFSt +/x2jQa8wWoIPRhhmx88/L8QFX/aRSX1nI1yQrPrSQJgL2erp3T5eRsh0nQt9 +TCyUX17xJMYIL6pUKIyKcOH9pcGt6TeN8F32ISF7US4cz/bJ0VZnoeXRow5y +klzgJTsauM01RraLcPc8BS5cjtTYVN1sgjN9ztGuelyo7G5IXvTBBFMGs+8t +0ufCI4cdTw8MmWDPPrPU98R9apmWVmKmeDiorH/nCi5otc/Tb7EzxZYW3Y0R +RlwoYQ3N//LIFH/KPVMsN+fC3Ymbj5fcM8NI+y+zmeu40LoXzI4WWuB5R+0D +Sru4sMz7jfOO4DWo07vG7FMOFzi/bpcpxyKK6e1SedXNBYWhu/MUfK1QvlD3 +dZJBD0SzVn9I17FB151NdkKHe8B3hGmSHVyHenfUf5V+6IFSq6h5uS12qPvP +A/vt9r1wZSLoYUmGPR4Rdi9vutsLP9YuetmYsAHPl1dOSazpg48CQt+4u5zw +1eVKsXkv+iB0SdjpQ+ob8aWki8ljj34oC2xqOJu4CdP2JW3IEOLB/u+K07qB +m/HOSLBPaykPJh1stz/d6YIpsbZqFdGfwcIzbW3/5i3owcs6rGY3AG2KOUGN +rK0ob1ogelrxCyy+eqSu6M9t+ERir9VlyUG4S+s4Oktux33e8gOfBYZApWPM +f+/IdmwpETT8678hYJ1NKymgXfFncbbY62UjkCP83SD9sRvaRUVbDq0dhdtr +V7xPvOeOO/j716Qkf4VssxPSTLEHyg6bN1mGj0HLv4VJrBRPfLP7ZNAD+W9Q +7XRRI/ygF7rlL0ySbv8G30K2CISyd6CSrUNMxvFxmLTVDhi19saZNfLmf1h9 +h6KRrh9RpjuxY+2b2YSFE+B2udBvh4QPbp7jHvKhbQKqKjfsFDrmg9O5Xk/E +rk+ChVLbzPEZH0x4YYGHI6ZAnfZ//zpwF5Zsbs5KM56GPvHdGy/27kJ6Tnu1 +nPAPaE119rPb5ouu6+Ud9z34ARkxueJ7Wn0xfNWQVOnBGair/zXjZ++HsV4G +5/GvWVjohcdYNX7ofy3QcvfTWbDwGS1KNGZjck+gqacrH66eG4tyNmVjfFdn +1QZ3PvzRPm6pYM7G2L5fEys9+TC6brqjaBUboz11G+R28sn3S2BOsxUb6cz9 +gXUUHxZMS7vLbGZjnUNk4ss9fOg7aTI/N4SN7+arfZxN50NqbVzg3atsjNLv +fOv7jA8hRlkWMUVslOr0vzX9nA+O12/ONy9mo9LHuZDczAexLN71O6VsbHiZ +4FXWwofEyE2Dt2+xkW35vbjvDR/itDV2Vz9iY3Fisa50Dx+Csl4EV3azsfNt +dRw1wwf7BbzVkTQbTXT2GbXO8uHPRAFJox42TmUeOWbO8IEXaVJ6s5+N+z3v +S4r84sMu59yRimE2ihckxZ8UZsBNJCq0fJaNcuKr0zwXMmAXtTi8RJ6DB9cV +nfyizsCj3CSH9EUclN3GYq3VZGB187hGzGIO/vmtTztLiwFDzRdd1ioc/DDv +gailNgOKbw9Y/6vJwffjR+P3GTAwtPKjvJgJB6nnXz5mmzNwSjDvvv8WDoY8 +1l2evoEBsRUS2U7bOHiinS9S5cjAUc+YSJYrB+/nLV/e5sRAzK1Ny395cHD3 +Eq6B+CYGdlFz0jJ9ObikWmN9wFYGWM992f+L4KDXJNi+8mLgbZqmuPppDg6X +bbxlG0z+c0AyYCCNg8az3heXhpD8kYnG0jMcbIy9MTlFbGTfGG+excGplo+z +eWEMpAr4jTtd4qBd+1e7nkgGbMPyumJKOPgoqbRCMZYBZeV/TC3LODjaI5HS +RTzxPOyMUAUHNeOCOrL2M5CvBU6pVRw87Kp2Y2EcAz8/fmwoqOHgQl5Z4HA8 +A7cclYpeNXFQrWvVlPtRBpJnBUUynnMwrb/pqEAiA75Fg7vcmzkodzgrrpBY +SrhGqa+Fg4buS64NJjEQXOt2aqaT1GvWyd11nAF1ncy9Gv0cPB+wqUEolYHZ +t3+3f+Fx0O+a+vPTxK2JHMPyAQ7umxFYueQUA/Fc40GLYQ5GhKhsMDjNwPvs +9h0bv3OwPLRHH9IZSJ8nvW7/HArr2WtaZDMZqBv/6BktRCHvAjcqg/jzx+LI +UBEK92x3kJfNIv1wyybPdz6Ftv9mbBHLZoDnE8N3kKZQqiqkmD5H6ndcJ7NO +lkKm9pTZ5vMMrDKT0QY5kqfa2/CA+LRkyXaWIoUlfuynmRfIeM2nm0rLKDR4 +OXxJL4cBqrCkSU6dQsm2ctGTxKdPx35aqElh5ZhtyBAxj5KVFNam0GHERSv/ +EhmXtQsYNqQw5ljtlulcBmr+k03gGVEYJ/X9lF0eA/1f6LO0MYXdN97+7yzx +yob9jzvMKXz4QENF7zIDfcFlKveRwgNF1N+Yz8ACtwMmd6woHF187shBYgvr +9Y43bcj6Sv8cridOVeyJLVxPYdgjVpBxAQN3hctP5zpQGHq83iWYuPfrgWvn +HCkcV81n5RObP5F7c3IThWLhit3zrpDzvtkzdMyFwmz1w9fMiE9eLBc8vJVC +OnckgEPcE2lvuNeNwmceB9triCW95e3CPSicG3UkrofY3L53R5AXheHz1iqL +FpL5S/9O9vah0PdFyTon4rtiDvluvhT631rzMpi4Z1L+ngubwsYUZ8cTxJLc +3hZHisJzb9seFRKbN1fwbAPI/Il6wwfEvnf+/olBFL5TEc3s/J2f7/DHqmAK +VcOujA/9zj+poGsSSmFh1wnbX7/zY/rWrgincPuKqjSpqwxIsG+6aUdSmKIs +37GU2GxjfJh6NIXKBqWS+sS+KzckKe+lkHoaaWlOnKK5KEchhkKWni+1lvi2 +VH+V9H7SPwf2Ja4n5vJvPhePo7CosvyC0+/8z/FckXgKnxSJXt9EbNq24cev +BAqjZA+Vbib+P4rqAUI= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + "PlotRange" -> {{0, 180}, {0.520190431585247, 1.7906052377231532`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.9887929549829141}, + "AxesOrigin" -> {0, 0.5201904315852481}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ @@ -1684,7 +6775,7 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.9887929549829141}, + AxesOrigin->{0, 0.5201904315852481}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -1712,7 +6803,7 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.9887929549829119, 1.0113097844802965`}}, + PlotRange->{{0, 180}, {0.520190431585247, 1.7906052377231532`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -1720,9 +6811,9 @@ 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.99312657158841*^9, + 3.993127288714654*^9, 3.99312751488517*^9, 3.99313010343771*^9}, + CellLabel->"Out[95]=",ExpressionUUID->"a176a917-4301-4cc9-8844-2f9902b92236"] }, Open ]], Cell[CellGroupData[{ @@ -1785,60 +6876,67 @@ 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[96]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"2.4496567919369405`*^-263\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 96, + 14, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813432829*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, + 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, + 3.993130103643903*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"546a9ea9-5939-f84a-87c6-58844f58f330"], +In[96]:=",ExpressionUUID->"b9d646c9-aec1-4240-adcd-99a477981970"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"2.7988822445465775`*^-274\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, 96, + 15, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813442087*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, + 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, + 3.993130103647066*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"b36bffd7-1c84-5c45-a847-b2c31968f579"], +In[96]:=",ExpressionUUID->"d07729d2-cb4e-4d8a-b07e-16cb6b697d94"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"3.1978936170254115`*^-285\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 96, 16, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813450123*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, + 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, + 3.993130103649454*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"c864bef7-fc73-d94b-8cde-14570cba8095"], +In[96]:=",ExpressionUUID->"d759ad1c-e4f4-4626-b70f-844b973e69ba"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 252, 228, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 96, 17, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991333813469118*^9}, + CellChangeTimes->{3.991333813432829*^9, 3.993126571953257*^9, + 3.993127288939659*^9, 3.9931275151364117`*^9, 3.993129490503615*^9, + 3.993130103651752*^9}, CellLabel-> "During evaluation of \ -In[252]:=",ExpressionUUID->"a2e62375-acd2-6740-bfd7-026877c5bd7b"], +In[96]:=",ExpressionUUID->"fca31b9c-2817-4a8d-a14a-c9553846e112"], Cell[BoxData[ GraphicsBox[ @@ -1847,310 +6945,95 @@ Cell[BoxData[ 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== +1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX +DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH +t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng +rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ +Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR ++x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV +ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 +sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK +aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd +nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY +ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno +HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD +w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k +N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw +zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC +8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k +yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI +ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL +BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 +SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX +9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 +nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 +3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt +3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs +CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE +u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 +FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV +sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 +BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b +RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza +2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK +zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ +B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj +V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb +ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi +1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH +8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt +A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ +b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa +mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A +INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 +i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN +Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg +UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd +2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF +2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ +3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS ++lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 +/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m +6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ +ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ +p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C +j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD +DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp +ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx +6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B +w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn +1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M +PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP +Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H +Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj +k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C +vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO +JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv +0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf +5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT +Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh +igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ +nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 +6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q +M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW +RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s +kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G +mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG +2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv +FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s +oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy +5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP +/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ +cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f +uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b +C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd +7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj +d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa +fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 +XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 +0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT +5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g +h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -2167,316 +7050,101 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX +DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH +t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng +rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ +Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR ++x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV +ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 +sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK +aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd +nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY +ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno +HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD +w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k +N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw +zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC +8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k +yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI +ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL +BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 +SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX +9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 +nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 +3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt +3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs +CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE +u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 +FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV +sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 +BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b +RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza +2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK +zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ +B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj +V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb +ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi +1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH +8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt +A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ +b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa +mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A +INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 +i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN +Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg +UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd +2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF +2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ +3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS ++lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 +/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m +6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ +ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ +p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C +j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD +DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp +ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx +6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B +w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn +1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M +PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP +Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H +Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj +k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C +vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO +JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv +0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf +5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT +Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh +igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ +nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 +6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q +M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW +RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s +kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G +mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG +2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv +FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s +oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy +5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP +/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ +cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f +uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b +C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd +7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj +d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa +fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 +XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 +0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT +5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g +h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> @@ -2500,7 +7168,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), @@ -2529,316 +7197,101 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX +DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH +t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng +rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ +Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR ++x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV +ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 +sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK +aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd +nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY +ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno +HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD +w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k +N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw +zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC +8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k +yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI +ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL +BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 +SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX +9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 +nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 +3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt +3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs +CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE +u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 +FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV +sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 +BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b +RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza +2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK +zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ +B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj +V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb +ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi +1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH +8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt +A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ +b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa +mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A +INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 +i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN +Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg +UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd +2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF +2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ +3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS ++lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 +/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m +6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ +ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ +p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C +j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD +DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp +ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx +6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B +w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn +1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M +PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP +Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H +Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj +k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C +vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO +JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv +0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf +5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT +Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh +igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ +nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 +6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q +M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW +RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s +kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G +mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG +2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv +FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s +oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy +5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP +/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ +cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f +uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b +C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd +7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj +d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa +fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 +XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 +0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT +5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g +h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.17588335145564066`}}, + "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -2887,7 +7340,7 @@ qF/Y90JS3Haua8s2Bt9S/5ofVy4kcWhWKZ7+i8EOk4Lqx7CbpCK/lrV//zDw Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.17588335145564066`}}, + PlotRange->{{0, 30}, {0., 0.06743566633430119}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -2895,25 +7348,866 @@ 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.993126808646118*^9, + 3.993127324305475*^9, 3.993127762032987*^9, 3.993129914266333*^9, + 3.993130298071371*^9}, + CellLabel->"Out[96]=",ExpressionUUID->"2d6814a3-f40d-49db-a210-8e29726f9394"] }, 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.004388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0.013039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0.021317"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0.028996"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0.035881"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0.041813"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0.046685"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0.050429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0.053035"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0.054525"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0.054971"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0.054465"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0.053131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0.051096"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0.048507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0.045494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0.042194"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0.038723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0.03519"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0.031681"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0.028272"}], "}"}], ",", + RowBox[{"{", + RowBox[{"21", ",", "0.025018"}], "}"}], ",", + RowBox[{"{", + RowBox[{"22", ",", "0.021962"}], "}"}], ",", + RowBox[{"{", + RowBox[{"23", ",", "0.019131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"24", ",", "0.016543"}], "}"}], ",", + RowBox[{"{", + RowBox[{"25", ",", "0.014202"}], "}"}], ",", + RowBox[{"{", + RowBox[{"26", ",", "0.01211"}], "}"}], ",", + RowBox[{"{", + RowBox[{"27", ",", "0.010256"}], "}"}], ",", + RowBox[{"{", + RowBox[{"28", ",", "0.00863"}], "}"}], ",", + RowBox[{"{", + RowBox[{"29", ",", "0.007216"}], "}"}], ",", + RowBox[{"{", + RowBox[{"30", ",", "0.005996"}], "}"}]}], "}"}], "]"}]}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, { + 3.993121548955904*^9, 3.9931215512243633`*^9}, {3.993127096914473*^9, + 3.9931270988414803`*^9}, {3.993127317653944*^9, 3.993127320382461*^9}, { + 3.993129462779653*^9, 3.993129464066414*^9}}, + Background->RGBColor[0.87, 0.94, 1], + CellLabel->"In[97]:=",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], + +Cell[BoxData[ + GraphicsBox[{{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> + ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> + 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.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + 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.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.880722, 0.611041, 0.142051], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.560181, 0.691569, 0.194885], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.922526, 0.385626, 0.209179], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.528488, 0.470624, 0.701351], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.772079, 0.431554, 0.102387], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.363898, 0.618501, 0.782349], + AbsoluteThickness[2]], + Directive[ + RGBColor[1, 0.75, 0], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.647624, 0.37816, 0.614037], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.571589, 0.586483, 0.], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.915, 0.3325, 0.2125], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.736782672705901, 0.358, 0.5030266573755369], + AbsoluteThickness[2]], + Directive[ + RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], + AbsoluteThickness[2]]}, "DomainPadding" -> Scaled[0.02], + "PointSizeFunction" -> "SmallPointSize", "RangePadding" -> Scaled[0.05], + "OptimizePlotMarkers" -> True, "IncludeHighlighting" -> "CurrentPoint", + "HighlightStyle" -> Automatic, "OptimizePlotMarkers" -> True, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30.}, {0, 0.054971}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.02], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9931277621145897`*^9, 3.9931294654460983`*^9, + 3.993130298123993*^9}, + CellLabel->"Out[97]=",ExpressionUUID->"43effa24-9c82-4a92-b2c0-33b55f2b3d47"] +}, 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[98]:=",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX +DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH +t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng +rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ +Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR ++x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV +ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 +sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK +aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd +nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY +ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno +HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD +w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k +N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw +zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC +8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k +yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI +ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL +BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 +SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX +9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 +nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 +3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt +3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs +CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE +u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 +FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV +sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 +BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b +RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza +2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK +zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ +B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj +V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb +ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi +1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH +8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt +A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ +b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa +mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A +INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 +i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN +Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg +UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd +2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF +2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ +3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS ++lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 +/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m +6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ +ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ +p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C +j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD +DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp +ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx +6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B +w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn +1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M +PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP +Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H +Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj +k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C +vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO +JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv +0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf +5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT +Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh +igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ +nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 +6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q +M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW +RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s +kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G +mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG +2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv +FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s +oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy +5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP +/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ +cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f +uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b +C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd +7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj +d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa +fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 +XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 +0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT +5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g +h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= + "]]}, + 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:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX +DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH +t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng +rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ +Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR ++x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV +ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 +sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK +aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd +nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY +ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno +HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD +w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k +N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw +zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC +8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k +yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI +ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL +BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 +SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX +9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 +nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 +3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt +3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs +CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE +u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 +FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV +sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 +BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b +RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza +2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK +zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ +B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj +V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb +ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi +1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH +8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt +A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ +b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa +mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A +INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 +i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN +Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg +UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd +2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF +2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ +3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS ++lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 +/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m +6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ +ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ +p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C +j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD +DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp +ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx +6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B +w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn +1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M +PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP +Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H +Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj +k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C +vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO +JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv +0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf +5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT +Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh +igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ +nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 +6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q +M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW +RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s +kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G +mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG +2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv +FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s +oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy +5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP +/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ +cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f +uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b +C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd +7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj +d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa +fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 +XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 +0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT +5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g +h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VdsbB3AZCkWizMM5+xxDMo/hnN63gdCNiEhmqXSVklKiUKJQSFGX +DKEIZ2+kKw1CooSKTEVXk4SQqYnf/v21n8+zn2e9a797fdfam+kb5OjPz8fH +t2gBH9//r9N9TfXs+Lw1vN0SRlWIa9qvyR5b2xUNunhxcOsLJcAVrb6yXSng +rLCnfekLbTiypahToCsXDGx+ir1v48KyUZmUH51lIPx3dVVO22bov2cXNNlZ +Cz3DPXYdrR5gxR56O975Ehb2Dm+sad4HPzpNL411DkAlOzExoiYC6tbfyHuR ++x0yfi9uZjeeB8X+qk++Wn9AbL1GllfGZVge6FW0aL0Ait6cECnanQkp+lbV +ds7COL5GYdxNJxe60/VqxiXEsEG4tSNdPx/i80628sstw8d80ocUNW+CTOr7 +sxczpfBEgEQms6YIYp1s1rycXoH9obG2+l3FIF/RIs+/QBo7qU2JKe+KoVTK +aUZ/sTT+daqwemSwGF6/9CSTVaTxm5dPZ/KPYmA7hBAO1tL45cbpsST5Eqjd +nLWw7Yo0ZnOy+wJ2lMAfq6mW5xwZjDENeRTZVQKHzHK8mqJlccL3lK18TSnY +ZotPbkqQRR0W6IY3lAKxKDyu5ZIslq56lN3VXApt7duoVzdl8WpluUZUdyno +HFgi0Ncii+qfh2uTJkphsCC0YEJeDt/4lfcUsnjgvtxuRKFcDn01Lt59FMUD +w+PVUdfuyWFdm0thSCwPRAc0pJkNcmi6pVaRSORBFU8A1LrlcPXcSFJgOg+k +N1Ul6c3L4bbU6qKHpTxoi2IbWW6SR0uG+jnPHh5s+PYzbP97eRTS4XEeSpNw +zDpV89GwPJ5vemtnJEdCaY52j9S0PI4cfX6/QIEEWSdvsyphBbytKlh2ikHC +8L+PZwR0FDA4P3pSSZOEi9FJIVeOKqBtOPXlFYeEgRVq++vFFPH7+6+zlt4k +yAQ9VJKRUcREpt7dXb4k/NXo+jyAoYgtQ5o9p3eSUBkWr7XUUBE/aFImVXtI +ONc/NrTdVRFfzjL9+Q+SYFBYvftbriIu0ekrk44iIYrj4CO/Wglll/2z1DqL +BGvPaxOm65TwsozVjEUOCeKRX085/6WEBY/7n2ldJyGjLqYgyVsJ+ae6OEI3 +SPjX9u7XhWeV0Ord0IbkUhLGXFlHvncr4dDwMw3p+yTcCTuwaNkHJXwSnDDX +9YCEExn303VGlZCbnfA4vYaEJe9cqgP4lfF560mNpfUkqO9O4HunqYyFxS22 +nU9J8Dw8da75uDKO17y37ugkQTVtneJQjDIexHjX3d3/79+FkkVJyjgqWeg5 +3UNC2O+VbevylLEVKuwX95Fw6ZTniqpmZew9p98q8YGE5uQnWflKKrjMZzDt +3DcSzEuvVJx4qILX7UKUOYIUbOhs+TPaqILPfa18twtRYMcnuNHrpQrK+4Qs +CVlIgZ/j/m74qIJ+6Tsv5QhTYHWceTJSiIEPDnNOv11CwQGV6etrVzFQelBE +u3s5BVPlSY0/dBkoqzYp+HwFBWHWq0YoIwZuiD5t80CagpiD3ibEGgbqVoP8 +FVkKrtY9beR3YOCqHb0fdRUpqN+dNVJ3hIEzORExAwQFNr/NJMOP0/WaHrqV +sChoSWo3MYpkoF/P+euH2RR0V4lE5p1loIN3bvKcKgWji0MkYzIYuLlm1/C4 +BgWHssVNuTkMrGp4tffmSgpmjQp3TOUz8ItXmLe7JgUCnn15/jwGjtQ7l99b +RYEsaW1qVcvAN5ZJgl46FGRueL9jroGBjbclbBfoUkB0R0RWPmPgovoM0Rza +2vzlTWodDIz/99lclx4F65yU3BcNMrB+essjTUMKAmfHIxvFmHjtibHKNlMK +zA/ukv4kycTp1qYjPbSFh3puCcgysTBcZmDHagrye+teryGY2Dx+btrZjIK+ +B5e0bpswMXPdrZXqFhQUm4rWvrRgIkfonX4q7TDyhMsYMtE5cfXWOdrSubuj +V21iYriL7IcmDgX2MWZdOV70eBeWO65ZQ4HyXMm+hzuZ+HvyvUkq7eEjhMDb +ACYaOx40/0w7bs9iHdkQJjop5WSfBgq2/XeyzvgYE+smywRbabPdJl23nmDi +1ss+56SRgppNb0+dj2PiuET4nwza5+sd5IoTmdiv5jHcS9ud21DalEI/38nH +8zJrKfihw+sWzGRip59yWiztxhusICKXianfzipW077MSBfEG0x8ez+46Stt +A8ko3eMUE1l/qjI2rKOAL36qPr2SiX+YV+oDabcI7HWrrGai/Ni0dArtjPC+ +b69qmHgm5lJqBe2/pxxjxh8zUa/CdE07bfP9T+SXPmPikQU5y8dpC3+2ILXa +mFiQf0l28XoKXnuRlrYdTDwU32NL0M7rYvfu7mFihL1xsQntYIcrB2L66X5A +INeaNj4VW3j9AxO1dljNb6Mtvj76n5ovTBRwiJ/wpf22elqvb5SJgZECsoG0 +i43+bvj1nYnDM6EHgmmHlfTvkPvBxIGQst+HaVurOY2bzDFx3jfi/hHa0lmN +Z5wECGzqvV4eQvuDDFcxWJjA5QXj/UG0y5Io6oIYgbHGhuv30I4UUdtYIkmg +UJFxnwdt++irb57KEIitDdQW2sq/xIMHFQlUU7z9AGkPHzq1aCFB4I6yViEd +2neHZzJY6gTWeXyKlaUd5x9osFaLwG8Xmyz5aG/re/fEU5/AjEO2+JHuH9vF +2SPchECjevOjT2hPtDZNXLGg600FjhbQrrFeE3cHCfyiVHH9FO3zj8qUOiwJ +3Pf7fboHbXdz9fIJWwLzptpajGj/WCXRp+1MoIKIKV8v/f6nM+WjDN0ITHaS ++lJEe3KpKtvMi0CbKQ/do7RHv5vt3RBA4KWa/Z2itL/6bxCz3U+g9a0W8zZ6 +/Q122pH2hwg8tbdtLoX2QLXftFsEgXre329J0O7X3n/FO5rACpHyy8/o9f0m +6yhnVyyBXwMdPp6i/fpUYvTBZALri/ZRw3Q+nm66Ix6XT+BzOwXFLC4FT+4/ +ohKLCFw2V8expF2v2+x0kUeg2+d3Twbp/D2Q+u/qtSoC06abGRq0y3pF1W8/ +p+tv+zAZa04Bb/OKp3df0uNr5UTK0S5+qLKvppPAN+/iI27S+S+4blT+7D8C +j5k6tjyg94erf3vCwBSBtqdT3zebUJD2ds/A558Evt1SKmFLO9X+UMzIPIGD +DS9v1xvT/TaMezYrwsIqu4q/y4woiP5FuSxVZiHVuf5akAGdj3ihAxwrFrrp +ZL4/qE3Bnj9LpdZtYmFFydWfDVoU7AqSr9y4hYV6k4/S5Gh7b9X97ejGwhvx +6nvu0Punk8L2uID9LCxqvBbWoU4B51Zx9uXLLIzY62aQwaSgl3Ery/Ifun4B +w7mLQa/3y4XXJrNYmLzS2kOS9p2oggzHQhZmlT5kRCrTeXfNThe/x0L+1TFn +1ylQsFIoNenMfyzk9Rom+tHnS2NYygXjTyz85OHkc0KKnt9Y0vkPQyw0Wb9M +PU2SzmtvYsK6SRZuHA07VytBAaMsNm5uIRsHXHsb+MToPHkdjzyixcbLDfaP +Fejz7nb7sZOq+my80C60TJo+D51sj55oN2bj8plBN3EBClKMD4cbABtnmv2H +Z/koEFsSdHTUgY1qWy4rVv4mQbDK98CuUDY+lrvj/+I7CeOStt7batmonpFj +k/yOhK5Aom3vEzaW+j7y0+8noabhJ5xsZuOwpjq2viUhKeyWys3X9H1rwQ2C +vSToDSzp/zHERtabjktbO0jYT7V6ZEqp4p25eIe4JhKG7J13fNipinmZwlUO +JAkvC7WfzQao4t6j9vrF9PfIXYGFFmJBqijCF3VesISEs3cq5U2OqWKRlfjv +0kISNFRke2ITVXEwv6l2KJeE3aM9rqsqVVFx6MjMXCoJHxK8twUvUsOof1pf +5ITS9Ye0CL0lanis73Ni72ESZjb+GBmRUEMd85iLUiEkiAqkxATIq2Fm24KT +Jw7Q8z9WV+GtrYa5DqNjEEBChL+alP1WNfwmES0R7EaC9Jrh1lVZahijc6Dh +igUJNt9CbT6aqGPZVlacywQPFPWVzwhz1NFBx809Z4QHo8H1tavWquMmN96/ +nwd5kDotwQnepI6i7w9K7e3nQd+fQp15L3WUmE+6ZNnMg+Alb6TkzqrjeHL5 +6PZ8HlxdiX1/9aqj5D5dSRFnHgz7CR+qOKmBirNh4aK3Sun/ERn+2NqVKN2Q +M7uYWwKSz9XOk980UVd8S/Pwk1ugGMfbYmKihSUnYkfPyhVB+iozCand2uiW +RNrIh96Ep/Jrjb8n66D5zcXvlrQXgLlibZLua10MTSkSCBbNB3GB3BCfaD1s +kvV8s8f3OihHqXC2q+njp8bn115n5YCIqnul4xN9dHdMWLb8cxbocOV4oR4G +mBXHWhQ+mAHBfZJ1tnyG+PbQ/a+PXl6Bb98TnG3SDdHwp/3cAqU02KjbcNVG +2wjXOVtLnMlOhQffLX7NtBihqwB5tpCRAvu1DHpe+BtjasAlBmf2AnBHd7Zv +FzHBq1miCX/diwdLtuxmsVwTdJ54FGuwMg40Is8drTU1xcjQIPtf86dB09/s +oWqPKc42ah1YORYF/g/2nK44uBqvJ8jXp7eegIfZ7TvHV5ihiZf6QcNfx2Dy +5vyM7h0zFDImvlb1HAY/1VsiVzeb40j1defwqGAY17xoUjZmjmOmrX9+39sP +/+b9+m8qzgI3DpjfkL4TAG4bWGihzMGsgpAlj8P9QWFfbJVODQd9CoIKWGk+ +cH5+l3F8LQf3Wma1vj7rA/wpVtTneg76s6MqUsJ9YKhSqDC7iYPyOiJZbF8f +uMt3Ol3yFQfvqJiHkto+4JYaGTr9kYOTmR5mOxu8Ib36mPGDxVxsL9GYXv3b +C1aIBlKbXbj4szt/mlzsAXnrI8LGtnMxKcejNHnCHQwizq+/6M5FIdeavTHd +7mA3RnZ0+XAxUKa0Nv+GO5x5PfXDL5CLGd2WNxs3uMNs7sl1YVFc1HDMJRKj +d0CPxcVXBbe4OPOnNqFmsRvsOZyXYVPKReau8qivk9thuvS2/zDJxa+VkWIa +fdtBkuia0a/k4gkbo/sd5HbYJKykeL+Gi7y4NCt+l+1wr71g56sOLibsTfO4 +XOAKtuL/ah/p4qKi7M6LHUmu0LWxaVq2l4udOy1I1eOuMHn3a5znOy6u/Xn3 +0Ky9K2jn6JV8GeKiHKv/+66fLnCvZ+2RhBEualI1hlofXcB2+VbQHeOiGpwT +5G9zgV2xh1+ETHHx8SJlnf58F5isOXNVZpaL/UHpBz8luUD0zzS/uz+5eM9g +h8LccReQMCrU8vjDxQHuU4babhe4tu/u1Pw83V9zu1BPRxf4H4yZeRo= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06743566633430119}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> + 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.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06743566633430119}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993126808829454*^9, 3.99312776213076*^9, + 3.993129468229682*^9, 3.993130298140637*^9}, + CellLabel->"Out[98]=",ExpressionUUID->"5f95558d-8db7-48cc-944e-ccd23c0a8e7a"] +}, Open ]], Cell[CellGroupData[{ @@ -2922,14 +8216,13 @@ 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[99]:=",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.52905426969551`"], "Output", + CellChangeTimes->{3.991334803166374*^9, 3.993126808848978*^9, + 3.993127762150346*^9, 3.9931302981640577`*^9}, + CellLabel->"Out[99]=",ExpressionUUID->"730c5742-c84b-426c-9800-dc5efcdf30a9"] }, Open ]], Cell[CellGroupData[{ @@ -2985,60 +8278,64 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}], "//", "N"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918492818821335`*^9},ExpressionUUID->"65a995ff-ff3d-634e-9bad-\ -4a8a16073236"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.015132160320536`*^-259\\\", \ -\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ -to represent as a normalized machine number; precision may be lost.\"", 2, - 255, 233, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133480336051*^9}, + CellChangeTimes->{3.9918492818821335`*^9}, CellLabel-> - "During evaluation of \ -In[255]:=",ExpressionUUID->"c1f83af1-416a-6240-b3fd-c1bfcc643459"], + "In[100]:=",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"3.802481548114291`*^-269\\\", \ -\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ -small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 234, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803369583*^9}, - CellLabel-> - "During evaluation of \ -In[255]:=",ExpressionUUID->"5cfd3c4b-6190-2c4d-8479-b4ccd7090f94"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.803946040382125`*^-279\\\", \ + "\"\\!\\(\\*FractionBox[\\\"4.078211292794601`*^-261\\\", \ \\\"118567477908254066625631346005619254518349824000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 255, 235, 24483298974280422597, "Local"}, + 2, 100, 18, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803378134*^9}, + CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, + 3.993127762337482*^9, 3.993130298317121*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"288fc6c7-a3fe-9b48-9c0d-bba2713f7084"], +In[100]:=",ExpressionUUID->"976efa94-b5e2-4982-aa8f-60f62186578f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"9.255780481927353`*^-271\\\", \ +\\\"92956902680071188234494975268405495542386262016000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 19, 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, + 3.993127762337482*^9, 3.9931302983204727`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"13ef69c2-851a-4481-8d73-3e736103fb67"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.1006629176126437`*^-280\\\", \ +\\\"78176755153939869305210274200729021751146846355456000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 100, 20, 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, + 3.993127762337482*^9, 3.9931302983231363`*^9}, + CellLabel-> + "During evaluation of \ +In[100]:=",ExpressionUUID->"fd1971c8-bfb8-414c-9ddd-f261b1b86e83"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 255, 236, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 100, 21, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991334803386196*^9}, + CellChangeTimes->{3.99133480336051*^9, 3.993126809017433*^9, + 3.993127762337482*^9, 3.993130298325582*^9}, CellLabel-> "During evaluation of \ -In[255]:=",ExpressionUUID->"09478fd5-b212-2347-91e7-b9097bd6d61d"], +In[100]:=",ExpressionUUID->"0f3f0242-2be6-4541-ae6c-7ee363959a05"], Cell[BoxData[ GraphicsBox[ @@ -3047,129 +8344,104 @@ Cell[BoxData[ 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 +1:eJwV13c8Vv8XAHBRaarIzLjPY8tMtsc5RcYjZMum0JBRVkZ2EUkoUkZCyXqe +m5QRQqTQkihR6lu+fY1UaMnv/v66r/frdef5nHM+59K8A218ODk4OMSXcXD8 +/zg/2tMplVZqIO4+9Vzoyk6DgUKh4zuGEqDh1NebjQI0QP7H3kJDWTBz9OOR +bAE1CNtz4yXXUAn4jYbfjRDYAZumBbN+viSh4NIbFSsBaxhrtgz8/rIdRBJX +Xujh9wJjqc9vZl8+A1O2UkkHXzD8fKl1/svLcaCf/r63fm08dBheK31a8g2K +UHtxdeE5EB1r+OituAiGfzqrXgxehM3+Hje4Dblwh58O7UpHMWSpGTdZ2q/C +Jdu+K9E3SmE4T7VtduN6fBtVcU9h2XVIK419zCm8CTuMOpMSDSpBMOd9anYB +HxLev8ZJjhoQ2nor6Uc5H7boWY7KrakBkfaTsW4sPmR3Cl7O46sB8S/yobId +fMgZx3T2kakB6d1Bnk0TfCgl4tZ207wG1Jcvar5X34xlYbfVJc/XgFWIwIdt +Dzcj/315xV2StXDKzszg2Tw/Oqslr1cVYIFIXb8I5zIBDLad2BoiwoIaPrsF +tbUCWPdAJbpOnAWDz9xZ5yQEsMq8gyUvywIp6xC6takAev+pc/+oxYJ2i6KV +Ty4KoJWKZ8R1JxYsGs/19+kL4kW7nbssclmQWR5ZuWgsiD2DadMCl6jrV3Kk +KFkLYoSwSetIIQt231+z44yPIHatkR10LWdBviFxc3eGIJoWHH6ufIsF2mie ++2hMEKPfPhgTfsaCYzpXPHoShJC/QEFh7Wo2MIt5vpunC2HW3mZL2jo20Lmj +U/rPC6FdjD7/9g1seDLgwH5+XQizHUdPWfGzQTloHddovxCuqL/H6U5jw0R5 +ePlXEWFcMPQ0H9Zmg+tmy6ktN4XRtMvD0MyHDepRTfGFzcKYcGax7JsfG9aM +ywnQuoSxu5dZmX+IDQ21XCAzLIzJB2wLRwPZIGDekKm6RN1PaV7OIJJ6frzU +9l3mIniTt/WzSwYbjGZ+RQa8F8ESLjV5vjo2HDfNUbg3KYIiaYkjxvVsqLmi +9IpvXgQPz444hd9hg5Cdp07Dqi042RlV3d/Mhsk79xe4lLdgvmxCr8N9NmQn +ZIZcjNiCmTGn+ftesGGcXyagc70oqg5LX7X9zgbBwFYxQUFRpGdYzRLzbNj9 +wKnvICGK1qeXbfpvgQ31kWmKG9RF0XzRvCv0NxtOj335vNdJFPOf9W7y4SRh +W0WT30yJKKof54is3EBCvL61l4i2GHLafJV/JUuCqXvhV62dYpjSOTfgKU8C +T9x/ifa7xbCPGf74vQIJlzuSyzM9xZCWqXJrVImEO8zG/1amiuGLADvb6+ok +fHGSDPs2LIYJl5luaQYk3I4M4t70QQxVMtN2vQQSTly+m6c8LYbVNq0nJXaQ +sO6tY9NBTnE8xEwWKDMkQdYvneOtgjg2VoTGJJmS4B46d7o3Shy7OP7+zrEm +QTp3p+jnZHEcb469V25DUvE7W82dKY5tY5mf62xJiPwj/2RnqTi2c6se6rIn +4XyiO39Drzhqzxurt+wlwbWssnxwUBx3yNDkbzqTQO/+ofX9rTjKzRullLqQ +wFqT7awyJ443Ul2So91I6D3XXVQmJoF/jYrPLvMiIfvmZrUOWQl8knTpwzBl +5xde7W/VJJDn49vrNd4kTAj9+bDFWAI5P7gnWOwngatYVSErQAL3PpjL8PQj +QbfmYt2JVgnclhTTNuJPgtHL/sXpBxIo4PLuRfAREiw5lpt4PJNAD9OG11wB +JOyzCRiGfyTwcXN0k3ggCcZRtNi4FQT+0IsfVQkm4dGG5qvaawi8G1R7uory +nlKHB194CLQhBxRljpLg0pe2yUuIQP9zA/Ybj5EQJDF/dcdWAq8pn7RsCyFh +7mbmg58qBLY/NmyRCqXiZ7p1ir2dwKC+KvmTlJODPTXpBgSuCz84D2EkrFn5 +2/nVTgLNrdX35lHOzD8fm2VC4L33OY1TlPM7Hj7gtCbQtpcv+mw4CRJOPlON +9gRyWVS/eU25dHJp0zFnAolXgygdQUItv4bL+30E+uW+4qmlvP3G49hLBwi8 +OKoZNUO50eBQqe0RAo09ZCcVj5PQ6Vc01RFGfa/F09FCymZ/dHijowhcU8vr +/Zxyf+aA5vY4AntUfkwujyTBTjrQZTKJwPP5JnHqlIcbVseVphIocaxb1IOy +u2VpqWsGgblzBh2nKH8YN+jZnE2gvkBYSDXlg+HDU725BD6N01B7Qnl6bQhv +8mUCxfOMf81QPlbMo8W4QuCR0GNP1kWR8GN7hctcGYFrJ07WyVA+0WMYV32D +wI6Q3dcYlLncR0t9agnca59ZYU055WtEj1gddX6ERLM3ZZ5TfNMv7hC4IrZ7 +LIhy9pYa3oy7BH5vdeCPpizEMtUybqfW0/CyWxLlAqP3Ln+7CPTu9GtIpUwf +jomrf0StR22qfDrl60eEygKeEDgg+bwmjbIS580emRcEts3wM1MokxcspkeH +CeTOlvoTT1l76wRv7iiBHIxn9yMo321N0LJ6T6Bd79dr/pR32om5ck8QGNXv +fNWNcvfE7bjWSQJVY8fumFPeHWNTFj5L4FS3w7+alJ9tmupRmScwDHI1JCg7 +lp+a/vSLQG35iMLllEd06XzFSwS+DHkq9YmKp/fjZi2n5TS8djeqp4uy/4/Z +uAfraaiyVj44hrJusK/AR14alo5kvN9DedXnV5VcQjTcudZsgaBc9rpj0IBO +Q3sjUe7bVD6E2Gn7u8rSMCr0wIoYyjv7qpZFKtIw1yqwAiiPtpxXvKVJQwcN +sU+NVL5Vaa1pf6ZHwzd5fxOOUY5knXD8gjTMtt3QI0dZoMQvYas5DWuNGE6p +VD5bJesMXfGgYXFBcAmdyn/xv9VHWvfTUGdVQG0bVT+TYXSuNwdpKJJQHehC +OeXAWmWhEBqmLZ3lOUXVX5v5m8SMFBoOpJp/rKfqNaPTWrjqDA27e9qrdSm7 +MrpqerJoGD/XrdZE1fdP5drh5QU0/JOoFkIGUf2cN14lik3DdfRyrkiqX3Ck +zXXm1dNwJKnyyXuqn/RzHXKub6KhrFbrPiblw3M2ybP3abi4693b9VT/KR2S +eu33ioYsxn9OAQdJOGp9MSh5jIZe+doRLQdIwIfrV179QMOhTFO/tZTfNM2r +jk5T7xtzseGSLxWPogcn7bjouNE5zfrCPqp+BBmiR1fRsXFZyKY+qh+SmWz2 +2fV0DHuyopKDslVC/shDQToqN8oEuXtS8fDx37ZDkY7venN8vrtS37d146iS +PR3/7mIKp1H9e75AJF7dmY517KcVOXYkfN8gLaXjQUdyxQujS1S/n/6mc8jo +IB2f7dMuKqL2h/GmffPOMXR86jHHnWxBwkPz2zwpZXSk3TjR2mFE5evde+wz +N+g4We6XXkjtN50qvXbZtXSE5sbwsJ0ktPC9yy9soOPKbFaNGFLv/3qN7K0+ +OgYGhN0z06P622F3GJ+j4+USnYvCaiTkvjkw/ukXHZWqV3/sUiEhx+pY8tQS +HcVX9vsEK1PrqZ7y6MdqSex1OsTVspWEhN9sxw3ikiiRffa1hgy1HmkrgvSN +JbHV2kTmiggJ+pVVxRcuSGLO0+mwwGUkvCYqi3ZdksSCFfHHx5fYEHmhovB7 +kSRanItRs/3Lhtvx5ZdtKiTxhpp0lxK1329zKs7jaZbEc5csr3RT84L8ipzM +k+8ksT5MTvjsJ2qe8YiKC1OUwqZhsdmQR2y4NXA8VlpNCgcv7e4r7mGDHTPi +xICGFP4aW5b4sJsNWRqh0dtACr0+58YKdrJh/brAiGlrKZzIqXiTS80vyxu8 +g3zDpVB/crmqejUbZnmZng7tUlheYrFnJJ0NQ/70J4e6pdAaLU3yTrOhresX +xPZKYTZ3zbh1ChsyIyslrg9KIadJ5rqWRDaojq8b+/lZCkN9NjtGUvNWAPux +WwGfNJrTWcJJ1Lz22cre5cN+aWRa3134CGz4kO7pcJRbBiu43P6Fzywwmwk3 ++0dTFu+P3dDo0GDB5L5Vx+pi5fAug3PbU3YN9X8gyHmqXR6Z2ivLl4aqgLdP +JoM1o4A7/4zeM+KuBNGU2j2amopospqIWff3OuRt1dnI56eEezdkEmKbrsFD +kR0a384p47Sd5GCKShnoirZnqgyqYHP9/C9P5avAw1US4pWgihlFi0nS7ldA +PF5Cf6+MGoZmCe349KMQVku71tt0q6GHDV1eLeoSKDOEa8PdtuGbhtwtb4/k +wdFR3g4mhzrKa6c2P3I5DzPf0u3N8tSxSLFRuqYhC0xUuvLNlLZjxh6DA2Fu +mdDyTe/3Qv92nFW7F+cinA4BittePfXRwE8C0QuCuinAmN4/sHe1JsqZXJQP +jE2CXVJCFutLNLEqQ2bRIyAe5OJOR7RraeGQhESbb3YMKPjotEq/0kI61w5B +y9wI8Gk5kFQXrI3ZSpkXzuaEQGvxwP5Zfh2cmC0NnRkJgu/XlxZUbuugr9se +37Czh+Gjg3FxaoMO/ljhvP1A5GEYWn7G9H2TDib2Tt3x8zkMTZ4iFy+06eCB +pciHZ/UOQ4KQhu5ijw56T87tSZw4BBtTDkU/HKHuLz/+d9boECj6veDw4dRF +0zR6fwv3QdgnXbk630IXs5KdZa7e9IXI++6HZPboYmv1mTsWxb6Q6cP7iLTR +xUqj1IiVZ3yhuex4+iNHXWQPWHmV+PrCZhnTDYteuvhf2fjXBBFf6JL5Z7Nn +mC7aY8Pyt0k+oCAnQcgU6eLZTKmxp/v2w6xCtib5RRe7X0p/GTH1hqFe3MX3 +TRdlxBrZH3S8oS1g2jZkTheDN53csqDgDRmkWbDmL1386xvyWG+9NyjoclQ1 +cunhptuTPEbPvMDb7AitQ0APz/dblTHdvWDAz2TdgL4emg2O+K084Ql3Sn+/ +m0vRQw1FOenxW26gaRiywEzTw28ZfDq+BW5w693kuuIzeuiRfm3xd5IbkOKj +WswsPbzcsTrQ1c4NqvLazhRe0sOr+9wez3xzheL0ZB2TGj10e/wgwlHTFVJD +NpzLe66HOQrZQ+PdzuBsJIl64vpYNBkc3bjFCRYHVvF0EPror5zUUbzCCYp9 +pl8zJfWRPy1zJm/GET6ebAh3ltPH3hsnulo6HOFoj1Xt8W36uHDQgBjzd4TT +ltHid4z10aEHRA60O0Cj04s/2wP1cUqrm9ss0h62HDnVoNymjwzPdNUHIraQ +seSrkdauj0O2rC9Lq22BM8uY/alTH42s9/Yb/bSBz/UrKop79HHNVE3r3Esb +aORIyuN9Tj3v3/jUb+dtwDknLnz+H32MttFDx802kNd0XKNlLQOv5QSYJIlY +A/8af7aFIwOnhO2t7c9bQqlhTOSXvQx8s8d4ojDMErbFZBhmuzLwfunxLcud +LMHyC+vFkBcDS12/LqNtsYSTg3M/9/kz0E/wa1xJiQX8KIndGRnPwK6rnYvs ++t3wSi/7eXklA+UfLcgf+8qEA6Gll81qGOiS2Ci/6iUT5mtu+UyyGBg1FqxV +38QEXvrQglo9A88ek1B2S2aC+Sox0bttDLR6cmf/gDATmgfK9z9/wUDemD9L +DiZmwOS5oxQ2xECzNu57x5TMYMikZ17oNQP57Kecr/OZwffG/1Lc3zJww9eC +Pqe3pqB0RbX6388MLB6MLxqINIXmVzvC0qcYKLfrl2CNlykwN9uCyhcG3h2W +f15oagq+p0Kfhswx0EEmsvu+gCl8bzuZL/iDgdXsgte/F00g4VfuvsZfDNzK +dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== + "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -3186,135 +8458,110 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV13c8Vv8XAHBRaarIzLjPY8tMtsc5RcYjZMum0JBRVkZ2EUkoUkZCyXqe +m5QRQqTQkihR6lu+fY1UaMnv/v66r/frdef5nHM+59K8A218ODk4OMSXcXD8 +/zg/2tMplVZqIO4+9Vzoyk6DgUKh4zuGEqDh1NebjQI0QP7H3kJDWTBz9OOR +bAE1CNtz4yXXUAn4jYbfjRDYAZumBbN+viSh4NIbFSsBaxhrtgz8/rIdRBJX +Xujh9wJjqc9vZl8+A1O2UkkHXzD8fKl1/svLcaCf/r63fm08dBheK31a8g2K +UHtxdeE5EB1r+OituAiGfzqrXgxehM3+Hje4Dblwh58O7UpHMWSpGTdZ2q/C +Jdu+K9E3SmE4T7VtduN6fBtVcU9h2XVIK419zCm8CTuMOpMSDSpBMOd9anYB +HxLev8ZJjhoQ2nor6Uc5H7boWY7KrakBkfaTsW4sPmR3Cl7O46sB8S/yobId +fMgZx3T2kakB6d1Bnk0TfCgl4tZ207wG1Jcvar5X34xlYbfVJc/XgFWIwIdt +Dzcj/315xV2StXDKzszg2Tw/Oqslr1cVYIFIXb8I5zIBDLad2BoiwoIaPrsF +tbUCWPdAJbpOnAWDz9xZ5yQEsMq8gyUvywIp6xC6takAev+pc/+oxYJ2i6KV +Ty4KoJWKZ8R1JxYsGs/19+kL4kW7nbssclmQWR5ZuWgsiD2DadMCl6jrV3Kk +KFkLYoSwSetIIQt231+z44yPIHatkR10LWdBviFxc3eGIJoWHH6ufIsF2mie ++2hMEKPfPhgTfsaCYzpXPHoShJC/QEFh7Wo2MIt5vpunC2HW3mZL2jo20Lmj +U/rPC6FdjD7/9g1seDLgwH5+XQizHUdPWfGzQTloHddovxCuqL/H6U5jw0R5 +ePlXEWFcMPQ0H9Zmg+tmy6ktN4XRtMvD0MyHDepRTfGFzcKYcGax7JsfG9aM +ywnQuoSxu5dZmX+IDQ21XCAzLIzJB2wLRwPZIGDekKm6RN1PaV7OIJJ6frzU +9l3mIniTt/WzSwYbjGZ+RQa8F8ESLjV5vjo2HDfNUbg3KYIiaYkjxvVsqLmi +9IpvXgQPz444hd9hg5Cdp07Dqi042RlV3d/Mhsk79xe4lLdgvmxCr8N9NmQn +ZIZcjNiCmTGn+ftesGGcXyagc70oqg5LX7X9zgbBwFYxQUFRpGdYzRLzbNj9 +wKnvICGK1qeXbfpvgQ31kWmKG9RF0XzRvCv0NxtOj335vNdJFPOf9W7y4SRh +W0WT30yJKKof54is3EBCvL61l4i2GHLafJV/JUuCqXvhV62dYpjSOTfgKU8C +T9x/ifa7xbCPGf74vQIJlzuSyzM9xZCWqXJrVImEO8zG/1amiuGLADvb6+ok +fHGSDPs2LIYJl5luaQYk3I4M4t70QQxVMtN2vQQSTly+m6c8LYbVNq0nJXaQ +sO6tY9NBTnE8xEwWKDMkQdYvneOtgjg2VoTGJJmS4B46d7o3Shy7OP7+zrEm +QTp3p+jnZHEcb469V25DUvE7W82dKY5tY5mf62xJiPwj/2RnqTi2c6se6rIn +4XyiO39Drzhqzxurt+wlwbWssnxwUBx3yNDkbzqTQO/+ofX9rTjKzRullLqQ +wFqT7awyJ443Ul2So91I6D3XXVQmJoF/jYrPLvMiIfvmZrUOWQl8knTpwzBl +5xde7W/VJJDn49vrNd4kTAj9+bDFWAI5P7gnWOwngatYVSErQAL3PpjL8PQj +QbfmYt2JVgnclhTTNuJPgtHL/sXpBxIo4PLuRfAREiw5lpt4PJNAD9OG11wB +JOyzCRiGfyTwcXN0k3ggCcZRtNi4FQT+0IsfVQkm4dGG5qvaawi8G1R7uory +nlKHB194CLQhBxRljpLg0pe2yUuIQP9zA/Ybj5EQJDF/dcdWAq8pn7RsCyFh +7mbmg58qBLY/NmyRCqXiZ7p1ir2dwKC+KvmTlJODPTXpBgSuCz84D2EkrFn5 +2/nVTgLNrdX35lHOzD8fm2VC4L33OY1TlPM7Hj7gtCbQtpcv+mw4CRJOPlON +9gRyWVS/eU25dHJp0zFnAolXgygdQUItv4bL+30E+uW+4qmlvP3G49hLBwi8 +OKoZNUO50eBQqe0RAo09ZCcVj5PQ6Vc01RFGfa/F09FCymZ/dHijowhcU8vr +/Zxyf+aA5vY4AntUfkwujyTBTjrQZTKJwPP5JnHqlIcbVseVphIocaxb1IOy +u2VpqWsGgblzBh2nKH8YN+jZnE2gvkBYSDXlg+HDU725BD6N01B7Qnl6bQhv +8mUCxfOMf81QPlbMo8W4QuCR0GNP1kWR8GN7hctcGYFrJ07WyVA+0WMYV32D +wI6Q3dcYlLncR0t9agnca59ZYU055WtEj1gddX6ERLM3ZZ5TfNMv7hC4IrZ7 +LIhy9pYa3oy7BH5vdeCPpizEMtUybqfW0/CyWxLlAqP3Ln+7CPTu9GtIpUwf +jomrf0StR22qfDrl60eEygKeEDgg+bwmjbIS580emRcEts3wM1MokxcspkeH +CeTOlvoTT1l76wRv7iiBHIxn9yMo321N0LJ6T6Bd79dr/pR32om5ck8QGNXv +fNWNcvfE7bjWSQJVY8fumFPeHWNTFj5L4FS3w7+alJ9tmupRmScwDHI1JCg7 +lp+a/vSLQG35iMLllEd06XzFSwS+DHkq9YmKp/fjZi2n5TS8djeqp4uy/4/Z +uAfraaiyVj44hrJusK/AR14alo5kvN9DedXnV5VcQjTcudZsgaBc9rpj0IBO +Q3sjUe7bVD6E2Gn7u8rSMCr0wIoYyjv7qpZFKtIw1yqwAiiPtpxXvKVJQwcN +sU+NVL5Vaa1pf6ZHwzd5fxOOUY5knXD8gjTMtt3QI0dZoMQvYas5DWuNGE6p +VD5bJesMXfGgYXFBcAmdyn/xv9VHWvfTUGdVQG0bVT+TYXSuNwdpKJJQHehC +OeXAWmWhEBqmLZ3lOUXVX5v5m8SMFBoOpJp/rKfqNaPTWrjqDA27e9qrdSm7 +MrpqerJoGD/XrdZE1fdP5drh5QU0/JOoFkIGUf2cN14lik3DdfRyrkiqX3Ck +zXXm1dNwJKnyyXuqn/RzHXKub6KhrFbrPiblw3M2ybP3abi4693b9VT/KR2S +eu33ioYsxn9OAQdJOGp9MSh5jIZe+doRLQdIwIfrV179QMOhTFO/tZTfNM2r +jk5T7xtzseGSLxWPogcn7bjouNE5zfrCPqp+BBmiR1fRsXFZyKY+qh+SmWz2 +2fV0DHuyopKDslVC/shDQToqN8oEuXtS8fDx37ZDkY7venN8vrtS37d146iS +PR3/7mIKp1H9e75AJF7dmY517KcVOXYkfN8gLaXjQUdyxQujS1S/n/6mc8jo +IB2f7dMuKqL2h/GmffPOMXR86jHHnWxBwkPz2zwpZXSk3TjR2mFE5evde+wz +N+g4We6XXkjtN50qvXbZtXSE5sbwsJ0ktPC9yy9soOPKbFaNGFLv/3qN7K0+ +OgYGhN0z06P622F3GJ+j4+USnYvCaiTkvjkw/ukXHZWqV3/sUiEhx+pY8tQS +HcVX9vsEK1PrqZ7y6MdqSex1OsTVspWEhN9sxw3ikiiRffa1hgy1HmkrgvSN +JbHV2kTmiggJ+pVVxRcuSGLO0+mwwGUkvCYqi3ZdksSCFfHHx5fYEHmhovB7 +kSRanItRs/3Lhtvx5ZdtKiTxhpp0lxK1329zKs7jaZbEc5csr3RT84L8ipzM +k+8ksT5MTvjsJ2qe8YiKC1OUwqZhsdmQR2y4NXA8VlpNCgcv7e4r7mGDHTPi +xICGFP4aW5b4sJsNWRqh0dtACr0+58YKdrJh/brAiGlrKZzIqXiTS80vyxu8 +g3zDpVB/crmqejUbZnmZng7tUlheYrFnJJ0NQ/70J4e6pdAaLU3yTrOhresX +xPZKYTZ3zbh1ChsyIyslrg9KIadJ5rqWRDaojq8b+/lZCkN9NjtGUvNWAPux +WwGfNJrTWcJJ1Lz22cre5cN+aWRa3134CGz4kO7pcJRbBiu43P6Fzywwmwk3 ++0dTFu+P3dDo0GDB5L5Vx+pi5fAug3PbU3YN9X8gyHmqXR6Z2ivLl4aqgLdP +JoM1o4A7/4zeM+KuBNGU2j2amopospqIWff3OuRt1dnI56eEezdkEmKbrsFD +kR0a384p47Sd5GCKShnoirZnqgyqYHP9/C9P5avAw1US4pWgihlFi0nS7ldA +PF5Cf6+MGoZmCe349KMQVku71tt0q6GHDV1eLeoSKDOEa8PdtuGbhtwtb4/k +wdFR3g4mhzrKa6c2P3I5DzPf0u3N8tSxSLFRuqYhC0xUuvLNlLZjxh6DA2Fu +mdDyTe/3Qv92nFW7F+cinA4BittePfXRwE8C0QuCuinAmN4/sHe1JsqZXJQP +jE2CXVJCFutLNLEqQ2bRIyAe5OJOR7RraeGQhESbb3YMKPjotEq/0kI61w5B +y9wI8Gk5kFQXrI3ZSpkXzuaEQGvxwP5Zfh2cmC0NnRkJgu/XlxZUbuugr9se +37Czh+Gjg3FxaoMO/ljhvP1A5GEYWn7G9H2TDib2Tt3x8zkMTZ4iFy+06eCB +pciHZ/UOQ4KQhu5ijw56T87tSZw4BBtTDkU/HKHuLz/+d9boECj6veDw4dRF +0zR6fwv3QdgnXbk630IXs5KdZa7e9IXI++6HZPboYmv1mTsWxb6Q6cP7iLTR +xUqj1IiVZ3yhuex4+iNHXWQPWHmV+PrCZhnTDYteuvhf2fjXBBFf6JL5Z7Nn +mC7aY8Pyt0k+oCAnQcgU6eLZTKmxp/v2w6xCtib5RRe7X0p/GTH1hqFe3MX3 +TRdlxBrZH3S8oS1g2jZkTheDN53csqDgDRmkWbDmL1386xvyWG+9NyjoclQ1 +cunhptuTPEbPvMDb7AitQ0APz/dblTHdvWDAz2TdgL4emg2O+K084Ql3Sn+/ +m0vRQw1FOenxW26gaRiywEzTw28ZfDq+BW5w693kuuIzeuiRfm3xd5IbkOKj +WswsPbzcsTrQ1c4NqvLazhRe0sOr+9wez3xzheL0ZB2TGj10e/wgwlHTFVJD +NpzLe66HOQrZQ+PdzuBsJIl64vpYNBkc3bjFCRYHVvF0EPror5zUUbzCCYp9 +pl8zJfWRPy1zJm/GET6ebAh3ltPH3hsnulo6HOFoj1Xt8W36uHDQgBjzd4TT +ltHid4z10aEHRA60O0Cj04s/2wP1cUqrm9ss0h62HDnVoNymjwzPdNUHIraQ +seSrkdauj0O2rC9Lq22BM8uY/alTH42s9/Yb/bSBz/UrKop79HHNVE3r3Esb +aORIyuN9Tj3v3/jUb+dtwDknLnz+H32MttFDx802kNd0XKNlLQOv5QSYJIlY +A/8af7aFIwOnhO2t7c9bQqlhTOSXvQx8s8d4ojDMErbFZBhmuzLwfunxLcud +LMHyC+vFkBcDS12/LqNtsYSTg3M/9/kz0E/wa1xJiQX8KIndGRnPwK6rnYvs ++t3wSi/7eXklA+UfLcgf+8qEA6Gll81qGOiS2Ci/6iUT5mtu+UyyGBg1FqxV +38QEXvrQglo9A88ek1B2S2aC+Sox0bttDLR6cmf/gDATmgfK9z9/wUDemD9L +DiZmwOS5oxQ2xECzNu57x5TMYMikZ17oNQP57Kecr/OZwffG/1Lc3zJww9eC +Pqe3pqB0RbX6388MLB6MLxqINIXmVzvC0qcYKLfrl2CNlykwN9uCyhcG3h2W +f15oagq+p0Kfhswx0EEmsvu+gCl8bzuZL/iDgdXsgte/F00g4VfuvsZfDNzK +dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07219768537623762}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> @@ -3338,7 +8585,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07219768537623762}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), @@ -3367,135 +8614,110 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV13c8Vv8XAHBRaarIzLjPY8tMtsc5RcYjZMum0JBRVkZ2EUkoUkZCyXqe +m5QRQqTQkihR6lu+fY1UaMnv/v66r/frdef5nHM+59K8A218ODk4OMSXcXD8 +/zg/2tMplVZqIO4+9Vzoyk6DgUKh4zuGEqDh1NebjQI0QP7H3kJDWTBz9OOR +bAE1CNtz4yXXUAn4jYbfjRDYAZumBbN+viSh4NIbFSsBaxhrtgz8/rIdRBJX +Xujh9wJjqc9vZl8+A1O2UkkHXzD8fKl1/svLcaCf/r63fm08dBheK31a8g2K +UHtxdeE5EB1r+OituAiGfzqrXgxehM3+Hje4Dblwh58O7UpHMWSpGTdZ2q/C +Jdu+K9E3SmE4T7VtduN6fBtVcU9h2XVIK419zCm8CTuMOpMSDSpBMOd9anYB +HxLev8ZJjhoQ2nor6Uc5H7boWY7KrakBkfaTsW4sPmR3Cl7O46sB8S/yobId +fMgZx3T2kakB6d1Bnk0TfCgl4tZ207wG1Jcvar5X34xlYbfVJc/XgFWIwIdt +Dzcj/315xV2StXDKzszg2Tw/Oqslr1cVYIFIXb8I5zIBDLad2BoiwoIaPrsF +tbUCWPdAJbpOnAWDz9xZ5yQEsMq8gyUvywIp6xC6takAev+pc/+oxYJ2i6KV +Ty4KoJWKZ8R1JxYsGs/19+kL4kW7nbssclmQWR5ZuWgsiD2DadMCl6jrV3Kk +KFkLYoSwSetIIQt231+z44yPIHatkR10LWdBviFxc3eGIJoWHH6ufIsF2mie ++2hMEKPfPhgTfsaCYzpXPHoShJC/QEFh7Wo2MIt5vpunC2HW3mZL2jo20Lmj +U/rPC6FdjD7/9g1seDLgwH5+XQizHUdPWfGzQTloHddovxCuqL/H6U5jw0R5 +ePlXEWFcMPQ0H9Zmg+tmy6ktN4XRtMvD0MyHDepRTfGFzcKYcGax7JsfG9aM +ywnQuoSxu5dZmX+IDQ21XCAzLIzJB2wLRwPZIGDekKm6RN1PaV7OIJJ6frzU +9l3mIniTt/WzSwYbjGZ+RQa8F8ESLjV5vjo2HDfNUbg3KYIiaYkjxvVsqLmi +9IpvXgQPz444hd9hg5Cdp07Dqi042RlV3d/Mhsk79xe4lLdgvmxCr8N9NmQn +ZIZcjNiCmTGn+ftesGGcXyagc70oqg5LX7X9zgbBwFYxQUFRpGdYzRLzbNj9 +wKnvICGK1qeXbfpvgQ31kWmKG9RF0XzRvCv0NxtOj335vNdJFPOf9W7y4SRh +W0WT30yJKKof54is3EBCvL61l4i2GHLafJV/JUuCqXvhV62dYpjSOTfgKU8C +T9x/ifa7xbCPGf74vQIJlzuSyzM9xZCWqXJrVImEO8zG/1amiuGLADvb6+ok +fHGSDPs2LIYJl5luaQYk3I4M4t70QQxVMtN2vQQSTly+m6c8LYbVNq0nJXaQ +sO6tY9NBTnE8xEwWKDMkQdYvneOtgjg2VoTGJJmS4B46d7o3Shy7OP7+zrEm +QTp3p+jnZHEcb469V25DUvE7W82dKY5tY5mf62xJiPwj/2RnqTi2c6se6rIn +4XyiO39Drzhqzxurt+wlwbWssnxwUBx3yNDkbzqTQO/+ofX9rTjKzRullLqQ +wFqT7awyJ443Ul2So91I6D3XXVQmJoF/jYrPLvMiIfvmZrUOWQl8knTpwzBl +5xde7W/VJJDn49vrNd4kTAj9+bDFWAI5P7gnWOwngatYVSErQAL3PpjL8PQj +QbfmYt2JVgnclhTTNuJPgtHL/sXpBxIo4PLuRfAREiw5lpt4PJNAD9OG11wB +JOyzCRiGfyTwcXN0k3ggCcZRtNi4FQT+0IsfVQkm4dGG5qvaawi8G1R7uory +nlKHB194CLQhBxRljpLg0pe2yUuIQP9zA/Ybj5EQJDF/dcdWAq8pn7RsCyFh +7mbmg58qBLY/NmyRCqXiZ7p1ir2dwKC+KvmTlJODPTXpBgSuCz84D2EkrFn5 +2/nVTgLNrdX35lHOzD8fm2VC4L33OY1TlPM7Hj7gtCbQtpcv+mw4CRJOPlON +9gRyWVS/eU25dHJp0zFnAolXgygdQUItv4bL+30E+uW+4qmlvP3G49hLBwi8 +OKoZNUO50eBQqe0RAo09ZCcVj5PQ6Vc01RFGfa/F09FCymZ/dHijowhcU8vr +/Zxyf+aA5vY4AntUfkwujyTBTjrQZTKJwPP5JnHqlIcbVseVphIocaxb1IOy +u2VpqWsGgblzBh2nKH8YN+jZnE2gvkBYSDXlg+HDU725BD6N01B7Qnl6bQhv +8mUCxfOMf81QPlbMo8W4QuCR0GNP1kWR8GN7hctcGYFrJ07WyVA+0WMYV32D +wI6Q3dcYlLncR0t9agnca59ZYU055WtEj1gddX6ERLM3ZZ5TfNMv7hC4IrZ7 +LIhy9pYa3oy7BH5vdeCPpizEMtUybqfW0/CyWxLlAqP3Ln+7CPTu9GtIpUwf +jomrf0StR22qfDrl60eEygKeEDgg+bwmjbIS580emRcEts3wM1MokxcspkeH +CeTOlvoTT1l76wRv7iiBHIxn9yMo321N0LJ6T6Bd79dr/pR32om5ck8QGNXv +fNWNcvfE7bjWSQJVY8fumFPeHWNTFj5L4FS3w7+alJ9tmupRmScwDHI1JCg7 +lp+a/vSLQG35iMLllEd06XzFSwS+DHkq9YmKp/fjZi2n5TS8djeqp4uy/4/Z +uAfraaiyVj44hrJusK/AR14alo5kvN9DedXnV5VcQjTcudZsgaBc9rpj0IBO +Q3sjUe7bVD6E2Gn7u8rSMCr0wIoYyjv7qpZFKtIw1yqwAiiPtpxXvKVJQwcN +sU+NVL5Vaa1pf6ZHwzd5fxOOUY5knXD8gjTMtt3QI0dZoMQvYas5DWuNGE6p +VD5bJesMXfGgYXFBcAmdyn/xv9VHWvfTUGdVQG0bVT+TYXSuNwdpKJJQHehC +OeXAWmWhEBqmLZ3lOUXVX5v5m8SMFBoOpJp/rKfqNaPTWrjqDA27e9qrdSm7 +MrpqerJoGD/XrdZE1fdP5drh5QU0/JOoFkIGUf2cN14lik3DdfRyrkiqX3Ck +zXXm1dNwJKnyyXuqn/RzHXKub6KhrFbrPiblw3M2ybP3abi4693b9VT/KR2S +eu33ioYsxn9OAQdJOGp9MSh5jIZe+doRLQdIwIfrV179QMOhTFO/tZTfNM2r +jk5T7xtzseGSLxWPogcn7bjouNE5zfrCPqp+BBmiR1fRsXFZyKY+qh+SmWz2 +2fV0DHuyopKDslVC/shDQToqN8oEuXtS8fDx37ZDkY7venN8vrtS37d146iS +PR3/7mIKp1H9e75AJF7dmY517KcVOXYkfN8gLaXjQUdyxQujS1S/n/6mc8jo +IB2f7dMuKqL2h/GmffPOMXR86jHHnWxBwkPz2zwpZXSk3TjR2mFE5evde+wz +N+g4We6XXkjtN50qvXbZtXSE5sbwsJ0ktPC9yy9soOPKbFaNGFLv/3qN7K0+ +OgYGhN0z06P622F3GJ+j4+USnYvCaiTkvjkw/ukXHZWqV3/sUiEhx+pY8tQS +HcVX9vsEK1PrqZ7y6MdqSex1OsTVspWEhN9sxw3ikiiRffa1hgy1HmkrgvSN +JbHV2kTmiggJ+pVVxRcuSGLO0+mwwGUkvCYqi3ZdksSCFfHHx5fYEHmhovB7 +kSRanItRs/3Lhtvx5ZdtKiTxhpp0lxK1329zKs7jaZbEc5csr3RT84L8ipzM +k+8ksT5MTvjsJ2qe8YiKC1OUwqZhsdmQR2y4NXA8VlpNCgcv7e4r7mGDHTPi +xICGFP4aW5b4sJsNWRqh0dtACr0+58YKdrJh/brAiGlrKZzIqXiTS80vyxu8 +g3zDpVB/crmqejUbZnmZng7tUlheYrFnJJ0NQ/70J4e6pdAaLU3yTrOhresX +xPZKYTZ3zbh1ChsyIyslrg9KIadJ5rqWRDaojq8b+/lZCkN9NjtGUvNWAPux +WwGfNJrTWcJJ1Lz22cre5cN+aWRa3134CGz4kO7pcJRbBiu43P6Fzywwmwk3 ++0dTFu+P3dDo0GDB5L5Vx+pi5fAug3PbU3YN9X8gyHmqXR6Z2ivLl4aqgLdP +JoM1o4A7/4zeM+KuBNGU2j2amopospqIWff3OuRt1dnI56eEezdkEmKbrsFD +kR0a384p47Sd5GCKShnoirZnqgyqYHP9/C9P5avAw1US4pWgihlFi0nS7ldA +PF5Cf6+MGoZmCe349KMQVku71tt0q6GHDV1eLeoSKDOEa8PdtuGbhtwtb4/k +wdFR3g4mhzrKa6c2P3I5DzPf0u3N8tSxSLFRuqYhC0xUuvLNlLZjxh6DA2Fu +mdDyTe/3Qv92nFW7F+cinA4BittePfXRwE8C0QuCuinAmN4/sHe1JsqZXJQP +jE2CXVJCFutLNLEqQ2bRIyAe5OJOR7RraeGQhESbb3YMKPjotEq/0kI61w5B +y9wI8Gk5kFQXrI3ZSpkXzuaEQGvxwP5Zfh2cmC0NnRkJgu/XlxZUbuugr9se +37Czh+Gjg3FxaoMO/ljhvP1A5GEYWn7G9H2TDib2Tt3x8zkMTZ4iFy+06eCB +pciHZ/UOQ4KQhu5ijw56T87tSZw4BBtTDkU/HKHuLz/+d9boECj6veDw4dRF +0zR6fwv3QdgnXbk630IXs5KdZa7e9IXI++6HZPboYmv1mTsWxb6Q6cP7iLTR +xUqj1IiVZ3yhuex4+iNHXWQPWHmV+PrCZhnTDYteuvhf2fjXBBFf6JL5Z7Nn +mC7aY8Pyt0k+oCAnQcgU6eLZTKmxp/v2w6xCtib5RRe7X0p/GTH1hqFe3MX3 +TRdlxBrZH3S8oS1g2jZkTheDN53csqDgDRmkWbDmL1386xvyWG+9NyjoclQ1 +cunhptuTPEbPvMDb7AitQ0APz/dblTHdvWDAz2TdgL4emg2O+K084Ql3Sn+/ +m0vRQw1FOenxW26gaRiywEzTw28ZfDq+BW5w693kuuIzeuiRfm3xd5IbkOKj +WswsPbzcsTrQ1c4NqvLazhRe0sOr+9wez3xzheL0ZB2TGj10e/wgwlHTFVJD +NpzLe66HOQrZQ+PdzuBsJIl64vpYNBkc3bjFCRYHVvF0EPror5zUUbzCCYp9 +pl8zJfWRPy1zJm/GET6ebAh3ltPH3hsnulo6HOFoj1Xt8W36uHDQgBjzd4TT +ltHid4z10aEHRA60O0Cj04s/2wP1cUqrm9ss0h62HDnVoNymjwzPdNUHIraQ +seSrkdauj0O2rC9Lq22BM8uY/alTH42s9/Yb/bSBz/UrKop79HHNVE3r3Esb +aORIyuN9Tj3v3/jUb+dtwDknLnz+H32MttFDx802kNd0XKNlLQOv5QSYJIlY +A/8af7aFIwOnhO2t7c9bQqlhTOSXvQx8s8d4ojDMErbFZBhmuzLwfunxLcud +LMHyC+vFkBcDS12/LqNtsYSTg3M/9/kz0E/wa1xJiQX8KIndGRnPwK6rnYvs ++t3wSi/7eXklA+UfLcgf+8qEA6Gll81qGOiS2Ci/6iUT5mtu+UyyGBg1FqxV +38QEXvrQglo9A88ek1B2S2aC+Sox0bttDLR6cmf/gDATmgfK9z9/wUDemD9L +DiZmwOS5oxQ2xECzNu57x5TMYMikZ17oNQP57Kecr/OZwffG/1Lc3zJww9eC +Pqe3pqB0RbX6388MLB6MLxqINIXmVzvC0qcYKLfrl2CNlykwN9uCyhcG3h2W +f15oagq+p0Kfhswx0EEmsvu+gCl8bzuZL/iDgdXsgte/F00g4VfuvsZfDNzK +dWLC9B8T2Li9QtFtkYH+AQ2vq3pNoPBI49zSEgNVn/4ska0zgf8BtTMT+w== + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 30}, {0., 0.08145702771151381}}, + "PlotRange" -> {{0, 30}, {0., 0.07219768537623762}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -3544,7 +8766,7 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 30}, {0., 0.08145702771151381}}, + PlotRange->{{0, 30}, {0., 0.07219768537623762}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -3552,9 +8774,10 @@ eF2p5ta/LKwLKTR/wlaFSyF104uLLFwq87Zuq5Yq/A+fgSTe Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991335257344549*^9}, + CellChangeTimes->{3.991335257344549*^9, 3.993127086670192*^9, + 3.993128094314238*^9, 3.993130581461596*^9}, CellLabel-> - "Out[255]=",ExpressionUUID->"f7784347-2042-c042-8970-b060f9535d9e"] + "Out[100]=",ExpressionUUID->"b5b3f018-6ec0-44b3-bf5d-7c3c11f46d40"] }, Open ]], Cell[CellGroupData[{ @@ -3607,66 +8830,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[256]:=",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], + "In[101]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"2.540477732565921`*^-171\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 101, 22, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257395241*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, + 3.993130581494383*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"0a4bed5c-621d-a546-88e9-ce7d779c106a"], +In[101]:=",ExpressionUUID->"85785846-2c11-4b8d-8369-ff24bf7f4ed1"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.5351125117669132`*^-174\\\", \ +\\\"53288812601251278002207702320250759194884493516708656246381218384356695032\ +116730280886932040207278890810138815516114944000000000000000000000000\\\"]\\) \ +is too small to represent as a normalized machine number; precision may be \ +lost.\"", 2, 101, 23, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574052296`*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, + 3.993130581499096*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"80e3943d-459b-8b41-9869-50a6cf829ef8"], +In[101]:=",ExpressionUUID->"7faab678-e3f0-4125-9fef-24d618f6e45a"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"9.276091632588918`*^-178\\\", \ +\\\"16119865811878511595667829951875854656452559288804368514530318561267900247\ +2153109099682969421627018644700669916936247705600000000000000000000000000\\\"]\ +\\) is too small to represent as a normalized machine number; precision may \ +be lost.\"", 2, 101, 24, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335257413231*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, + 3.993130581502068*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"36529169-7f05-ee43-8080-ce8fdd404b8d"], +In[101]:=",ExpressionUUID->"aa6ac2ba-0d33-478f-81c0-629594873046"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 256, 240, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 101, 25, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352574212303`*^9}, + CellChangeTimes->{3.991335257395241*^9, 3.9931280943935328`*^9, + 3.9931305815047827`*^9}, CellLabel-> "During evaluation of \ -In[256]:=",ExpressionUUID->"a6c5f0ff-3356-4c42-b883-ce45e5cc4f41"], +In[101]:=",ExpressionUUID->"33fb49df-408f-43e8-8a52-13de15857ef0"], -Cell[BoxData["9.332200719005158`"], "Output", - CellChangeTimes->{3.991335263670042*^9}, +Cell[BoxData["10.529037083302406`"], "Output", + CellChangeTimes->{3.993130604654729*^9}, CellLabel-> - "Out[256]=",ExpressionUUID->"546f133a-4a8e-8d44-937d-5fc3ea2401d8"] + "Out[101]=",ExpressionUUID->"21174f4e-34c9-44d7-bb77-c87817e92dbe"] }, Open ]], Cell[CellGroupData[{ @@ -3733,65 +8960,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[102]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 102, 26, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263710146*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, + 3.993130604694119*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"2e7d173d-070f-de49-a3c2-9964fb888ede"], +In[102]:=",ExpressionUUID->"441d5705-ab90-4cf4-a2ac-9b32cd8148ef"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 102, 27, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637201557`*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, + 3.993130604698469*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"04b23985-5685-d344-a2ed-9886796baf32"], +In[102]:=",ExpressionUUID->"cf8235ea-ccc2-49fd-9233-1e5d1f08b197"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 102, + 28, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335263728153*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, + 3.993130604701387*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"ccdd27f2-bd64-f442-a708-cfb1052c7f86"], +In[102]:=",ExpressionUUID->"8315b4be-4c23-43a0-889d-a96db194521e"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 257, 244, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 102, 29, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352637361546`*^9}, + CellChangeTimes->{3.991335263710146*^9, 3.99312809442749*^9, + 3.993130604703668*^9}, CellLabel-> "During evaluation of \ -In[257]:=",ExpressionUUID->"384ce3fd-4914-6b49-b10c-84d885ed65d6"], +In[102]:=",ExpressionUUID->"d89cadba-c3eb-498c-9d49-5d74a8cbc6a9"], -Cell[BoxData["0.00046079539931050297`"], "Output", - CellChangeTimes->{3.991335268779545*^9}, +Cell[BoxData["2.202353366489576`"], "Output", + CellChangeTimes->{3.991335268779545*^9, 3.9931280993974524`*^9, + 3.9931306088738747`*^9}, CellLabel-> - "Out[257]=",ExpressionUUID->"8865a4e5-7fd3-3c49-a115-94c8c5479389"] + "Out[102]=",ExpressionUUID->"5db61bfb-21ae-45f5-a071-779932252f1a"] }, Open ]], Cell[CellGroupData[{ @@ -3858,65 +9093,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[103]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 103, 30, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268812542*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, + 3.99313060889823*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"958049e8-43e1-cc46-81fb-5b3fe1a5d9ee"], +In[103]:=",ExpressionUUID->"bdd13af8-289e-4eed-94b7-88cec3dc4f89"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 103, 31, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268822542*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, + 3.993130608901898*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"6ed73f20-f975-a34c-a5a3-af58e9ecd7ed"], +In[103]:=",ExpressionUUID->"b0c2e87c-7079-4c32-817f-1f4307a9dcff"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 103, + 32, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335268831545*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, + 3.993130608904532*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"4ce11323-2f48-da4f-84f8-593751381024"], +In[103]:=",ExpressionUUID->"53219602-5b40-4514-a645-274b643f2d1f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 258, 248, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 103, 33, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352688395576`*^9}, + CellChangeTimes->{3.991335268812542*^9, 3.993128099431786*^9, + 3.993130608907177*^9}, CellLabel-> "During evaluation of \ -In[258]:=",ExpressionUUID->"330905cd-5b42-604b-aaf8-fbac43108165"], +In[103]:=",ExpressionUUID->"d9deeb1f-34c3-4b21-895a-4ff1eb07211d"], -Cell[BoxData["5.104103620353258`"], "Output", - CellChangeTimes->{3.991335272704685*^9}, +Cell[BoxData["34.72078895432144`"], "Output", + CellChangeTimes->{3.991335272704685*^9, 3.9931281036348743`*^9, + 3.993130612332436*^9}, CellLabel-> - "Out[258]=",ExpressionUUID->"020ade62-ec43-7549-8079-7ac012e004c4"] + "Out[103]=",ExpressionUUID->"21c86686-0dd5-4780-b7e7-9d52d1825548"] }, Open ]], Cell[CellGroupData[{ @@ -3983,65 +9226,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[104]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"5.523821465765944`*^-204\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 104, 34, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727386665`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, + 3.9931306123575363`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"9a8eff2d-0d97-2e45-a2f3-ce0634115f7d"], +In[104]:=",ExpressionUUID->"0a9f4a1e-bb28-4d0f-a738-1dbe74440d25"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.6803529553299851`*^-208\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 104, 35, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727476673`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, + 3.9931306123601313`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"7dd7e17e-c74e-7145-b6ae-77a0f02c67f1"], +In[104]:=",ExpressionUUID->"36274ffd-c990-43fc-aaa8-be20aa2e5936"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"5.1116533580700926`*^-213\\\", \ +\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ +358493165635789279094374400000000000000000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 104, + 36, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727556705`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, + 3.993130612362732*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"311ddb21-a730-0b41-b633-2d3bac87be85"], +In[104]:=",ExpressionUUID->"cfbc26e2-4d26-42fb-a862-9c96cc7f9b6c"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 259, 252, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 104, 37, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352727636833`*^9}, + CellChangeTimes->{3.9913352727386665`*^9, 3.993128103668577*^9, + 3.9931306123658037`*^9}, CellLabel-> "During evaluation of \ -In[259]:=",ExpressionUUID->"ecdc16e1-316d-b342-a60b-0f3075607709"], +In[104]:=",ExpressionUUID->"cef7fbc8-f261-4b0e-a214-d19b1c8caa1e"], -Cell[BoxData["18.832858301324727`"], "Output", - CellChangeTimes->{3.991335275154251*^9}, +Cell[BoxData["8.296300622254655`"], "Output", + CellChangeTimes->{3.991335275154251*^9, 3.993128106281466*^9, + 3.993130614393072*^9}, CellLabel-> - "Out[259]=",ExpressionUUID->"a7fc6f95-4067-504b-8754-5086d2659934"] + "Out[104]=",ExpressionUUID->"e10e35a1-bf3d-4f3f-a535-691c6e08ce18"] }, Open ]], Cell[CellGroupData[{ @@ -4050,22 +9301,24 @@ 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[105]:=",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], + +Cell[BoxData["0.12976272877870831`"], "Output", + CellChangeTimes->{3.991335275186266*^9, 3.9931281063116693`*^9, + 3.9931306144136744`*^9}, + CellLabel-> + "Out[105]=",ExpressionUUID->"1949145f-7067-4f65-8d56-c5bb75f73ff0"] }, 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[106]:=",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], Cell[CellGroupData[{ @@ -4088,12 +9341,13 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], + "In[107]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], -Cell[BoxData["5.744985073726737`"], "Output", - CellChangeTimes->{3.9913352752142563`*^9}, +Cell[BoxData["4.417612498227356`"], "Output", + CellChangeTimes->{3.9913352752142563`*^9, 3.993128106318952*^9, + 3.9931306144211397`*^9}, CellLabel-> - "Out[262]=",ExpressionUUID->"fecac54e-ac70-c448-b60d-60e5d8aa9072"] + "Out[107]=",ExpressionUUID->"a079d42c-ac8e-413e-804f-ab0179408faa"] }, Open ]], Cell[CellGroupData[{ @@ -4103,12 +9357,13 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[264]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], + "In[108]:=",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], -Cell[BoxData["1.564995573098557`"], "Output", - CellChangeTimes->{3.9913352752482567`*^9}, +Cell[BoxData["5.374909605435661`"], "Output", + CellChangeTimes->{3.9913352752482567`*^9, 3.993128106323305*^9, + 3.993130614424696*^9}, CellLabel-> - "Out[264]=",ExpressionUUID->"31e41e93-aaef-1b4f-a5e6-3cad86684dfc"] + "Out[108]=",ExpressionUUID->"3282426b-10f7-46d8-a76b-fb60ee0335b1"] }, Open ]], Cell[CellGroupData[{ @@ -4118,12 +9373,13 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[267]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], + "In[109]:=",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], -Cell[BoxData["8.990876207899632`"], "Output", - CellChangeTimes->{3.9913352753089123`*^9}, +Cell[BoxData["23.744267849814847`"], "Output", + CellChangeTimes->{3.9913352753089123`*^9, 3.99312810632734*^9, + 3.993130614428152*^9}, CellLabel-> - "Out[267]=",ExpressionUUID->"d20f2acf-afe0-0844-b0cd-0cdce2394573"] + "Out[109]=",ExpressionUUID->"c84eaebc-bad6-46b8-ad39-58dee74584c2"] }, Open ]], Cell[CellGroupData[{ @@ -4313,12 +9569,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[268]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], + "In[110]:=",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], -Cell[BoxData["0.07167004636648908`"], "Output", - CellChangeTimes->{3.9913352753341656`*^9}, +Cell[BoxData["0.006781867202945728`"], "Output", + CellChangeTimes->{3.9913352753341656`*^9, 3.99312810633534*^9, + 3.993130614435039*^9}, CellLabel-> - "Out[268]=",ExpressionUUID->"ec544098-6efd-4845-b84f-33e39ead67c9"] + "Out[110]=",ExpressionUUID->"d7dbd410-95ad-49bb-a32c-5a85a74fc1b6"] }, Open ]], Cell[CellGroupData[{ @@ -4332,12 +9589,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[269]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], + "In[111]:=",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], -Cell[BoxData["3.3103666491187544`"], "Output", - CellChangeTimes->{3.9913352754296722`*^9}, +Cell[BoxData["10.761437801754388`"], "Output", + CellChangeTimes->{3.9913352754296722`*^9, 3.9931281064091187`*^9, + 3.99313061449463*^9}, CellLabel-> - "Out[269]=",ExpressionUUID->"85f4fe6d-1167-7a40-b761-0a55e5251875"] + "Out[111]=",ExpressionUUID->"b4e02bff-debc-471d-b030-250677ecf167"] }, Open ]], Cell[CellGroupData[{ @@ -4529,12 +9787,13 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[270]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], + "In[112]:=",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], -Cell[BoxData["0.012832691268660865`"], "Output", - CellChangeTimes->{3.9913352754426765`*^9}, +Cell[BoxData["0.041119455351893486`"], "Output", + CellChangeTimes->{3.9913352754426765`*^9, 3.993128106418623*^9, + 3.99313061450315*^9}, CellLabel-> - "Out[270]=",ExpressionUUID->"53db8250-199b-594a-8ebd-fc9cc43217e3"] + "Out[112]=",ExpressionUUID->"a9f9f854-8937-4fc0-b1c3-532c65749727"] }, Open ]], Cell[CellGroupData[{ @@ -4548,12 +9807,13 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[271]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], + "In[113]:=",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], -Cell[BoxData["7.823229443917166`"], "Output", - CellChangeTimes->{3.991335275540678*^9}, +Cell[BoxData["4.3704007687251165`"], "Output", + CellChangeTimes->{3.991335275540678*^9, 3.9931281064897537`*^9, + 3.9931306145608892`*^9}, CellLabel-> - "Out[271]=",ExpressionUUID->"0013bb3e-54d0-e343-9869-cf63da2eecbd"] + "Out[113]=",ExpressionUUID->"6fda62a8-8545-46e2-8528-ea4d20c42a2c"] }, Open ]], Cell[CellGroupData[{ @@ -4646,12 +9906,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[272]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], + "In[114]:=",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913352755566807`*^9}, +Cell[BoxData["0.063831488074104`"], "Output", + CellChangeTimes->{3.9913352755566807`*^9, 3.993128106496667*^9, + 3.9931306145670013`*^9}, CellLabel-> - "Out[272]=",ExpressionUUID->"96d8705a-f744-d447-bad0-55fe1d703f38"] + "Out[114]=",ExpressionUUID->"54a0a6dd-c147-44f9-850e-0bfe7fccf58b"] }, Open ]], Cell[CellGroupData[{ @@ -4741,12 +10002,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", CellLabel-> - "In[273]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], + "In[115]:=",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991335275581682*^9}, +Cell[BoxData["0.9361685119258959`"], "Output", + CellChangeTimes->{3.991335275581682*^9, 3.9931281065023413`*^9, + 3.9931306145719633`*^9}, CellLabel-> - "Out[273]=",ExpressionUUID->"bad41b21-8b15-a74b-a641-622c6584a958"] + "Out[115]=",ExpressionUUID->"4f52a8e1-3220-48b2-bd13-1ea45e1765c9"] }, Open ]], Cell[CellGroupData[{ @@ -4869,12 +10131,13 @@ Cell[BoxData[ RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", CellLabel-> - "In[274]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], + "In[116]:=",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.9913352756087036`*^9}, +Cell[BoxData["0.05975702920434953`"], "Output", + CellChangeTimes->{3.9913352756087036`*^9, 3.9931281065089006`*^9, + 3.993130614580435*^9}, CellLabel-> - "Out[274]=",ExpressionUUID->"a42f993d-5633-3546-ae09-6931972f9312"] + "Out[116]=",ExpressionUUID->"471760c1-35fc-4edf-9500-d61c40383a26"] }, Open ]], Cell[CellGroupData[{ @@ -4936,68 +10199,73 @@ 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[117]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 117, 38, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275636673*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, + 3.9931306145901423`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"91f9ae14-8766-3848-9c79-ec46ad6af7ea"], +In[117]:=",ExpressionUUID->"b3c393ff-5392-4f95-8882-99ddc0b57846"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 117, 39, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756456738`*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, + 3.9931306145927687`*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"2440fadc-b12b-424f-a600-97a0a8c9f031"], +In[117]:=",ExpressionUUID->"5573bc15-46ec-4b1c-bbd9-e8173b9cd316"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 117, 40, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352756546745`*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, + 3.993130614594912*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"d4d1d26f-ac2b-a949-95b4-8d60af02cc4b"], +In[117]:=",ExpressionUUID->"82dc4722-1fec-4048-a2b1-dfc58417119f"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 275, 256, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 117, 41, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335275662676*^9}, + CellChangeTimes->{3.991335275636673*^9, 3.9931281065163307`*^9, + 3.993130614597053*^9}, CellLabel-> "During evaluation of \ -In[275]:=",ExpressionUUID->"0cb59396-7a19-6b43-af2b-0a0ce0427b94"], +In[117]:=",ExpressionUUID->"18adc1bf-9fe3-4f47-a871-089cf631321f"], -Cell[BoxData["3.3103666491187513`"], "Output", - CellChangeTimes->{3.991335279487499*^9}, +Cell[BoxData["10.761437801754386`"], "Output", + CellChangeTimes->{3.991335279487499*^9, 3.993128109226737*^9, + 3.993130616745694*^9}, CellLabel-> - "Out[275]=",ExpressionUUID->"3ceb430a-d440-e040-b6a8-a18a3884b326"] + "Out[117]=",ExpressionUUID->"8b0ee44e-7362-48b3-a047-7462adcfca69"] }, Open ]], Cell[CellGroupData[{ @@ -5059,68 +10327,73 @@ 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[118]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 118, 42, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279522499*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, + 3.9931306167712383`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"ccb81c35-09e9-854b-9187-d46e8624546d"], +In[118]:=",ExpressionUUID->"b383a66f-b565-449f-a46d-8fec83f279da"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 118, 43, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991335279532501*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, + 3.9931306167735043`*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"6dff6307-9a24-c74d-90d8-2f18b14858dc"], +In[118]:=",ExpressionUUID->"ea0b6074-3d21-4372-8ebe-45d89575fbae"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 118, 44, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795405006`*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, + 3.993130616776093*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"11045565-b757-154a-b614-eb73b2dcbc5f"], +In[118]:=",ExpressionUUID->"f05cc589-e94c-4578-8126-bced46b4d0f0"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 276, 260, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 118, 45, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913352795487957`*^9}, + CellChangeTimes->{3.991335279522499*^9, 3.993128109264668*^9, + 3.993130616779014*^9}, CellLabel-> "During evaluation of \ -In[276]:=",ExpressionUUID->"af9dd0c6-d446-9940-b908-9b52fbb611cb"], +In[118]:=",ExpressionUUID->"dd53749a-7c20-4caa-aec5-1e1b869f0778"], -Cell[BoxData["7.82322944391716`"], "Output", - CellChangeTimes->{3.991335283631424*^9}, +Cell[BoxData["4.370400768725118`"], "Output", + CellChangeTimes->{3.991335283631424*^9, 3.993128111980301*^9, + 3.9931306189665327`*^9}, CellLabel-> - "Out[276]=",ExpressionUUID->"d39c46b4-75c6-f741-b7fd-1a1fdbe4155f"] + "Out[118]=",ExpressionUUID->"f75a24a8-0684-4cde-9500-124bdfb906b2"] }, Open ]], Cell[CellGroupData[{ @@ -5178,9 +10451,9 @@ 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[119]:=",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], Cell[BoxData[ GraphicsBox[ @@ -5189,83 +10462,83 @@ Cell[BoxData[ 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= +1:eJwV1Hk8VN0fB3DJvi/ZIwz1UNZBlGfOV6jsokSLNGZutiTkkbK0ICWE0Eqo +JJIty3j8WtQjKQqlxZaZydYIw03r7/THfZ3X+3Ve53O/33POvTr0A15MQQEB +gTH8/BkPvjBe1dD9gsZQmPxqymEjGq/Uku5QgWhuDkZm2MOFVrl6Di0oO9y1 +4489Gc9FpKiPUeuRpd3m2NWxiY+EHTpReXwwzQI77Ynq/cTyl6g/KUHJCrup +++DVH+Z9iHZ+wzZr7Il3HUcPs/rRxRf1P9dhq3MoOxfsP6B5+34ZGrbL9FGb +qM4htEau/JQdduuPCcnY8hF0dsvqUEfs18dUjtwLH0VfDHbdc8LmiThM8M05 +6EmrbYg7tkh6hB+V5KIVNs9TvLG15K+0H2SNoeOPpaX8sN01Fm7w7KfQuf5C +TyY2UaSrbCTGQ7SOGdkw7ER9j+TQzmnEL+GvjcLuV+k1iy6fQbVSMg+PYzN2 +hATnpM8ic4q+3hnsL5cFrtWEz6FHpjxeDraYrpHcjPk82rAvv/UGdi7j0SY5 +pQVkZRH76C629k2/RBNyAW0GKTMWtvWaFN5+1lcknOyx8SV2kNVQ54T9D2Sf +4+YnyGUjfuwhIYmVP9EphZ4SWewklqStgdgvZCQlu10TuwCsb+/r/I3SPCpI +G2zG9XaHyPIlkCZ6WicWu/xJzvAxDUFoNX1ZfQr7yyf/o+fSBSFl7lX5Beyj +hvO1d8OXQmOB2JsW7NwqHcq0uTDYRbipin1io3fdU62/SoShbkccTwNbe7Zh +h4ySCNwdIYxMsSss3LONSBE4dvoYxw+7rSluSRhLDFoiX9JqsOcf9QyN2UuB +XsmpvJgxNlJwlZI70ioFXeJfLXOwTXsdQNpGGvhz2Z53sUPY9UVmxjJg8NuD +nMSOEOw0/VtKDtY0ikkGj7MRR/fOTPKCPHBFclzjJvD+EB3iXVQFSP/qWXgV +W/A2V0f1oAIM+3jsf4StTV3hVT6pABSkeERmko122GfVvBhWhFcqH3eXY3cF +RkapPFOCxYe/7Ban2GjwZsaZADFlUE5LcNL/zEZTk+UltxyV4WKab+cWbIno +0Z7195WB8NV1qMB2OLnVIqBeBSwU4AfBY6PmUqv5skI1qNd2yZqbZqNSzreY +ddGa0MHo3xY8x0abt6UORlVqAret900R9lSb4sZKribEBeQ97se2KF2jpO2n +BdIyB9lOfLyfdP9aYdoKaAljmZjNs9Hs9PA/Yye0wTA7+JciyUaK+x3qat10 +QahN+YzhdzbilkoEeYboQlHXw7QD2I0fujU+p+hCCvUwvw57l+vuEyvv64LD +ZRkZux+4vtUxXhfMKRA8tsLL/yd+/8TNLwkqeiAhKaZd+ZuNtu6TNHIe0Qe/ +PnHOJSEOQjHbzLf/1IcXpfEdU9iGyYVrGWor4XqDmipNmIMESqgbErasBAWi +b3IEu3Jw5/aaBysht+/GIWNRDhLxqTimXrwKIvyXK70X56BGB7fXE3QDmM7x +yj8uy0El3vnvyQQDUC+xSx3GzqCPDAtdMoDNa+uHaHIcxEg6NKnVYwBrvK06 +fmDLt1wR8LY3hIEuMjlegYNCqDxDFmU1dDvTLmUrcZCGbmbiGfYa+CehwVty +OQe1nOYbLAoaQeTZ1IOJ2Lvm/HoJHSOo29Qtwce+2qZnsMHfCMRKB6oGNTlI +d1/zq69vjMCSRrQ1rcD9VnD0iWfGoHzBRCOVwkGaGlqEtp8pLPRnFiWs5qA1 +16OlviNzEE5y0f5oy0F0xol5I3dzUOtrDQv9m4MKKNmDAbvMobu+R38ee2lx +1d0nseaQbcQfEEcc9O7qxNbsanOYNc0krO04KK0g4IoBhQoj78wGbjlyEPeM +q7GviAW0MueSBt056Fqknmd9pyUEl4jUZtI5qDsGrT153QbGLXiiK3M4SMe/ +z3132N+waPZ3/vMODmL+vndH8zBAZdB40GdhLlKZbBRVoW8A22erVou5c1E0 +1fZDtqEDxNT1mn4r4CL65x/tihOOUB5Pn24a56LKDVGihV2bIEhkQrvY6RMq +5Yc8qMh1gnTWlWWStz+hr3aqz9sSXeB/Mtc2h2qOoQGBpTMje93g4LeapH/z +xlD48gNZxygeQKqNlynIjaM7we33zyd7gpLRB/OGy+Mobk6NXB28Bdb1Xy7N +/GsCzTtv9PlvjxcYfV++JPHpBLLZec6Os8UbeNkKT0UPTqJXaldC2qhbwddc +9+1zpSmkfuNES9lf2+DJfy4XL76cQo3Dhq7u0j7AF5Yc2Zv2GWn1ftkX89kH +wmRbCv525CHq+XMVJcPbYXuUdLW72jS6IjRnnP3IF/JpAZJnudPonp3Ju+Qm +P3jXPztAJb6ggrWn5X+U74DcFx/a9737grreX0+hpu+EpG2ioYTTDKp3u6wX +kbQLilLilVTbZtDMfm+BcMZuELt8cS9Yz6L5jQZBPHt/+JZ2o0Ly9iwq+/z2 +a5TVHnBWo1WNrppDvteuB+6WCoCXLovE20tzqLbGZc/S1ACgnn4uJKzKRzYa +rxbTFgPgt1GhaGYaH1GG9717GbwXFuwV+27O8xFbMtTj8uhecHn5tsiEmEfd +Ge6Bm7bR4c2DJFbN03mUG1soeaibDnGpZtOuxguopfX3YqBTIPRoDpxLObWA +ZHdBKrU5EI6qnWAI9i4g7WX/dS1vCYTMpqZRy74FZNrppirSGgiH5k7XBr1e +QF62O2/1PwiE/U2j9p39Cyh3ecyz+KeBQM1/uOLMwAJSH7gt294fCGdC16Z+ +4i4gPX+Vgl1kIPDzPKlqiwvIJoBXlmzBgOxf+bu2aJDoxoUvUe5WDFjfm5jj +uJxEy3pmaSrWDLjiIEux0SQRz5HsLVvPADuxnS5aK0j8/xJY0rmBAdofV7KG +dUkkQ8r7KWxhwBHJ+UlHQxKxz1qKF+5nQFhx0fosaxJlsI4GN95ggMQdYzt1 +bxLtN8+3iS1jwMAXjuUQtuutanHrcgYoZKUnlGwlkUQ+91ZDJa5PW1TS0IdE +yZGeE/fqGFCk4i1l4keiowZ6ofUPGWD7qvms6h4SheQ/C6sZZMCGEKGEoBAS +OclwbSOHGUCdoVxXCSXRX8kC0uYfGfB6IVjjCTY30rKymsMA1vd+vvZ+Eu11 +L/x8d4oBEY0+218cIJGvcFR41TcGnEofZIkeItGmKPWICmUmvMjJUeAnkOhh +YYpztioTAioMn19IJJFt56xerDoTZloyamhJJDLVf/bWXosJ/mEaP5OPkUjt +zRH79/pM+LFnJF3iJIkm1w0oS1gy4WTG+ejJUyTKFCz6d583E8pbLu2QzMb9 +m0gVuG1jgnzEICUP++TO2EjqdiZUCqxX1M4hUWyd56rfO5hwqK4x0CwX108s +OZdHZ4JqqUK7Ux6JqB10xuODTDiq5H5sy0USvTmnL0nJYkKQi9Zb1jUS3UHS +QWPnmFDcmdVCKcb5n/ltlTlMUONxB09jmzu1JVjnM6HGmj3kU4LPTyBw1u0q +E24s3uvmlJJo44Git7EVTJB8z94xdJNEmpqnrGh3cP7aPbrry0jE7ziQs/Qu +Ex4nBa3Kwy5eidwyaplg5tc/7nSLRD8HBu6XNDPBt0ncvaycRHWuGmUv2plw +ylfnBFSS6Mw3QeHcDibofMtUz8Kml03s9etkgmMCnTeILSfUrMHuYsL2NTzn +uDskCmP5Zi6+xv1ufdJ3s4pEFMO8GD0OE4wqrfQGq0n07U18zziXCZPC+nE6 +NSTqTmaaVo0xYSQ6RpKBnTBiMWEzxYR8S7FhLva7gp7dHnNMiBHw9RitJVG2 +qLxj3BICnCJY6xrqSdQyO7AzeikB6l11F/jYnwbKI8OFCQjPKBI0u4fvQ51D +EV2cgJ9a0rM3sLkBsd+d5QkYfBrnmNqA63d1VHBUJKD8guNsC/b6tQoGSIkA +m/jkshnsLOkKH6oaAWFvDM18G/F881C1hg4Bm3+lVKs1kYi4XtGuRCFAlhVV +tgk7K+vwkKw+AdpKwWXR2FxCUVrIgIBtwbaPnv2ZV9wUNGVKgNrb9YHhzSRq +/qWYyDUnwJancy0XmzM+fH7YgoBY+fpPTdjr7sc96rUm4PTDpowlLPw9h93R ++hcIMAg1tk/GlvE9YtmwgQCiJuxxCbaN/WbXagecFy7t+QA7Q+3j4eubCYgX +9ElYxG4UqsoqdCYgjsHTWdZCotHpIzcvuBJg6t7x3Ajb+olS31lPAniNpjR/ +bHr1x8lULwI82JWCh7DPXq4SPL6VAOMp767T2B8jnUxjfAl43SN4rBZb2l95 +U8QO3G+iAPHkT57T6O6QXQQ8uCrn3f9n/Yr4M/4BBCz731bHRexGCediXzoB +0ZWJzmL/4rx55SYvBgGNE+XblbGlR0a7XAkCoOBVGAXbuvMud2MQAc0ac2km +2PSG+J8QQoD0CvGqddhni52XrQ8jIClL/oMDduNZldWW4QRcLBaXd/+TH8u2 +M4kgwLqT5+aDLcWo9jWIJOB4e2v2buy1HgkHKNG4/7x/hgL/5K9zSdGMIcDz +iIpFMHa6vuoVlVgCun5eztqPfU+OUysfh+/ThMh8BPbI9+oOyaMEeHlv3Rv1 +J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -5282,92 +10555,92 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV1Hk8VN0fB3DJvi/ZIwz1UNZBlGfOV6jsokSLNGZutiTkkbK0ICWE0Eqo +JJIty3j8WtQjKQqlxZaZydYIw03r7/THfZ3X+3Ve53O/33POvTr0A15MQQEB +gTH8/BkPvjBe1dD9gsZQmPxqymEjGq/Uku5QgWhuDkZm2MOFVrl6Di0oO9y1 +4489Gc9FpKiPUeuRpd3m2NWxiY+EHTpReXwwzQI77Ynq/cTyl6g/KUHJCrup +++DVH+Z9iHZ+wzZr7Il3HUcPs/rRxRf1P9dhq3MoOxfsP6B5+34ZGrbL9FGb +qM4htEau/JQdduuPCcnY8hF0dsvqUEfs18dUjtwLH0VfDHbdc8LmiThM8M05 +6EmrbYg7tkh6hB+V5KIVNs9TvLG15K+0H2SNoeOPpaX8sN01Fm7w7KfQuf5C +TyY2UaSrbCTGQ7SOGdkw7ER9j+TQzmnEL+GvjcLuV+k1iy6fQbVSMg+PYzN2 +hATnpM8ic4q+3hnsL5cFrtWEz6FHpjxeDraYrpHcjPk82rAvv/UGdi7j0SY5 +pQVkZRH76C629k2/RBNyAW0GKTMWtvWaFN5+1lcknOyx8SV2kNVQ54T9D2Sf +4+YnyGUjfuwhIYmVP9EphZ4SWewklqStgdgvZCQlu10TuwCsb+/r/I3SPCpI +G2zG9XaHyPIlkCZ6WicWu/xJzvAxDUFoNX1ZfQr7yyf/o+fSBSFl7lX5Beyj +hvO1d8OXQmOB2JsW7NwqHcq0uTDYRbipin1io3fdU62/SoShbkccTwNbe7Zh +h4ySCNwdIYxMsSss3LONSBE4dvoYxw+7rSluSRhLDFoiX9JqsOcf9QyN2UuB +XsmpvJgxNlJwlZI70ioFXeJfLXOwTXsdQNpGGvhz2Z53sUPY9UVmxjJg8NuD +nMSOEOw0/VtKDtY0ikkGj7MRR/fOTPKCPHBFclzjJvD+EB3iXVQFSP/qWXgV +W/A2V0f1oAIM+3jsf4StTV3hVT6pABSkeERmko122GfVvBhWhFcqH3eXY3cF +RkapPFOCxYe/7Ban2GjwZsaZADFlUE5LcNL/zEZTk+UltxyV4WKab+cWbIno +0Z7195WB8NV1qMB2OLnVIqBeBSwU4AfBY6PmUqv5skI1qNd2yZqbZqNSzreY +ddGa0MHo3xY8x0abt6UORlVqAret900R9lSb4sZKribEBeQ97se2KF2jpO2n +BdIyB9lOfLyfdP9aYdoKaAljmZjNs9Hs9PA/Yye0wTA7+JciyUaK+x3qat10 +QahN+YzhdzbilkoEeYboQlHXw7QD2I0fujU+p+hCCvUwvw57l+vuEyvv64LD +ZRkZux+4vtUxXhfMKRA8tsLL/yd+/8TNLwkqeiAhKaZd+ZuNtu6TNHIe0Qe/ +PnHOJSEOQjHbzLf/1IcXpfEdU9iGyYVrGWor4XqDmipNmIMESqgbErasBAWi +b3IEu3Jw5/aaBysht+/GIWNRDhLxqTimXrwKIvyXK70X56BGB7fXE3QDmM7x +yj8uy0El3vnvyQQDUC+xSx3GzqCPDAtdMoDNa+uHaHIcxEg6NKnVYwBrvK06 +fmDLt1wR8LY3hIEuMjlegYNCqDxDFmU1dDvTLmUrcZCGbmbiGfYa+CehwVty +OQe1nOYbLAoaQeTZ1IOJ2Lvm/HoJHSOo29Qtwce+2qZnsMHfCMRKB6oGNTlI +d1/zq69vjMCSRrQ1rcD9VnD0iWfGoHzBRCOVwkGaGlqEtp8pLPRnFiWs5qA1 +16OlviNzEE5y0f5oy0F0xol5I3dzUOtrDQv9m4MKKNmDAbvMobu+R38ee2lx +1d0nseaQbcQfEEcc9O7qxNbsanOYNc0krO04KK0g4IoBhQoj78wGbjlyEPeM +q7GviAW0MueSBt056Fqknmd9pyUEl4jUZtI5qDsGrT153QbGLXiiK3M4SMe/ +z3132N+waPZ3/vMODmL+vndH8zBAZdB40GdhLlKZbBRVoW8A22erVou5c1E0 +1fZDtqEDxNT1mn4r4CL65x/tihOOUB5Pn24a56LKDVGihV2bIEhkQrvY6RMq +5Yc8qMh1gnTWlWWStz+hr3aqz9sSXeB/Mtc2h2qOoQGBpTMje93g4LeapH/z +xlD48gNZxygeQKqNlynIjaM7we33zyd7gpLRB/OGy+Mobk6NXB28Bdb1Xy7N +/GsCzTtv9PlvjxcYfV++JPHpBLLZec6Os8UbeNkKT0UPTqJXaldC2qhbwddc +9+1zpSmkfuNES9lf2+DJfy4XL76cQo3Dhq7u0j7AF5Yc2Zv2GWn1ftkX89kH +wmRbCv525CHq+XMVJcPbYXuUdLW72jS6IjRnnP3IF/JpAZJnudPonp3Ju+Qm +P3jXPztAJb6ggrWn5X+U74DcFx/a9737grreX0+hpu+EpG2ioYTTDKp3u6wX +kbQLilLilVTbZtDMfm+BcMZuELt8cS9Yz6L5jQZBPHt/+JZ2o0Ly9iwq+/z2 +a5TVHnBWo1WNrppDvteuB+6WCoCXLovE20tzqLbGZc/S1ACgnn4uJKzKRzYa +rxbTFgPgt1GhaGYaH1GG9717GbwXFuwV+27O8xFbMtTj8uhecHn5tsiEmEfd +Ge6Bm7bR4c2DJFbN03mUG1soeaibDnGpZtOuxguopfX3YqBTIPRoDpxLObWA +ZHdBKrU5EI6qnWAI9i4g7WX/dS1vCYTMpqZRy74FZNrppirSGgiH5k7XBr1e +QF62O2/1PwiE/U2j9p39Cyh3ecyz+KeBQM1/uOLMwAJSH7gt294fCGdC16Z+ +4i4gPX+Vgl1kIPDzPKlqiwvIJoBXlmzBgOxf+bu2aJDoxoUvUe5WDFjfm5jj +uJxEy3pmaSrWDLjiIEux0SQRz5HsLVvPADuxnS5aK0j8/xJY0rmBAdofV7KG +dUkkQ8r7KWxhwBHJ+UlHQxKxz1qKF+5nQFhx0fosaxJlsI4GN95ggMQdYzt1 +bxLtN8+3iS1jwMAXjuUQtuutanHrcgYoZKUnlGwlkUQ+91ZDJa5PW1TS0IdE +yZGeE/fqGFCk4i1l4keiowZ6ofUPGWD7qvms6h4SheQ/C6sZZMCGEKGEoBAS +OclwbSOHGUCdoVxXCSXRX8kC0uYfGfB6IVjjCTY30rKymsMA1vd+vvZ+Eu11 +L/x8d4oBEY0+218cIJGvcFR41TcGnEofZIkeItGmKPWICmUmvMjJUeAnkOhh +YYpztioTAioMn19IJJFt56xerDoTZloyamhJJDLVf/bWXosJ/mEaP5OPkUjt +zRH79/pM+LFnJF3iJIkm1w0oS1gy4WTG+ejJUyTKFCz6d583E8pbLu2QzMb9 +m0gVuG1jgnzEICUP++TO2EjqdiZUCqxX1M4hUWyd56rfO5hwqK4x0CwX108s +OZdHZ4JqqUK7Ux6JqB10xuODTDiq5H5sy0USvTmnL0nJYkKQi9Zb1jUS3UHS +QWPnmFDcmdVCKcb5n/ltlTlMUONxB09jmzu1JVjnM6HGmj3kU4LPTyBw1u0q +E24s3uvmlJJo44Git7EVTJB8z94xdJNEmpqnrGh3cP7aPbrry0jE7ziQs/Qu +Ex4nBa3Kwy5eidwyaplg5tc/7nSLRD8HBu6XNDPBt0ncvaycRHWuGmUv2plw +ylfnBFSS6Mw3QeHcDibofMtUz8Kml03s9etkgmMCnTeILSfUrMHuYsL2NTzn +uDskCmP5Zi6+xv1ufdJ3s4pEFMO8GD0OE4wqrfQGq0n07U18zziXCZPC+nE6 +NSTqTmaaVo0xYSQ6RpKBnTBiMWEzxYR8S7FhLva7gp7dHnNMiBHw9RitJVG2 +qLxj3BICnCJY6xrqSdQyO7AzeikB6l11F/jYnwbKI8OFCQjPKBI0u4fvQ51D +EV2cgJ9a0rM3sLkBsd+d5QkYfBrnmNqA63d1VHBUJKD8guNsC/b6tQoGSIkA +m/jkshnsLOkKH6oaAWFvDM18G/F881C1hg4Bm3+lVKs1kYi4XtGuRCFAlhVV +tgk7K+vwkKw+AdpKwWXR2FxCUVrIgIBtwbaPnv2ZV9wUNGVKgNrb9YHhzSRq +/qWYyDUnwJancy0XmzM+fH7YgoBY+fpPTdjr7sc96rUm4PTDpowlLPw9h93R ++hcIMAg1tk/GlvE9YtmwgQCiJuxxCbaN/WbXagecFy7t+QA7Q+3j4eubCYgX +9ElYxG4UqsoqdCYgjsHTWdZCotHpIzcvuBJg6t7x3Ajb+olS31lPAniNpjR/ +bHr1x8lULwI82JWCh7DPXq4SPL6VAOMp767T2B8jnUxjfAl43SN4rBZb2l95 +U8QO3G+iAPHkT57T6O6QXQQ8uCrn3f9n/Yr4M/4BBCz731bHRexGCediXzoB +0ZWJzmL/4rx55SYvBgGNE+XblbGlR0a7XAkCoOBVGAXbuvMud2MQAc0ac2km +2PSG+J8QQoD0CvGqddhni52XrQ8jIClL/oMDduNZldWW4QRcLBaXd/+TH8u2 +M4kgwLqT5+aDLcWo9jWIJOB4e2v2buy1HgkHKNG4/7x/hgL/5K9zSdGMIcDz +iIpFMHa6vuoVlVgCun5eztqPfU+OUysfh+/ThMh8BPbI9+oOyaMEeHlv3Rv1 +J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.6529774533924635, + 1.4837544619685583`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.6529774533924649}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -5390,10 +10663,10 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, - 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.6529774533924635, + 1.4837544619685583`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.6529774533924649}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -5421,91 +10694,91 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV1Hk8VN0fB3DJvi/ZIwz1UNZBlGfOV6jsokSLNGZutiTkkbK0ICWE0Eqo +JJIty3j8WtQjKQqlxZaZydYIw03r7/THfZ3X+3Ve53O/33POvTr0A15MQQEB +gTH8/BkPvjBe1dD9gsZQmPxqymEjGq/Uku5QgWhuDkZm2MOFVrl6Di0oO9y1 +4489Gc9FpKiPUeuRpd3m2NWxiY+EHTpReXwwzQI77Ynq/cTyl6g/KUHJCrup +++DVH+Z9iHZ+wzZr7Il3HUcPs/rRxRf1P9dhq3MoOxfsP6B5+34ZGrbL9FGb +qM4htEau/JQdduuPCcnY8hF0dsvqUEfs18dUjtwLH0VfDHbdc8LmiThM8M05 +6EmrbYg7tkh6hB+V5KIVNs9TvLG15K+0H2SNoeOPpaX8sN01Fm7w7KfQuf5C +TyY2UaSrbCTGQ7SOGdkw7ER9j+TQzmnEL+GvjcLuV+k1iy6fQbVSMg+PYzN2 +hATnpM8ic4q+3hnsL5cFrtWEz6FHpjxeDraYrpHcjPk82rAvv/UGdi7j0SY5 +pQVkZRH76C629k2/RBNyAW0GKTMWtvWaFN5+1lcknOyx8SV2kNVQ54T9D2Sf +4+YnyGUjfuwhIYmVP9EphZ4SWewklqStgdgvZCQlu10TuwCsb+/r/I3SPCpI +G2zG9XaHyPIlkCZ6WicWu/xJzvAxDUFoNX1ZfQr7yyf/o+fSBSFl7lX5Beyj +hvO1d8OXQmOB2JsW7NwqHcq0uTDYRbipin1io3fdU62/SoShbkccTwNbe7Zh +h4ySCNwdIYxMsSss3LONSBE4dvoYxw+7rSluSRhLDFoiX9JqsOcf9QyN2UuB +XsmpvJgxNlJwlZI70ioFXeJfLXOwTXsdQNpGGvhz2Z53sUPY9UVmxjJg8NuD +nMSOEOw0/VtKDtY0ikkGj7MRR/fOTPKCPHBFclzjJvD+EB3iXVQFSP/qWXgV +W/A2V0f1oAIM+3jsf4StTV3hVT6pABSkeERmko122GfVvBhWhFcqH3eXY3cF +RkapPFOCxYe/7Ban2GjwZsaZADFlUE5LcNL/zEZTk+UltxyV4WKab+cWbIno +0Z7195WB8NV1qMB2OLnVIqBeBSwU4AfBY6PmUqv5skI1qNd2yZqbZqNSzreY +ddGa0MHo3xY8x0abt6UORlVqAret900R9lSb4sZKribEBeQ97se2KF2jpO2n +BdIyB9lOfLyfdP9aYdoKaAljmZjNs9Hs9PA/Yye0wTA7+JciyUaK+x3qat10 +QahN+YzhdzbilkoEeYboQlHXw7QD2I0fujU+p+hCCvUwvw57l+vuEyvv64LD +ZRkZux+4vtUxXhfMKRA8tsLL/yd+/8TNLwkqeiAhKaZd+ZuNtu6TNHIe0Qe/ +PnHOJSEOQjHbzLf/1IcXpfEdU9iGyYVrGWor4XqDmipNmIMESqgbErasBAWi +b3IEu3Jw5/aaBysht+/GIWNRDhLxqTimXrwKIvyXK70X56BGB7fXE3QDmM7x +yj8uy0El3vnvyQQDUC+xSx3GzqCPDAtdMoDNa+uHaHIcxEg6NKnVYwBrvK06 +fmDLt1wR8LY3hIEuMjlegYNCqDxDFmU1dDvTLmUrcZCGbmbiGfYa+CehwVty +OQe1nOYbLAoaQeTZ1IOJ2Lvm/HoJHSOo29Qtwce+2qZnsMHfCMRKB6oGNTlI +d1/zq69vjMCSRrQ1rcD9VnD0iWfGoHzBRCOVwkGaGlqEtp8pLPRnFiWs5qA1 +16OlviNzEE5y0f5oy0F0xol5I3dzUOtrDQv9m4MKKNmDAbvMobu+R38ee2lx +1d0nseaQbcQfEEcc9O7qxNbsanOYNc0krO04KK0g4IoBhQoj78wGbjlyEPeM +q7GviAW0MueSBt056Fqknmd9pyUEl4jUZtI5qDsGrT153QbGLXiiK3M4SMe/ +z3132N+waPZ3/vMODmL+vndH8zBAZdB40GdhLlKZbBRVoW8A22erVou5c1E0 +1fZDtqEDxNT1mn4r4CL65x/tihOOUB5Pn24a56LKDVGihV2bIEhkQrvY6RMq +5Yc8qMh1gnTWlWWStz+hr3aqz9sSXeB/Mtc2h2qOoQGBpTMje93g4LeapH/z +xlD48gNZxygeQKqNlynIjaM7we33zyd7gpLRB/OGy+Mobk6NXB28Bdb1Xy7N +/GsCzTtv9PlvjxcYfV++JPHpBLLZec6Os8UbeNkKT0UPTqJXaldC2qhbwddc +9+1zpSmkfuNES9lf2+DJfy4XL76cQo3Dhq7u0j7AF5Yc2Zv2GWn1ftkX89kH +wmRbCv525CHq+XMVJcPbYXuUdLW72jS6IjRnnP3IF/JpAZJnudPonp3Ju+Qm +P3jXPztAJb6ggrWn5X+U74DcFx/a9737grreX0+hpu+EpG2ioYTTDKp3u6wX +kbQLilLilVTbZtDMfm+BcMZuELt8cS9Yz6L5jQZBPHt/+JZ2o0Ly9iwq+/z2 +a5TVHnBWo1WNrppDvteuB+6WCoCXLovE20tzqLbGZc/S1ACgnn4uJKzKRzYa +rxbTFgPgt1GhaGYaH1GG9717GbwXFuwV+27O8xFbMtTj8uhecHn5tsiEmEfd +Ge6Bm7bR4c2DJFbN03mUG1soeaibDnGpZtOuxguopfX3YqBTIPRoDpxLObWA +ZHdBKrU5EI6qnWAI9i4g7WX/dS1vCYTMpqZRy74FZNrppirSGgiH5k7XBr1e +QF62O2/1PwiE/U2j9p39Cyh3ecyz+KeBQM1/uOLMwAJSH7gt294fCGdC16Z+ +4i4gPX+Vgl1kIPDzPKlqiwvIJoBXlmzBgOxf+bu2aJDoxoUvUe5WDFjfm5jj +uJxEy3pmaSrWDLjiIEux0SQRz5HsLVvPADuxnS5aK0j8/xJY0rmBAdofV7KG +dUkkQ8r7KWxhwBHJ+UlHQxKxz1qKF+5nQFhx0fosaxJlsI4GN95ggMQdYzt1 +bxLtN8+3iS1jwMAXjuUQtuutanHrcgYoZKUnlGwlkUQ+91ZDJa5PW1TS0IdE +yZGeE/fqGFCk4i1l4keiowZ6ofUPGWD7qvms6h4SheQ/C6sZZMCGEKGEoBAS +OclwbSOHGUCdoVxXCSXRX8kC0uYfGfB6IVjjCTY30rKymsMA1vd+vvZ+Eu11 +L/x8d4oBEY0+218cIJGvcFR41TcGnEofZIkeItGmKPWICmUmvMjJUeAnkOhh +YYpztioTAioMn19IJJFt56xerDoTZloyamhJJDLVf/bWXosJ/mEaP5OPkUjt +zRH79/pM+LFnJF3iJIkm1w0oS1gy4WTG+ejJUyTKFCz6d583E8pbLu2QzMb9 +m0gVuG1jgnzEICUP++TO2EjqdiZUCqxX1M4hUWyd56rfO5hwqK4x0CwX108s +OZdHZ4JqqUK7Ux6JqB10xuODTDiq5H5sy0USvTmnL0nJYkKQi9Zb1jUS3UHS +QWPnmFDcmdVCKcb5n/ltlTlMUONxB09jmzu1JVjnM6HGmj3kU4LPTyBw1u0q +E24s3uvmlJJo44Git7EVTJB8z94xdJNEmpqnrGh3cP7aPbrry0jE7ziQs/Qu +Ex4nBa3Kwy5eidwyaplg5tc/7nSLRD8HBu6XNDPBt0ncvaycRHWuGmUv2plw +ylfnBFSS6Mw3QeHcDibofMtUz8Kml03s9etkgmMCnTeILSfUrMHuYsL2NTzn +uDskCmP5Zi6+xv1ufdJ3s4pEFMO8GD0OE4wqrfQGq0n07U18zziXCZPC+nE6 +NSTqTmaaVo0xYSQ6RpKBnTBiMWEzxYR8S7FhLva7gp7dHnNMiBHw9RitJVG2 +qLxj3BICnCJY6xrqSdQyO7AzeikB6l11F/jYnwbKI8OFCQjPKBI0u4fvQ51D +EV2cgJ9a0rM3sLkBsd+d5QkYfBrnmNqA63d1VHBUJKD8guNsC/b6tQoGSIkA +m/jkshnsLOkKH6oaAWFvDM18G/F881C1hg4Bm3+lVKs1kYi4XtGuRCFAlhVV +tgk7K+vwkKw+AdpKwWXR2FxCUVrIgIBtwbaPnv2ZV9wUNGVKgNrb9YHhzSRq +/qWYyDUnwJancy0XmzM+fH7YgoBY+fpPTdjr7sc96rUm4PTDpowlLPw9h93R ++hcIMAg1tk/GlvE9YtmwgQCiJuxxCbaN/WbXagecFy7t+QA7Q+3j4eubCYgX +9ElYxG4UqsoqdCYgjsHTWdZCotHpIzcvuBJg6t7x3Ajb+olS31lPAniNpjR/ +bHr1x8lULwI82JWCh7DPXq4SPL6VAOMp767T2B8jnUxjfAl43SN4rBZb2l95 +U8QO3G+iAPHkT57T6O6QXQQ8uCrn3f9n/Yr4M/4BBCz731bHRexGCediXzoB +0ZWJzmL/4rx55SYvBgGNE+XblbGlR0a7XAkCoOBVGAXbuvMud2MQAc0ac2km +2PSG+J8QQoD0CvGqddhni52XrQ8jIClL/oMDduNZldWW4QRcLBaXd/+TH8u2 +M4kgwLqT5+aDLcWo9jWIJOB4e2v2buy1HgkHKNG4/7x/hgL/5K9zSdGMIcDz +iIpFMHa6vuoVlVgCun5eztqPfU+OUysfh+/ThMh8BPbI9+oOyaMEeHlv3Rv1 +J/9TwohwAgGb0k/2RWNbvXL5+juRAJpJ/pZD2P8HJ8gGtQ== "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + "PlotRange" -> {{0, 180}, {0.6529774533924635, 1.4837544619685583`}}, "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.6152015704378887}, + "AxesOrigin" -> {0, 0.6529774533924649}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { Directive[ @@ -5525,7 +10798,7 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, - AxesOrigin->{0, 0.6152015704378887}, + AxesOrigin->{0, 0.6529774533924649}, DisplayFunction->Identity, Frame->{{False, False}, {False, False}}, FrameLabel->{{None, None}, {None, None}}, @@ -5553,7 +10826,7 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 180}, {0.6152015704378874, 1.5607999649251942`}}, + PlotRange->{{0, 180}, {0.6529774533924635, 1.4837544619685583`}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -5561,2095 +10834,10 @@ OazOl9hXVLbelYjE8+laGfovdrnwUJnIaQIqA33Sa7EHfpa8E4jBfTs+WdSs Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913355426284504`*^9}, + CellChangeTimes->{3.9913355426284504`*^9, 3.993128300889401*^9, + 3.9931307718828077`*^9}, CellLabel-> - "Out[277]=",ExpressionUUID->"5f98f6f4-700b-0a4b-af1c-32125fed3e6a"] -}, Open ]], - -Cell[BoxData[ - RowBox[{"x", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox[ - RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.9918494141657047`*^9, {3.991849451432905*^9, - 3.991849451715925*^9}},ExpressionUUID->"00a32bc3-df79-9e43-8f20-\ -d4884962c12d"], - -Cell[BoxData[ - RowBox[{"Show", "[", - RowBox[{"x", ",", "xx"}], "]"}]], "Input",ExpressionUUID->"344da507-9044-\ -ef47-aa8c-99f282e3d6d3"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - FractionBox["1", "Cb"], ")"}]}]], - RowBox[{"\[DifferentialD]", "y"}], - RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", - CellLabel-> - "In[282]:=",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}, - CellLabel-> - "During evaluation of \ -In[282]:=",ExpressionUUID->"318da404-8df4-c540-9269-2b249c7e148e"], - -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}, - CellLabel-> - "During evaluation of \ -In[282]:=",ExpressionUUID->"42939765-c33b-c147-a25b-bfa31c71a3cb"], - -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}, - CellLabel-> - "During evaluation of \ -In[282]:=",ExpressionUUID->"63b912c5-afab-654e-9609-c4b849e9abfe"], - -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}, - CellLabel-> - "During evaluation of \ -In[282]:=",ExpressionUUID->"2c8999d2-d9b5-ef4e-a59d-c314a02b2b2a"], - -Cell[BoxData["9.332200719005147`"], "Output", - CellChangeTimes->{3.9913372766841774`*^9}, - CellLabel-> - "Out[282]=",ExpressionUUID->"52013fca-4692-bf47-a0cf-880d71f10fc1"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"q", "=", - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox["1", - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], - RowBox[{"(", - RowBox[{"4", "x", "*", - RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "*", - RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], ")"}], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494640512295`*^9, - 3.991849468375696*^9}},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}, - CellLabel-> - "During evaluation of \ -In[283]:=",ExpressionUUID->"285f997a-25b4-f647-9523-e0dd05446bae"], - -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}, - CellLabel-> - "During evaluation of \ -In[283]:=",ExpressionUUID->"b1d2a50d-b27b-ca46-afcb-af9e8d59323e"], - -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}, - CellLabel-> - "During evaluation of \ -In[283]:=",ExpressionUUID->"a36c085c-b95e-724c-a04e-30924ab7ac52"], - -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}, - CellLabel-> - "During evaluation of \ -In[283]:=",ExpressionUUID->"976edb68-80f3-5a4d-a255-2f217ec84bfa"], - -Cell[BoxData["0.5406905105605413`"], "Output", - CellChangeTimes->{3.991337284091696*^9}, - CellLabel-> - "Out[283]=",ExpressionUUID->"b7107287-e519-1249-9ef0-b745347bdb78"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"S1", "=", - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox["1", - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], - RowBox[{"(", - RowBox[{"4", "x", "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], ")"}], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.9918494737320137`*^9, - 3.9918494774550457`*^9}},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}, - CellLabel-> - "During evaluation of \ -In[284]:=",ExpressionUUID->"2877ed71-3ee8-8044-94b0-c606083c07b7"], - -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}, - CellLabel-> - "During evaluation of \ -In[284]:=",ExpressionUUID->"34cfc5a5-16b6-f24f-acdf-b4e2d29b1bef"], - -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}, - CellLabel-> - "During evaluation of \ -In[284]:=",ExpressionUUID->"7fe7bdbe-3892-5043-b38d-13721c83d41a"], - -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}, - CellLabel-> - "During evaluation of \ -In[284]:=",ExpressionUUID->"93dfb0cd-55fb-1b4a-b671-37d180b9d444"], - -Cell[BoxData["2.9943030245183917`"], "Output", - CellChangeTimes->{3.9913372907074146`*^9}, - CellLabel-> - "Out[284]=",ExpressionUUID->"372279b5-5e4a-b545-a159-384b26aa5ab4"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"S2", "=", - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox["1", - RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], - RowBox[{"(", - RowBox[{"4", "x", "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", - "*", - RowBox[{"(", - RowBox[{ - UnderoverscriptBox["\[Sum]", - RowBox[{"n", "=", "0"}], "100"], - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - RowBox[{"2", - RowBox[{"(", - RowBox[{ - RowBox[{"-", - FractionBox["1", "Cw"]}], "+", - FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], - "2"], ")"}], - RowBox[{"2", "*", "n"}]], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox["1", - RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], - ")"}]}], ")"}], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{{3.991849482271084*^9, - 3.9918494852683945`*^9}},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}, - CellLabel-> - "During evaluation of \ -In[285]:=",ExpressionUUID->"c14c35e1-e487-c742-a0da-128fdb9754d4"], - -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}, - CellLabel-> - "During evaluation of \ -In[285]:=",ExpressionUUID->"4396ed61-4d7e-6144-80f0-6d5649cfcb04"], - -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}, - CellLabel-> - "During evaluation of \ -In[285]:=",ExpressionUUID->"00fa2dcd-bc0b-9e44-9f00-15116f344aca"], - -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}, - CellLabel-> - "During evaluation of \ -In[285]:=",ExpressionUUID->"78b12bf1-7793-9341-ad5f-c7be406b8be6"], - -Cell[BoxData["16.72305770548981`"], "Output", - CellChangeTimes->{3.991337294569908*^9}, - CellLabel-> - "Out[285]=",ExpressionUUID->"9454fa52-ff74-094b-8081-2fc86cf96043"] -}, Open ]], - -Cell[CellGroupData[{ - -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}, - CellLabel-> - "Out[286]=",ExpressionUUID->"175eda7e-c091-3e4f-86ac-3148f0a9e904"] -}, 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"], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Qb1", "=", - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.05", "*", - SuperscriptBox["10", - RowBox[{"-", "34"}]]}], ")"}], "2"], - RowBox[{"1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "1"}]], "*", - FractionBox[ - RowBox[{"Ir", "*", "Il"}], - RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", - CellLabel-> - "In[288]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], - -Cell[BoxData["7.13574266196526`"], "Output", - CellChangeTimes->{3.991337294629921*^9}, - CellLabel-> - "Out[288]=",ExpressionUUID->"e757c22c-d836-6c4a-a9f7-93553c4bb232"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"hb", "=", - SqrtBox[ - FractionBox["Kb", "Qb1"]]}]], "Input", - CellLabel-> - "In[290]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], - -Cell[BoxData["1.4042291233212119`"], "Output", - CellChangeTimes->{3.9913372946629753`*^9}, - CellLabel-> - "Out[290]=",ExpressionUUID->"7f3ee547-87eb-d74d-8f21-a8d42f1dde52"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"Cb", "=", - FractionBox[ - RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", - CellLabel-> - "In[293]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], - -Cell[BoxData["10.020217662457247`"], "Output", - CellChangeTimes->{3.9913372947367725`*^9}, - CellLabel-> - "Out[293]=",ExpressionUUID->"0603b6e6-a8b7-1e45-9b15-2769b7fbc373"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"o1", "=", - RowBox[{ - RowBox[{"1", "/", - RowBox[{"(", - RowBox[{ - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.05", "*", - SuperscriptBox["10", - RowBox[{"-", "34"}]]}], ")"}], "2"], - RowBox[{"1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]], "*", "Cb"}], "+", - RowBox[{"Cw", "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], - "2"], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.05", "*", - SuperscriptBox["10", - RowBox[{"-", "34"}]]}], ")"}], "2"], - RowBox[{"1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}], ")"}]}], - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.05", "*", - SuperscriptBox["10", - RowBox[{"-", "34"}]]}], ")"}], "2"], - RowBox[{"1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[294]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], - -Cell[BoxData["0.06674599726273667`"], "Output", - CellChangeTimes->{3.9913372947513313`*^9}, - CellLabel-> - "Out[294]=",ExpressionUUID->"8b7a346f-cdda-e24e-b924-d6cfb1b3119a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[295]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], - -Cell[BoxData["3.430301770911147`"], "Output", - CellChangeTimes->{3.9913372948636913`*^9}, - CellLabel-> - "Out[295]=",ExpressionUUID->"3354b35a-acef-b846-b770-8d2e77b8f68b"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"o2", "=", - RowBox[{ - RowBox[{"1", "/", - RowBox[{"(", - RowBox[{ - RowBox[{ - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.05", "*", - SuperscriptBox["10", - RowBox[{"-", "34"}]]}], ")"}], "2"], - RowBox[{"1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]], "*", "Cb"}], "+", - RowBox[{"Cw", "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.05", "*", - SuperscriptBox["10", - RowBox[{"-", "34"}]]}], ")"}], "2"], - RowBox[{"1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}], ")"}]}], - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.05", "*", - SuperscriptBox["10", - RowBox[{"-", "34"}]]}], ")"}], "2"], - RowBox[{"1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}]], ")"}], - RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel-> - "In[296]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], - -Cell[BoxData["0.01266539131451536`"], "Output", - CellChangeTimes->{3.991337294877693*^9}, - CellLabel-> - "Out[296]=",ExpressionUUID->"7b76721b-3d4c-c544-9113-83ba4f36ae7f"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], - RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel-> - "In[297]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], - -Cell[BoxData["7.874729317258519`"], "Output", - CellChangeTimes->{3.991337294976324*^9}, - CellLabel-> - "Out[297]=",ExpressionUUID->"e9346704-c478-364d-b5eb-0aabe0e2e350"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"h1", "=", - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], - ")"}], "/", - RowBox[{"(", - RowBox[{ - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input", - CellLabel-> - "In[298]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], - -Cell[BoxData["0.7884625602161153`"], "Output", - CellChangeTimes->{3.9913372950022793`*^9}, - CellLabel-> - "Out[298]=",ExpressionUUID->"33b7f444-6995-e54b-a2a6-ad09016b1850"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"h2", "=", - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", - RowBox[{"(", - RowBox[{ - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], - ")"}]}]}]], "Input", - CellLabel-> - "In[299]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], - -Cell[BoxData["0.21153743978388478`"], "Output", - CellChangeTimes->{3.991337295013279*^9}, - CellLabel-> - "Out[299]=",ExpressionUUID->"76ba8e46-11c7-f54d-bfb2-cca1b455c838"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"h3", "=", - RowBox[{ - RowBox[{"(", - RowBox[{ - RowBox[{"(", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", - RowBox[{"(", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], - ")"}]}], ")"}], "/", - SuperscriptBox[ - RowBox[{"(", - RowBox[{ - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox["A1", - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", "f1", "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", - "\[IndentingNewLine]", - RowBox[{ - FractionBox["2", "5"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"1.3", "*", - SuperscriptBox["10", - RowBox[{"-", "15"}]]}], ")"}], "2"], "*", - SuperscriptBox[ - RowBox[{"(", - RowBox[{"A", "-", "A1"}], ")"}], - RowBox[{"5", "/", "3"}]], "*", - FractionBox[ - RowBox[{"931.5", "*", "1.6", "*", - SuperscriptBox["10", - RowBox[{"-", "13"}]]}], - RowBox[{"9", "*", - SuperscriptBox["10", "16"]}]], "*", - RowBox[{"(", - RowBox[{"1", "+", - RowBox[{ - FractionBox["1", "2"], - SqrtBox[ - FractionBox["5", - RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", - RowBox[{ - FractionBox["25", - RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", - "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel-> - "In[300]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], - -Cell[BoxData["0.16678935135356415`"], "Output", - CellChangeTimes->{3.991337295041279*^9}, - CellLabel-> - "Out[300]=",ExpressionUUID->"f7c29774-2634-5546-ab63-4d3ac6889f79"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"J1", "=", - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - 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"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849517192892*^9},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}, - CellLabel-> - "During evaluation of \ -In[301]:=",ExpressionUUID->"3d5a1265-fb27-0b41-a549-5e326650d270"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 290, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337295076277*^9}, - CellLabel-> - "During evaluation of \ -In[301]:=",ExpressionUUID->"0726d23e-32d7-7a41-8d7f-0b62fec75437"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 301, - 291, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372950842743`*^9}, - CellLabel-> - "During evaluation of \ -In[301]:=",ExpressionUUID->"b47482ef-bec0-234f-aeb7-9009a378a36d"], - -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}, - CellLabel-> - "During evaluation of \ -In[301]:=",ExpressionUUID->"e5e35e3a-0e40-c249-b6f3-c2a6a5a48740"], - -Cell[BoxData["3.430301770911144`"], "Output", - CellChangeTimes->{3.991337298790371*^9}, - CellLabel-> - "Out[301]=",ExpressionUUID->"b33776d0-2a41-694b-9af8-c4d483383e7c"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"J2", "=", - RowBox[{ - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - FractionBox[ - 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"}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991849520751028*^9},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}, - CellLabel-> - "During evaluation of \ -In[302]:=",ExpressionUUID->"ffb6a3c0-c488-cd48-870e-d66051362026"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 294, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988343716`*^9}, - CellLabel-> - "During evaluation of \ -In[302]:=",ExpressionUUID->"ca3fb11a-47f9-c542-a5c9-6e0087e110b9"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 302, - 295, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913372988425922`*^9}, - CellLabel-> - "During evaluation of \ -In[302]:=",ExpressionUUID->"7e4a0639-38a1-f74e-ab8e-5264cad2d48c"], - -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}, - CellLabel-> - "During evaluation of \ -In[302]:=",ExpressionUUID->"101eaea3-75b1-d942-9914-a0fe8a6e2f65"], - -Cell[BoxData["7.87472931725852`"], "Output", - CellChangeTimes->{3.991337302457178*^9}, - CellLabel-> - "Out[302]=",ExpressionUUID->"921a9c76-dcb9-484a-bc19-88ddead9467a"] -}, Open ]], - -Cell[CellGroupData[{ - -Cell[BoxData[ - RowBox[{"a", "=", - RowBox[{"Plot", "[", - RowBox[{ - RowBox[{ - RowBox[{ - FractionBox["1", "1"], - RowBox[{"(", - RowBox[{ - SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], - RowBox[{ - RowBox[{"(", - RowBox[{ - 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - SuperscriptBox[ - RowBox[{"(", "x", ")"}], "2"], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", - SuperscriptBox["\[ExponentialE]", - RowBox[{ - RowBox[{"-", - FractionBox[ - RowBox[{"y", "*", "y"}], "1"]}], - RowBox[{"(", - RowBox[{ - FractionBox["1", "Cw"], "+", - FractionBox[ - RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], - RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], - RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", - RowBox[{"{", - RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", - CellChangeTimes->{ - 3.991849523511486*^9},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 - "]]}, - 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: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 - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, - 1.4626441816684523`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, - "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.6639439823901716, - 1.4626441816684523`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1: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 - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 180}, {0.6639439823901716, 1.4626441816684523`}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {0, 0.663943982390173}, - "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.663943982390173}, - 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.6639439823901716, 1.4626441816684523`}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991337564416748*^9}, - CellLabel-> - "Out[303]=",ExpressionUUID->"09d149ec-0259-a345-a282-743f783e7913"] + "Out[119]=",ExpressionUUID->"9960643e-bc5b-4f6a-bf3b-b83b210acbb1"] }, Open ]], Cell[CellGroupData[{ @@ -7713,60 +10901,60 @@ 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.9918494141657047`*^9, {3.991849451432905*^9, 3.991849451715925*^9}}, + CellLabel-> + "In[120]:=",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"4.976253354341118`*^-271\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.879795302182945`*^-267\\\", \ \\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 304, - 297, 24483298974280422597, "Local"}, +represent as a normalized machine number; precision may be lost.\"", 2, 120, + 46, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991337564646551*^9}, + CellChangeTimes->{3.993128301107984*^9, 3.993130772055571*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"526ffad5-83ae-c149-9912-e494135b3fca"], +In[120]:=",ExpressionUUID->"7b0079d2-f09e-4719-94f1-7e0cddcca131"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"2.718150004511881`*^-282\\\", \ + "\"\\!\\(\\*FractionBox[\\\"2.2568447587924138`*^-278\\\", \ \\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ to represent as a normalized machine number; precision may be lost.\"", 2, - 304, 298, 24483298974280422597, "Local"}, + 120, 47, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646565304`*^9}, + CellChangeTimes->{3.993128301107984*^9, 3.99313077205805*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"1adb1680-bdf2-4144-bcc9-7270c61e97b7"], +In[120]:=",ExpressionUUID->"9b908c30-d98b-4c53-9466-0e6cdb79d29c"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.4847193100774497`*^-293\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.7686494110980474`*^-289\\\", \ \\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ small to represent as a normalized machine number; precision may be lost.\"", - 2, 304, 299, 24483298974280422597, "Local"}, + 2, 120, 48, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646656475`*^9}, + CellChangeTimes->{3.993128301107984*^9, 3.993130772060047*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"9e5d82d5-642b-cb46-8232-be5a5ca7050d"], +In[120]:=",ExpressionUUID->"63d39deb-3ee1-467b-85a8-b1c2adddc14d"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 304, 300, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 120, 49, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913375646736584`*^9}, + CellChangeTimes->{3.993128301107984*^9, 3.9931307720640497`*^9}, CellLabel-> "During evaluation of \ -In[304]:=",ExpressionUUID->"ef931413-f964-5b45-a755-76cab1ab5309"], +In[120]:=",ExpressionUUID->"9afe6205-5c63-4ea7-9287-13b93c8d275e"], Cell[BoxData[ GraphicsBox[ @@ -7775,190 +10963,99 @@ Cell[BoxData[ 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 +1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb +ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw +/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i +Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl +NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O +hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc +TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK +fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj +BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r +FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 +S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ +flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ +mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm +tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V +0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs +YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX +VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y +lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK +0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc +SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua +3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK +arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 +5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR +N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg +/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT +oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB +gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg +AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH +CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 +CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM +tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H +hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 +1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza +0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH +kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb +pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T +kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq +tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 +Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 +yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW +7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 +mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T +UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 +qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F +jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg +4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY +1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU +RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H +NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS +Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe +ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY +LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A +jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 +H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL +u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 +RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt +Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 +E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB +3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP +aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi +kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa +W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx +ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa +HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 +9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx +YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO +nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h +ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS +oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX +wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 +GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 +XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 +GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ +09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 +628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P +7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU +laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV +ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ +FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 +sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW +FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh +HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn +X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 +IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 +mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz +I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 +Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY +cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH +jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a +QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V +LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P +NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I +8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq "]]}, Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, {"WolframDynamicHighlight", <| @@ -7975,196 +11072,105 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb +ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw +/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i +Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl +NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O +hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc +TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK +fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj +BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r +FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 +S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ +flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ +mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm +tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V +0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs +YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX +VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y +lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK +0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc +SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua +3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK +arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 +5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR +N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg +/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT +oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB +gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg +AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH +CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 +CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM +tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H +hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 +1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza +0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH +kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb +pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T +kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq +tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 +Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 +yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW +7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 +mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T +UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 +qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F +jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg +4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY +1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU +RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H +NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS +Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe +ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY +LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A +jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 +H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL +u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 +RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt +Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 +E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB +3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP +aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi +kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa +W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx +ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa +HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 +9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx +YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO +nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h +ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS +oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX +wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 +GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 +XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 +GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ +09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 +628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P +7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU +laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV +ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ +FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 +sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW +FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh +HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn +X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 +IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 +mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz +I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 +Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY +cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH +jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a +QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V +LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P +NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I +8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> @@ -8188,7 +11194,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), @@ -8217,196 +11223,105 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT RGBColor[0.368417, 0.506779, 0.709798], 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:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb +ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw +/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i +Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl +NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O +hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc +TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK +fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj +BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r +FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 +S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ +flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ +mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm +tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V +0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs +YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX +VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y +lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK +0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc +SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua +3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK +arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 +5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR +N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg +/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT +oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB +gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg +AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH +CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 +CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM +tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H +hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 +1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza +0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH +kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb +pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T +kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq +tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 +Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 +yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW +7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 +mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T +UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 +qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F +jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg +4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY +1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU +RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H +NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS +Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe +ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY +LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A +jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 +H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL +u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 +RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt +Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 +E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB +3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP +aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi +kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa +W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx +ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa +HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 +9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx +YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO +nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h +ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS +oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX +wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 +GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 +XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 +GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ +09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 +628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P +7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU +laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV +ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ +FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 +sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW +FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh +HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn +X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 +IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 +mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz +I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 +Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY +cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH +jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a +QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V +LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P +NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I +8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq "]]}, "Charting`Private`Tag#1"]}}, {}}, <| "HighlightElements" -> <| "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, "LayoutOptions" -> <| "PanelPlotLayout" -> <||>, - "PlotRange" -> {{0, 15}, {0., 0.22160540372702894`}}, + "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { @@ -8455,7 +11370,7 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Part[#, 1]], (Identity[#]& )[ Part[#, 2]]}& )}}, - PlotRange->{{0, 15}, {0., 0.22160540372702894`}}, + PlotRange->{{0, 30}, {0., 0.07063865090603916}}, PlotRangeClipping->True, PlotRangePadding->{{ Scaled[0.02], @@ -8463,17 +11378,578 @@ JflU2QoVzzttUolNySYENB9R7P9R8WDMfW0jx2wi3bVsYW2NigdO2bNEq2UT Scaled[0.05], Scaled[0.05]}}, Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9913381496467495`*^9}, + CellChangeTimes->{3.993128551520615*^9, 3.993130973250785*^9}, CellLabel-> - "Out[304]=",ExpressionUUID->"23497d29-f516-664b-9ee0-ea8f6d88359c"] + "Out[120]=",ExpressionUUID->"9b72d10d-33d9-433d-a747-8876b19d31a9"] }, Open ]], +Cell[CellGroupData[{ + Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"x", ",", "xx"}], "]"}]], "Input", - CellChangeTimes->{{3.9917994642649307`*^9, - 3.991799466675585*^9}},ExpressionUUID->"ea848967-083d-ea47-bce0-\ -5c3b93725916"], + CellLabel-> + "In[121]:=",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb +ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw +/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i +Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl +NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O +hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc +TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK +fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj +BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r +FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 +S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ +flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ +mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm +tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V +0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs +YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX +VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y +lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK +0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc +SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua +3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK +arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 +5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR +N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg +/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT +oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB +gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg +AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH +CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 +CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM +tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H +hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 +1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza +0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH +kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb +pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T +kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq +tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 +Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 +yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW +7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 +mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T +UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 +qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F +jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg +4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY +1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU +RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H +NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS +Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe +ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY +LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A +jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 +H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL +u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 +RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt +Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 +E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB +3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP +aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi +kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa +W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx +ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa +HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 +9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx +YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO +nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h +ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS +oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX +wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 +GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 +XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 +GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ +09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 +628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P +7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU +laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV +ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ +FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 +sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW +FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh +HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn +X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 +IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 +mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz +I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 +Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY +cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH +jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a +QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V +LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P +NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I +8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq + "]]}, + 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:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb +ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw +/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i +Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl +NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O +hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc +TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK +fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj +BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r +FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 +S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ +flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ +mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm +tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V +0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs +YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX +VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y +lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK +0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc +SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua +3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK +arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 +5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR +N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg +/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT +oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB +gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg +AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH +CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 +CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM +tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H +hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 +1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza +0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH +kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb +pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T +kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq +tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 +Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 +yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW +7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 +mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T +UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 +qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F +jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg +4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY +1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU +RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H +NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS +Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe +ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY +LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A +jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 +H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL +u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 +RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt +Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 +E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB +3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP +aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi +kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa +W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx +ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa +HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 +9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx +YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO +nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h +ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS +oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX +wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 +GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 +XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 +GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ +09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 +628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P +7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU +laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV +ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ +FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 +sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW +FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh +HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn +X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 +IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 +mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz +I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 +Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY +cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH +jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a +QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V +LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P +NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I +8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k4VF0YAHAlWbIPZpJlZgzJvktM71tKKGt2shUtKiplSVlKiZIkVCpb +ImTuFNmKUFlKG9KmTZGQXZR89/vrPr/nnnvuc88573IZ/sGOAQt5eHgkFvDw +/H+d6mlpYiXlrzYQzVLx6FyzuuMqLWJNdxz8zO7W6PSkA0o/86d1p0J78O6i +Mk8dOGR/8zVvdy70/Vi3L90TQWKYmjrzmgtdfXl/gj3t4WOtbfDE6wZIynjl +NenhCxasgQ+jr1+C0yTtqqx7CMy8Nr4w8voLXDc/faLKIQYazW/kv8gdh52O +hSecPqaA3Meq7/4ac9DsIHo0qyETpHb73OQ350XjwmL/aEo2pOpa1Ng6C+Cc +TcWy4q48eJOpUz8qLoLR+9pWaEvegKT86GcLl0pgWbrq0VSTm0BN+3rq/BUK +fmr/l2oxXAI09fLjvwsouNKxuenidAnINpyI3sKhoGL5Q/U+nlJQGFlxcHkj +BTNjr6eFUEpBeVOIb00/BcvPBhLslaWgv2jO6Ku+FLba3KDVx5SCXahMr16r +FK5WGBL3FrkFJ52sVr+ckkbmZ7HUZqkykL3TLrtwgQxObVisYi1fBrcoTtO6 +S2TQJ3BXXpNyGXS99OacU5RBibFfLvlGZcByCGU6WMrgYBw3QdStDBpsri1+ +flEGywy/bjlzsQzmLCbbn5pRkW55oDljCQdSCiKL5yyouFs4MTBQjAOsxTwJ +mg5UfF7O2aNL4cCmh0JrzgRQMSddoqJWlgOXzOm3NyVTccfRguWFKziwEjdm +tH2k4guXdJeXFhw4YJLj0xJHQ8F08937j3LAOlt0YuNpGlaHm9elxXKAyR+V +0H6Bhp+Uun7ePs6B5x0uxKtCGtbtc3rRn8gBrRBh3p52Gga62rdpZHCgvyCs +YEx2Kaa4uAfJl3HAS8p2aNntpbhgNlcs5z0H9A/XxF6tXYr7zlpFeH/kgNAX +VRnGo6V4cWxbDe0LB6rKeEHlzVJ09aa2HOvjgMzGqhSd+aXYabJnicEY+f5Y +lsH6jbLIPyplPLeYgHW/ZiP3fpVFi3rJCj0tAiIs09QeDMpi9K4r8dE6BNzK +0XxLmZLFbH/CrkWPAJqTr0mVwDL827uwY7MxAYOVD6d5tZah3phnzjok4Hxc +SujF8GUo+FF//wUHAr5Iq+xtEpFDq8zz+pP7CKAG18lTqXKoXs1X9PkAAZua +3Z7upMthJldEse0gARWRSRpi+nI4yPdG5EIEAYkfRwbc3eRwUZHv3KJYAvSK +arb/ypVDsW5eH+ezBMSaOfjJrpTHdWq8WtVFBFh6Xx0zXiuPS3PC3u8oJkA0 +5ucx503yKDV/RlSqlICsxviCFF95bH+1bd6HQ0CldfXPxafk8fKEC729goAR +N6VD42/k8Y/ug8e8jQTcjQzhl+iVRxOFS32RTQQczbqXqTUsj9OP81OHHxIg +/Mm1ZudCBfwj6H66rZmA5dtP83xSU8Atw7VyXu0EeB+cTHxyWAElTX+odncT +oJyxVm4gXgENz+ib0t7+v35nS/lTFPCBjsNnp3cERP5d8XxtvgJKRG7+2fiB +gAvHvKWrnihgtkfL4ogvBDw59/jadXlF7INjn+Enud63pXQblyuifLR6uNUg +AR6dfg2fdBVx/3rHErshAvppf3uXWSiiamXRL4dfBPBm66il7lXE53uyJjTH +CVh16+Kdo3WKqLm+PGndLHkeXrfPDTcrYvPv1JVCfwiw5Vm0weelIpbuX//3 +CemtjnvfwDdFPKsa3Go1R4DFYUZ0DB8dFxb8PEfn4UKbWG3eSiE6/t0dw/eM +tH2+S/OIKB3ZnafSIhdwwfNpkoQfjY5r17rxtyzkQojiVN4adTre7r1sb87H +hcnbKc0z2nS0mU3gvCUdaak+RBjQ8WRrpU7wYi7E7/M1Yq6m42UD57Sz/Fy4 +1NjavNCBjlNj3TOlglxQdAsYqnYm5yvQ2qMlxIX8wXmJAx50NLzUwFdCukza +0PPrVjq22OsUXV3Chabt14YaD9FRfC21zU+EC1Z/TSSjDtPRz8U2so10e0qH +kUEMHVc//LlZT5QLb6oEY/JP0TH06WzCNGlv2/x8r2Q6ShXe/+YsxoXeL6tb +pM7Tcdb7TDBBenhJqGR8Fh3z3KaFfcW5cCBb1JidQ8d4iwHGbdK/DYo8J6/T +kS8wI5BXggu83j35AWXk+NGu2MukE8bCW+Tv0PHttkfuX0mLnqQMd1bSUYCq +tk1Vkgs0jqWxRQMdB9LEKDdJX1n31fPfIzo+Lh+v/E6a+eZITEUbHWl14ml0 +Chc0F95uUemkY1LIg8Ek0tx0m+GeN3TsK60Nukd6pXq/ZEYPHa3m6piDpNc6 +yXvx99PRlVVuukaKC4/778bUDdJRq5FybTvpTUccr4eN0jFmgRM7ifRLiaEW +7Sk6DvdoUktIuxacHO6bpaP6vLtmK+n3q5iU7Hly/YrOxXwj7f+s1thtEQM1 +mpMl/pHu2+rqJS7IQP/+JZ8p0lzY/Xs0plmEgQEmTb9USK/aFyjzXZKBcl2T +UStJCwy8LealMVDgyodnFqS7/O3WMOQZKBy++4cD6evvGrtWMxl4UCut1Z10 +qNPK3V7LGWixbUOoN+m1T0sWRGowMOFiRJ8PaXELRkaGLgMLVygq/3+/5/4F +jXIjBj6w1tT6//kSY6GGl6YM/CF8iff/+SM5R11HkIGp7l4F60lbrhgfFLFg +4NOxIKoxaZnc7XHqGxl4ff8DV2XSvbLvqVb2DNxr7bJDnDT3vH1poDMDRRpY +1r/J748Rfrj2uAcDPaeX/3tP2i7epDvHh4G+Hzzj75NW+Fe6p24bA++Y3vuU +RXrwEJP3w04GtpZaSYSTrv6Vnjm7l4GGufNUe9IJO5Zo0ULJ+T16JlmkXT5H +NxpGMFC1/1vxFLm/LI8Jt81HGRiuQzV9SLp+44djyQkMfJ7yr9+NdHKTw9KS +Mwwcjq4WVCDtxX50qyWVgZSuYv5P5Pma0Sp7s+gKA+3Q/JoH6eYbSsHMXAYe +ypxcRSGdTs9chDfI7+mZvNtMnl89yVjtwwQDo8IWeKiR5kmabMqsYOCuAMXY +LjIe2nl3eVTUMFDoIOdMNOmgScf40YcMnGlz92wm4ym/m/Vu+1sGLjlj+N2A +jL/9DhdD4j8ycA42uzST8YqtIovzehl48/nmO26kP9RM6fQMMzBw3Hx1iDC5 +H9eaTzjxMvGpzfSNSDIf9FLZcvsFmLi6kH19kswf3BSCOCvCxKMG/Bf3kLaL +u/S+lcrER2pxO5wEyPUM2K23RoOJHtEdD+fI/DSjLt6j6cxE6VW6++vJfDd1 +RTZW34OJMx61XFHSE2LKLBMfJgY9WEr1mCdgeNxk17qdTJSJyrTrJ/Pnl5qt +Ux5HmEhV/3blC5l/WzfeFU24zsQfG5rz7CYIeHzvAXHmJhPNXj/LCyHzdZP2 +E6fzZUxUm1R5kzxGwH3K50tXq5gYXbKyv2GEAO47oeXlT5koIcu+K0jm/0tB +3vBlkonT1vbSlG8EZHzY8aVvlol3a0xG+XsJSLM7ED80z8SQ2VNSs2R9SdZP +aPstqIQLqn4bdn0iIO4P4SqmoIRGqlsX7X1PQFASX4iZhRKKveh8JfeKALPi +kuz0dCVUM7aPir5PwDt68bX1l5Uwjn+zi/E9sp6lF12duKaEpo8sxwdryHoa +W5DlWKSElW1zEQ5VZD13y84UrVXCDlHjrvnbBKzgS0s58VkJdRWcC8cKCZDx +ORxzSIOFHalhlcbnCCjviIhW1mXh6Mmxj0Vk/XeyDj/aYchC19ykgaXJBKQa +HozSAxa6C+mXjicSICIcHD7swMLS80y+5OMELKryDwkMY2HxzdffvcMIGJW0 +9nVpYGFExKvqcE8Cunczn+96zEKpOf8/se4E1D+ahegnLNS+yt+X4EpASmSx +YmEXC5+N/m46u5kAnS/CH2cGWFhvGvQgdiMBe4lnW65QlDEgSGpoehUBA3bO +nr3blPGD/qE8IxoBvad9Xfbzq+Cj8ynCG59wYO+ABlNHWAV5qZ9LJ1o4ML1h +ZmhIXAVvXXdOy3pM9ne8qfE7ZVXwn5u5YV8DB3QiGu/4aqrgh2b/vu1VHDgS +oEKx26yCiy2zRGkFZL+3evCZ+jUVjLgSe8SU7EetfoVZfTNajjzGex88I/vX +wa0CB+5Eq2JQW2zepbpb5P8GdeHJhhVYUl1RelywFCSfqiRzfqlhTBknOcK5 +GOQSyuyNjDQwW+03p3dHEWSqm4hTtmui/r2k7zOpN6BVdo3h+DktfPa4+is0 +XYdVcg0p2l3aGOB8Z5PVqzwQ5c0N9YvTwUhbA0E90VxQiFU0c1fRRbFF+jt2 +GGSDoLJXheNjXQwOezlbM5YFWuylZWFb9HDOzm9a7vtF2N8j2WjNo48dOZl/ +09vT4df4aWerTNL+I/n+zDTYoP3okpWmAY563P7qU3kO7o+b/pluN0BL6Vf5 +628mw14NvbcvAgyxXtZGIDsvEdjD2zrcBY2wcWd7/bnqE7CeRbMRyTVCU+8P +7+hRx0A1JjG8wdgYLS/mLDK6GQNqASZ1ym+NcSQlxO7B1GEIuL/j+J19K/HU +laCPay6HQV12x7ZRaRM0ikjclnzyAEwUzk9r3zVBj+fRbAf5ENiqXCx4yWYV +ql/unFnXtgtG1c4bcUdWYa7ierHipwFQmf/n82SCKRJxps5RX/3AyDx02jrJ +FF/r1A0Fd/pB+edB4ewzpnisWVVhz2M/4Cr0GFunmuKkUJnu8WI/KMmsP3P1 +sinaGY2nsEL9IPt0vMmGW6boyRuWs4LfD06Fip3LfGWKnxcO/6Ib+ILHOjIW +FczwnHZckqPDFpjrEBBtpJuhJEgdvmO8BbIDht9ZK5nh+/trBdUUtsD3E1Vh +HqpmqErZ+dzupxfsb7Eri9AzwwLfnNvHT3hBom2UQqWFGXKrYzRO1XtCtVvn +X4NgcvxDq77CtR6wbM/JKq16MwwppMjeiXKF5PlAw6QGM9zlF3RFYKcrLEy1 +IPqazFA/oLs0yNkVBir4irJbzPAgzcBxi5YrVPMcz5R8ZYZXSi6UDX1yAY+0 +mLCpb2YoVHb7X7WlC2TWRBjeX8LGXBB62Mp0Bmmh3YSNKxsjtH20vvxzhHzz +I5Ej7mwUncxIIwYdQe9Isvl5LzbeDV4WnvLWEWxHOJ3dfmx88jYzMarCEU50 +Tc5s3c1Gab7nN4SDHeF3bvTayFg2ijQ6r+D96gBvTc+/Kihmo8PT7qK5TnvY +cTA/y+oWGzcltuTdeGgPU7fKAwY5bPRuqm/wKbcHSWb3tG4FG/evMLWYTbOH +jQLycvfq2ZjX/2PNayd7qO0o2Paqk40vKi1U7G/ZgbVopeahbjbOU2plfM7a +QfeGlinaOzbq0ZYLnQqxg4nqnwnen9i4pTOvSFPfDjRzdEp/DLCxyVM6626V +LdS+XXPo9BAbl2x5FJp12RaspTaD9ggbbTfIEZeP2ELgyYMvQifZuELrK9+P +NbYwUX/iEvU3G1XMFk8bsWwhbjZja/UsGxPt9eauLrYFcYMijS1zbKyzeb+I +8cMGru6pnpyfZ+O4wfHZ2jYb+A9FvKVq + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.07063865090603916}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, + Annotation[#, "Charting`Private`Tag#1"]& ], + {"WolframDynamicHighlight", <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>}], + StyleBox[ + DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, + Slot["HighlightElements"], + Slot["LayoutOptions"], + Slot["Meta"], + Charting`HighlightActionFunction["DynamicHighlight", {{ + Annotation[{ + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> ListPlot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> + 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.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7n746rvaz0B7C+2D/eeKULwZbuqB8Bgdzk9Tl +8lemQvkcDrt+3J6nsHEulC/gIFkmMflf3CIoX8QhKFWivDljKZQv4fC5MHeF +xPPlUL6MQ4R1V/GViyuhfAUHD2Mx33T11VC+kgPnzwXpm1/B+CoOHz+VrNNQ +XQPlqzkcWtyrfO0RTF7DYdfuc21/jGF8LYeY9S8dHTVXQfk6DlP5Ha++uLoC +ytdz0BYNCfnrBXOPgcP1QzpbimfB3GvoUL7XxLXh8mIo38jhx32vshwWmP+M +HaapnP9aa7EAyjdxWPVu4tnQz3OgfFOHI2fs+gPnzYTyzRy23mW5b1I7Dco3 +d7B9F71WePpkKN/Cod3w5fulHyZA+ZYOT1J9dT6I9kL5Vg5RHxatVzjbAeVb +Ozw/vJlFkrEVyrdx2Lhc9t+sNY1Qvq1DQ6OCQ1tfLZRv51AX2PTPqb/CHgAN +A4x/ + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.054971}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.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" -> + ListPlot, "GroupHighlight" -> False|>|>, + "DynamicHighlight"]], {{}, {}}}}, + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.07063865090603916}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993128551588084*^9, 3.99313097328303*^9}, + CellLabel-> + "Out[121]=",ExpressionUUID->"07dde160-c052-47df-b468-fb1deddb6a93"] +}, Open ]], Cell[CellGroupData[{ @@ -8525,66 +12001,70 @@ Cell[BoxData[ RowBox[{"\[DifferentialD]", "y"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", CellLabel-> - "In[308]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + "In[122]:=",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"8.330251890072051`*^-161\\\", \ +\\\"16424312045547973917068250855478962797836184904556443340043143969743430318\ +444318157938322185531163516963194464925547245426704384000000000000000000000000\ +00\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 50, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99133920579224*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, + 3.993130973300117*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"100796fd-6fde-3c41-9088-c2d3ae2f8aeb"], +In[122]:=",ExpressionUUID->"2a3e76f8-6266-4fe9-a88a-e55aa0c9228b"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.2949369621597828`*^-163\\\", \ +\\\"55251385721223384257017595877831230851920926018927875395905136314216899591\ +246686283304515832126834071064186180009540933615433547776000000000000000000000\ +00000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 51, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058022385`*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, + 3.9931309733026857`*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"c91e75b4-9e2b-1e49-a5d5-453d5f87b5e3"], +In[122]:=",ExpressionUUID->"2e43766c-2201-4a85-92e7-fc36791090ef"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"2.0129784286188043`*^-166\\\", \ +\\\"19233007369557860059867825125073051459553674347188793425314577950978902747\ +712971495218301961163350940137443209261321198991532417980825600000000000000000\ +000000000\\\"]\\) is too small to represent as a normalized machine number; \ +precision may be lost.\"", 2, 122, 52, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339205811241*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, + 3.9931309733048*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"5d8ad6a4-5b83-df49-8c4d-081081895528"], +In[122]:=",ExpressionUUID->"45bf1502-e2b4-44c4-b08b-8efba935cd14"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 308, 312, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 122, 53, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392058197193`*^9}, + CellChangeTimes->{3.991337269930374*^9, 3.9931285516092367`*^9, + 3.993130973306826*^9}, CellLabel-> "During evaluation of \ -In[308]:=",ExpressionUUID->"26eed7af-5e0a-e840-9956-caca06166010"], +In[122]:=",ExpressionUUID->"9aa69291-742b-40ef-a902-181fa7b88ee3"], -Cell[BoxData["9.33220071900515`"], "Output", - CellChangeTimes->{3.9913392124888554`*^9}, +Cell[BoxData["10.52785064365192`"], "Output", + CellChangeTimes->{3.993130999780815*^9}, CellLabel-> - "Out[308]=",ExpressionUUID->"e4e35b92-e786-3044-bf1d-9c587b1357a2"] + "Out[122]=",ExpressionUUID->"8aacbadb-7dda-4b86-8555-f222f26e20f8"] }, Open ]], Cell[CellGroupData[{ @@ -8651,68 +12131,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.9918494640512295`*^9, 3.991849468375696*^9}}, + CellLabel-> + "In[123]:=",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 123, 54, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, + 3.993130999803473*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"dc234405-c2fb-45a6-8d1c-c8bf859a436f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 123, 55, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, + 3.993130999805719*^9}, + CellLabel-> + "During evaluation of \ +In[123]:=",ExpressionUUID->"f433d206-d023-4888-8305-dd29597c9a08"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 309, 313, - 24483298974280422597, "Local"}, +as a normalized machine number; precision may be lost.\"", 2, 123, 56, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125258827`*^9}, + CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, + 3.993130999807589*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"6b65fc2b-3e1d-714d-aeb9-43978836a621"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 314, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339212535879*^9}, - CellLabel-> - "During evaluation of \ -In[309]:=",ExpressionUUID->"c4736a05-b0e1-5e49-b581-f3ce4c83fe21"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 309, - 315, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125438805`*^9}, - CellLabel-> - "During evaluation of \ -In[309]:=",ExpressionUUID->"ae8eb83c-0205-8046-8445-e249896b7ee5"], +In[123]:=",ExpressionUUID->"c1737bf9-b500-4463-84e1-327451df1e96"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 309, 316, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 123, 57, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392125518837`*^9}, + CellChangeTimes->{3.9913372767181473`*^9, 3.993128551622918*^9, + 3.9931309998094063`*^9}, CellLabel-> "During evaluation of \ -In[309]:=",ExpressionUUID->"5072d590-62c3-7a47-ae1b-6dd617a0b9dc"], +In[123]:=",ExpressionUUID->"6efc6a5d-a36d-47f4-a0d2-b37ed18fb7ae"], -Cell[BoxData["0.41157157699018565`"], "Output", - CellChangeTimes->{3.9913392196090164`*^9}, +Cell[BoxData["0.7716940409274702`"], "Output", + CellChangeTimes->{3.991337284091696*^9, 3.993128556282365*^9, + 3.9931310038014708`*^9}, CellLabel-> - "Out[309]=",ExpressionUUID->"8dd7e1f9-bbea-d84b-ad0e-8922158aee9e"] + "Out[123]=",ExpressionUUID->"4ee304bd-535c-41ed-a92c-8a6a14de6092"] }, Open ]], Cell[CellGroupData[{ @@ -8779,68 +12264,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.9918494737320137`*^9, 3.9918494774550457`*^9}}, + CellLabel-> + "In[124]:=",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 124, 58, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, + 3.993131003827796*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"72159c33-5954-4854-8755-4eb266235b84"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 124, 59, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, + 3.993131003830274*^9}, + CellLabel-> + "During evaluation of \ +In[124]:=",ExpressionUUID->"70202078-d43f-4eae-a028-fbfaf3409261"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 310, 317, - 24483298974280422597, "Local"}, +as a normalized machine number; precision may be lost.\"", 2, 124, 60, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196440163`*^9}, + CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, + 3.993131003833153*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7ab877ea-0e4b-f948-97c2-7ebafb7901b1"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 318, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392196535416`*^9}, - CellLabel-> - "During evaluation of \ -In[310]:=",ExpressionUUID->"a87a57c5-24bc-dc4a-888a-b3c0095c10c4"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 310, - 319, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219661541*^9}, - CellLabel-> - "During evaluation of \ -In[310]:=",ExpressionUUID->"d8af7fb1-1d43-664e-ae2d-698eaa818746"], +In[124]:=",ExpressionUUID->"d2cfdf69-b206-48cf-8357-2622500f1549"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 310, 320, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 124, 61, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339219670542*^9}, + CellChangeTimes->{3.991337284131695*^9, 3.993128556318377*^9, + 3.9931310038360167`*^9}, CellLabel-> "During evaluation of \ -In[310]:=",ExpressionUUID->"7abec434-52e8-c64c-ac86-90da0b27b8aa"], +In[124]:=",ExpressionUUID->"2431faaf-6110-4592-b9f5-c1189a33e948"], -Cell[BoxData["3.215201591157595`"], "Output", - CellChangeTimes->{3.9913392268711624`*^9}, +Cell[BoxData["31.643473719057514`"], "Output", + CellChangeTimes->{3.9913372907074146`*^9, 3.993128560256538*^9, + 3.9931310073179626`*^9}, CellLabel-> - "Out[310]=",ExpressionUUID->"164a4c34-f121-a445-b434-e34aa59666ab"] + "Out[124]=",ExpressionUUID->"5f0db9b0-7598-402c-a682-4ff9e19c7e34"] }, Open ]], Cell[CellGroupData[{ @@ -8907,68 +12397,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.991849482271084*^9, 3.9918494852683945`*^9}}, + CellLabel-> + "In[125]:=",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], Cell[BoxData[ TemplateBox[{ "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"1.5023512908051311`*^-195\\\", \ + "\"\\!\\(\\*FractionBox[\\\"1.1338321752578242`*^-206\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 125, 62, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, + 3.9931310073431*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"b31f5c5a-cef8-493e-96b7-d2d426d6dbad"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"2.365758123889588`*^-211\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 125, 63, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, + 3.993131007345487*^9}, + CellLabel-> + "During evaluation of \ +In[125]:=",ExpressionUUID->"f6591778-a3e1-4226-818b-eff0bc22ad79"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.936190401791086`*^-216\\\", \ \\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ 098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ -as a normalized machine number; precision may be lost.\"", 2, 311, 321, - 24483298974280422597, "Local"}, +as a normalized machine number; precision may be lost.\"", 2, 125, 64, + 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226907137*^9}, + CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, + 3.993131007347789*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"92295db4-13f0-284e-8173-df7f8dd20dcf"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"8.739446301903759`*^-200\\\", \ -\\\"66885981049744024409206719656442605103016018168204074959083835946452474281\ -358493165635789279094374400000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 322, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991339226917137*^9}, - CellLabel-> - "During evaluation of \ -In[311]:=",ExpressionUUID->"c6280e41-1347-0f47-81a9-bcd3687b7b73"], - -Cell[BoxData[ - TemplateBox[{ - "General", "munfl", - "\"\\!\\(\\*FractionBox[\\\"5.083892304770298`*^-204\\\", \ -\\\"15410530033861023223881228208844376215734890585954218870572915802062650074\ -4249968253624858499033438617600000000000000000000\\\"]\\) is too small to \ -represent as a normalized machine number; precision may be lost.\"", 2, 311, - 323, 24483298974280422597, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269251385`*^9}, - CellLabel-> - "During evaluation of \ -In[311]:=",ExpressionUUID->"2aa0f4b1-01ca-4644-884e-b759d4a75412"], +In[125]:=",ExpressionUUID->"98cbc908-95a1-4add-8100-3264b22eca8a"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 311, 324, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 125, 65, 25985975399914684936, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913392269341373`*^9}, + CellChangeTimes->{3.991337290744484*^9, 3.9931285602907047`*^9, + 3.9931310073498497`*^9}, CellLabel-> "During evaluation of \ -In[311]:=",ExpressionUUID->"ab3c3bff-179e-9f4e-b56a-87d1b4f6fc04"], +In[125]:=",ExpressionUUID->"260b5979-99a4-44ad-9c4d-5fd62b78a7dd"], -Cell[BoxData["16.94395627212904`"], "Output", - CellChangeTimes->{3.9913392304284153`*^9}, +Cell[BoxData["5.218985386990781`"], "Output", + CellChangeTimes->{3.991337294569908*^9, 3.99312856274135*^9, + 3.9931310092947598`*^9}, CellLabel-> - "Out[311]=",ExpressionUUID->"f5b8154f-e61e-6a4e-b068-b6c1916773ef"] + "Out[125]=",ExpressionUUID->"0860c78b-128d-4158-a506-3ab4eb4644c2"] }, Open ]], Cell[CellGroupData[{ @@ -8977,20 +12472,3155 @@ 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.9918494889040737`*^9, 3.9918494971484394`*^9}}, CellLabel-> - "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] + "In[126]:=",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], + +Cell[BoxData["0.060049587679804534`"], "Output", + CellChangeTimes->{3.9913372946009064`*^9, 3.993128562774433*^9, + 3.99313100931358*^9}, + CellLabel-> + "Out[126]=",ExpressionUUID->"238c7521-11d6-4e4d-9afd-eb23254e72db"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"Clear", "[", + RowBox[{"J1", ",", "J2", ",", "Cb"}], "]"}]], "Input", + CellChangeTimes->{{3.9918495000311985`*^9, 3.9918495029810333`*^9}, + 3.9919248636163254`*^9}, + CellLabel-> + "In[127]:=",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Qb1", "=", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "1"}]], "*", + FractionBox[ + RowBox[{"Ir", "*", "Il"}], + RowBox[{"Il", "+", "Ir"}]]}]}]], "Input", + CellLabel-> + "In[128]:=",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], + +Cell[BoxData["6.7441112131889085`"], "Output", + CellChangeTimes->{3.991337294629921*^9, 3.9931285627849207`*^9, + 3.993131009320539*^9}, + CellLabel-> + "Out[128]=",ExpressionUUID->"f03d60e4-1511-48ee-b444-a714177e98d1"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"hb", "=", + SqrtBox[ + FractionBox["Kb", "Qb1"]]}]], "Input", + CellLabel-> + "In[129]:=",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], + +Cell[BoxData["4.350133769963735`"], "Output", + CellChangeTimes->{3.9913372946629753`*^9, 3.993128562789411*^9, + 3.993131009324382*^9}, + CellLabel-> + "Out[129]=",ExpressionUUID->"1f451e81-f163-46b7-8eed-a78b04b50d10"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Cb", "=", + FractionBox[ + RowBox[{"Qb1", "*", "hb"}], "1"]}]], "Input", + CellLabel-> + "In[130]:=",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], + +Cell[BoxData["29.337785936884167`"], "Output", + CellChangeTimes->{3.9913372947367725`*^9, 3.993128562793687*^9, + 3.993131009328977*^9}, + CellLabel-> + "Out[130]=",ExpressionUUID->"b075fd3e-2f3b-41e4-b738-56bda35d3d9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o1", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], + "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[131]:=",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], + +Cell[BoxData["0.006534003083467988`"], "Output", + CellChangeTimes->{3.9913372947513313`*^9, 3.993128562802326*^9, + 3.993131009334507*^9}, + CellLabel-> + "Out[131]=",ExpressionUUID->"8f2ea1cd-53fd-4840-819d-1b9c22244214"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o1", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[132]:=",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], + +Cell[BoxData["10.963652785159836`"], "Output", + CellChangeTimes->{3.9913372948636913`*^9, 3.993128562874551*^9, + 3.993131009395611*^9}, + CellLabel-> + "Out[132]=",ExpressionUUID->"4c7da448-c919-4091-8844-0ebf1bb221a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"o2", "=", + RowBox[{ + RowBox[{"1", "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]], "*", "Cb"}], "+", + RowBox[{"Cw", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}], ")"}]}], + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.05", "*", + SuperscriptBox["10", + RowBox[{"-", "34"}]]}], ")"}], "2"], + RowBox[{"1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}]], ")"}], + RowBox[{"-", "2"}]]}]}]], "Input", + CellLabel-> + "In[133]:=",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], + +Cell[BoxData["0.03343038580698027`"], "Output", + CellChangeTimes->{3.991337294877693*^9, 3.993128562882676*^9, + 3.9931310094016438`*^9}, + CellLabel-> + "Out[133]=",ExpressionUUID->"a3265a6f-358f-4b61-9d40-a52c9448e296"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{"2", "*", "x", "*", "x", "*", "o2", "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], + RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", + CellLabel-> + "In[134]:=",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], + +Cell[BoxData["4.847013690076369`"], "Output", + CellChangeTimes->{3.991337294976324*^9, 3.993128562953268*^9, + 3.993131009459901*^9}, + CellLabel-> + "Out[134]=",ExpressionUUID->"b3186920-fa31-43da-b44c-70610fdb24c7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h1", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[135]:=",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], + +Cell[BoxData["0.063831488074104`"], "Output", + CellChangeTimes->{3.9913372950022793`*^9, 3.99312856296004*^9, + 3.993131009465251*^9}, + CellLabel-> + "Out[135]=",ExpressionUUID->"831a7896-3e3d-49b2-bd98-cb392bd58e7a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h2", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "/", + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], + ")"}]}]}]], "Input", + CellLabel-> + "In[136]:=",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], + +Cell[BoxData["0.9361685119258959`"], "Output", + CellChangeTimes->{3.991337295013279*^9, 3.993128562966445*^9, + 3.993131009470179*^9}, + CellLabel-> + "Out[136]=",ExpressionUUID->"333fbc34-dfbe-411b-8139-3065ee20c7c9"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"h3", "=", + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}], + ")"}]}], ")"}], "/", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox["A1", + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", "f1", "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b1"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b1", "*", "b1"}]}], ")"}]}], "+", + "\[IndentingNewLine]", + RowBox[{ + FractionBox["2", "5"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"1.3", "*", + SuperscriptBox["10", + RowBox[{"-", "15"}]]}], ")"}], "2"], "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"5", "/", "3"}]], "*", + FractionBox[ + RowBox[{"931.5", "*", "1.6", "*", + SuperscriptBox["10", + RowBox[{"-", "13"}]]}], + RowBox[{"9", "*", + SuperscriptBox["10", "16"]}]], "*", + RowBox[{"(", + RowBox[{"1", "+", + RowBox[{ + FractionBox["1", "2"], + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]], "b2"}], "+", + RowBox[{ + FractionBox["25", + RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", + "f2"}]}], ")"}], "2"]}]}]], "Input", + CellLabel-> + "In[137]:=",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], + +Cell[BoxData["0.05975702920434953`"], "Output", + CellChangeTimes->{3.991337295041279*^9, 3.993128562974463*^9, + 3.993131009475337*^9}, + CellLabel-> + "Out[137]=",ExpressionUUID->"4759d739-6c3a-44ac-9aa3-0767926fd09f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991849517192892*^9}, + CellLabel-> + "In[138]:=",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 138, 66, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, + 3.993131009482092*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"3dbcd7eb-e500-42aa-9428-8ca86a8885cb"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 138, 67, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, + 3.993131009484282*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"6b1f23ee-d9f2-4cfc-ab10-479fe608da7d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 138, 68, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, + 3.9931310094861193`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"48494406-dd53-49c5-ac1b-b145417d3a97"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 138, 69, 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372950662746`*^9, 3.99312856298381*^9, + 3.9931310094879417`*^9}, + CellLabel-> + "During evaluation of \ +In[138]:=",ExpressionUUID->"14cea65a-4651-4c19-99c0-83d3ca22063b"], + +Cell[BoxData["10.963652785159823`"], "Output", + CellChangeTimes->{3.991337298790371*^9, 3.993128565543841*^9, + 3.993131011639268*^9}, + CellLabel-> + "Out[138]=",ExpressionUUID->"64cfaf38-af20-4788-8b95-3b0770c267ce"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"J2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{3.991849520751028*^9}, + CellLabel-> + "In[139]:=",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 139, 70, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, + 3.993131011663927*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"e6a2e91e-fea7-4140-a6e9-5b00ffdfb2a0"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 139, 71, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, + 3.9931310116662703`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"4f96666f-4e66-4091-a9d6-2f66e20bccc5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 139, 72, + 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, + 3.993131011668239*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"1395affe-60c6-4fe0-bffa-50a55d4b21a9"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 139, 73, 25985975399914684936, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913372988243732`*^9, 3.993128565582634*^9, + 3.9931310116700897`*^9}, + CellLabel-> + "During evaluation of \ +In[139]:=",ExpressionUUID->"5c3ca0a5-5da6-437e-89a8-a046c6e54f1d"], + +Cell[BoxData["4.847013690076369`"], "Output", + CellChangeTimes->{3.991337302457178*^9, 3.993128568156102*^9, + 3.993131013910429*^9}, + CellLabel-> + "Out[139]=",ExpressionUUID->"cd6b9476-2b2f-4cf4-83fb-514d331cb8a2"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + FractionBox["1", "1"], + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + 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[{"z", "*", "\[Pi]"}], "180"], "]"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], ")"}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"z", ",", "0", ",", "180"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{3.991849523511486*^9}, + CellLabel-> + "In[140]:=",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV1Hk0VVsYAHBDUXHL8BClMhYhXXPi+zKWkAohStx7yENlyhRN8hoUmjQY +KkWesQgZKml4UqaSlHAv0pUxck+Tt/vjrL1+a+/zDfs76yj57NnCFhIQEBgk +z5913yud5eXNr8zd+TbvP41ywHwk28DHKh+8bFykBol7Mg3PqVpVQ3tIbPkf +O7FeiojrPYGxhOqGz8QlkfGPZ1s1wsokGfsh4uNPFz6Mz2uBU1cSTYeJK5v3 +ZfxkvoHI/6QujRLzOhtio6o6oEa/nDVBrNCvsv2b5QfIEgjPmCLeOBprEtrY +DZUu9jY0ce1PnlhkXi9o+Zh5/iJuPyQXcy+YC9Hu63sExzgwImLFm2T2Q1xY +UKsIscipve560wOQN57PFCdeIpn+fF/VIOT+JSooRey46NutEcsv8E+E+OAS +YipLWVZ7zgj82lYhoE4cr7Yp4e/GUbiiejBRm7hD7vXqsLxx0BFgd5sRszwC +dp89NQHGXYeLbYjHrgpcuxP8FXzW1Y5uIp6jrC0xzpyCjogzFb7E51iPbSVk +vsGxdeoWwcTLctzjV01/g8XHPphEERtrHRsJquID69/bocnE/obdjTzLn3Ch +s12inngyMnzWPPVfUF0XJdZKfLBKbK3GnN8QNX9dWA9xGhr/69c4AxfyIfn3 +n/puPrcKyRNEXQOpCRjnQN7Tsz2HFgmhrc2w12bisU87YlNOCWHkzISRL3Gs +5tTd4mBh9P96yPAf4nNFSiqjzNlY0vLM6y1xZ/OX2t83ZuOTYUnTL8TLJso9 +5suIoPfm08cEJziQr++Yqj0tguFqyv7axPWV0YKBVXNwVdFrlxPEU4/bugct +xdE7NvCD21cOSNmLS8TUiqNWFIMfQaz72goZJgzkTa4/f544oK8sa7XOfPxw +9ILza+K9Qo26ZuISWBz8YGDbJAf6lQvHE75J4gWdnx77p8j9UA1zm/SksP+j +Rko6sdC/A0oL90lhW6/khnriZXpLt+QNSaFEp7y59DcOeFgm33nVI418CTuz +cuIm35BQuRcyeER4faocnwMfc06f9J4ji7qlRv3WxF+G8m7ctpbF67Pm3g8j +nhfGbTN9KIv3vLZ/biO2Ouqs710mhxnx4jvTaA7czzacys2Ux7mxardNfnAg +u/97xJowRUzm9L7s+s2B9S6JH0MLFDE+XNFk4QyJXy9tUzCgiK8qh2W2Eutn +a8ksc1+CVqvdVBuI63123J1tvhTnydw+VyPAhYnRnv2DR5ZhN2P0SaUQF6SD +rErvOiijQunbQ6KiXBjInufvFKCMH3a0qjkRV3xoXjR8TBm/ebwwvUTsae91 +RP2hMv439bRGaw4XsldGbLnEVMGaCnsF97lc0OfljMXJqSKH0W/8TIwLzn5i +2na9aqjVNnsFLcEFiHBhbvulhvdTq70cJbmgmZBpxJJXxzCleMFsYoEbehZx +m9VRTsP4rJMUFwo+bt9255E6ZgWNdBdKc0HENf+QwvXlKGKkpHxQltRn5dDO +89HAiKTt/uGLuXBj68X303EaqF3A8+sgPu3T2zPrigbKU9LtpopcYB0MH1rS +poFd5Va/hZdwQbI6XWCrpSbCyYK4S0u5EKA3olmlshJX+n20fKfMhUXKZ+JP +9mlhS/GMUL4GF6pPTGrQQtr4O8k1XF2T3MdX99eUkjZGVqQEXCPOqFfVsNih +jVYZzV1pK7mg7He/lf9WG2990BtM0ib95verUS90UP/bw9Tk1VxQXLSEWuau +i/W64/v4JlzQuhkm/gOYONP8RNTZngs+rCNT2o5M1EyTEesnTlNJ/ejtycTY +GrnDEQ5cEL5eVPw0kokdHpteXHbkQmcGzzm1hImeZ7e8GHTiwvE073QNFT08 +JziWeNmFzPekvY6biD6m2r1Rd9nJhWshqk5ljQYo0i2RsyKMC3c+Pjy58IMB +CjvKBvYT19l5PYsZMsDCcqy6Hs6FPuUL5hbzDDFQcRV/yX4uqLeJajfZGmLO +6oxhxWgu5OsNzf1cZ4jLZ9Y2Gxwk85kseby40gibIosfvTzFheYIMDp60wRz +ozzas3K4oLTjjaNXoBn6WpvZV3G4wJ65V6gYhXi49vSqEqU+kBuqEJXzsUDR +FjfV8uA+CNNb+yFV0worbG2vMx70gc/wz+fSPGvUrQw9NCLTDwUWoaKZTbZ4 +ouD42VMH+iF7MuBR/rkN+MRrzzurT/3AX7fwZX38Rmy4ffX4LNYAdAkIj/fu +csA5t1yLJT8PQPDiPcmHVDahV8fRvt7gT1C4+/nD8wlOGBUtuWZk3iBEf5Wf +Xrl7M+Yo85QW5gzClJ2N67OdW/DXfX9LMc/PYLI9ZV3/5q24bE3LnFZ5HrTK +pwfU6zmj+DdZre43PFC4daQ6d4ULOhl8Pz9QMAQVPZr2jgxXXOBzkrngyBdY +8nrML2LYFUeZCo0PdgyD3vmU/Bs92zC7433fmNsIpM/6qpP62A1Ddqrsd3AY +hXvrVnUmVLpjnWZ9+HPdMUgzOiH5M88DS/WyL76rGYOm9zeP6Z3ajjFL3SN5 +1uNQ5nBVde9BT7wr/E73Tdc4jAdtFQhmeeHZ94yQpXsmYMpGw3/Ecgcyis5n +Kgp8hdzhd/xQw5145+dxCSrzK7hdu+nrJe6Nyo2BFh36k3D3zsadwoneWGrK +HI9unwSTRa30cdobW5wv+9f8PQUqPX6dLbt34W1rhwz1H1PQJ/b3pqvcXeil +L9v+MuUbNJ929LV18UGFoJ+vdBdOw7nITLHwZh+8+oVDa1ybhuraGdp3gy/u +DEOn6cV8WOCJiXr3fbG4KdvNLIEPJt4juQn6LJxZac50GeTDrUtjoY6GLOzb +pXXm9mc+/NU2YS5nzMIHx5Pn/uLxYcR6+nWuKQvZ+wNcrg3zyf9LQLDRgoUr +Xq7F7gk+zJ+WdJfazMLt7Hx53V986EsymJsZxEJjpX8yVSRpOF0Vu7viFgvN +C9klaEhDEPOiSWQuyR9YF+RsRIP97ZK5xnks9Kq8aOZnTMO8iwO3ywtYuNkh +XfbEGhoSQpx490pZGJJTcavenIZYDdW/y+pYaKRCz2LY0hBw8UXgnY8sPC+a +MDHoSsOG+QNrQ3rI+cNZGR+30bAiQYDB5LDw5S0l1zY3GgZCDApK+ll4OcZ7 +oNKDhl2OmcPFX1hYaqGdELODBrfZocFF31mYpZKV2MymwTZUYW++LBtNfm2d +8zCUhrrMY3apC9mYJqDUnRtGw9rGCdVIBTZ68mKSksNp0FV78c5yCRvnlz3b +47mfBvm3MZbv1djI4ZpbDkTTMLSmS3aeARtFc6Z5jw7RcEYoq8ZvKxs3pTGi +Lp4m/a8ST3NwYaPAlFqdxxkajm6PDNHbxkYx05edi5NpiCx1Wj7jwUbe8Meo +9BRSPyWYcsGHjW2fa/2Tz9Gg1+DDerKPjdw8iY61l2l4m6ImppLMRi+G0tHC +bBoKgeE/mMJGQee0XrxJ4g9P1hecZeNPR33dVmLmhvo444ts7HyAWeO3yPwE +fCccMsj5LYnPVG7TYLMn611kPhvZu05LuRTQoKj4jyGZLU5a9extJ55s2HNW +uJiNst8X1LoW0nBdHRxO32Wjas1BVeciGn51dT28cZ+NIb6/FS1KaCi1X5T7 +6jm537i5ObxSGk5+F5p9roGN4NLB9SijwSeXt8u9kY16r44yGoglZt1f1NfE +xt2+Astv3qMhsMrtDN3OxkyG6x7HChpUNC9EqPazMYE5xyyoiobvbw+0fR5g +4/hIwJpG4uYEtm7RINmf91VZs5qGuF59nskXNj42X1DGIe5Ma/Pa9JWN/vca +Om1qaUgVlbSOFqRQaN1bufcPaaie6NoeJkzhlRzBO6sf0fCpKy8keDaFeUXe +48eI15ZaZfnMpbDffONO7TryvXlH/rCTpNC+omVy92NSv721lLU0hfpUelkZ +samRlAbIUKh76amCQD0NyYx8Vz15CtcmvWpJJja9312ySIlC+S8Lx649oYG6 +mf9cRoXCs+9Wt3CIk5OjuheoUcgXHXFRfkryUdKMWRoUXk3/sSGdOFna1v+L +LoWJGw06Dz+j4f5v6fgBJoU6pTrtFcT9n3vO9+hT+J+MTvgw8ZqH0Y9fG1MY +/4h/ZctzGvoCC5fUIOlvxfAJ8f9omO8WY1BuQWHtRYt0I2ITy/X2JVYU+rUq +btlFfFqeE3VzPYUWZjo3iokrZhUlZ9pRKPl+PbQTc0djci7ZU3h3aemB78TG +T2XeJDlRyIi37zVvIPMu4QwlbqFQtchHZCdx0tUiocPOFL4tvvLyADEnZINu +hBuF9dsdLMqJGTtkbfd6ULjm8Z3RFmLjDVyvAE8KGyP/gqE/7y89cHKHN8nv +/O9j+Reknnl21918yH5vM1+HmDMlW7mFRWFdUluTBTGjl9tkT1FoVpK/3oXY +uLF4wMafwjcKrr4UsU/5gV8YQOGJ+Q1LI4iTrtv9ZRpIYam1cNzRP/GT5FYa +BFMoPvrzQMqf+JF961btJfUW3lmaTizOKnHTCKHQP2OZbw6x0aa4PSphFP62 +t1xf/Cf+mo3HFCMo/F4r11ROfEptYbpcJIWWwVema4jvSfTflYym0NCu8VEd +ce+PkgaxWApvledqP/0T/1Nc7+w4CvuSV5k+JzZs3cifiaewXM2b98f/A17v +GY0= + "]]}, + 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:eJwV1Hk0VVsYAHBDUXHL8BClMhYhXXPi+zKWkAohStx7yENlyhRN8hoUmjQY +KkWesQgZKml4UqaSlHAv0pUxck+Tt/vjrL1+a+/zDfs76yj57NnCFhIQEBgk +z5913yud5eXNr8zd+TbvP41ywHwk28DHKh+8bFykBol7Mg3PqVpVQ3tIbPkf +O7FeiojrPYGxhOqGz8QlkfGPZ1s1wsokGfsh4uNPFz6Mz2uBU1cSTYeJK5v3 +ZfxkvoHI/6QujRLzOhtio6o6oEa/nDVBrNCvsv2b5QfIEgjPmCLeOBprEtrY +DZUu9jY0ce1PnlhkXi9o+Zh5/iJuPyQXcy+YC9Hu63sExzgwImLFm2T2Q1xY +UKsIscipve560wOQN57PFCdeIpn+fF/VIOT+JSooRey46NutEcsv8E+E+OAS +YipLWVZ7zgj82lYhoE4cr7Yp4e/GUbiiejBRm7hD7vXqsLxx0BFgd5sRszwC +dp89NQHGXYeLbYjHrgpcuxP8FXzW1Y5uIp6jrC0xzpyCjogzFb7E51iPbSVk +vsGxdeoWwcTLctzjV01/g8XHPphEERtrHRsJquID69/bocnE/obdjTzLn3Ch +s12inngyMnzWPPVfUF0XJdZKfLBKbK3GnN8QNX9dWA9xGhr/69c4AxfyIfn3 +n/puPrcKyRNEXQOpCRjnQN7Tsz2HFgmhrc2w12bisU87YlNOCWHkzISRL3Gs +5tTd4mBh9P96yPAf4nNFSiqjzNlY0vLM6y1xZ/OX2t83ZuOTYUnTL8TLJso9 +5suIoPfm08cEJziQr++Yqj0tguFqyv7axPWV0YKBVXNwVdFrlxPEU4/bugct +xdE7NvCD21cOSNmLS8TUiqNWFIMfQaz72goZJgzkTa4/f544oK8sa7XOfPxw +9ILza+K9Qo26ZuISWBz8YGDbJAf6lQvHE75J4gWdnx77p8j9UA1zm/SksP+j +Rko6sdC/A0oL90lhW6/khnriZXpLt+QNSaFEp7y59DcOeFgm33nVI418CTuz +cuIm35BQuRcyeER4faocnwMfc06f9J4ji7qlRv3WxF+G8m7ctpbF67Pm3g8j +nhfGbTN9KIv3vLZ/biO2Ouqs710mhxnx4jvTaA7czzacys2Ux7mxardNfnAg +u/97xJowRUzm9L7s+s2B9S6JH0MLFDE+XNFk4QyJXy9tUzCgiK8qh2W2Eutn +a8ksc1+CVqvdVBuI63123J1tvhTnydw+VyPAhYnRnv2DR5ZhN2P0SaUQF6SD +rErvOiijQunbQ6KiXBjInufvFKCMH3a0qjkRV3xoXjR8TBm/ebwwvUTsae91 +RP2hMv439bRGaw4XsldGbLnEVMGaCnsF97lc0OfljMXJqSKH0W/8TIwLzn5i +2na9aqjVNnsFLcEFiHBhbvulhvdTq70cJbmgmZBpxJJXxzCleMFsYoEbehZx +m9VRTsP4rJMUFwo+bt9255E6ZgWNdBdKc0HENf+QwvXlKGKkpHxQltRn5dDO +89HAiKTt/uGLuXBj68X303EaqF3A8+sgPu3T2zPrigbKU9LtpopcYB0MH1rS +poFd5Va/hZdwQbI6XWCrpSbCyYK4S0u5EKA3olmlshJX+n20fKfMhUXKZ+JP +9mlhS/GMUL4GF6pPTGrQQtr4O8k1XF2T3MdX99eUkjZGVqQEXCPOqFfVsNih +jVYZzV1pK7mg7He/lf9WG2990BtM0ib95verUS90UP/bw9Tk1VxQXLSEWuau +i/W64/v4JlzQuhkm/gOYONP8RNTZngs+rCNT2o5M1EyTEesnTlNJ/ejtycTY +GrnDEQ5cEL5eVPw0kokdHpteXHbkQmcGzzm1hImeZ7e8GHTiwvE073QNFT08 +JziWeNmFzPekvY6biD6m2r1Rd9nJhWshqk5ljQYo0i2RsyKMC3c+Pjy58IMB +CjvKBvYT19l5PYsZMsDCcqy6Hs6FPuUL5hbzDDFQcRV/yX4uqLeJajfZGmLO +6oxhxWgu5OsNzf1cZ4jLZ9Y2Gxwk85kseby40gibIosfvTzFheYIMDp60wRz +ozzas3K4oLTjjaNXoBn6WpvZV3G4wJ65V6gYhXi49vSqEqU+kBuqEJXzsUDR +FjfV8uA+CNNb+yFV0worbG2vMx70gc/wz+fSPGvUrQw9NCLTDwUWoaKZTbZ4 +ouD42VMH+iF7MuBR/rkN+MRrzzurT/3AX7fwZX38Rmy4ffX4LNYAdAkIj/fu +csA5t1yLJT8PQPDiPcmHVDahV8fRvt7gT1C4+/nD8wlOGBUtuWZk3iBEf5Wf +Xrl7M+Yo85QW5gzClJ2N67OdW/DXfX9LMc/PYLI9ZV3/5q24bE3LnFZ5HrTK +pwfU6zmj+DdZre43PFC4daQ6d4ULOhl8Pz9QMAQVPZr2jgxXXOBzkrngyBdY +8nrML2LYFUeZCo0PdgyD3vmU/Bs92zC7433fmNsIpM/6qpP62A1Ddqrsd3AY +hXvrVnUmVLpjnWZ9+HPdMUgzOiH5M88DS/WyL76rGYOm9zeP6Z3ajjFL3SN5 +1uNQ5nBVde9BT7wr/E73Tdc4jAdtFQhmeeHZ94yQpXsmYMpGw3/Ecgcyis5n +Kgp8hdzhd/xQw5145+dxCSrzK7hdu+nrJe6Nyo2BFh36k3D3zsadwoneWGrK +HI9unwSTRa30cdobW5wv+9f8PQUqPX6dLbt34W1rhwz1H1PQJ/b3pqvcXeil +L9v+MuUbNJ929LV18UGFoJ+vdBdOw7nITLHwZh+8+oVDa1ybhuraGdp3gy/u +DEOn6cV8WOCJiXr3fbG4KdvNLIEPJt4juQn6LJxZac50GeTDrUtjoY6GLOzb +pXXm9mc+/NU2YS5nzMIHx5Pn/uLxYcR6+nWuKQvZ+wNcrg3zyf9LQLDRgoUr +Xq7F7gk+zJ+WdJfazMLt7Hx53V986EsymJsZxEJjpX8yVSRpOF0Vu7viFgvN +C9klaEhDEPOiSWQuyR9YF+RsRIP97ZK5xnks9Kq8aOZnTMO8iwO3ywtYuNkh +XfbEGhoSQpx490pZGJJTcavenIZYDdW/y+pYaKRCz2LY0hBw8UXgnY8sPC+a +MDHoSsOG+QNrQ3rI+cNZGR+30bAiQYDB5LDw5S0l1zY3GgZCDApK+ll4OcZ7 +oNKDhl2OmcPFX1hYaqGdELODBrfZocFF31mYpZKV2MymwTZUYW++LBtNfm2d +8zCUhrrMY3apC9mYJqDUnRtGw9rGCdVIBTZ68mKSksNp0FV78c5yCRvnlz3b +47mfBvm3MZbv1djI4ZpbDkTTMLSmS3aeARtFc6Z5jw7RcEYoq8ZvKxs3pTGi +Lp4m/a8ST3NwYaPAlFqdxxkajm6PDNHbxkYx05edi5NpiCx1Wj7jwUbe8Meo +9BRSPyWYcsGHjW2fa/2Tz9Gg1+DDerKPjdw8iY61l2l4m6ImppLMRi+G0tHC +bBoKgeE/mMJGQee0XrxJ4g9P1hecZeNPR33dVmLmhvo444ts7HyAWeO3yPwE +fCccMsj5LYnPVG7TYLMn611kPhvZu05LuRTQoKj4jyGZLU5a9extJ55s2HNW +uJiNst8X1LoW0nBdHRxO32Wjas1BVeciGn51dT28cZ+NIb6/FS1KaCi1X5T7 +6jm537i5ObxSGk5+F5p9roGN4NLB9SijwSeXt8u9kY16r44yGoglZt1f1NfE +xt2+Astv3qMhsMrtDN3OxkyG6x7HChpUNC9EqPazMYE5xyyoiobvbw+0fR5g +4/hIwJpG4uYEtm7RINmf91VZs5qGuF59nskXNj42X1DGIe5Ma/Pa9JWN/vca +Om1qaUgVlbSOFqRQaN1bufcPaaie6NoeJkzhlRzBO6sf0fCpKy8keDaFeUXe +48eI15ZaZfnMpbDffONO7TryvXlH/rCTpNC+omVy92NSv721lLU0hfpUelkZ +samRlAbIUKh76amCQD0NyYx8Vz15CtcmvWpJJja9312ySIlC+S8Lx649oYG6 +mf9cRoXCs+9Wt3CIk5OjuheoUcgXHXFRfkryUdKMWRoUXk3/sSGdOFna1v+L +LoWJGw06Dz+j4f5v6fgBJoU6pTrtFcT9n3vO9+hT+J+MTvgw8ZqH0Y9fG1MY +/4h/ZctzGvoCC5fUIOlvxfAJ8f9omO8WY1BuQWHtRYt0I2ITy/X2JVYU+rUq +btlFfFqeE3VzPYUWZjo3iokrZhUlZ9pRKPl+PbQTc0djci7ZU3h3aemB78TG +T2XeJDlRyIi37zVvIPMu4QwlbqFQtchHZCdx0tUiocPOFL4tvvLyADEnZINu +hBuF9dsdLMqJGTtkbfd6ULjm8Z3RFmLjDVyvAE8KGyP/gqE/7y89cHKHN8nv +/O9j+Reknnl21918yH5vM1+HmDMlW7mFRWFdUluTBTGjl9tkT1FoVpK/3oXY +uLF4wMafwjcKrr4UsU/5gV8YQOGJ+Q1LI4iTrtv9ZRpIYam1cNzRP/GT5FYa +BFMoPvrzQMqf+JF961btJfUW3lmaTizOKnHTCKHQP2OZbw6x0aa4PSphFP62 +t1xf/Cf+mo3HFCMo/F4r11ROfEptYbpcJIWWwVema4jvSfTflYym0NCu8VEd +ce+PkgaxWApvledqP/0T/1Nc7+w4CvuSV5k+JzZs3cifiaewXM2b98f/A17v +GY0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5917853625067081, + 1.6122521548553388`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5917853625067094}, + "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.5917853625067081, + 1.6122521548553388`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5917853625067094}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV1Hk0VVsYAHBDUXHL8BClMhYhXXPi+zKWkAohStx7yENlyhRN8hoUmjQY +KkWesQgZKml4UqaSlHAv0pUxck+Tt/vjrL1+a+/zDfs76yj57NnCFhIQEBgk +z5913yud5eXNr8zd+TbvP41ywHwk28DHKh+8bFykBol7Mg3PqVpVQ3tIbPkf +O7FeiojrPYGxhOqGz8QlkfGPZ1s1wsokGfsh4uNPFz6Mz2uBU1cSTYeJK5v3 +ZfxkvoHI/6QujRLzOhtio6o6oEa/nDVBrNCvsv2b5QfIEgjPmCLeOBprEtrY +DZUu9jY0ce1PnlhkXi9o+Zh5/iJuPyQXcy+YC9Hu63sExzgwImLFm2T2Q1xY +UKsIscipve560wOQN57PFCdeIpn+fF/VIOT+JSooRey46NutEcsv8E+E+OAS +YipLWVZ7zgj82lYhoE4cr7Yp4e/GUbiiejBRm7hD7vXqsLxx0BFgd5sRszwC +dp89NQHGXYeLbYjHrgpcuxP8FXzW1Y5uIp6jrC0xzpyCjogzFb7E51iPbSVk +vsGxdeoWwcTLctzjV01/g8XHPphEERtrHRsJquID69/bocnE/obdjTzLn3Ch +s12inngyMnzWPPVfUF0XJdZKfLBKbK3GnN8QNX9dWA9xGhr/69c4AxfyIfn3 +n/puPrcKyRNEXQOpCRjnQN7Tsz2HFgmhrc2w12bisU87YlNOCWHkzISRL3Gs +5tTd4mBh9P96yPAf4nNFSiqjzNlY0vLM6y1xZ/OX2t83ZuOTYUnTL8TLJso9 +5suIoPfm08cEJziQr++Yqj0tguFqyv7axPWV0YKBVXNwVdFrlxPEU4/bugct +xdE7NvCD21cOSNmLS8TUiqNWFIMfQaz72goZJgzkTa4/f544oK8sa7XOfPxw +9ILza+K9Qo26ZuISWBz8YGDbJAf6lQvHE75J4gWdnx77p8j9UA1zm/SksP+j +Rko6sdC/A0oL90lhW6/khnriZXpLt+QNSaFEp7y59DcOeFgm33nVI418CTuz +cuIm35BQuRcyeER4faocnwMfc06f9J4ji7qlRv3WxF+G8m7ctpbF67Pm3g8j +nhfGbTN9KIv3vLZ/biO2Ouqs710mhxnx4jvTaA7czzacys2Ux7mxardNfnAg +u/97xJowRUzm9L7s+s2B9S6JH0MLFDE+XNFk4QyJXy9tUzCgiK8qh2W2Eutn +a8ksc1+CVqvdVBuI63123J1tvhTnydw+VyPAhYnRnv2DR5ZhN2P0SaUQF6SD +rErvOiijQunbQ6KiXBjInufvFKCMH3a0qjkRV3xoXjR8TBm/ebwwvUTsae91 +RP2hMv439bRGaw4XsldGbLnEVMGaCnsF97lc0OfljMXJqSKH0W/8TIwLzn5i +2na9aqjVNnsFLcEFiHBhbvulhvdTq70cJbmgmZBpxJJXxzCleMFsYoEbehZx +m9VRTsP4rJMUFwo+bt9255E6ZgWNdBdKc0HENf+QwvXlKGKkpHxQltRn5dDO +89HAiKTt/uGLuXBj68X303EaqF3A8+sgPu3T2zPrigbKU9LtpopcYB0MH1rS +poFd5Va/hZdwQbI6XWCrpSbCyYK4S0u5EKA3olmlshJX+n20fKfMhUXKZ+JP +9mlhS/GMUL4GF6pPTGrQQtr4O8k1XF2T3MdX99eUkjZGVqQEXCPOqFfVsNih +jVYZzV1pK7mg7He/lf9WG2990BtM0ib95verUS90UP/bw9Tk1VxQXLSEWuau +i/W64/v4JlzQuhkm/gOYONP8RNTZngs+rCNT2o5M1EyTEesnTlNJ/ejtycTY +GrnDEQ5cEL5eVPw0kokdHpteXHbkQmcGzzm1hImeZ7e8GHTiwvE073QNFT08 +JziWeNmFzPekvY6biD6m2r1Rd9nJhWshqk5ljQYo0i2RsyKMC3c+Pjy58IMB +CjvKBvYT19l5PYsZMsDCcqy6Hs6FPuUL5hbzDDFQcRV/yX4uqLeJajfZGmLO +6oxhxWgu5OsNzf1cZ4jLZ9Y2Gxwk85kseby40gibIosfvTzFheYIMDp60wRz +ozzas3K4oLTjjaNXoBn6WpvZV3G4wJ65V6gYhXi49vSqEqU+kBuqEJXzsUDR +FjfV8uA+CNNb+yFV0worbG2vMx70gc/wz+fSPGvUrQw9NCLTDwUWoaKZTbZ4 +ouD42VMH+iF7MuBR/rkN+MRrzzurT/3AX7fwZX38Rmy4ffX4LNYAdAkIj/fu +csA5t1yLJT8PQPDiPcmHVDahV8fRvt7gT1C4+/nD8wlOGBUtuWZk3iBEf5Wf +Xrl7M+Yo85QW5gzClJ2N67OdW/DXfX9LMc/PYLI9ZV3/5q24bE3LnFZ5HrTK +pwfU6zmj+DdZre43PFC4daQ6d4ULOhl8Pz9QMAQVPZr2jgxXXOBzkrngyBdY +8nrML2LYFUeZCo0PdgyD3vmU/Bs92zC7433fmNsIpM/6qpP62A1Ddqrsd3AY +hXvrVnUmVLpjnWZ9+HPdMUgzOiH5M88DS/WyL76rGYOm9zeP6Z3ajjFL3SN5 +1uNQ5nBVde9BT7wr/E73Tdc4jAdtFQhmeeHZ94yQpXsmYMpGw3/Ecgcyis5n +Kgp8hdzhd/xQw5145+dxCSrzK7hdu+nrJe6Nyo2BFh36k3D3zsadwoneWGrK +HI9unwSTRa30cdobW5wv+9f8PQUqPX6dLbt34W1rhwz1H1PQJ/b3pqvcXeil +L9v+MuUbNJ929LV18UGFoJ+vdBdOw7nITLHwZh+8+oVDa1ybhuraGdp3gy/u +DEOn6cV8WOCJiXr3fbG4KdvNLIEPJt4juQn6LJxZac50GeTDrUtjoY6GLOzb +pXXm9mc+/NU2YS5nzMIHx5Pn/uLxYcR6+nWuKQvZ+wNcrg3zyf9LQLDRgoUr +Xq7F7gk+zJ+WdJfazMLt7Hx53V986EsymJsZxEJjpX8yVSRpOF0Vu7viFgvN +C9klaEhDEPOiSWQuyR9YF+RsRIP97ZK5xnks9Kq8aOZnTMO8iwO3ywtYuNkh +XfbEGhoSQpx490pZGJJTcavenIZYDdW/y+pYaKRCz2LY0hBw8UXgnY8sPC+a +MDHoSsOG+QNrQ3rI+cNZGR+30bAiQYDB5LDw5S0l1zY3GgZCDApK+ll4OcZ7 +oNKDhl2OmcPFX1hYaqGdELODBrfZocFF31mYpZKV2MymwTZUYW++LBtNfm2d +8zCUhrrMY3apC9mYJqDUnRtGw9rGCdVIBTZ68mKSksNp0FV78c5yCRvnlz3b +47mfBvm3MZbv1djI4ZpbDkTTMLSmS3aeARtFc6Z5jw7RcEYoq8ZvKxs3pTGi +Lp4m/a8ST3NwYaPAlFqdxxkajm6PDNHbxkYx05edi5NpiCx1Wj7jwUbe8Meo +9BRSPyWYcsGHjW2fa/2Tz9Gg1+DDerKPjdw8iY61l2l4m6ImppLMRi+G0tHC +bBoKgeE/mMJGQee0XrxJ4g9P1hecZeNPR33dVmLmhvo444ts7HyAWeO3yPwE +fCccMsj5LYnPVG7TYLMn611kPhvZu05LuRTQoKj4jyGZLU5a9extJ55s2HNW +uJiNst8X1LoW0nBdHRxO32Wjas1BVeciGn51dT28cZ+NIb6/FS1KaCi1X5T7 +6jm537i5ObxSGk5+F5p9roGN4NLB9SijwSeXt8u9kY16r44yGoglZt1f1NfE +xt2+Astv3qMhsMrtDN3OxkyG6x7HChpUNC9EqPazMYE5xyyoiobvbw+0fR5g +4/hIwJpG4uYEtm7RINmf91VZs5qGuF59nskXNj42X1DGIe5Ma/Pa9JWN/vca +Om1qaUgVlbSOFqRQaN1bufcPaaie6NoeJkzhlRzBO6sf0fCpKy8keDaFeUXe +48eI15ZaZfnMpbDffONO7TryvXlH/rCTpNC+omVy92NSv721lLU0hfpUelkZ +samRlAbIUKh76amCQD0NyYx8Vz15CtcmvWpJJja9312ySIlC+S8Lx649oYG6 +mf9cRoXCs+9Wt3CIk5OjuheoUcgXHXFRfkryUdKMWRoUXk3/sSGdOFna1v+L +LoWJGw06Dz+j4f5v6fgBJoU6pTrtFcT9n3vO9+hT+J+MTvgw8ZqH0Y9fG1MY +/4h/ZctzGvoCC5fUIOlvxfAJ8f9omO8WY1BuQWHtRYt0I2ITy/X2JVYU+rUq +btlFfFqeE3VzPYUWZjo3iokrZhUlZ9pRKPl+PbQTc0djci7ZU3h3aemB78TG +T2XeJDlRyIi37zVvIPMu4QwlbqFQtchHZCdx0tUiocPOFL4tvvLyADEnZINu +hBuF9dsdLMqJGTtkbfd6ULjm8Z3RFmLjDVyvAE8KGyP/gqE/7y89cHKHN8nv +/O9j+Reknnl21918yH5vM1+HmDMlW7mFRWFdUluTBTGjl9tkT1FoVpK/3oXY +uLF4wMafwjcKrr4UsU/5gV8YQOGJ+Q1LI4iTrtv9ZRpIYam1cNzRP/GT5FYa +BFMoPvrzQMqf+JF961btJfUW3lmaTizOKnHTCKHQP2OZbw6x0aa4PSphFP62 +t1xf/Cf+mo3HFCMo/F4r11ROfEptYbpcJIWWwVema4jvSfTflYym0NCu8VEd +ce+PkgaxWApvledqP/0T/1Nc7+w4CvuSV5k+JzZs3cifiaewXM2b98f/A17v +GY0= + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 180}, {0.5917853625067081, 1.6122521548553388`}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0.5917853625067094}, + "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.5917853625067094}, + 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.5917853625067081, 1.6122521548553388`}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.991337564416748*^9, 3.9931287585478888`*^9}, + CellLabel-> + "(Debug) Out[325]=",ExpressionUUID->"b7dadcdb-0cb1-491b-9de2-cc40be12ed2b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x", "=", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + FractionBox[ + RowBox[{"4", "x", "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}], ",", + RowBox[{"{", + RowBox[{"x", ",", "0", ",", "30"}], "}"}]}], "]"}]}]], "Input", + CellChangeTimes->{ + 3.9918495265156612`*^9, {3.991849580574194*^9, 3.9918495807911797`*^9}}, + CellLabel-> + "(Debug) In[326]:=",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.4802297553517854`*^-265\\\", \ +\\\"384956219213331276939737002152967117209600000000\\\"]\\) is too small to \ +represent as a normalized machine number; precision may be lost.\"", 2, 326, + 91, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.993128758774954*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[326]:=",ExpressionUUID->"1d46097d-8b7e-41f6-905d-96dc4018a19c"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.3304908563463025`*^-276\\\", \ +\\\"240597637008332048087335626345604448256000000000000\\\"]\\) is too small \ +to represent as a normalized machine number; precision may be lost.\"", 2, + 326, 92, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9931287587775593`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[326]:=",ExpressionUUID->"66622d03-1fee-48a8-ac48-ebd8f33b7ad5"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"3.187194560114644`*^-287\\\", \ +\\\"162644002617632464507038883409628607021056000000000000\\\"]\\) is too \ +small to represent as a normalized machine number; precision may be lost.\"", + 2, 326, 93, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.993128758779606*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[326]:=",ExpressionUUID->"92491d40-9f3e-4cd6-8c8e-fa15f51bce36"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 326, 94, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991337564646551*^9, 3.9931287587816772`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[326]:=",ExpressionUUID->"68e04625-4642-437f-a255-a2a663de8d07"], + +Cell[BoxData[ + GraphicsBox[ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl +SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw +CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x +sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf +NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc +f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM +H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 +c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ +KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB +ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ +AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP +EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA +5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz +gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe +aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN +pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM +xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T +XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ +rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B +L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W +Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm +awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ +ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft +WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta +GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr ++vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH +m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw +NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 +UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh +77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo +DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw +YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw +/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt +x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM +zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe +QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F +WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh +u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ +eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 +LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC +S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb +tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD +hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q +P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 +vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof +yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt +Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl +8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 +odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV +87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO +EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 +OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz +jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR +/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ +Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 +J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V +d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T +MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ +fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf +/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 +xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz +mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd +GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX +ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 +WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q +0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt +EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 +Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG +cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ +AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE +XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF +8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs +PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc +SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr +kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb +Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X +dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi +gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko +Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec +Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl +sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z +dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR +LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 +IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF +7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP +L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE +GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 +V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo +ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE +t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL +WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + "]]}, + 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:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl +SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw +CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x +sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf +NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc +f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM +H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 +c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ +KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB +ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ +AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP +EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA +5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz +gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe +aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN +pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM +xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T +XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ +rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B +L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W +Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm +awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ +ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft +WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta +GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr ++vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH +m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw +NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 +UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh +77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo +DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw +YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw +/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt +x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM +zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe +QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F +WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh +u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ +eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 +LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC +S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb +tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD +hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q +P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 +vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof +yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt +Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl +8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 +odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV +87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO +EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 +OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz +jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR +/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ +Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 +J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V +d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T +MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ +fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf +/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 +xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz +mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd +GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX +ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 +WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q +0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt +EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 +Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG +cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ +AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE +XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF +8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs +PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc +SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr +kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb +Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X +dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi +gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko +Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec +Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl +sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z +dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR +LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 +IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF +7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP +L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE +GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 +V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo +ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE +t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL +WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl +SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw +CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x +sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf +NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc +f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM +H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 +c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ +KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB +ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ +AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP +EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA +5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz +gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe +aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN +pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM +xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T +XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ +rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B +L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W +Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm +awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ +ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft +WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta +GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr ++vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH +m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw +NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 +UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh +77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo +DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw +YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw +/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt +x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM +zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe +QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F +WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh +u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ +eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 +LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC +S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb +tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD +hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q +P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 +vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof +yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt +Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl +8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 +odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV +87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO +EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 +OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz +jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR +/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ +Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 +J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V +d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T +MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ +fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf +/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 +xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz +mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd +GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX +ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 +WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q +0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt +EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 +Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG +cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ +AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE +XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF +8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs +PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc +SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr +kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb +Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X +dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi +gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko +Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec +Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl +sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z +dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR +LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 +IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF +7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP +L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE +GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 +V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo +ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE +t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL +WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, + "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], + AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], + Axes->{True, True}, + AxesLabel->{None, None}, + AxesOrigin->{0, 0}, + DisplayFunction->Identity, + Frame->{{False, False}, {False, False}}, + FrameLabel->{{None, None}, {None, None}}, + FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, + GridLines->{None, None}, + GridLinesStyle->Directive[ + GrayLevel[0.5, 0.4]], + ImagePadding->All, + Method->{ + "DefaultBoundaryStyle" -> Automatic, + "DefaultGraphicsInteraction" -> { + "Version" -> 1.2, "TrackMousePosition" -> {True, False}, + "Effects" -> { + "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, + "Droplines" -> { + "freeformCursorMode" -> True, + "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> + AbsolutePointSize[6], "ScalingFunctions" -> None, + "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& ), "CopiedValueFunction" -> ({ + (Identity[#]& )[ + Part[#, 1]], + (Identity[#]& )[ + Part[#, 2]]}& )}}, + PlotRange->{{0, 30}, {0., 0.06933578210674354}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.9913381496467495`*^9, 3.993129007887402*^9}, + CellLabel-> + "(Debug) Out[326]=",ExpressionUUID->"ebac424d-0249-44fb-b9cd-12d07f270f8a"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Show", "[", + RowBox[{"x", ",", "xx"}], "]"}]], "Input", + CellChangeTimes->{{3.9917994642649307`*^9, 3.991799466675585*^9}}, + CellLabel-> + "(Debug) In[327]:=",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], + +Cell[BoxData[ + GraphicsBox[{ + InterpretationBox[{ + TagBox[{{{}, {}, + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], + Opacity[1.], LineBox[CompressedData[" +1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl +SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw +CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x +sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf +NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc +f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM +H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 +c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ +KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB +ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ +AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP +EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA +5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz +gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe +aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN +pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM +xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T +XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ +rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B +L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W +Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm +awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ +ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft +WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta +GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr ++vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH +m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw +NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 +UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh +77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo +DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw +YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw +/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt +x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM +zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe +QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F +WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh +u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ +eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 +LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC +S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb +tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD +hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q +P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 +vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof +yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt +Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl +8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 +odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV +87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO +EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 +OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz +jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR +/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ +Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 +J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V +d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T +MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ +fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf +/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 +xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz +mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd +GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX +ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 +WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q +0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt +EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 +Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG +cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ +AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE +XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF +8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs +PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc +SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr +kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb +Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X +dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi +gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko +Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec +Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl +sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z +dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR +LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 +IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF +7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP +L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE +GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 +V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo +ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE +t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL +WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + "]]}, + 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:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl +SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw +CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x +sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf +NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc +f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM +H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 +c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ +KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB +ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ +AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP +EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA +5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz +gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe +aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN +pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM +xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T +XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ +rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B +L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W +Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm +awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ +ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft +WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta +GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr ++vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH +m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw +NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 +UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh +77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo +DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw +YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw +/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt +x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM +zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe +QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F +WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh +u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ +eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 +LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC +S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb +tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD +hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q +P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 +vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof +yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt +Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl +8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 +odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV +87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO +EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 +OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz +jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR +/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ +Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 +J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V +d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T +MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ +fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf +/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 +xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz +mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd +GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX +ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 +WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q +0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt +EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 +Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG +cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ +AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE +XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF +8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs +PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc +SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr +kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb +Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X +dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi +gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko +Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec +Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl +sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z +dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR +LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 +IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF +7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP +L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE +GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 +V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo +ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE +t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL +WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>]]& )[<| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> + False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>], + ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { + 4.503599627370496*^15, -4.503599627370496*^15}}], + Selectable->False]}, + Annotation[{{{{}, {}, + Annotation[{ + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Line[CompressedData[" +1:eJwV13k0Vd0bB3CREFKUmXvPdU0ZSiTi9jwiJUqGzBUVpYRkKJEhSqFEmTNl +SBnuiYQMhaRIXlGoyJDkLUOmSt5+5/fXWZ911tp77bOf57v3IQ57WbpycnBw +CCzj4Pj/c77/RRMzOnfbaKKPVYi6wbauDPFzBj3hcGGPlGxsJA1w3evD4j3x +sDLk0rxR5Abw33fvHVdPDkT7mQ6vjQRYMyEW/+vdAyjntfzQFmEOAzV7vWbf +NcC9j45fxi4eAmPm+Mfpd50gJH3GJSDUC36923Jr6t0QXDNuFmzyCYFGw4Lc +f3JmQErrui23YRxID1SNHlZdgn8XHawXB5JgrcehezyGXJiQab8jnjsT4jWM +H+/dz4vXy0J2myjdgd7kjU+mVwtijHfijl9m+RCdG/KaU2INEi5ponEuhSB2 +c/hKwm0RfLWOlMaVRSCu8jDiZ74IBquyhnxEikCy4VLIAbYI2t6Y1MmSLgLZ +KWU/xUYRfDtMvzWuXgTyZt7Oj8dEULfg6hjLqgg0ly9pD2uuxYi2D38/phaB +ua/oyKaXa/FLpKPXH/liuGxtsq1zfh2W1+TzBamUgGR5uyTnMlGUrok8MaNZ +AiUi1gsa/KJ4Xu8S/ah+CbztPMi+QRPFlGm9KI09JcC08GVY7BJFvW5NtSDP +EmjYk7miI0UUNV9I8neUlsCS8Vz7K30xvHzcLsJDrRTi8gPvLxmLYfFW2oTA +5lJgruCIUrMQw4MByjfz9UvB7NlKg1hXMVTPuxb/zLQUUg3pZWbXxNCH2bHz +gXsp6KBpUuuAGH7tqF5nnFsKZ3SzD70IF8dnBz6NKK9kw+6sVbOmMeJoFFPe +aSXIBgZPUFT7LXGMnzR5HriaDR1dNuSbu+Koy63ZVC/KBnVvAa7+dnHc1BnN +pyDHhrH8gPwfkhL40aCy8IgeG5zW7v0uVSaBQeeZ93Lc2aB5/nFYRo0EPtWM +xlMebFg5pCRKNEug+Jdt77W82FBVygUKvRJYey5Q5rEvG0RNq+I2/pXAT15T +XXdCqPnDmFo7TCWRP0tt9ehNNhhN/g70HJbEeSDH1GrZcG7XzfVPv0ni2kT/ +rzH1bCjJVusTmZdEpqW14NenbBC3dtat4pVC5hV2XXIzG75VPlvgUpfCtN3B +L7tfsyEhPM435awUiqyJud08yIahdQqeTYLSmOM9KRLBRYKYV72MmJg0xv4W +Ji9zk2DWYvfKnS6Npaei/aJ4SKgIjFYV0pTGD03afmH8JFwdmBq3t5PGKOUm +awsREjYVPj42mSONnF13nh5nkBCmb+EiqSODadpZgwHbSNh1MOPHlu0y+E2/ +ocMISVgV+u/F/WYy6Bhd4blqOwnpjZH5cc4y2B8XVpm0g4TK3dX/rrgig1ft +WmPDzUiYspPzn+mVQZE3bxKq7El4FOjNs2ZEBo9pdKRbOJJwIb02WX1CBmta +GxxGnUgQ+GT72J1TFpXHtBe4nUlQPBbD8Wm9LA4N7ayTcSPhoN/c1bbzsjhr ++vBL6WkS5JO2S49HyqJH6T5fkTMk9f2uF/PEyWJWK3ftGV8SAv8od2zPlUUH +m7sR6wNIuHXx4LqqNllcznHmt3cQCW03nmfmydBwl477lMslEhLK1mo0KtIw +NUIt8MZlEhy6XRo+adDQIU+xpTaKhDHxPyNSxjQsqPz8QCCaBK6sjevjPWn4 +UbCn8+J1EraWpJRfqKehSLp09bskEozetS9NtNDQLSCBuzGZhL0cy3ce6qTh +77uqUfdTSDhi6dkLn2lIJFdo+aaRYHyeCAnlpmMW57DOSAYJrUI1d3RW0jFo +DcO0KpOEfbk2LVOr6HjupH9ydBYJjq+i17iI01H3vOuoYg4J3rT5OwYqdIxw +YR+APBLmyuJafm2gY4P9mM1/lAN3qXwntehoq2J9vTqfhMjTztqMbXT85+Rw +/fq7JKQ2vmzhtKDjja0v1cfvkdB0LPN7oz8dh5O0aj+XkmDyR1c46Dwda/mt +x8+ySWiP69LWCqVjidvRQ3wkCb1VfKG5V6j5Fm/LMR6QMMHvKxyZTkeTgYtM +zXISzmSt2sLKpmMZa3M2m/JPrULHuTw6Ho31PaHykPqeB/tzXUvpqFC4MCJe +QYI4e9cW4wY62n0ovvrmEQm3jYYd/2um4xX740F6lSQweoNDK1rpKBfmX59F +WY2z7IVCNx3/u/VH70gVCQ8S90z099LxlG+x/xPKOipjwkn9dOzsl+OWqiZh +u7WME88YHQ/z9tFaKD8fexRa/42Oa+7ZFks+pvop2DIvYJqOP9NEb5ygbJt/ +eeLLbzqKzvQd4KwhwePndGiLIIHe4hqywrXU/p92Ex0VJtAkLd3fmjLveN99 +LnECYyt5yhMo571vfLuNQWCnitIgbx0JvtY6Hk6KBOoZR3Zuo7z9VdGyQFUC +S8I1ik5T7q+7pfpQm0DXyddS7ZSLtqxs6NQjcLu3d9kC5UD2BdspJFC1rEZb +tp7qV+WZb4LGBAZ/ic03oCyacyxcxZRARf46rsOURyQ/iJnsI5BvXNE8hPKD +hH3FbvsJPC5TcCWFcqjAs+0RDgQa8ouXsymbR+r2ZB8isPWz7esmyrL/FZ+q +P0pg/T2jD92Uv/kzuD66E/iOUft+mHL1ZGLyb08C6YNZ7ROUo47zq4v7Eui3 +vePhPGWbwZDGzeeo9Xuoxi9SZjrM2lldILBhb9LRJco/Oo9PeF8k8EnGjNof +yk9MP168FkVgRh9zcoHytSYLiaJYAr8bCxVOUXZiNZe8iCfQaSLJaZTy+oqt +Rl+SCJTOzl3ZS/mXemnv8tsEGs9KlbdQbimQ82LkEIgGn+0fUk6kJy/HAgKl +8sb+ZFA+miKQeqCIQA4OoYxIypuEwzacJwm8OmuwzZ0yR/RcU3IFgeu/nOw3 +odzOdcKh4jGBMUsBIYqU04P6J988IfCPjCWDk/LJOcvI6WfUeiZGn/dS+7XV +87mkUCuBEd1yp0so837RY6t2EFgxPy8bSjm3h/n+WB+BchulYyQp+1ikeEcO +EOi/Y++eYap+8KXgijsjBDKuvRUtpPzx8fzG/gkCjVrIZhXKRVonmxdnCBS5 +OV4yRtVnYPGAo8QvAh8Y77iTQ1k0s+WSNRcDdVdplQtSHhFjSfvwMrCtuayz +jqrvB3EkeV2QgUZFqstOUTYPT/3wUoyBvYyvN55Q/RHl6rHJQJWBX73abxtR +/WTT/+n5QQ0GDrOsbfup/mPa7j8QpM1A/HBHyY/yk13boh4hA72YiaKpVP/+ +Ulndr7afgXYluXpPqX6fvy0ZpunAQNs8IcKY8qyQPFP3EAN1HoxjC5UPEzO6 +J4zcGXg4u0mzqYyEocdH5h2CGRhaPMORRuXNgJpninM4A7OfNXf9P38+ZJ7V +d7vMQONNT8f9qHx6ezE2/PQNBiabiQzuoPLrpemjVVF5DAyQzxZ+VkT1e+1T +MvYeA8/q00RkKTdtaLNOKGWgYVvOAd/7JNSJDKZmVDHQr6y8S5zKwwfvVyo+ +fMVA+W9/3AwKqLw8eRCG5hj4waN9aU02CUkfjw99+c3A6R9qYkjl803zM5Hf +/zJQQLv+6kkqv69pRrX+5JNDgbpbEdW3SQhfJG2FZOVwkp/vk04qVS/R3N76 +xnK4SS6UVhlPgv79oqzERDmccl2h1BJGwnv6/cwdaXL4zKHE6VEotb+JhRmz +mXLYF2PikhtCna9h+emWhXI4bTf6MSCYql+7rORVNXL4wiO/dvk5EpS5b8Zd +GpTDkajXAxVeVD0cOh/qr8rEVdqbuS9S5/HDrnMh8hpM7OD9Na/mQIL17rMX +ujYzcb61pvutHQnxm/2CNgET3wctHmDYkCAo4HV2woKJIzwnyrL2kbC86rC3 +WwATry67b6hH3QemhXc72zQwMatp4NaEKgk9HoyOE8+ZmC+0dENbhaqP5t8Q +0sZEIT0VgyBlEuIC79PuvmVi8XheLYcCCRuHBAZ+jTOxmpZqMSFLgif5+sBt +EXl0VGr+7bSahHHz/Y4jR+VR8MoJwRvTbBiJcbbx4VFAxopKrrRiNniOqzI2 +Ciig1vgRtdD7bFjY+ev799UKuCf/cvqRQuq+xxUf6S6pgE93eZnL57Fh47nG +cmc1BXxfaSV/M50Nwa4KIuZWCijYd+UCPZq6/2379lolUwHPXF5vs+jGBpPJ +AJPP2oqYIuniPSdB3d+O8J4pD1FCA+fuwZ31JdT/hxjn5QZlvHJowM1foRiE +XylcY0+ux5LSMZGG6PsgHVW6T1tbFZf2rktcelQIySq6q0WOqWFss9eFw/MF +8FLSYPPMDXWc/PFjvlAnH7ZKN8RteLsBI1ds4GywyYVVXDm+LuEbMXOM9TMs +PQdkw2j69goaeGcwVJe/NQv45J0qLJ9r4JktR3qfKGeAOkuiNODAJjywkNrc +SE8Dn37hxt0cmrh8wNnsNU8yTM7E7DdJ1kTOEJfn3ftvwc4Nzakmalo4oyEr +kDkUD3UzeosL7VpYcFdLn+YTB56qm/r+cd2MTxNTvP7WxwBr4miXPZ82Nqqb +Bc0+iIIdTPE9gjnaKNs6SZ7eFwlKoVfPNmzZgm5p4jL99uGw3lW3Xr5vC/5X +dYXzDncIuNYdjyg/rYOkmIp916FAqM/qOjq9Thd/JqvQvi35wezdvwsbHumi +gMvytT67feCI/H2+1D1b8SxHTsibXE+YXp+g/WBqK8pyrRmNlXeHytzFwbko +Pcy2sXMyaTsKDkZyqCerj4W2Uoq66i6w1MW7qpGuj9Vyf4o7aC6Q5Trxfrec +Psa+o1X5rHGB0UtVAQ5K+lhiGWX4dtYZfF6Yl57bpI9caU1BkjXOcHVvkGyl +sT4+Z55RjDdzhmq77j9aXvrYpSUupDR+EKROXa5Sf6KPbMUqW7VmR7j2121z +dIM+rjC/sLe31BE4443JL036+GjX2hW3UhxhvIK7MOsFNZ77vgS9U45QzRGR +LPxGH3vGpJWM1jmCw83QgPnP1HjSkrZ6xx0g+fG5zXX8LKzLHD58UcIe1q30 +IPfYslB6KeV0fIEN5BoGB07Zs9DG471/XbwNbAq+ZpjgxEJWysLxxWAb2DvF +7u5xYaGx6IrRAmsbuPR27tcRDxYqt95c/pLTBn7mhGwPDGOhyWP+CaXD+6FP +L+FN/n0WSlzhO8KlZg3H/XLTTUpY+MKvzXCLpDXMlzx0/cZmITH2tTiQxxqE +GT0LGhUsFEhUm9kwZAWmvDLStU9YGEXrXmeVbAU1XflH33Sz0HGJOOXDYwW7 +V1Wq+fewsCCrbzhlzhJ6dr6YF3/PQpIDt3YMW8Js9b9RBz+xUCjE2cn9iSWo +ZW8s/jrOwkFDcyuzQEuo6TPwj/nOwoMmmblfj1vC7rVWsGGKhbUnnoXfsrUE +t8t+//jOsfBkWmyN+GZqvCeXUsV+spCnsoprSs4Swn8nHan+zcJgvo6SbmFL +WK1VqHpgiYWLnTllL5ZZQsap6rm/f6n32Xy8bVMW8D8wqKIs + "]]}, "Charting`Private`Tag#1"]}}, {}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30}, {0., 0.06933578210674354}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + Opacity[1.], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ + Identity[ + Part[#, 1]], + Identity[ + Part[#, 2]]}& ), + "ScalingFunctions" -> {{Identity, Identity}, { + Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, + "Meta" -> <| + "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> + Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], {{}, + InterpretationBox[{ + TagBox[ + TagBox[ + {RGBColor[0.368417, 0.506779, 0.709798], PointSize[ + 0.012833333333333334`], AbsoluteThickness[2], + PointBox[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7WJbbTdgz2R7C+2D/vD8zV+r2aiifwWHjEeZT +y2K2QvkcDi9yGBd+/bATyhdwUFEX3s6VtAfKF3H4suLHfmUtGF/CwTj3/ymv +ybugfBmHIqlFXPVt26F8BYfX4Vby81S3QPlKDk4qzn1r0zdA+SoODEzXVsUK +r4Ly1Rwc9O/sNLi0GMrXcODTcT/hMG8ulK/lEHhLuibRaCqUr+Mg9OPw+Xr+ +Pihfz2HdzsX/n0a1QPkGDtI7mEtPLa6G8g0dmqwDltvsKoTyjRyW9OxgMPFK +h/KNHZinfnxvrBcD5Zs4cN168sFTPQjKN3XIOOVnv6LbBco3c5j5SXGF1F4r +KN/cwf/UkjYzBm0o38Kh87Lntl1zlKB8S4erZ6K4PH7zQ/lWDiFPBAqLtTih +fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q + + "]]}, + 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.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7WJbbTdgz2R7C+2D/vD8zV+r2aiifwWHjEeZT +y2K2QvkcDi9yGBd+/bATyhdwUFEX3s6VtAfKF3H4suLHfmUtGF/CwTj3/ymv +ybugfBmHIqlFXPVt26F8BYfX4Vby81S3QPlKDk4qzn1r0zdA+SoODEzXVsUK +r4Ly1Rwc9O/sNLi0GMrXcODTcT/hMG8ulK/lEHhLuibRaCqUr+Mg9OPw+Xr+ +Pihfz2HdzsX/n0a1QPkGDtI7mEtPLa6G8g0dmqwDltvsKoTyjRyW9OxgMPFK +h/KNHZinfnxvrBcD5Zs4cN168sFTPQjKN3XIOOVnv6LbBco3c5j5SXGF1F4r +KN/cwf/UkjYzBm0o38Kh87Lntl1zlKB8S4erZ6K4PH7zQ/lWDiFPBAqLtTih +fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q + + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, + "PlotRange" -> {{0, 30.}, {0, 0.110871}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.110871}}, + "Frame" -> {{False, False}, {False, False}}, + "AxesOrigin" -> {0, 0}, "ImageSize" -> {360, 360/GoldenRatio}, + "Axes" -> {True, True}, "LabelStyle" -> {}, "AspectRatio" -> + GoldenRatio^(-1), "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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.368417, 0.506779, 0.709798], + AbsoluteThickness[2]], + Point[CompressedData[" +1:eJxTTMoPSmViYGCQB2IQDQN7WJbbTdgz2R7C+2D/vD8zV+r2aiifwWHjEeZT +y2K2QvkcDi9yGBd+/bATyhdwUFEX3s6VtAfKF3H4suLHfmUtGF/CwTj3/ymv +ybugfBmHIqlFXPVt26F8BYfX4Vby81S3QPlKDk4qzn1r0zdA+SoODEzXVsUK +r4Ly1Rwc9O/sNLi0GMrXcODTcT/hMG8ulK/lEHhLuibRaCqUr+Mg9OPw+Xr+ +Pihfz2HdzsX/n0a1QPkGDtI7mEtPLa6G8g0dmqwDltvsKoTyjRyW9OxgMPFK +h/KNHZinfnxvrBcD5Zs4cN168sFTPQjKN3XIOOVnv6LbBco3c5j5SXGF1F4r +KN/cwf/UkjYzBm0o38Kh87Lntl1zlKB8S4erZ6K4PH7zQ/lWDiFPBAqLtTih +fGuH7fF2kYYxb+0gfBsH+9Vnply7/wnKt3VgQAF2Dr1vty74fuyBHQAPh36Q + + "]]}, "Charting`Private`Tag#1"]}}, <| + "HighlightElements" -> <| + "Label" -> {"XYLabel"}, "Ball" -> {"IndicatedBall"}|>, + "LayoutOptions" -> <| + "PanelPlotLayout" -> <||>, "PlotRange" -> {{0, 30.}, {0, 0.110871}}, + "Frame" -> {{False, False}, {False, False}}, "AxesOrigin" -> {0, 0}, + "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, + "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), + "DefaultStyle" -> { + Directive[ + PointSize[0.012833333333333334`], + RGBColor[0.368417, 0.506779, 0.709798], + AbsoluteThickness[2]]}, + "HighlightLabelingFunctions" -> <|"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}, + 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, 30}, {0., 0.06933578210674354}}, + PlotRangeClipping->True, + PlotRangePadding->{{ + Scaled[0.02], + Scaled[0.02]}, { + Scaled[0.05], + Scaled[0.05]}}, + Ticks->{Automatic, Automatic}]], "Output", + CellChangeTimes->{3.993129007968964*^9}, + CellLabel-> + "(Debug) Out[327]=",ExpressionUUID->"1b3f0e6c-e600-42f2-84ec-8d3b68e20971"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox[ + 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[{"\[Pi]", "*", "Cw", "*", "Cb"}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + FractionBox["1", "Cb"], ")"}]}]], + RowBox[{"\[DifferentialD]", "y"}], + RowBox[{"\[DifferentialD]", "x"}]}]}]}], "//", "N"}]], "Input", + CellLabel-> + "(Debug) In[328]:=",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], + +Cell[BoxData[ + TemplateBox[{ + "Integrate", "intnest", + "\"The integral \\!\\(\\*RowBox[{SubsuperscriptBox[\\\"\[Integral]\\\", \\\ +\"0\\\", \\\"\[Infinity]\\\"], \ +TagBox[RowBox[{TagBox[FractionBox[TagBox[RowBox[{\\\"4\\\", \\\"*\\\", \ +\\\"x\\\", \\\"*\\\", \\\"x\\\", \\\"*\\\", \\\"y\\\", \\\"*\\\", \\\"\[Pi]\\\ +\", \\\"*\\\", TagBox[RowBox[{\\\"(\\\", \ +TagBox[RowBox[{TagBox[UnderoverscriptBox[\\\"\[Sum]\\\", TagBox[RowBox[{\\\"n\ +\\\", \\\"=\\\", \\\"0\\\"}], DebugTag[224561]], \\\"100\\\"], \ +DebugTag[224545]], \ +TagBox[RowBox[{TagBox[SuperscriptBox[TagBox[RowBox[{\\\"(\\\", \ +TagBox[FractionBox[TagBox[RowBox[{\\\"2\\\", TagBox[RowBox[{\\\"(\\\", \ +TagBox[FractionBox[\\\"h2\\\", \\\"Cb\\\"], DebugTag[224673]], \\\")\\\"}], \ +DebugTag[224657]], \\\"*\\\", \\\"x\\\", \\\"*\\\", \\\"y\\\"}], \ +DebugTag[224641]], \\\"2\\\"], DebugTag[224625]], \\\")\\\"}], \ +DebugTag[224609]], TagBox[RowBox[{\\\"2\\\", \\\"*\\\", \\\"n\\\"}], \ +DebugTag[224689]]], DebugTag[224593]], \\\"*\\\", \ +TagBox[SuperscriptBox[TagBox[RowBox[{\\\"(\\\", TagBox[FractionBox[\\\"1\\\", \ +TagBox[RowBox[{\\\"Factorial\\\", \\\"[\\\", \\\"n\\\", \\\"]\\\"}], \ +DebugTag[224753]]], DebugTag[224737]], \\\")\\\"}], DebugTag[224721]], \ +\\\"2\\\"], DebugTag[224705]]}], DebugTag[224577]]}], DebugTag[224529]], \ +\\\")\\\"}], DebugTag[224513]]}], DebugTag[224497]], TagBox[RowBox[{\\\"\[Pi]\ +\\\", \\\"*\\\", \\\"Cw\\\", \\\"*\\\", \\\"Cb\\\"}], DebugTag[224769]]], \ +DebugTag[224481]], \\\"*\\\", TagBox[SuperscriptBox[\\\"\[ExponentialE]\\\", \ +TagBox[RowBox[{TagBox[RowBox[{\\\"-\\\", \ +TagBox[FractionBox[TagBox[SuperscriptBox[TagBox[RowBox[{\\\"(\\\", \\\"x\\\", \ +\\\")\\\"}], DebugTag[224865]], \\\"2\\\"], DebugTag[224849]], \\\"1\\\"], \ +DebugTag[224833]]}], DebugTag[224817]], TagBox[RowBox[{\\\"(\\\", \ +TagBox[RowBox[{TagBox[FractionBox[\\\"1\\\", \\\"Cw\\\"], DebugTag[224913]], \ +\\\"+\\\", TagBox[FractionBox[TagBox[RowBox[{\\\"h2\\\", \\\"*\\\", \ +\\\"h2\\\"}], DebugTag[224945]], \\\"Cb\\\"], DebugTag[224929]]}], \ +DebugTag[224897]], \\\")\\\"}], DebugTag[224881]]}], DebugTag[224801]]], \ +DebugTag[224785]], \\\"*\\\", TagBox[SuperscriptBox[\\\"\[ExponentialE]\\\", \ +TagBox[RowBox[{TagBox[RowBox[{\\\"-\\\", TagBox[FractionBox[TagBox[RowBox[{\\\ +\"y\\\", \\\"*\\\", \\\"y\\\"}], DebugTag[225025]], \\\"1\\\"], \ +DebugTag[225009]]}], DebugTag[224993]], TagBox[RowBox[{\\\"(\\\", \ +TagBox[FractionBox[\\\"1\\\", \\\"Cb\\\"], DebugTag[225057]], \\\")\\\"}], \ +DebugTag[225041]]}], DebugTag[224977]]], DebugTag[224961]], TagBox[RowBox[{\\\ +\"\[DifferentialD]\\\", \\\"y\\\"}], DebugTag[225073]], TagBox[RowBox[{\\\"\ +\[DifferentialD]\\\", \\\"x\\\"}], DebugTag[225089]]}], \ +DebugTag[224465]]}]\\) cannot be interpreted. The number of definite and \ +indefinite integral operators must match the number of differential \ +operators.\"", 2, 328, 95, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99133920579224*^9, 3.993129007991238*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[328]:=",ExpressionUUID->"06262046-f098-46f5-855f-35dcfeea8d7e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"q", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "*", + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "*", "y", "*", "\[Pi]", "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849547748472*^9, 3.9918495528702526`*^9}}, + CellLabel-> + "(Debug) In[328]:=",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 328, 96, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.993129008005121*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[328]:=",ExpressionUUID->"dc1b2063-9c6f-4169-a5e1-ca943a0815db"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 328, 97, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9931290080073547`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[328]:=",ExpressionUUID->"bfad3723-f014-4a66-bc1f-5ad06d7e2f41"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 328, 98, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9931290080094833`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[328]:=",ExpressionUUID->"8a6c8e1c-b568-42d8-8ac8-8a30e28c308b"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 328, 99, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392125258827`*^9, 3.9931290080114393`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[328]:=",ExpressionUUID->"7d0985f4-ff53-4006-a651-1dfc9d887795"], + +Cell[BoxData["1.2757077226181863`"], "Output", + CellChangeTimes->{3.9913392196090164`*^9, 3.993129012789092*^9}, + CellLabel-> + "(Debug) Out[328]=",ExpressionUUID->"d0963cc4-859d-4542-bac8-ed629be0e663"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S1", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"x", "-", "J1"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.9918495568340263`*^9, 3.991849559359928*^9}}, + CellLabel-> + "(Debug) In[329]:=",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 329, 100, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.9931290128810787`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[329]:=",ExpressionUUID->"47c6abb5-8d1b-4ca0-a440-623ff2d2051a"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 329, 101, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.993129012887306*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[329]:=",ExpressionUUID->"c3b7ed70-321d-43df-8bee-3161beaa0240"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 329, 102, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.993129012890543*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[329]:=",ExpressionUUID->"d0eaa79d-ebe3-4dcf-b550-5b92c118ba2d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 329, 103, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9913392196440163`*^9, 3.993129012893436*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[329]:=",ExpressionUUID->"0446f28f-a985-49a4-b3a9-17193853e55d"], + +Cell[BoxData["32.84385297361225`"], "Output", + CellChangeTimes->{3.9913392268711624`*^9, 3.9931290170909977`*^9}, + CellLabel-> + "(Debug) Out[329]=",ExpressionUUID->"d4bc6433-9f3b-46d4-a47e-ce1dc8d9f31e"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"S2", "=", + RowBox[{ + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + RowBox[{"(", + RowBox[{ + SubsuperscriptBox["\[Integral]", "0", "\[Infinity]"], + RowBox[{ + FractionBox["1", + RowBox[{"\[Pi]", "*", "Cw", "*", "Cb"}]], + RowBox[{"(", + RowBox[{"4", "x", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"y", "-", "J2"}], ")"}], "2"], "*", "y", "*", "\[Pi]", + "*", + RowBox[{"(", + RowBox[{ + UnderoverscriptBox["\[Sum]", + RowBox[{"n", "=", "0"}], "100"], + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + FractionBox[ + RowBox[{"2", + RowBox[{"(", + RowBox[{ + RowBox[{"-", + FractionBox["1", "Cw"]}], "+", + FractionBox["h3", "Cb"]}], ")"}], "*", "x", "*", "y"}], + "2"], ")"}], + RowBox[{"2", "*", "n"}]], "*", + SuperscriptBox[ + RowBox[{"(", + FractionBox["1", + RowBox[{"Factorial", "[", "n", "]"}]], ")"}], "2"]}]}], + ")"}]}], ")"}], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + SuperscriptBox[ + RowBox[{"(", "x", ")"}], "2"], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h1", "*", "h1"}], "Cb"]}], ")"}]}]], "*", + SuperscriptBox["\[ExponentialE]", + RowBox[{ + RowBox[{"-", + FractionBox[ + RowBox[{"y", "*", "y"}], "1"]}], + RowBox[{"(", + RowBox[{ + FractionBox["1", "Cw"], "+", + FractionBox[ + RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], + RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], + RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", + CellChangeTimes->{{3.991849563755764*^9, 3.991849566543682*^9}}, + CellLabel-> + "(Debug) In[330]:=",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"7.447325249968292`*^-203\\\", \ +\\\"70664077653282593719130316304552102974276464146933733723514431922715281192\ +32188628582006784000000000000000000\\\"]\\) is too small to represent as a \ +normalized machine number; precision may be lost.\"", 2, 330, 104, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.993129017132255*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[330]:=",ExpressionUUID->"e461b031-ad96-430d-b27f-92cbab03a5cf"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"1.8975015829005278`*^-207\\\", \ +\\\"14309475724789725228123889051671800852290983989754081079011672464349844441\ +445181972878563737600000000000000000000\\\"]\\) is too small to represent as \ +a normalized machine number; precision may be lost.\"", 2, 330, 105, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9931290171359262`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[330]:=",ExpressionUUID->"b66a5eed-9a05-4e21-92db-ce2cb6bfbd95"], + +Cell[BoxData[ + TemplateBox[{ + "General", "munfl", + "\"\\!\\(\\*FractionBox[\\\"4.834638123432755`*^-212\\\", \ +\\\"30278850633655058582710149233337530603447722122319635563188698934564270838\ +098005054611040868761600000000000000000000\\\"]\\) is too small to represent \ +as a normalized machine number; precision may be lost.\"", 2, 330, 106, + 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.9931290171381683`*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[330]:=",ExpressionUUID->"66afc9ba-9ad2-4435-b70d-528769fea26d"], + +Cell[BoxData[ + TemplateBox[{ + "General", "stop", + "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ +\\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ +during this calculation.\"", 2, 330, 107, 25985956970763524062, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.991339226907137*^9, 3.993129017140272*^9}, + CellLabel-> + "(Debug) During evaluation of \ +In[330]:=",ExpressionUUID->"bf8c52c9-8f7f-4433-85da-8e8d84989640"], + +Cell[BoxData["6.419364641545448`"], "Output", + CellChangeTimes->{3.9913392304284153`*^9, 3.993129019591264*^9}, + CellLabel-> + "(Debug) Out[330]=",ExpressionUUID->"4d9fc2da-fe98-442b-909d-dbcba12a7a47"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + FractionBox["q", + SqrtBox[ + RowBox[{"S1", "*", "S2"}]]]], "Input", + CellChangeTimes->{{3.991849569404436*^9, 3.991849573855135*^9}}, + CellLabel-> + "(Debug) In[331]:=",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], + +Cell[BoxData["0.08785735249201765`"], "Output", + CellChangeTimes->{3.9913392304624157`*^9, 3.993129019625201*^9}, + CellLabel-> + "(Debug) Out[331]=",ExpressionUUID->"6159abac-cad3-4118-bbe2-3fea1af77e48"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +WindowSize->{714, 786}, +WindowMargins->{{Automatic, 3}, {3, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +Magnification:>0.8 Inherited, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +15635,634 @@ 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, 503, 9, 35, "Input",ExpressionUUID->"271fe1ed-be37-42ae-9e61-4864b7a72f68"], +Cell[1082, 33, 357, 6, 38, "Output",ExpressionUUID->"ebefacdd-7c8f-4a47-ae8e-c1f8f105d41e"] }, 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[1476, 44, 259, 5, 35, "Input",ExpressionUUID->"9cd63ee4-4ab5-4c2c-8ee8-5d4dc579ec08"], +Cell[1738, 51, 495, 8, 38, "Output",ExpressionUUID->"bb1df696-37fa-4a20-8ec5-05ece139f6ca"] }, 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[2270, 64, 239, 5, 35, "Input",ExpressionUUID->"fb64ed71-2f89-4ffd-a85b-88f0e717228e"], +Cell[2512, 71, 473, 8, 38, "Output",ExpressionUUID->"7f69aaf4-4125-4adf-bcc7-37fe98ba68a1"] }, 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[3022, 84, 186, 4, 35, "Input",ExpressionUUID->"47510b32-ee4a-4496-acc3-48b173a35079"], +Cell[3211, 90, 474, 8, 38, "Output",ExpressionUUID->"51e72b23-65ad-49dd-958e-f23cdd456570"] }, 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[3722, 103, 268, 8, 46, "Input",ExpressionUUID->"76a29ca9-f66e-471a-a5b3-2720107b703f"], +Cell[3993, 113, 476, 8, 38, "Output",ExpressionUUID->"8cd9f6e5-5b6a-41f5-95f0-22c9292a7f1d"] }, 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[4506, 126, 142, 3, 35, "Input",ExpressionUUID->"a9a537d4-3477-43ed-9561-f1c27109561d"], +Cell[4651, 131, 471, 8, 38, "Output",ExpressionUUID->"1a534a8a-4070-4f55-a155-8e910726f0a5"] }, 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[5159, 144, 288, 7, 35, "Input",ExpressionUUID->"f35fd140-9381-4b0b-8fc5-46fb9ab06ffc"], +Cell[5450, 153, 490, 8, 38, "Output",ExpressionUUID->"d4213a27-68d2-4b73-ba2e-285739cc4330"] }, 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[5977, 166, 269, 8, 35, "Input",ExpressionUUID->"2abdd448-7a98-4918-89e8-046050715ba9"], +Cell[6249, 176, 494, 8, 38, "Output",ExpressionUUID->"bf7971ec-4fc2-46bf-a38e-dd60e54755f9"] }, 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[6780, 189, 254, 5, 35, "Input",ExpressionUUID->"b226a67e-f233-4c25-9708-fe8587a7cd30"], +Cell[7037, 196, 492, 8, 38, "Output",ExpressionUUID->"639775c3-d20a-44fa-ae71-8969fa44aa82"] }, 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[7566, 209, 256, 5, 35, "Input",ExpressionUUID->"61818bf8-739c-47e1-bc6c-0aa1f2b677d0"], +Cell[7825, 216, 488, 8, 38, "Output",ExpressionUUID->"cb639b5b-e780-4e31-ab19-32e2980db4e2"] }, 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[8350, 229, 140, 3, 35, "Input",ExpressionUUID->"e8f86f84-d79c-4e94-ae80-1dca0472ec6f"], +Cell[8493, 234, 473, 8, 38, "Output",ExpressionUUID->"831f8196-7226-40d0-b021-2e3ed7f7a69a"] }, 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[9003, 247, 140, 3, 35, "Input",ExpressionUUID->"591e45a1-73ec-48a8-b273-8c08db5c8439"], +Cell[9146, 252, 477, 8, 38, "Output",ExpressionUUID->"3464a13f-8362-47ef-b4e3-27e939379e07"] }, 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[9660, 265, 568, 20, 81, "Input",ExpressionUUID->"0940f8ce-9e49-412d-be4c-599647770f21"], +Cell[10231, 287, 492, 8, 38, "Output",ExpressionUUID->"0e1f689a-2c0f-44e5-91bf-a418d704fd59"] }, 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[10760, 300, 568, 20, 81, "Input",ExpressionUUID->"359bcdad-aa6b-4b8f-91c2-ebb5cf618c9c"], +Cell[11331, 322, 491, 8, 38, "Output",ExpressionUUID->"05f87329-b707-4cee-adee-ca48e8ff5a75"] }, 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[11859, 335, 1503, 49, 81, "Input",ExpressionUUID->"e027fafe-fd13-4595-bbfc-2bc4bc0c7fe0"], +Cell[13365, 386, 489, 8, 38, "Output",ExpressionUUID->"667b2fd1-147a-47a4-b488-118bdfd47ba2"] }, 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[13891, 399, 1342, 45, 81, "Input",ExpressionUUID->"b5fcad0f-f1ce-473f-8fd1-052a3498bcc7"], +Cell[15236, 446, 508, 9, 38, "Output",ExpressionUUID->"8a4aecc1-ffc9-481d-a476-225407926f30"] }, 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[15781, 460, 1342, 45, 81, "Input",ExpressionUUID->"37f45029-2ca4-4af1-9f80-2482ab313a91"], +Cell[17126, 507, 508, 9, 38, "Output",ExpressionUUID->"73988b34-4594-416f-9ca3-2e839f8d096a"] }, 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[17671, 521, 1503, 49, 81, "Input",ExpressionUUID->"4d48a5b7-4072-401d-8044-36ca3ea5b772"], +Cell[19177, 572, 488, 8, 38, "Output",ExpressionUUID->"a016c299-cc56-4abc-bb4b-f95bf1c292a1"] }, 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[19702, 585, 142, 3, 35, "Input",ExpressionUUID->"0939852a-6299-46a6-8f0e-68d50f0449fc"], +Cell[19847, 590, 473, 8, 38, "Output",ExpressionUUID->"94f9036b-1675-4c6a-b299-09dd10991902"] }, 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[20357, 603, 144, 3, 35, "Input",ExpressionUUID->"3cd03327-b0ac-478a-96c2-9ade72bfa53e"], +Cell[20504, 608, 481, 8, 38, "Output",ExpressionUUID->"59bfc96b-dd8d-480a-832c-32eef115bbc9"] }, 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[21022, 621, 145, 3, 35, "Input",ExpressionUUID->"6107329f-32aa-40a4-8e39-6ec72a5e7c48"], +Cell[21170, 626, 485, 8, 38, "Output",ExpressionUUID->"2151269a-6045-4948-8a1c-deb3037e6171"] }, 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[21692, 639, 230, 5, 35, "Input",ExpressionUUID->"208dc8fd-7d0a-4d4c-8c24-ba03a4a539fc"], +Cell[21925, 646, 485, 9, 38, "Output",ExpressionUUID->"d21eef27-2174-4652-a8f8-eb8857a48287"] }, 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[22447, 660, 145, 3, 35, "Input",ExpressionUUID->"03f697ec-0902-4c3d-be6e-7e81a5d22949"], +Cell[22595, 665, 484, 8, 38, "Output",ExpressionUUID->"710d879c-8dfb-490e-afae-915b42bdb057"] }, 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[23116, 678, 338, 6, 35, "Input",ExpressionUUID->"549b305c-5dd2-41d0-942c-83e2182ed50c"], +Cell[23457, 686, 474, 8, 38, "Output",ExpressionUUID->"082ddb53-534e-4b83-8a07-c0da22a76d8d"] }, 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[23968, 699, 309, 6, 35, "Input",ExpressionUUID->"c84c8225-36b0-48ad-88a0-e38415676c68"], +Cell[24280, 707, 504, 8, 38, "Output",ExpressionUUID->"e7bdefd6-cad3-4bf2-8ea4-7eed405830d5"] }, 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[24821, 720, 230, 5, 35, "Input",ExpressionUUID->"9a4cd3be-dd3c-4275-a42c-2cb1e2691517"], +Cell[25054, 727, 478, 8, 38, "Output",ExpressionUUID->"8eedb5d0-2985-4a64-a2f9-2c4ac83fae38"] }, 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[25569, 740, 361, 11, 46, "Input",ExpressionUUID->"3d2b5f54-d499-44d7-bb25-e459635e5ebe"], +Cell[25933, 753, 495, 8, 38, "Output",ExpressionUUID->"55929cc6-4d59-49dd-8dd4-e7d1d043b31d"] }, 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[26465, 766, 361, 11, 46, "Input",ExpressionUUID->"29b3fd1f-47d5-4619-b1d4-ce04a95b9b2c"], +Cell[26829, 779, 509, 9, 38, "Output",ExpressionUUID->"a3b35340-7b20-4d1d-a111-c9aeef292259"] }, 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[27375, 793, 1005, 27, 94, "Input",ExpressionUUID->"2bdbfe37-41d1-4574-83d6-34dcfa23e750"], +Cell[28383, 822, 492, 8, 38, "Output",ExpressionUUID->"a4a08d2b-5679-45de-93f7-abab7d09c36b"] }, 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[28912, 835, 210, 4, 35, "Input",ExpressionUUID->"99dc226c-1b4e-4f0a-bbd8-93adb991a39a"], +Cell[29125, 841, 471, 8, 38, "Output",ExpressionUUID->"8b3f81f6-962b-479d-9739-64fa88cf1341"] }, 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[29633, 854, 345, 6, 35, "Input",ExpressionUUID->"f48ec7bd-dc86-47c4-b76b-d162a14a7041"], +Cell[29981, 862, 475, 8, 38, "Output",ExpressionUUID->"ab8d9c52-9947-4c10-86be-736d8ac5babd"] +}, Open ]], +Cell[30471, 873, 184, 3, 35, "Input",ExpressionUUID->"6143058e-d48f-4e50-ab88-a67fcfe19c2f"], +Cell[CellGroupData[{ +Cell[30680, 880, 344, 6, 35, "Input",ExpressionUUID->"309c17e7-0272-49aa-adfc-a68234384595"], +Cell[31027, 888, 472, 8, 38, "Output",ExpressionUUID->"ee588178-2057-4965-8183-a754de3d7dee"] +}, Open ]], +Cell[31514, 899, 184, 3, 35, "Input",ExpressionUUID->"a746702c-1b33-4ace-93f7-a4df59bb032e"], +Cell[CellGroupData[{ +Cell[31723, 906, 348, 6, 35, "Input",ExpressionUUID->"0f32b9a6-42f4-447a-8cea-879fe8270596"], +Cell[32074, 914, 471, 8, 38, "Output",ExpressionUUID->"58349dd2-d771-42a1-98f5-11365127674a"] +}, Open ]], +Cell[32560, 925, 184, 3, 35, "Input",ExpressionUUID->"ff06262d-2a7d-4bf2-9889-3482d88544e6"], +Cell[CellGroupData[{ +Cell[32769, 932, 371, 6, 35, "Input",ExpressionUUID->"32f78082-dea1-4601-b18d-c381615ae618"], +Cell[33143, 940, 482, 8, 38, "Output",ExpressionUUID->"d9a056a7-1bf8-42e7-9d97-48db084449e1"] +}, Open ]], +Cell[33640, 951, 182, 3, 35, "Input",ExpressionUUID->"2aafa00d-a8c1-4bad-a089-c7f42ec9638d"], +Cell[CellGroupData[{ +Cell[33847, 958, 318, 6, 35, "Input",ExpressionUUID->"9785ea3b-ac47-43e2-a47f-ae9c169e6d42"], +Cell[34168, 966, 480, 8, 38, "Output",ExpressionUUID->"bb68f11a-a81a-4ae5-ad78-c76bdbed485b"] +}, Open ]], +Cell[34663, 977, 182, 3, 35, "Input",ExpressionUUID->"ff11fa55-f797-455b-8b66-5cc8b90fb113"], +Cell[CellGroupData[{ +Cell[34870, 984, 324, 6, 35, "Input",ExpressionUUID->"73c20400-1de0-4e8b-8b8e-e79c0739ef44"], +Cell[35197, 992, 479, 8, 38, "Output",ExpressionUUID->"9b9cf5d8-064b-43db-b84d-8dc11486eded"] +}, Open ]], +Cell[35691, 1003, 184, 3, 35, "Input",ExpressionUUID->"cdd81c82-7dd4-4ea6-9c96-b8308c603ac5"], +Cell[CellGroupData[{ +Cell[35900, 1010, 325, 6, 35, "Input",ExpressionUUID->"10e11c9a-e95d-4c66-9815-1f1664c00891"], +Cell[36228, 1018, 477, 8, 38, "Output",ExpressionUUID->"038ee047-fe21-4a0b-8b4f-84b7a3ffee1c"] +}, Open ]], +Cell[36720, 1029, 183, 3, 35, "Input",ExpressionUUID->"315686a4-25e8-483d-92e8-dda064ea9ad6"], +Cell[CellGroupData[{ +Cell[36928, 1036, 294, 5, 35, "Input",ExpressionUUID->"0fabce16-24b0-4623-8e95-3d3e5f5dc8fa"], +Cell[37225, 1043, 479, 8, 38, "Output",ExpressionUUID->"3f3daab7-2be3-4e5e-aa43-7906df30b338"] +}, Open ]], +Cell[37719, 1054, 186, 3, 35, "Input",ExpressionUUID->"01631860-7c61-4e51-8053-3b30ffca80a4"], +Cell[CellGroupData[{ +Cell[37930, 1061, 19820, 486, 1333, "Input",ExpressionUUID->"2fa4e45f-3062-48db-9f6e-ce327bff9a00"], +Cell[57753, 1549, 489, 8, 38, "Output",ExpressionUUID->"ea5a3f16-6c3b-49f9-b156-90fa4f409bde"] }, 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[58279, 1562, 19759, 490, 1333, "Input",ExpressionUUID->"43ec8d96-7b69-43c2-937b-1c891c72816f"], +Cell[78041, 2054, 490, 8, 38, "Output",ExpressionUUID->"3dbb75d7-abe4-41b4-93ba-2c446d0dd472"] }, 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[78568, 2067, 19759, 484, 1333, "Input",ExpressionUUID->"6d71eb66-26f6-49c5-8a6f-6d4ab5736a74"], +Cell[98330, 2553, 510, 9, 38, "Output",ExpressionUUID->"f2f166ea-878e-4576-82d5-a4238865cde8"] }, 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[98877, 2567, 22545, 554, 1478, "Input",ExpressionUUID->"a0ccfd8f-a2a2-4336-a0a2-35083139f5e1"], +Cell[121425, 3123, 505, 9, 38, "Output",ExpressionUUID->"40197109-de31-4159-bf58-2f693f0908e9"] }, 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[121967, 3137, 22546, 554, 1478, "Input",ExpressionUUID->"8a22c72b-903e-4c44-a421-1707f3155c10"], +Cell[144516, 3693, 510, 9, 38, "Output",ExpressionUUID->"59ba51cd-46e1-4c22-866a-d93630eb6024"] }, 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[145063, 3707, 25502, 627, 1641, "Input",ExpressionUUID->"d7ac7cec-a30d-4b76-a656-0a157644dee5"], +Cell[170568, 4336, 504, 9, 38, "Output",ExpressionUUID->"79d3b66c-77b5-4612-a113-f6bb4711a0a0"] }, 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[171109, 4350, 141, 3, 35, "Input",ExpressionUUID->"9b7ebd55-dba8-4456-8559-93398d4bd488"], +Cell[171253, 4355, 484, 8, 38, "Output",ExpressionUUID->"f7fe0523-5b49-4502-82a9-a2ef8d4c9a65"] }, 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[171774, 4368, 141, 3, 35, "Input",ExpressionUUID->"0299b24a-b678-4d36-a234-69dc62f13a9d"], +Cell[171918, 4373, 473, 8, 38, "Output",ExpressionUUID->"42f973a9-ce53-4ffc-a7ed-c6379f5c5455"] }, 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[172428, 4386, 1155, 40, 107, "Input",ExpressionUUID->"014750f8-e22d-4a2e-9e29-9da66fd52d3a"], +Cell[173586, 4428, 499, 8, 38, "Output",ExpressionUUID->"9a16edf3-c7c5-4ea2-8c04-f62d4f5f12a1"] }, 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[174122, 4441, 1052, 36, 145, "Input",ExpressionUUID->"2baf8cdb-f278-4e84-a711-91de26ed4a3c"], +Cell[175177, 4479, 507, 9, 38, "Output",ExpressionUUID->"8234b272-0f62-4e83-b8f5-6770359d0cda"] }, 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[175721, 4493, 1155, 40, 107, "Input",ExpressionUUID->"ec1bf389-eb3b-44b1-b8ec-3e5dad509450"], +Cell[176879, 4535, 492, 8, 38, "Output",ExpressionUUID->"7aed2862-15f8-45f0-8ff3-2e43fad48da5"] }, 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[177408, 4548, 119, 2, 35, "Input",ExpressionUUID->"7cc5c200-d23a-4aab-8dd4-dd2b39dfb629"], +Cell[177530, 4552, 492, 8, 38, "Output",ExpressionUUID->"9e0da62e-f7cd-4621-ae8a-18f8d1a4dd94"] }, 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[178059, 4565, 119, 2, 35, "Input",ExpressionUUID->"1d636216-0388-4ec1-9061-7a8f850c1529"], +Cell[178181, 4569, 519, 9, 38, "Output",ExpressionUUID->"40f7067e-7234-4ee4-b319-e760495efaca"] }, 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[178737, 4583, 119, 2, 35, "Input",ExpressionUUID->"2b611e92-f5d7-4a75-a966-8087a81cb945"], +Cell[178859, 4587, 507, 9, 38, "Output",ExpressionUUID->"f01ae50f-ea4f-47f0-844f-4a862ace4f6e"] }, 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[179403, 4601, 119, 2, 35, "Input",ExpressionUUID->"bfd19aa0-e31d-4c48-af85-0609e9cece67"], +Cell[179525, 4605, 494, 8, 38, "Output",ExpressionUUID->"d1def81e-2fae-4b69-9f76-40f86be8b607"] }, 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[180056, 4618, 118, 2, 35, "Input",ExpressionUUID->"7968bc87-c156-4586-9548-c0f484bc9993"], +Cell[180177, 4622, 496, 8, 38, "Output",ExpressionUUID->"d764b154-b19d-4d4c-b0f4-bf3fe23a9da3"] }, 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[180710, 4635, 118, 2, 35, "Input",ExpressionUUID->"36690ea4-3542-490f-be49-8e8a3e2cf11e"], +Cell[180831, 4639, 483, 8, 38, "Output",ExpressionUUID->"863cdf5d-f8f2-41de-91da-b49111eae39f"] }, 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[181351, 4652, 508, 17, 60, "Input",ExpressionUUID->"28e155e6-d777-43b5-ab9a-9d65def3bf50"], +Cell[181862, 4671, 506, 9, 38, "Output",ExpressionUUID->"758564e0-e462-4e8c-957d-3cd8c9522525"] }, 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[182405, 4685, 508, 17, 60, "Input",ExpressionUUID->"83bdd55e-e946-4e82-965c-da9c55a23023"], +Cell[182916, 4704, 505, 9, 38, "Output",ExpressionUUID->"581ae010-1231-4ca0-b981-88f1c24ff227"] }, 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[183458, 4718, 1799, 61, 174, "Input",ExpressionUUID->"f8f823be-8610-4f22-9dbc-533917357c84"], +Cell[185260, 4781, 492, 8, 38, "Output",ExpressionUUID->"d4d851c7-cd70-4ac3-b109-95f55c8d0761"] }, 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[185789, 4794, 1112, 37, 126, "Input",ExpressionUUID->"dbe3cd19-4cd0-48c1-af8e-a0d307ca0803"], +Cell[186904, 4833, 507, 9, 38, "Output",ExpressionUUID->"39503f31-36c9-47a9-a139-692afb97a7dd"] }, 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[187448, 4847, 1829, 62, 107, "Input",ExpressionUUID->"6092ca40-2509-433e-a8b8-29bb7669c5e0"], +Cell[189280, 4911, 487, 8, 38, "Output",ExpressionUUID->"a98597ef-364c-45c0-9ea5-1b4825faa800"] }, 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[189804, 4924, 1642, 54, 81, "Input",ExpressionUUID->"1d9f9507-a838-4c18-a92c-bedcb4632ee9"], +Cell[191449, 4980, 491, 8, 38, "Output",ExpressionUUID->"33858819-69a1-403d-ba28-550554811b9d"] }, 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[191977, 4993, 1642, 54, 81, "Input",ExpressionUUID->"c4d4b328-ee8c-4b5a-9b11-265fc528d103"], +Cell[193622, 5049, 492, 8, 38, "Output",ExpressionUUID->"35e0da26-fbb1-4202-8ff0-863867bf4c08"] }, 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[194151, 5062, 252, 5, 35, "Input",ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], +Cell[194406, 5069, 245, 4, 38, "Output",ExpressionUUID->"7a9ba5d8-5dcb-402a-a462-b815122c9391"] }, 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[194688, 5078, 251, 5, 35, "Input",ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], +Cell[194942, 5085, 247, 4, 38, "Output",ExpressionUUID->"9f00d3e9-d0d0-457e-9324-48c3219c82c2"] }, 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[195226, 5094, 1308, 43, 69, "Input",ExpressionUUID->"5e48fe0c-b3e8-2b40-82cb-716b23b2f326"], +Cell[196537, 5139, 278, 4, 38, "Output",ExpressionUUID->"7cc2287a-c99f-448e-a0b1-225c4a5aefdf"] }, 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"] +Cell[196852, 5148, 940, 31, 59, "Input",ExpressionUUID->"e4db2648-4e1a-2c46-83ab-fcd932c3b663"], +Cell[197795, 5181, 273, 4, 38, "Output",ExpressionUUID->"2a8ffee7-0b21-4081-8eec-27e8822a95a8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[198105, 5190, 915, 30, 59, "Input",ExpressionUUID->"e4649c3d-e19e-ca42-95a0-23b66397f1fd"], +Cell[199023, 5222, 280, 4, 38, "Output",ExpressionUUID->"0c1670f5-9b46-4689-8480-fa32ee2f2507"] +}, Open ]], +Cell[CellGroupData[{ +Cell[199340, 5231, 565, 19, 54, "Input",ExpressionUUID->"4fce6da4-52eb-2241-95d7-07a3b02da5a3"], +Cell[199908, 5252, 273, 4, 38, "Output",ExpressionUUID->"acfe3526-cff7-428c-940e-86625b711309"] +}, Open ]], +Cell[CellGroupData[{ +Cell[200218, 5261, 630, 21, 54, "Input",ExpressionUUID->"3d3ac48f-4615-f84c-a7f7-5378c3c65118"], +Cell[200851, 5284, 272, 4, 38, "Output",ExpressionUUID->"10dfc282-d4e4-412b-9d74-03a285c0a8b8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201160, 5293, 177, 5, 57, "Input",ExpressionUUID->"2286abae-ff28-304a-8f7b-c48840716d4d"], +Cell[201340, 5300, 273, 4, 38, "Output",ExpressionUUID->"d3950c65-8a0b-4b6c-ab97-bd5a3cfc888e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201650, 5309, 177, 5, 56, "Input",ExpressionUUID->"373925b1-ddd5-2947-b051-4d47d7cbfb42"], +Cell[201830, 5316, 268, 4, 38, "Output",ExpressionUUID->"ae509a1d-0ca7-4772-9cf9-b2b08b7424c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202135, 5325, 188, 5, 47, "Input",ExpressionUUID->"797e30a2-55b1-ab41-8ec1-6f1890b0cafa"], +Cell[202326, 5332, 267, 4, 38, "Output",ExpressionUUID->"71470758-bc8b-47fa-a8b8-44523e4c936a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[202630, 5341, 188, 5, 47, "Input",ExpressionUUID->"b6758968-60a5-bf4f-af97-c0234fd45ae7"], +Cell[202821, 5348, 272, 4, 38, "Output",ExpressionUUID->"5c5821e6-5130-43c6-8a40-27f6a96f620c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[203130, 5357, 6062, 185, 423, "Input",ExpressionUUID->"3c10b649-f7fb-634c-9567-a2802f1a91e4"], +Cell[209195, 5544, 277, 4, 38, "Output",ExpressionUUID->"e0c11602-0281-4957-b63f-587d7d1160f4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[209509, 5553, 375, 9, 45, "Input",ExpressionUUID->"3d9772dc-d09e-7e42-a8c3-34b35177c0b5"], +Cell[209887, 5564, 269, 4, 38, "Output",ExpressionUUID->"929107ad-62cd-4d27-969c-09f03ec8ab40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[210193, 5573, 6129, 187, 423, "Input",ExpressionUUID->"69710763-10b6-9e4b-a03e-04503cc982f3"], +Cell[216325, 5762, 279, 4, 38, "Output",ExpressionUUID->"6cd718e0-3375-4a53-8cb0-824dd0c04b69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[216641, 5771, 375, 9, 45, "Input",ExpressionUUID->"21d4dc0d-49aa-e14b-a672-a791a49cb67d"], +Cell[217019, 5782, 273, 4, 38, "Output",ExpressionUUID->"1470f1c2-f609-4878-a556-2a0cc37f2d51"] +}, Open ]], +Cell[CellGroupData[{ +Cell[217329, 5791, 2670, 88, 154, "Input",ExpressionUUID->"53b2f62f-bbcf-e747-be67-34e0ed52cc11"], +Cell[220002, 5881, 273, 4, 38, "Output",ExpressionUUID->"41648c74-eb0b-437f-b4ec-5aeb63bb86d9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[220312, 5890, 2610, 85, 154, "Input",ExpressionUUID->"42f082eb-e223-114c-bb63-6a16bba4880c"], +Cell[222925, 5977, 273, 4, 38, "Output",ExpressionUUID->"46893405-0948-4f8e-a687-afb44851e6bd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[223235, 5986, 3719, 118, 221, "Input",ExpressionUUID->"22ca5bb0-8415-2146-b64e-353a4dc8c0e5"], +Cell[226957, 6106, 276, 4, 38, "Output",ExpressionUUID->"79750704-94b1-4c94-a61a-6f7e93f91252"] +}, Open ]], +Cell[227248, 6113, 171, 4, 35, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[CellGroupData[{ +Cell[227444, 6121, 2082, 59, 94, "Input",ExpressionUUID->"738a48f3-b38c-f441-aec4-53babaa73a14"], +Cell[229529, 6182, 666, 13, 48, "Message",ExpressionUUID->"fa387332-d748-40d7-abb8-f8dc67c30ca4"], +Cell[230198, 6197, 668, 13, 48, "Message",ExpressionUUID->"da2bc801-d228-484e-a808-c6c989d20bd3"], +Cell[230869, 6212, 673, 13, 48, "Message",ExpressionUUID->"1a6bc40a-a87a-4639-8370-fe7df5a778a0"], +Cell[231545, 6227, 553, 11, 20, "Message",ExpressionUUID->"03379fc2-13b7-4652-b6bc-27f60ae80517"], +Cell[232101, 6240, 270, 4, 38, "Output",ExpressionUUID->"16020b0e-a0ea-46f9-a413-1a75747d7807"] +}, Open ]], +Cell[CellGroupData[{ +Cell[232408, 6249, 2084, 59, 94, "Input",ExpressionUUID->"86c33485-ed26-8f49-b3d0-7d040d3b48f0"], +Cell[234495, 6310, 666, 13, 48, "Message",ExpressionUUID->"444729df-4cf2-4bbb-8351-ae7b66972d10"], +Cell[235164, 6325, 671, 13, 48, "Message",ExpressionUUID->"7753222d-063b-48dd-9058-bf3297812306"], +Cell[235838, 6340, 674, 13, 48, "Message",ExpressionUUID->"78d7eb9c-730a-4116-8f6e-359dcb39d6e5"], +Cell[236515, 6355, 556, 11, 20, "Message",ExpressionUUID->"612d1970-272d-4415-a2b6-367f92a5591d"], +Cell[237074, 6368, 270, 4, 38, "Output",ExpressionUUID->"7e8a05a5-2935-4bac-a180-696536d5ea81"] +}, Open ]], +Cell[CellGroupData[{ +Cell[237381, 6377, 1968, 53, 70, "Input",ExpressionUUID->"f373fe4f-940c-0842-9236-63ec36d318ad"], +Cell[239352, 6432, 20502, 383, 189, "Output",ExpressionUUID->"a176a917-4301-4cc9-8844-2f9902b92236"] +}, Open ]], +Cell[CellGroupData[{ +Cell[259891, 6820, 2111, 59, 112, "Input",ExpressionUUID->"24fa5db0-1063-354a-bd60-c117a27ff3e1"], +Cell[262005, 6881, 616, 13, 32, "Message",ExpressionUUID->"b9d646c9-aec1-4240-adcd-99a477981970"], +Cell[262624, 6896, 619, 13, 32, "Message",ExpressionUUID->"d07729d2-cb4e-4d8a-b07e-16cb6b697d94"], +Cell[263246, 6911, 622, 13, 32, "Message",ExpressionUUID->"d759ad1c-e4f4-4626-b70f-844b973e69ba"], +Cell[263871, 6926, 571, 12, 20, "Message",ExpressionUUID->"fca31b9c-2817-4a8d-a14a-c9553846e112"], +Cell[264445, 6940, 22474, 413, 188, "Output",ExpressionUUID->"2d6814a3-f40d-49db-a210-8e29726f9394"] +}, Open ]], +Cell[CellGroupData[{ +Cell[286956, 7358, 2714, 73, 118, "Input",ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], +Cell[289673, 7433, 9473, 219, 191, "Output",ExpressionUUID->"43effa24-9c82-4a92-b2c0-33b55f2b3d47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[299183, 7657, 228, 4, 23, "Input",ExpressionUUID->"6d3700e1-f504-214a-a332-f16397f0b922"], +Cell[299414, 7663, 28862, 545, 188, "Output",ExpressionUUID->"5f95558d-8db7-48cc-944e-ccd23c0a8e7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328313, 8213, 236, 6, 39, "Input",ExpressionUUID->"9051a5e3-bb9f-d941-bcca-598d0b6835be"], +Cell[328552, 8221, 237, 3, 26, "Output",ExpressionUUID->"730c5742-c84b-426c-9800-dc5efcdf30a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[328826, 8229, 1839, 53, 82, "Input",ExpressionUUID->"65a995ff-ff3d-634e-9bad-4a8a16073236"], +Cell[330668, 8284, 576, 12, 32, "Message",ExpressionUUID->"976efa94-b5e2-4982-aa8f-60f62186578f"], +Cell[331247, 8298, 578, 12, 48, "Message",ExpressionUUID->"13ef69c2-851a-4481-8d73-3e736103fb67"], +Cell[331828, 8312, 582, 12, 48, "Message",ExpressionUUID->"fd1971c8-bfb8-414c-9ddd-f261b1b86e83"], +Cell[332413, 8326, 523, 11, 20, "Message",ExpressionUUID->"0f3f0242-2be6-4541-ae6c-7ee363959a05"], +Cell[332939, 8339, 23910, 440, 186, "Output",ExpressionUUID->"b5b3f018-6ec0-44b3-bf5d-7c3c11f46d40"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356886, 8784, 1616, 48, 59, "Input",ExpressionUUID->"86381d88-1537-a242-9cff-0b432b61d63d"], +Cell[358505, 8834, 640, 13, 50, "Message",ExpressionUUID->"85785846-2c11-4b8d-8369-ff24bf7f4ed1"], +Cell[359148, 8849, 644, 13, 50, "Message",ExpressionUUID->"7faab678-e3f0-4125-9fef-24d618f6e45a"], +Cell[359795, 8864, 647, 13, 50, "Message",ExpressionUUID->"aa6ac2ba-0d33-478f-81c0-629594873046"], +Cell[360445, 8879, 506, 11, 20, "Message",ExpressionUUID->"33fb49df-408f-43e8-8a52-13de15857ef0"], +Cell[360954, 8892, 171, 3, 26, "Output",ExpressionUUID->"21174f4e-34c9-44d7-bb77-c87817e92dbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361162, 8900, 2270, 64, 122, "Input",ExpressionUUID->"6f0ad284-4db3-da47-b8dc-45830eedfe9c"], +Cell[363435, 8966, 612, 13, 48, "Message",ExpressionUUID->"441d5705-ab90-4cf4-a2ac-9b32cd8148ef"], +Cell[364050, 8981, 616, 13, 48, "Message",ExpressionUUID->"cf8235ea-ccc2-49fd-9233-1e5d1f08b197"], +Cell[364669, 8996, 619, 13, 48, "Message",ExpressionUUID->"8315b4be-4c23-43a0-889d-a96db194521e"], +Cell[365291, 9011, 501, 11, 20, "Message",ExpressionUUID->"d89cadba-c3eb-498c-9d49-5d74a8cbc6a9"], +Cell[365795, 9024, 221, 4, 26, "Output",ExpressionUUID->"5db61bfb-21ae-45f5-a071-779932252f1a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[366053, 9033, 2244, 64, 122, "Input",ExpressionUUID->"b2dda819-6f34-5c49-bc62-303d815946e5"], +Cell[368300, 9099, 612, 13, 48, "Message",ExpressionUUID->"bdd13af8-289e-4eed-94b7-88cec3dc4f89"], +Cell[368915, 9114, 617, 13, 48, "Message",ExpressionUUID->"b0c2e87c-7079-4c32-817f-1f4307a9dcff"], +Cell[369535, 9129, 620, 13, 48, "Message",ExpressionUUID->"53219602-5b40-4514-a645-274b643f2d1f"], +Cell[370158, 9144, 502, 11, 20, "Message",ExpressionUUID->"d9deeb1f-34c3-4b21-895a-4ff1eb07211d"], +Cell[370663, 9157, 219, 4, 26, "Output",ExpressionUUID->"21c86686-0dd5-4780-b7e7-9d52d1825548"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370919, 9166, 2244, 64, 122, "Input",ExpressionUUID->"76a9e77d-1f4c-bb4a-bb13-1a175f609f7d"], +Cell[373166, 9232, 617, 13, 48, "Message",ExpressionUUID->"0a9f4a1e-bb28-4d0f-a738-1dbe74440d25"], +Cell[373786, 9247, 621, 13, 48, "Message",ExpressionUUID->"36274ffd-c990-43fc-aaa8-be20aa2e5936"], +Cell[374410, 9262, 622, 13, 48, "Message",ExpressionUUID->"cfbc26e2-4d26-42fb-a862-9c96cc7f9b6c"], +Cell[375035, 9277, 506, 11, 20, "Message",ExpressionUUID->"cef7fbc8-f261-4b0e-a214-d19b1c8caa1e"], +Cell[375544, 9290, 217, 4, 26, "Output",ExpressionUUID->"e10e35a1-bf3d-4f3f-a535-691c6e08ce18"] +}, Open ]], +Cell[CellGroupData[{ +Cell[375798, 9299, 238, 6, 38, "Input",ExpressionUUID->"69dd09d9-152e-3e4d-9517-4de4791db2f4"], +Cell[376039, 9307, 223, 4, 38, "Output",ExpressionUUID->"1949145f-7067-4f65-8d56-c5bb75f73ff0"] +}, Open ]], +Cell[376277, 9314, 271, 6, 35, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[CellGroupData[{ +Cell[376573, 9324, 558, 19, 42, "Input",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], +Cell[377134, 9345, 221, 4, 38, "Output",ExpressionUUID->"a079d42c-ac8e-413e-804f-ab0179408faa"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377392, 9354, 170, 5, 45, "Input",ExpressionUUID->"80807e8a-63b3-1643-8686-477edee068f5"], +Cell[377565, 9361, 219, 4, 38, "Output",ExpressionUUID->"3282426b-10f7-46d8-a76b-fb60ee0335b1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377821, 9370, 181, 5, 35, "Input",ExpressionUUID->"e12cfe3a-1a80-7c46-b652-b33c70f4712b"], +Cell[378005, 9377, 219, 4, 38, "Output",ExpressionUUID->"c84eaebc-bad6-46b8-ad39-58dee74584c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[378261, 9386, 6055, 185, 412, "Input",ExpressionUUID->"a58543a2-e013-da4f-b49d-4bc1fd782c5d"], +Cell[384319, 9573, 221, 4, 38, "Output",ExpressionUUID->"d7dbd410-95ad-49bb-a32c-5a85a74fc1b6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[384577, 9582, 368, 9, 34, "Input",ExpressionUUID->"11aa7f22-15dc-394f-8119-3706466553f3"], +Cell[384948, 9593, 221, 4, 38, "Output",ExpressionUUID->"b4e02bff-debc-471d-b030-250677ecf167"] +}, Open ]], +Cell[CellGroupData[{ +Cell[385206, 9602, 6122, 187, 412, "Input",ExpressionUUID->"be01a209-5a51-bb44-a959-dbe1c172fe42"], +Cell[391331, 9791, 221, 4, 38, "Output",ExpressionUUID->"a9f9f854-8937-4fc0-b1c3-532c65749727"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391589, 9800, 368, 9, 34, "Input",ExpressionUUID->"80039b80-2557-414c-8242-b722596e9d96"], +Cell[391960, 9811, 222, 4, 38, "Output",ExpressionUUID->"6fda62a8-8545-46e2-8528-ea4d20c42a2c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[392219, 9820, 2663, 88, 143, "Input",ExpressionUUID->"b340c733-2100-9c4f-86ba-d9dc18c9dfa6"], +Cell[394885, 9910, 221, 4, 38, "Output",ExpressionUUID->"54a0a6dd-c147-44f9-850e-0bfe7fccf58b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395143, 9919, 2603, 85, 143, "Input",ExpressionUUID->"dbf44a5f-8dbc-3049-99ca-3aff4a181e3f"], +Cell[397749, 10006, 222, 4, 38, "Output",ExpressionUUID->"4f52a8e1-3220-48b2-bd13-1ea45e1765c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[398008, 10015, 3712, 118, 210, "Input",ExpressionUUID->"b393ebfa-9cda-f24a-8039-95e547cb8787"], +Cell[401723, 10135, 223, 4, 38, "Output",ExpressionUUID->"471760c1-35fc-4edf-9500-d61c40383a26"] +}, Open ]], +Cell[CellGroupData[{ +Cell[401983, 10144, 2075, 59, 82, "Input",ExpressionUUID->"d6aa822f-4140-174a-8e29-c889dba5c0d8"], +Cell[404061, 10205, 614, 13, 48, "Message",ExpressionUUID->"b3c393ff-5392-4f95-8882-99ddc0b57846"], +Cell[404678, 10220, 617, 13, 48, "Message",ExpressionUUID->"5573bc15-46ec-4b1c-bbd9-e8173b9cd316"], +Cell[405298, 10235, 618, 13, 48, "Message",ExpressionUUID->"82dc4722-1fec-4048-a2b1-dfc58417119f"], +Cell[405919, 10250, 504, 11, 20, "Message",ExpressionUUID->"18adc1bf-9fe3-4f47-a871-089cf631321f"], +Cell[406426, 10263, 218, 4, 38, "Output",ExpressionUUID->"8b0ee44e-7362-48b3-a047-7462adcfca69"] +}, Open ]], +Cell[CellGroupData[{ +Cell[406681, 10272, 2077, 59, 82, "Input",ExpressionUUID->"46f3f057-22eb-c143-af7a-23ddab00799c"], +Cell[408761, 10333, 612, 13, 48, "Message",ExpressionUUID->"b383a66f-b565-449f-a46d-8fec83f279da"], +Cell[409376, 10348, 615, 13, 48, "Message",ExpressionUUID->"ea0b6074-3d21-4372-8ebe-45d89575fbae"], +Cell[409994, 10363, 616, 13, 48, "Message",ExpressionUUID->"f05cc589-e94c-4578-8126-bced46b4d0f0"], +Cell[410613, 10378, 502, 11, 20, "Message",ExpressionUUID->"dd53749a-7c20-4caa-aec5-1e1b869f0778"], +Cell[411118, 10391, 219, 4, 38, "Output",ExpressionUUID->"f75a24a8-0684-4cde-9500-124bdfb906b2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[411374, 10400, 2053, 55, 68, "Input",ExpressionUUID->"0137ed47-cd78-284a-910a-31d165f1571c"], +Cell[413430, 10457, 20387, 382, 189, "Output",ExpressionUUID->"9960643e-bc5b-4f6a-bf3b-b83b210acbb1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[433854, 10844, 2166, 61, 112, "Input",ExpressionUUID->"00a32bc3-df79-9e43-8f20-d4884962c12d"], +Cell[436023, 10907, 521, 11, 32, "Message",ExpressionUUID->"7b0079d2-f09e-4719-94f1-7e0cddcca131"], +Cell[436547, 10920, 524, 11, 32, "Message",ExpressionUUID->"9b908c30-d98b-4c53-9466-0e6cdb79d29c"], +Cell[437074, 10933, 528, 11, 32, "Message",ExpressionUUID->"63d39deb-3ee1-467b-85a8-b1c2adddc14d"], +Cell[437605, 10946, 479, 10, 20, "Message",ExpressionUUID->"9afe6205-5c63-4ea7-9287-13b93c8d275e"], +Cell[438087, 10958, 23044, 424, 186, "Output",ExpressionUUID->"9b72d10d-33d9-433d-a747-8876b19d31a9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[461168, 11387, 164, 4, 23, "Input",ExpressionUUID->"344da507-9044-ef47-aa8c-99f282e3d6d3"], +Cell[461335, 11393, 29479, 557, 186, "Output",ExpressionUUID->"07dde160-c052-47df-b468-fb1deddb6a93"] +}, Open ]], +Cell[CellGroupData[{ +Cell[490851, 11955, 1616, 48, 59, "Input",ExpressionUUID->"f13d1bd8-d153-ae43-b041-68b993e77854"], +Cell[492470, 12005, 654, 13, 50, "Message",ExpressionUUID->"2a3e76f8-6266-4fe9-a88a-e55aa0c9228b"], +Cell[493127, 12020, 660, 13, 50, "Message",ExpressionUUID->"2e43766c-2201-4a85-92e7-fc36791090ef"], +Cell[493790, 12035, 660, 13, 50, "Message",ExpressionUUID->"45bf1502-e2b4-44c4-b08b-8efba935cd14"], +Cell[494453, 12050, 504, 11, 20, "Message",ExpressionUUID->"9aa69291-742b-40ef-a902-181fa7b88ee3"], +Cell[494960, 12063, 170, 3, 26, "Output",ExpressionUUID->"8aacbadb-7dda-4b86-8555-f222f26e20f8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[495167, 12071, 2272, 64, 122, "Input",ExpressionUUID->"53e25fab-b431-cc42-a467-e4dea0353ed0"], +Cell[497442, 12137, 612, 13, 48, "Message",ExpressionUUID->"dc234405-c2fb-45a6-8d1c-c8bf859a436f"], +Cell[498057, 12152, 615, 13, 48, "Message",ExpressionUUID->"f433d206-d023-4888-8305-dd29597c9a08"], +Cell[498675, 12167, 618, 13, 48, "Message",ExpressionUUID->"c1737bf9-b500-4463-84e1-327451df1e96"], +Cell[499296, 12182, 506, 11, 20, "Message",ExpressionUUID->"6efc6a5d-a36d-47f4-a0d2-b37ed18fb7ae"], +Cell[499805, 12195, 220, 4, 26, "Output",ExpressionUUID->"4ee304bd-535c-41ed-a92c-8a6a14de6092"] +}, Open ]], +Cell[CellGroupData[{ +Cell[500062, 12204, 2246, 64, 122, "Input",ExpressionUUID->"b18c819e-620a-d449-97d6-547e3a6fa152"], +Cell[502311, 12270, 610, 13, 48, "Message",ExpressionUUID->"72159c33-5954-4854-8755-4eb266235b84"], +Cell[502924, 12285, 613, 13, 48, "Message",ExpressionUUID->"70202078-d43f-4eae-a028-fbfaf3409261"], +Cell[503540, 12300, 616, 13, 48, "Message",ExpressionUUID->"d2cfdf69-b206-48cf-8357-2622500f1549"], +Cell[504159, 12315, 504, 11, 20, "Message",ExpressionUUID->"2431faaf-6110-4592-b9f5-c1189a33e948"], +Cell[504666, 12328, 222, 4, 38, "Output",ExpressionUUID->"5f0db9b0-7598-402c-a682-4ff9e19c7e34"] +}, Open ]], +Cell[CellGroupData[{ +Cell[504925, 12337, 2244, 64, 122, "Input",ExpressionUUID->"22ab74c7-5916-9440-9d7d-c3e0f6ab8836"], +Cell[507172, 12403, 610, 13, 48, "Message",ExpressionUUID->"b31f5c5a-cef8-493e-96b7-d2d426d6dbad"], +Cell[507785, 12418, 615, 13, 48, "Message",ExpressionUUID->"f6591778-a3e1-4226-818b-eff0bc22ad79"], +Cell[508403, 12433, 618, 13, 48, "Message",ExpressionUUID->"98cbc908-95a1-4add-8100-3264b22eca8a"], +Cell[509024, 12448, 506, 11, 20, "Message",ExpressionUUID->"260b5979-99a4-44ad-9c4d-5fd62b78a7dd"], +Cell[509533, 12461, 218, 4, 38, "Output",ExpressionUUID->"0860c78b-128d-4158-a506-3ab4eb4644c2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[509788, 12470, 238, 6, 38, "Input",ExpressionUUID->"f9c66987-c237-7a40-a006-e20e260dbdcb"], +Cell[510029, 12478, 221, 4, 38, "Output",ExpressionUUID->"238c7521-11d6-4e4d-9afd-eb23254e72db"] +}, Open ]], +Cell[510265, 12485, 275, 6, 23, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[CellGroupData[{ +Cell[510565, 12495, 558, 19, 42, "Input",ExpressionUUID->"a401ff2f-0c49-174e-9005-1c04f93e9e0d"], +Cell[511126, 12516, 220, 4, 38, "Output",ExpressionUUID->"f03d60e4-1511-48ee-b444-a714177e98d1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511383, 12525, 170, 5, 45, "Input",ExpressionUUID->"f96fdb9e-e8d1-c74d-a973-e9d03a063710"], +Cell[511556, 12532, 219, 4, 38, "Output",ExpressionUUID->"1f451e81-f163-46b7-8eed-a78b04b50d10"] +}, Open ]], +Cell[CellGroupData[{ +Cell[511812, 12541, 181, 5, 35, "Input",ExpressionUUID->"199c667f-be6b-fd40-bac5-bf87b109f4eb"], +Cell[511996, 12548, 220, 4, 38, "Output",ExpressionUUID->"b075fd3e-2f3b-41e4-b738-56bda35d3d9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[512253, 12557, 6055, 185, 412, "Input",ExpressionUUID->"8666e95e-b2e9-2e4d-af31-7c0466f6da3f"], +Cell[518311, 12744, 222, 4, 38, "Output",ExpressionUUID->"8f2ea1cd-53fd-4840-819d-1b9c22244214"] +}, Open ]], +Cell[CellGroupData[{ +Cell[518570, 12753, 368, 9, 34, "Input",ExpressionUUID->"3f821f99-4c61-8244-9f39-b02a8247a19c"], +Cell[518941, 12764, 220, 4, 38, "Output",ExpressionUUID->"4c7da448-c919-4091-8844-0ebf1bb221a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[519198, 12773, 6122, 187, 412, "Input",ExpressionUUID->"95ae37d9-e738-da42-9bae-a0a492fc5380"], +Cell[525323, 12962, 221, 4, 38, "Output",ExpressionUUID->"a3265a6f-358f-4b61-9d40-a52c9448e296"] +}, Open ]], +Cell[CellGroupData[{ +Cell[525581, 12971, 368, 9, 34, "Input",ExpressionUUID->"41f5782d-0fa9-2547-95fe-d8b549105a42"], +Cell[525952, 12982, 217, 4, 38, "Output",ExpressionUUID->"b3186920-fa31-43da-b44c-70610fdb24c7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[526206, 12991, 2663, 88, 143, "Input",ExpressionUUID->"d97cbadb-6f95-5a47-9617-8d40bcea10e8"], +Cell[528872, 13081, 218, 4, 38, "Output",ExpressionUUID->"831a7896-3e3d-49b2-bd98-cb392bd58e7a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529127, 13090, 2603, 85, 143, "Input",ExpressionUUID->"af5cf9f8-9590-ff48-8848-9396d3323464"], +Cell[531733, 13177, 218, 4, 38, "Output",ExpressionUUID->"333fbc34-dfbe-411b-8139-3065ee20c7c9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[531988, 13186, 3712, 118, 210, "Input",ExpressionUUID->"bf95ea83-581e-f54f-a48e-b93e8f63083a"], +Cell[535703, 13306, 219, 4, 38, "Output",ExpressionUUID->"4759d739-6c3a-44ac-9aa3-0767926fd09f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[535959, 13315, 2075, 59, 82, "Input",ExpressionUUID->"55d51961-97f2-ed4d-8bf8-8a461d652ab4"], +Cell[538037, 13376, 610, 13, 48, "Message",ExpressionUUID->"3dbcd7eb-e500-42aa-9428-8ca86a8885cb"], +Cell[538650, 13391, 615, 13, 48, "Message",ExpressionUUID->"6b1f23ee-d9f2-4cfc-ab10-479fe608da7d"], +Cell[539268, 13406, 619, 13, 48, "Message",ExpressionUUID->"48494406-dd53-49c5-ac1b-b145417d3a97"], +Cell[539890, 13421, 505, 11, 20, "Message",ExpressionUUID->"14cea65a-4651-4c19-99c0-83d3ca22063b"], +Cell[540398, 13434, 218, 4, 38, "Output",ExpressionUUID->"64cfaf38-af20-4788-8b95-3b0770c267ce"] +}, Open ]], +Cell[CellGroupData[{ +Cell[540653, 13443, 2075, 59, 82, "Input",ExpressionUUID->"9704b9d3-b449-2144-9970-6a7de047241d"], +Cell[542731, 13504, 611, 13, 48, "Message",ExpressionUUID->"e6a2e91e-fea7-4140-a6e9-5b00ffdfb2a0"], +Cell[543345, 13519, 618, 13, 48, "Message",ExpressionUUID->"4f96666f-4e66-4091-a9d6-2f66e20bccc5"], +Cell[543966, 13534, 618, 13, 48, "Message",ExpressionUUID->"1395affe-60c6-4fe0-bffa-50a55d4b21a9"], +Cell[544587, 13549, 506, 11, 20, "Message",ExpressionUUID->"5c3ca0a5-5da6-437e-89a8-a046c6e54f1d"], +Cell[545096, 13562, 217, 4, 38, "Output",ExpressionUUID->"cd6b9476-2b2f-4cf4-83fb-514d331cb8a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[545350, 13571, 2051, 55, 68, "Input",ExpressionUUID->"0fd90636-7592-fc40-bf9d-ae1cb915c656"], +Cell[547404, 13628, 20419, 384, 200, "Output",ExpressionUUID->"b7dadcdb-0cb1-491b-9de2-cc40be12ed2b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[567860, 14017, 2176, 61, 123, "Input",ExpressionUUID->"90696e8b-5a2d-314c-8d58-ac84cb8f4d66"], +Cell[570039, 14080, 530, 11, 32, "Message",ExpressionUUID->"1d46097d-8b7e-41f6-905d-96dc4018a19c"], +Cell[570572, 14093, 535, 11, 32, "Message",ExpressionUUID->"66622d03-1fee-48a8-ac48-ebd8f33b7ad5"], +Cell[571110, 14106, 535, 11, 32, "Message",ExpressionUUID->"92491d40-9f3e-4cd6-8c8e-fa15f51bce36"], +Cell[571648, 14119, 487, 10, 20, "Message",ExpressionUUID->"68e04625-4642-437f-a255-a2a663de8d07"], +Cell[572138, 14131, 22736, 418, 197, "Output",ExpressionUUID->"ebac424d-0249-44fb-b9cd-12d07f270f8a"] +}, Open ]], +Cell[CellGroupData[{ +Cell[594911, 14554, 240, 5, 35, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[595154, 14561, 29136, 551, 197, "Output",ExpressionUUID->"1b3f0e6c-e600-42f2-84ec-8d3b68e20971"] +}, Open ]], +Cell[CellGroupData[{ +Cell[624327, 15117, 1624, 48, 70, "Input",ExpressionUUID->"cee00bc1-3ccc-914d-8ba9-008ac67b1c9c"], +Cell[625954, 15167, 3097, 48, 73, "Message",ExpressionUUID->"06262046-f098-46f5-855f-35dcfeea8d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[629088, 15220, 2280, 64, 134, "Input",ExpressionUUID->"80bba3bc-d8f7-1c4b-9262-0895c02ffd8f"], +Cell[631371, 15286, 594, 12, 48, "Message",ExpressionUUID->"dc1b2063-9c6f-4169-a5e1-ca943a0815db"], +Cell[631968, 15300, 601, 12, 48, "Message",ExpressionUUID->"bfad3723-f014-4a66-bc1f-5ad06d7e2f41"], +Cell[632572, 15314, 603, 12, 48, "Message",ExpressionUUID->"8a6c8e1c-b568-42d8-8ac8-8a30e28c308b"], +Cell[633178, 15328, 489, 10, 20, "Message",ExpressionUUID->"7d0985f4-ff53-4006-a651-1dfc9d887795"], +Cell[633670, 15340, 203, 3, 38, "Output",ExpressionUUID->"d0963cc4-859d-4542-bac8-ed629be0e663"] +}, Open ]], +Cell[CellGroupData[{ +Cell[633910, 15348, 2252, 64, 63, "Input",ExpressionUUID->"57976ffc-56f1-604b-8519-bead95265db8"], +Cell[636165, 15414, 597, 12, 32, "Message",ExpressionUUID->"47c6abb5-8d1b-4ca0-a440-623ff2d2051a"], +Cell[636765, 15428, 600, 12, 32, "Message",ExpressionUUID->"c3b7ed70-321d-43df-8bee-3161beaa0240"], +Cell[637368, 15442, 602, 12, 48, "Message",ExpressionUUID->"d0eaa79d-ebe3-4dcf-b550-5b92c118ba2d"], +Cell[637973, 15456, 488, 10, 20, "Message",ExpressionUUID->"0446f28f-a985-49a4-b3a9-17193853e55d"], +Cell[638464, 15468, 204, 3, 38, "Output",ExpressionUUID->"d4bc6433-9f3b-46d4-a47e-ce1dc8d9f31e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[638705, 15476, 2250, 64, 134, "Input",ExpressionUUID->"cfa37210-3ae7-3f49-b290-f19508c6d2f1"], +Cell[640958, 15542, 593, 12, 48, "Message",ExpressionUUID->"e461b031-ad96-430d-b27f-92cbab03a5cf"], +Cell[641554, 15556, 600, 12, 48, "Message",ExpressionUUID->"b66a5eed-9a05-4e21-92db-ce2cb6bfbd95"], +Cell[642157, 15570, 602, 12, 48, "Message",ExpressionUUID->"66afc9ba-9ad2-4435-b70d-528769fea26d"], +Cell[642762, 15584, 486, 10, 20, "Message",ExpressionUUID->"bf8c52c9-8f7f-4433-85da-8e8d84989640"], +Cell[643251, 15596, 202, 3, 38, "Output",ExpressionUUID->"4d9fc2da-fe98-442b-909d-dbcba12a7a47"] +}, Open ]], +Cell[CellGroupData[{ +Cell[643490, 15604, 242, 6, 50, "Input",ExpressionUUID->"7457b456-6d32-5b44-9679-346c5f5ac532"], +Cell[643735, 15612, 204, 3, 38, "Output",ExpressionUUID->"6159abac-cad3-4118-bbe2-3fea1af77e48"] }, Open ]] } ] *) -(* End of internal cache information *) - diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb index f12ae18..cbcf385 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_osc_Qw1.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 585889, 14419] -NotebookOptionsPosition[ 544146, 13754] -NotebookOutlinePosition[ 544605, 13772] -CellTagsIndexPosition[ 544562, 13769] +NotebookDataLength[ 601595, 14824] +NotebookOptionsPosition[ 559176, 14142] +NotebookOutlinePosition[ 559952, 14169] +CellTagsIndexPosition[ 559872, 14164] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -21,15 +21,24 @@ Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"d", "=", "3"}]], "Input", + RowBox[{"d", "=", "1.8"}]], "Input", CellChangeTimes->{ 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, - 3.9920650045886707`*^9},ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-\ -8326f7c1a9b1"], + 3.9920650045886707`*^9, {3.993120093374651*^9, 3.993120098406262*^9}, { + 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, + 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { + 3.993120826638487*^9, 3.99312091050727*^9}, {3.993134989219914*^9, + 3.99313504530585*^9}}, + CellLabel-> + "In[265]:=",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], -Cell[BoxData["3"], "Output", - CellChangeTimes->{3.991320420900818*^9}, - CellLabel->"Out[46]=",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] +Cell[BoxData["1.8`"], "Output", + CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, + 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}, + 3.993134742771702*^9, 3.993134997755999*^9, {3.9931350356393623`*^9, + 3.9931350524140167`*^9}}, + CellLabel-> + "Out[265]=",ExpressionUUID->"b532b330-b3df-4187-a8c0-349e8433ee17"] }, Open ]], Cell[CellGroupData[{ @@ -38,11 +47,18 @@ Cell[BoxData[ RowBox[{"A", "=", "240"}]], "Input", CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { 3.9921791748924236`*^9, 3.992179175479521*^9}}, - CellLabel->"In[2]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], + CellLabel-> + "In[266]:=",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], Cell[BoxData["240"], "Output", - CellChangeTimes->{3.9913196497381973`*^9, 3.992179197984804*^9}, - CellLabel->"Out[2]=",ExpressionUUID->"4a4f3c62-bf4d-4f46-b820-7316e2b63cd1"] + CellChangeTimes->{ + 3.9913196497381973`*^9, 3.992179197984804*^9, 3.992572214097535*^9, + 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, + 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { + 3.9931208090163393`*^9, 3.993120918005108*^9}, 3.9931347430379744`*^9, + 3.993134997841199*^9, {3.993135035716744*^9, 3.993135052450088*^9}}, + CellLabel-> + "Out[266]=",ExpressionUUID->"ccc0084e-2d94-4188-8ecd-701a3f60ffb4"] }, Open ]], Cell[CellGroupData[{ @@ -51,11 +67,18 @@ Cell[BoxData[ RowBox[{"A1", "=", " ", "174"}]], "Input", CellChangeTimes->{ 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, - CellLabel->"In[3]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], + CellLabel-> + "In[267]:=",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], Cell[BoxData["174"], "Output", - CellChangeTimes->{3.992179213346216*^9}, - CellLabel->"Out[3]=",ExpressionUUID->"56a25e73-0044-2e4f-a1d1-08f8b605dce1"] + CellChangeTimes->{ + 3.992179213346216*^9, 3.992572214121804*^9, 3.992572317082644*^9, + 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, + 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, + 3.993120918033216*^9}, 3.9931347430633507`*^9, 3.993134997869379*^9, { + 3.993135035747711*^9, 3.993135052454007*^9}}, + CellLabel-> + "Out[267]=",ExpressionUUID->"1f445879-e90c-431e-822f-5c5c7149f36c"] }, Open ]], Cell[CellGroupData[{ @@ -63,11 +86,18 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"a1", "=", "0.55"}]], "Input", CellChangeTimes->{3.9434144380252676`*^9}, - CellLabel->"In[4]:=",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], + CellLabel-> + "In[268]:=",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.992572214146598*^9, 3.992572317086834*^9, + 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, + 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, + 3.993120918037675*^9}, 3.9931347430884113`*^9, 3.99313499789655*^9, { + 3.99313503577457*^9, 3.9931350524834433`*^9}}, + CellLabel-> + "Out[268]=",ExpressionUUID->"30ed4780-808e-43e9-b9fc-2093fad1dbc3"] }, Open ]], Cell[CellGroupData[{ @@ -79,22 +109,36 @@ Cell[BoxData[ FractionBox[ RowBox[{ RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", - CellLabel->"In[5]:=",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], + CellLabel-> + "In[269]:=",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.54325`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.992572214170871*^9, 3.992572317111895*^9, + 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, + 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, + 3.993120918063335*^9}, 3.993134743112905*^9, 3.993134997901278*^9, { + 3.993135035802964*^9, 3.9931350525122643`*^9}}, + CellLabel-> + "Out[269]=",ExpressionUUID->"5771dfa7-0c1e-40fc-8898-9f95829a1266"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"p0", "=", "0.17"}]], "Input", - CellLabel->"In[6]:=",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], + CellLabel-> + "In[270]:=",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.992572214197208*^9, 3.992572317132773*^9, + 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, + 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, + 3.993120918090218*^9}, 3.9931347431373777`*^9, 3.993134997928665*^9, { + 3.9931350358279457`*^9, 3.993135052542343*^9}}, + CellLabel-> + "Out[270]=",ExpressionUUID->"5108cd9f-f24c-41f4-9a6e-75388c409cb3"] }, Open ]], Cell[CellGroupData[{ @@ -105,11 +149,18 @@ 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[271]:=",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.4760133991237705`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.992572214222725*^9, 3.992572317154562*^9, + 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, + 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, + 3.9931209181194077`*^9}, 3.9931347431619053`*^9, 3.993134997956275*^9, { + 3.993135035855137*^9, 3.993135052571168*^9}}, + CellLabel-> + "Out[271]=",ExpressionUUID->"8df13b31-f7c1-4ece-a4a0-d76ad9025dd4"] }, Open ]], Cell[CellGroupData[{ @@ -121,11 +172,18 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"A", "-", "A1"}], ")"}], RowBox[{"1", "/", "3"}]]}]}]], "Input", - CellLabel->"In[8]:=",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], + CellLabel-> + "In[272]:=",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.6878384239217405`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992572214247353*^9, 3.9925723171758833`*^9, + 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, + 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, + 3.993120918144981*^9}, 3.99313474318574*^9, 3.993134997983452*^9, { + 3.993135035880789*^9, 3.993135052599888*^9}}, + CellLabel-> + "Out[272]=",ExpressionUUID->"28fda591-2b58-4eb9-b112-0b2534636cae"] }, Open ]], Cell[CellGroupData[{ @@ -134,11 +192,18 @@ Cell[BoxData[ RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", CellChangeTimes->{ 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, - CellLabel->"In[5]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], + CellLabel-> + "In[273]:=",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], Cell[BoxData["0.787635594208527`"], "Output", - CellChangeTimes->{3.9921792420000687`*^9}, - CellLabel->"Out[5]=",ExpressionUUID->"d4a79d0a-c33e-7b48-a36a-baaf07895183"] + CellChangeTimes->{ + 3.9921792420000687`*^9, 3.992572214271277*^9, 3.992572317197154*^9, + 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, + 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, + 3.993120918172269*^9}, 3.993134743209297*^9, 3.993134998011485*^9, { + 3.9931350359080563`*^9, 3.9931350526300077`*^9}}, + CellLabel-> + "Out[273]=",ExpressionUUID->"e9835c4e-249f-444d-bc6b-38b4f54e5246"] }, Open ]], Cell[CellGroupData[{ @@ -147,33 +212,54 @@ Cell[BoxData[ RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", CellChangeTimes->{ 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, - CellLabel->"In[4]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], + CellLabel-> + "In[274]:=",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], Cell[BoxData["0.446333511300556`"], "Output", - CellChangeTimes->{3.9921792398346214`*^9}, - CellLabel->"Out[4]=",ExpressionUUID->"240ba6c8-e382-9640-a885-b1b92fc93d62"] + CellChangeTimes->{ + 3.9921792398346214`*^9, 3.992572214295*^9, 3.992572317218054*^9, + 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, + 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, + 3.99312091819843*^9}, 3.993134743233984*^9, 3.993134998039769*^9, { + 3.9931350359344254`*^9, 3.993135052659095*^9}}, + CellLabel-> + "Out[274]=",ExpressionUUID->"ae7508a7-d59a-46a4-9fc3-32077dd2a4d9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x1", "=", "0"}]], "Input", - CellLabel->"In[11]:=",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], + CellLabel-> + "In[275]:=",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.992572214318672*^9, 3.992572317239251*^9, + 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, + 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, + 3.993120918224504*^9}, 3.9931347432581663`*^9, 3.993134998066351*^9, { + 3.9931350359626503`*^9, 3.993135052688636*^9}}, + CellLabel-> + "Out[275]=",ExpressionUUID->"de8f01c3-8c54-49c0-a907-a94de9bdef0b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"x2", "=", "0"}]], "Input", - CellLabel->"In[12]:=",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], + CellLabel-> + "In[276]:=",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.992572214341442*^9, 3.99257231726003*^9, + 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, + 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, + 3.993120918250256*^9}, 3.993134743281494*^9, 3.9931349980923843`*^9, { + 3.99313503599017*^9, 3.9931350527204037`*^9}}, + CellLabel-> + "Out[276]=",ExpressionUUID->"4d0285bc-5d29-4eb3-9383-71720dde2c5b"] }, Open ]], Cell[CellGroupData[{ @@ -197,11 +283,18 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[13]:=",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], + CellLabel-> + "In[277]:=",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.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9925722143657017`*^9, 3.992572317280959*^9, + 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, + 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, + 3.993120918276112*^9}, 3.9931347433054857`*^9, 3.9931349981195307`*^9, { + 3.9931350360174103`*^9, 3.993135052749385*^9}}, + CellLabel-> + "Out[277]=",ExpressionUUID->"be51ea6f-4314-452c-8000-ef6b27723a69"] }, Open ]], Cell[CellGroupData[{ @@ -225,11 +318,18 @@ Cell[BoxData[ SqrtBox[ FractionBox["5", RowBox[{"16", "\[Pi]"}]]]}]}]]}]], "Input", - CellLabel->"In[14]:=",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], + CellLabel-> + "In[278]:=",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.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992572214389948*^9, 3.992572317303102*^9, + 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, + 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, + 3.99312091830203*^9}, 3.993134743309739*^9, 3.993134998146562*^9, { + 3.993135036042922*^9, 3.993135052779193*^9}}, + CellLabel-> + "Out[278]=",ExpressionUUID->"d353232d-fa02-4a6e-ade4-8693d768d343"] }, Open ]], Cell[CellGroupData[{ @@ -282,11 +382,18 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[16]:=",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], + CellLabel-> + "In[279]:=",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.4893939523240862`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, + 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, + 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, + 3.99312091832813*^9}, 3.99313474333535*^9, 3.993134998174756*^9, { + 3.993135036069942*^9, 3.993135052808929*^9}}, + CellLabel-> + "Out[279]=",ExpressionUUID->"a867d7f5-2b27-4f20-8630-7c9bb9c028bd"] }, Open ]], Cell[CellGroupData[{ @@ -335,12 +442,19 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel->"In[17]:=",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], + CellLabel-> + "In[280]:=",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.11691975046471094`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, + 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, + 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, + 3.99312091835464*^9}, 3.993134743360277*^9, 3.993134998201195*^9, { + 3.9931350360982723`*^9, 3.99313505283784*^9}}, + CellLabel-> + "Out[280]=",ExpressionUUID->"f40cca7a-d6bd-46bc-9083-eb3bf610e50f"] }, Open ]], Cell[CellGroupData[{ @@ -389,12 +503,19 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]], "Input", - CellLabel->"In[18]:=",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], + CellLabel-> + "In[281]:=",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.47923841529777084`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, + 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, + 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, + 3.993120918381035*^9}, 3.993134743386394*^9, 3.993134998228512*^9, { + 3.993135036125785*^9, 3.993135052866681*^9}}, + CellLabel-> + "Out[281]=",ExpressionUUID->"294eb510-f072-4c6d-9f6e-dfc805f730c1"] }, Open ]], Cell[CellGroupData[{ @@ -447,44 +568,72 @@ Cell[BoxData[ RowBox[{"d", "*", SuperscriptBox["w2", "2"], "*", SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", - CellLabel->"In[19]:=",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], + CellLabel-> + "In[282]:=",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.6645788995097195`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, + 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, + 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, + 3.993120918385751*^9}, 3.9931347434164877`*^9, 3.993134998255419*^9, { + 3.993135036154846*^9, 3.993135052896648*^9}}, + CellLabel-> + "Out[282]=",ExpressionUUID->"41702782-9c7b-4e0c-b2a2-45e459920ee1"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"C0", "=", "300"}]], "Input", - CellLabel->"In[20]:=",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], + CellLabel-> + "In[283]:=",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.992572214515427*^9, 3.99257231741498*^9, + 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, + 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, + 3.9931209184116087`*^9}, 3.9931347434437113`*^9, 3.993134998281929*^9, { + 3.9931350361824007`*^9, 3.993135052927137*^9}}, + CellLabel-> + "Out[283]=",ExpressionUUID->"dd293ec1-c520-428b-a61d-38391f57b1ac"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"fin", "=", "0.09"}]], "Input", - CellLabel->"In[21]:=",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], + CellLabel-> + "In[284]:=",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.9925722145429707`*^9, 3.992572317437202*^9, + 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, + 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, + 3.9931209184381313`*^9}, 3.993134743470888*^9, 3.9931349983098297`*^9, { + 3.9931350362101593`*^9, 3.993135052956464*^9}}, + CellLabel-> + "Out[284]=",ExpressionUUID->"424eeb83-2158-4d70-842b-38a56199ba47"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffin", "=", "0.42"}]], "Input", - CellLabel->"In[22]:=",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], + CellLabel-> + "In[285]:=",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.992572214574439*^9, 3.992572317459443*^9, + 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, + 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, + 3.9931209184643908`*^9}, 3.993134743499847*^9, 3.99313499831374*^9, { + 3.993135036240407*^9, 3.993135052985285*^9}}, + CellLabel-> + "Out[285]=",ExpressionUUID->"a3d78d8c-bcf9-4416-946a-42c62b5550c6"] }, Open ]], Cell[CellGroupData[{ @@ -493,23 +642,37 @@ 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[286]:=",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.992572214602646*^9, 3.9925723174828*^9, + 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, + 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, + 3.993120918489931*^9}, 3.993134743534677*^9, 3.99313499834161*^9, { + 3.9931350362689037`*^9, 3.9931350530144033`*^9}}, + CellLabel-> + "Out[286]=",ExpressionUUID->"fddc7aef-2980-4156-9646-3a040e86192a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ffex", "=", "0.54"}]], "Input", - CellLabel->"In[24]:=",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], + CellLabel-> + "In[287]:=",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.992572214629313*^9, 3.992572317507607*^9, + 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, + 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, + 3.993120918515835*^9}, 3.9931347435657682`*^9, 3.99313499836791*^9, { + 3.993135036298246*^9, 3.993135053045412*^9}}, + CellLabel-> + "Out[287]=",ExpressionUUID->"e4e59962-02db-4eee-9bfe-9e017f410a6c"] }, Open ]], Cell[CellGroupData[{ @@ -519,11 +682,18 @@ Cell[BoxData[ CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { 3.992179334842106*^9, 3.992179335687786*^9}}, - CellLabel->"In[7]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], + CellLabel-> + "In[288]:=",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], Cell[BoxData["64"], "Output", - CellChangeTimes->{3.992179336847067*^9}, - CellLabel->"Out[7]=",ExpressionUUID->"ce192b42-76d8-3a45-9997-3705d5a92d64"] + CellChangeTimes->{ + 3.992179336847067*^9, 3.9925722146573257`*^9, 3.992572317531928*^9, + 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, + 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, + 3.993120918541663*^9}, 3.9931347435995493`*^9, 3.993134998394787*^9, { + 3.993135036304146*^9, 3.9931350530751333`*^9}}, + CellLabel-> + "Out[288]=",ExpressionUUID->"3f73d01a-62b6-4f18-83ed-a49841807a14"] }, Open ]], Cell[CellGroupData[{ @@ -533,12 +703,18 @@ Cell[BoxData[ RowBox[{"94", "-", "Z1"}]}]], "Input", CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, - CellLabel->"In[6]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], + CellLabel-> + "In[289]:=",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[BoxData[ - RowBox[{"94", "-", "Z1"}]], "Output", - CellChangeTimes->{3.9913197867928696`*^9, 3.9921793318030663`*^9}, - CellLabel->"Out[6]=",ExpressionUUID->"48127ebb-1887-da43-b821-cc9188acc232"] +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9921793318030663`*^9, 3.9925722146853657`*^9, + 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, + 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { + 3.993120809536613*^9, 3.9931209185672503`*^9}, 3.993134743633935*^9, + 3.993134998422023*^9, {3.993135036355897*^9, 3.993135053103792*^9}}, + CellLabel-> + "Out[289]=",ExpressionUUID->"03e3910e-b9c8-4402-b097-46aeb67de349"] }, Open ]], Cell[CellGroupData[{ @@ -547,11 +723,18 @@ 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[290]:=",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["66"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992572214711643*^9, 3.9925723175775127`*^9, + 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, + 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, + 3.993120918592782*^9}, 3.99313474366775*^9, 3.993134998449078*^9, { + 3.993135036385668*^9, 3.993135053132902*^9}}, + CellLabel-> + "Out[290]=",ExpressionUUID->"4cd13e34-fefe-4fba-941b-d252535c7d6f"] }, Open ]], Cell[CellGroupData[{ @@ -566,11 +749,18 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[28]:=",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], + CellLabel-> + "In[291]:=",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.10009404388714734`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9925722147384853`*^9, 3.9925723175992517`*^9, + 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, + 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, + 3.993120918618535*^9}, 3.9931347436980057`*^9, 3.993134998476166*^9, { + 3.99313503641591*^9, 3.993135053163355*^9}}, + CellLabel-> + "Out[291]=",ExpressionUUID->"7474e1fc-59a5-4fe8-9bbc-63b0b2f8c472"] }, Open ]], Cell[CellGroupData[{ @@ -585,12 +775,19 @@ Cell[BoxData[ FractionBox[ RowBox[{"A2", "-", RowBox[{"2", "*", "Z2"}]}], "A2"]}]}]}]], "Input", - CellLabel->"In[29]:=",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], + CellLabel-> + "In[292]:=",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.5770219435736674`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9925722147662983`*^9, 3.992572317620441*^9, + 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, + 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, + 3.99312091864408*^9}, 3.99313474372805*^9, 3.9931349985024633`*^9, { + 3.993135036445772*^9, 3.9931350531960917`*^9}}, + CellLabel-> + "Out[292]=",ExpressionUUID->"4d2ad327-741f-451d-8aa8-30a42a2b8657"] }, Open ]], Cell[CellGroupData[{ @@ -620,13 +817,19 @@ 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[293]:=",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.107103859214785`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, + 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, + 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, + 3.99312091866967*^9}, 3.993134743756988*^9, 3.9931349985295897`*^9, { + 3.9931350364767838`*^9, 3.9931350532269773`*^9}}, + CellLabel-> + "Out[293]=",ExpressionUUID->"069eaff6-07ca-4028-b554-fa84143e74f1"] }, Open ]], Cell[CellGroupData[{ @@ -634,11 +837,18 @@ 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[294]:=",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.992572214844244*^9, 3.992572317663885*^9, + 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, + 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, + 3.993120918694831*^9}, 3.9931347437844687`*^9, 3.993134998555769*^9, { + 3.993135036506748*^9, 3.9931350532570887`*^9}}, + CellLabel-> + "Out[294]=",ExpressionUUID->"b2f256b6-a5ff-450f-bfae-9811fb559d1f"] }, Open ]], Cell[CellGroupData[{ @@ -648,17 +858,24 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { 3.99217938935705*^9, 3.9921793928277493`*^9}}, - CellLabel->"In[8]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], + CellLabel-> + "In[295]:=",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], Cell[BoxData["1.73`"], "Output", - CellChangeTimes->{3.992179393619543*^9}, - CellLabel->"Out[8]=",ExpressionUUID->"7e065166-098d-e64d-9755-0343fb91a7a3"] + CellChangeTimes->{ + 3.992179393619543*^9, 3.99257221486978*^9, 3.9925723176844263`*^9, + 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, + 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, + 3.9931209187201843`*^9}, 3.993134743846882*^9, 3.993134998581218*^9, { + 3.9931350365383453`*^9, 3.993135053287065*^9}}, + CellLabel-> + "Out[295]=",ExpressionUUID->"6d05b844-127d-4fcc-98d9-7771d7e0c6cd"] }, 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[296]:=",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ @@ -667,17 +884,24 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { 3.992179397583227*^9, 3.992179400444868*^9}}, - CellLabel->"In[9]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], + CellLabel-> + "In[297]:=",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], Cell[BoxData["0.76`"], "Output", - CellChangeTimes->{3.992179401201977*^9}, - CellLabel->"Out[9]=",ExpressionUUID->"4568959e-8357-a941-86ee-9e0738db37d0"] + CellChangeTimes->{ + 3.992179401201977*^9, 3.992572214909528*^9, 3.992572317717004*^9, + 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, + 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, + 3.993120918756428*^9}, 3.9931347438895397`*^9, 3.993134998619347*^9, { + 3.9931350365827093`*^9, 3.9931350533293*^9}}, + CellLabel-> + "Out[297]=",ExpressionUUID->"d9989874-160d-44e1-acdf-d01be96ac934"] }, 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[298]:=",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ @@ -686,17 +910,24 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, - CellLabel->"In[10]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], + CellLabel-> + "In[299]:=",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], Cell[BoxData["2.4`"], "Output", - CellChangeTimes->{3.992179407540327*^9}, - CellLabel->"Out[10]=",ExpressionUUID->"d1e0c0fb-c1fe-474d-b753-e32fec84425e"] + CellChangeTimes->{ + 3.992179407540327*^9, 3.992572214945683*^9, 3.9925723177561007`*^9, + 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, + 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, + 3.993120918792803*^9}, 3.993134743928393*^9, 3.993134998658043*^9, { + 3.99313503663376*^9, 3.993135053373273*^9}}, + CellLabel-> + "Out[299]=",ExpressionUUID->"e8222d41-d51d-414a-b69f-4d14dc4eb7a6"] }, 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[300]:=",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ @@ -705,17 +936,24 @@ Cell[BoxData[ CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, - CellLabel->"In[11]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], + CellLabel-> + "In[301]:=",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], Cell[BoxData["1.105`"], "Output", - CellChangeTimes->{3.992179415754301*^9}, - CellLabel->"Out[11]=",ExpressionUUID->"5fde13cb-ad9a-b942-b5e7-0bfb84635642"] + CellChangeTimes->{ + 3.992179415754301*^9, 3.992572214981649*^9, 3.992572317797142*^9, + 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, + 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, + 3.993120918832294*^9}, 3.993134743966653*^9, 3.99313499869597*^9, { + 3.993135036698681*^9, 3.993135053417836*^9}}, + CellLabel-> + "Out[301]=",ExpressionUUID->"e13f5eec-5541-4c26-b9e4-8c0577d0104f"] }, 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[302]:=",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ @@ -724,17 +962,24 @@ Cell[BoxData[ CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, 3.992179423583313*^9}}, - CellLabel->"In[12]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], + CellLabel-> + "In[303]:=",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], Cell[BoxData["1.4012`"], "Output", - CellChangeTimes->{3.9921794257836323`*^9}, - CellLabel->"Out[12]=",ExpressionUUID->"a896dc51-a614-1542-a083-12b1fd350591"] + CellChangeTimes->{ + 3.9921794257836323`*^9, 3.992572215020274*^9, 3.9925723178372593`*^9, + 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, + 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, + 3.993120918882786*^9}, 3.993134744007799*^9, 3.993134998736259*^9, { + 3.993135036742041*^9, 3.9931350534838142`*^9}}, + CellLabel-> + "Out[303]=",ExpressionUUID->"2c6e967c-5dea-4a29-b1de-f07841536bc5"] }, 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[304]:=",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ @@ -743,17 +988,24 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, 3.9921794329809513`*^9}}, - CellLabel->"In[13]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], + CellLabel-> + "In[305]:=",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], Cell[BoxData["0.5547`"], "Output", - CellChangeTimes->{3.9921794363325005`*^9}, - CellLabel->"Out[13]=",ExpressionUUID->"a1160edd-29d5-0643-a9b4-2a0c8687671e"] + CellChangeTimes->{ + 3.9921794363325005`*^9, 3.992572215056624*^9, 3.992572317866984*^9, + 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, + 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, + 3.993120918919759*^9}, 3.993134744044718*^9, 3.9931349987922707`*^9, { + 3.993135036785055*^9, 3.993135053544447*^9}}, + CellLabel-> + "Out[305]=",ExpressionUUID->"ec097b7c-431d-4e58-98bf-fe70c0813c9f"] }, 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[306]:=",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ @@ -762,17 +1014,24 @@ Cell[BoxData[ CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, 3.992179445208559*^9}}, - CellLabel->"In[14]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], + CellLabel-> + "In[307]:=",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], Cell[BoxData["1.1338`"], "Output", - CellChangeTimes->{3.99217944657938*^9}, - CellLabel->"Out[14]=",ExpressionUUID->"1d096934-3f2c-d145-a3ad-71fe8ddc39c4"] + CellChangeTimes->{ + 3.99217944657938*^9, 3.992572215093463*^9, 3.992572317906247*^9, + 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, + 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, + 3.993120918956725*^9}, 3.993134744080912*^9, 3.993134998848926*^9, { + 3.993135036828738*^9, 3.9931350536018953`*^9}}, + CellLabel-> + "Out[307]=",ExpressionUUID->"c23956d6-a9fa-4e3f-8d33-7d9edc8fe190"] }, 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[308]:=",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ @@ -780,17 +1039,24 @@ Cell[BoxData[ RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, - CellLabel->"In[15]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], + CellLabel-> + "In[309]:=",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], Cell[BoxData["0.85`"], "Output", - CellChangeTimes->{3.992179452410452*^9}, - CellLabel->"Out[15]=",ExpressionUUID->"a2d62cc7-6150-7e4e-87be-073edbded81e"] + CellChangeTimes->{ + 3.992179452410452*^9, 3.9925722151320877`*^9, 3.99257231794547*^9, + 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, + 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, + 3.993120919005844*^9}, 3.993134744119977*^9, 3.993134998905088*^9, { + 3.9931350368706512`*^9, 3.993135053656687*^9}}, + CellLabel-> + "Out[309]=",ExpressionUUID->"7881f412-d8f7-4a62-ac89-5f95e06d92bb"] }, 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[310]:=",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ @@ -1279,11 +1545,18 @@ uqGsPRlEX0mNSgPRXnceZoPoDSbehSB6SvLGGhCdc8irHkR/+P9xMojmebJt Glj8mvkOEH3rit5uEG3S7nIIRDvtUjkKojnvv74Dor8WP70LovsqM7+A6Ffr ZL+CaDemTb9BtM3RxwzNQBoAtp2g4A== "], - CellLabel->"In[40]:=",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], + CellLabel-> + "In[311]:=",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.2740681472438999`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, + 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, + 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, + 3.993120919069702*^9}, 3.993134744239924*^9, 3.993134998992125*^9, { + 3.993135036954089*^9, 3.993135053739421*^9}}, + CellLabel-> + "Out[311]=",ExpressionUUID->"86f48f79-83a0-400b-8df5-551dd4962072"] }, Open ]], Cell[CellGroupData[{ @@ -1777,11 +2050,18 @@ 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[312]:=",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.729727276682354`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, + 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, + 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, + 3.9931209190984907`*^9}, 3.993134744272599*^9, 3.993134999026846*^9, { + 3.9931350369889317`*^9, 3.993135053773179*^9}}, + CellLabel-> + "Out[312]=",ExpressionUUID->"46e2171b-dbeb-499d-b50b-84660ba15b00"] }, Open ]], Cell[CellGroupData[{ @@ -2269,12 +2549,19 @@ 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[313]:=",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[{"-", "33.539435872430126`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, + 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, + 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, + 3.9931209191268253`*^9}, 3.993134744304491*^9, 3.993134999141789*^9, { + 3.993135037031605*^9, 3.9931350538089533`*^9}}, + CellLabel-> + "Out[313]=",ExpressionUUID->"bb5d30ca-594e-48eb-b85b-1a7ea71a32e9"] }, Open ]], Cell[CellGroupData[{ @@ -2832,12 +3119,19 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[43]:=",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], + CellLabel-> + "In[314]:=",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[{"-", "42.596524206199966`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, + 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, + 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, + 3.993120919158321*^9}, 3.993134744339035*^9, 3.993134999231772*^9, { + 3.993135037073079*^9, 3.99313505385363*^9}}, + CellLabel-> + "Out[314]=",ExpressionUUID->"172c8b8f-dda1-403b-9688-acf59eb77a54"] }, Open ]], Cell[CellGroupData[{ @@ -3395,12 +3689,19 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[44]:=",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], + CellLabel-> + "In[315]:=",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[{"-", "101.06737781470315`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, + 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, + 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, + 3.993120919189701*^9}, 3.9931347443739853`*^9, 3.993134999281555*^9, { + 3.993135037113385*^9, 3.993135053897942*^9}}, + CellLabel-> + "Out[315]=",ExpressionUUID->"7212bd4a-c994-41ca-9c05-425ca1d7f90e"] }, Open ]], Cell[CellGroupData[{ @@ -4031,34 +4332,55 @@ Cell[BoxData[ RowBox[{"r", ",", "0", ",", "\[Infinity]"}], "}"}], ",", RowBox[{"Method", "\[Rule]", StyleBox["Trapezoidal", "MR"]}]}], "]"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[45]:=",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], + CellLabel-> + "In[316]:=",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[{"-", "257.9635659781649`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, + 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, + 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, + 3.993120919227768*^9}, 3.9931347444140882`*^9, 3.99313499933856*^9, { + 3.993135037166707*^9, 3.99313505394471*^9}}, + CellLabel-> + "Out[316]=",ExpressionUUID->"e421037e-6d93-4574-83dd-7ee4d3ed53d3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U21", "=", "0"}]], "Input", - CellLabel->"In[47]:=",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], + CellLabel-> + "In[317]:=",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.9925722154529037`*^9, 3.9925723182371407`*^9, + 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, + 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, + 3.9931209192549257`*^9}, 3.993134744440781*^9, 3.993134999367407*^9, { + 3.993135037198052*^9, 3.9931350539743958`*^9}}, + CellLabel-> + "Out[317]=",ExpressionUUID->"f030bb03-50eb-45bb-bfd0-5154f28e4c9f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"U22", "=", "0"}]], "Input", - CellLabel->"In[48]:=",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], + CellLabel-> + "In[318]:=",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.992572215478106*^9, 3.992572318257779*^9, + 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, + 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, + 3.993120919282319*^9}, 3.993134744468108*^9, 3.993134999395873*^9, { + 3.993135037228589*^9, 3.993135054004466*^9}}, + CellLabel-> + "Out[318]=",ExpressionUUID->"4bb3a1db-1aab-4886-b03b-41a19a72e4e4"] }, Open ]], Cell[CellGroupData[{ @@ -4102,11 +4424,18 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[49]:=",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], + CellLabel-> + "In[319]:=",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["206.09321333582264`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, + 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, + 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, + 3.9931209193092546`*^9}, 3.993134744498087*^9, 3.993134999425312*^9, { + 3.993135037259708*^9, 3.993135054035349*^9}}, + CellLabel-> + "Out[319]=",ExpressionUUID->"82de7934-a1a1-4efd-a73c-01fa66f8cd73"] }, Open ]], Cell[CellGroupData[{ @@ -4146,12 +4475,19 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[50]:=",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], + CellLabel-> + "In[320]:=",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[{"-", "161.1868287134346`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, + 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, + 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, + 3.9931209193366623`*^9}, 3.99313474452669*^9, 3.9931349994551487`*^9, { + 3.993135037292728*^9, 3.993135054065679*^9}}, + CellLabel-> + "Out[320]=",ExpressionUUID->"480bf2eb-d6fb-4e2b-9d75-1443479b493d"] }, Open ]], Cell[CellGroupData[{ @@ -4195,73 +4531,122 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]], "Input", - CellLabel->"In[51]:=",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], + CellLabel-> + "In[321]:=",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["193.7537427380251`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, + 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, + 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, + 3.993120919363965*^9}, 3.993134744555958*^9, 3.993134999484087*^9, { + 3.993135037297474*^9, 3.9931350540969467`*^9}}, + CellLabel-> + "Out[321]=",ExpressionUUID->"073626e7-e352-4bbe-81da-265884d0215d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c11"], "Input", - CellLabel->"In[52]:=",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], + CellLabel-> + "In[322]:=",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.4893939523240862`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, + 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, + 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, + 3.993120919368601*^9}, 3.993134744582694*^9, 3.993134999512033*^9, { + 3.993135037346089*^9, 3.9931350541272907`*^9}}, + CellLabel-> + "Out[322]=",ExpressionUUID->"cee12910-d1e2-4d79-b5fd-4b2a2a92f6b2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c12"], "Input", - CellLabel->"In[53]:=",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], + CellLabel-> + "In[323]:=",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.11691975046471094`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, + 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, + 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, + 3.993120919396596*^9}, 3.993134744610354*^9, 3.99313499954023*^9, { + 3.993135037375564*^9, 3.993135054157281*^9}}, + CellLabel-> + "Out[323]=",ExpressionUUID->"9fe39435-db76-4670-ae78-d939a575eecd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c21"], "Input", - CellLabel->"In[54]:=",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], + CellLabel-> + "In[324]:=",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.47923841529777084`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, + 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, + 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, + 3.993120919423568*^9}, 3.993134744637541*^9, 3.993134999569889*^9, { + 3.9931350374057302`*^9, 3.993135054187793*^9}}, + CellLabel-> + "Out[324]=",ExpressionUUID->"457ae2ea-da12-4ce3-8ef7-405b8829a668"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["c22"], "Input", - CellLabel->"In[55]:=",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], + CellLabel-> + "In[325]:=",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.6645788995097195`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, + 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, + 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, + 3.993120919451396*^9}, 3.9931347446651373`*^9, 3.9931349995981903`*^9, { + 3.9931350374350224`*^9, 3.993135054219619*^9}}, + CellLabel-> + "Out[325]=",ExpressionUUID->"6e20ce5a-ae44-4798-b45f-85585abd04b4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w1"], "Input", - CellLabel->"In[56]:=",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], + CellLabel-> + "In[326]:=",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.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9925722156840057`*^9, 3.992572318405039*^9, + 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, + 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, + 3.9931209194800158`*^9}, 3.993134744692719*^9, 3.993134999626665*^9, { + 3.993135037463669*^9, 3.993135054250494*^9}}, + CellLabel-> + "Out[326]=",ExpressionUUID->"1d30c9f4-d9ef-48da-8d45-29f71bb7ffd4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["w2"], "Input", - CellLabel->"In[57]:=",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], + CellLabel-> + "In[327]:=",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.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.992572215708795*^9, 3.992572318425254*^9, + 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, + 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, + 3.993120919508306*^9}, 3.993134744720708*^9, 3.99313499965539*^9, { + 3.993135037492754*^9, 3.993135054279746*^9}}, + CellLabel-> + "Out[327]=",ExpressionUUID->"ecbf4cf9-3cd0-4a44-9ed8-b06863d97dfc"] }, Open ]], Cell[CellGroupData[{ @@ -4282,12 +4667,19 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]], "Input", - CellLabel->"In[58]:=",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], + CellLabel-> + "In[328]:=",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[{"-", "32.4727450296612`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, + 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, + 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, + 3.993120919536584*^9}, 3.9931347447565947`*^9, 3.9931349996821747`*^9, { + 3.993135037522345*^9, 3.993135054310727*^9}}, + CellLabel-> + "Out[328]=",ExpressionUUID->"9829e8e1-9da2-4440-b5cd-b5f48e331083"] }, Open ]], Cell[CellGroupData[{ @@ -4308,12 +4700,19 @@ Cell[BoxData[ RowBox[{ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]], "Input", - CellLabel->"In[59]:=",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], + CellLabel-> + "In[329]:=",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[{"-", "8.129129787064175`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, + 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, + 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, + 3.9931209195640697`*^9}, 3.993134744791518*^9, 3.993134999711343*^9, { + 3.993135037550852*^9, 3.9931350543152933`*^9}}, + CellLabel-> + "Out[329]=",ExpressionUUID->"5e1e8c36-9445-4a45-88f3-1b8549c7a9f4"] }, Open ]], Cell[CellGroupData[{ @@ -4378,11 +4777,18 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b1", "*", "b1"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[60]:=",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], + CellLabel-> + "In[330]:=",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["173.62046830616146`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, + 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, + 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, + 3.9931209195925417`*^9}, 3.993134744877664*^9, 3.993134999739513*^9, { + 3.99313503758*^9, 3.993135054346014*^9}}, + CellLabel-> + "Out[330]=",ExpressionUUID->"5303967b-ea01-4765-9d9a-1c7a34974992"] }, Open ]], Cell[CellGroupData[{ @@ -4423,12 +4829,19 @@ Cell[BoxData[ RowBox[{ FractionBox["5", RowBox[{"2", "\[Pi]"}]], "U51"}]}], ")"}]}]}], ")"}]}]}]], "Input", - CellLabel->"In[61]:=",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], + CellLabel-> + "In[331]:=",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[{"-", "161.1868287134346`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, + 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, + 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, + 3.993120919619622*^9}, 3.993134744911325*^9, 3.993134999766654*^9, { + 3.9931350376094913`*^9, 3.993135054376782*^9}}, + CellLabel-> + "Out[331]=",ExpressionUUID->"d69377b0-f0f2-4a26-a0f5-72ee40d8e414"] }, Open ]], Cell[CellGroupData[{ @@ -4494,11 +4907,18 @@ Cell[BoxData[ FractionBox["6", RowBox[{"7", "\[Pi]"}]], "*", "b2", "*", "b2"}]}], ")"}]}]}]}]], "Input", - CellLabel->"In[62]:=",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], + CellLabel-> + "In[332]:=",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["185.6246129509609`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, + 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, + 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, + 3.993120919646469*^9}, 3.9931347449448442`*^9, 3.993134999794159*^9, { + 3.993135037639023*^9, 3.993135054406411*^9}}, + CellLabel-> + "Out[332]=",ExpressionUUID->"a21af433-69fe-44f9-8e01-1a2a9967fcd3"] }, Open ]], Cell[CellGroupData[{ @@ -4556,11 +4976,18 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[63]:=",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], + CellLabel-> + "In[333]:=",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["127.62329334000697`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, + 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, + 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, + 3.993120919673271*^9}, 3.9931347449790297`*^9, 3.9931349998290157`*^9, { + 3.9931350376681023`*^9, 3.99313505443533*^9}}, + CellLabel-> + "Out[333]=",ExpressionUUID->"09aff34a-e383-4665-9574-184ccc40a669"] }, Open ]], Cell[CellGroupData[{ @@ -4618,34 +5045,68 @@ Cell[BoxData[ RowBox[{"4", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}]}]], ")"}], "2"], "*", RowBox[{"(", "BBB22", ")"}]}]}]}]], "Input", - CellLabel->"In[64]:=",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], + CellLabel-> + "In[334]:=",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["1146.2262301533601`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, + 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, + 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, + 3.993120919701824*^9}, 3.993134745012808*^9, 3.993134999858131*^9, { + 3.993135037697556*^9, 3.993135054471257*^9}}, + CellLabel-> + "Out[334]=",ExpressionUUID->"1a8382d0-31e5-4ad7-a737-56b5e8a2ae0f"] }, 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.8333468042"}]], "Input", CellChangeTimes->{ - 3.991799414288656*^9},ExpressionUUID->"6c8cc5df-ad31-9945-825b-\ -23c469148e55"], + 3.991799412462593*^9, 3.992572229806829*^9, {3.992572279435697*^9, + 3.992572282385153*^9}}, + CellLabel-> + "In[335]:=",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], + +Cell[BoxData["0.8333468042`"], "Output", + CellChangeTimes->{ + 3.992572318631011*^9, 3.993119179530076*^9, 3.993120126727765*^9, + 3.993120629988052*^9, 3.993120735335403*^9, 3.9931207803021107`*^9, { + 3.993120810831423*^9, 3.993120919729392*^9}, 3.993134745046548*^9, + 3.993134999886196*^9, {3.993135037730551*^9, 3.9931350545032587`*^9}}, + CellLabel-> + "Out[335]=",ExpressionUUID->"ebd28a45-37aa-4e77-95ff-3b7518d6551f"] +}, 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[336]:=",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"f2", "=", "0.6106568045"}]], "Input", + CellChangeTimes->{ + 3.991799414288656*^9, {3.992572286410081*^9, 3.992572288591158*^9}}, + CellLabel-> + "In[337]:=",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], + +Cell[BoxData["0.6106568045`"], "Output", + CellChangeTimes->{ + 3.992572318669566*^9, 3.993119179578452*^9, 3.993120126760256*^9, + 3.993120630033472*^9, 3.993120735368615*^9, 3.993120780339034*^9, { + 3.993120811036275*^9, 3.993120919780933*^9}, 3.993134745095756*^9, + 3.993134999925337*^9, {3.993135037772379*^9, 3.993135054544642*^9}}, + CellLabel-> + "Out[337]=",ExpressionUUID->"822ff289-36dd-4834-93fc-4eb7af24fd1a"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848669922333*^9, 3.9918486699293537`*^9}}, + CellLabel-> + "In[338]:=",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ @@ -4691,11 +5152,18 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "15"}]]}], ")"}], "1"], "*", "d"}]}], ")"}], "2"]}], ")"}]}]], "Input", - CellLabel->"In[67]:=",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], + CellLabel-> + "In[339]:=",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.3915391096243312`*^-53"], "Output", + CellChangeTimes->{ + 3.99132042156752*^9, 3.9925722159738398`*^9, 3.9925723187404118`*^9, + 3.9931191796129*^9, 3.993120126797122*^9, 3.993120630083839*^9, + 3.993120735417178*^9, 3.993120780379445*^9, {3.993120811074397*^9, + 3.993120919832655*^9}, 3.993134745145226*^9, 3.993134999963829*^9, { + 3.993135037812469*^9, 3.993135054588017*^9}}, + CellLabel-> + "Out[339]=",ExpressionUUID->"2d528345-e9ab-4bd8-9a2e-8d657ec54773"] }, Open ]], Cell[CellGroupData[{ @@ -4729,13 +5197,19 @@ 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[340]:=",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.1230421507062127`*^-54"], "Output", + CellChangeTimes->{ + 3.99132042159643*^9, 3.9925722159999027`*^9, 3.992572318761401*^9, + 3.9931191796360188`*^9, 3.993120126819615*^9, 3.993120630113196*^9, + 3.993120735437621*^9, 3.99312078040622*^9, {3.9931208111000223`*^9, + 3.993120919859518*^9}, 3.993134745180222*^9, 3.993134999992584*^9, { + 3.9931350378428097`*^9, 3.993135054617633*^9}}, + CellLabel-> + "Out[340]=",ExpressionUUID->"8f14117c-cd4a-48e1-9224-5c7c472dc9b2"] }, Open ]], Cell[CellGroupData[{ @@ -4768,13 +5242,19 @@ 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[341]:=",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["3.51351975187821`*^-54"], "Output", + CellChangeTimes->{ + 3.9913204216085243`*^9, 3.992572216026574*^9, 3.992572318783682*^9, + 3.993119179658983*^9, 3.9931201268427267`*^9, 3.993120630141178*^9, + 3.993120735457993*^9, 3.9931207804329853`*^9, {3.993120811124702*^9, + 3.993120919886578*^9}, 3.993134745218058*^9, 3.993135000020245*^9, { + 3.9931350378714647`*^9, 3.993135054647695*^9}}, + CellLabel-> + "Out[341]=",ExpressionUUID->"bd791a8f-9fcd-4b89-ab18-b8694c99991d"] }, Open ]], Cell[CellGroupData[{ @@ -4798,18 +5278,22 @@ Cell[BoxData[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", CellLabel-> - "In[670]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], + "In[342]:=",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[BoxData["20.232611751799567`"], "Output", +Cell[BoxData["12.350478336256169`"], "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.992572216051639*^9, + 3.992572318787856*^9, 3.993119179681815*^9, 3.993120126865144*^9, + 3.99312063016835*^9, 3.993120735477162*^9, 3.993120780459095*^9, { + 3.99312081114933*^9, 3.9931209199135103`*^9}, 3.993134745257194*^9, + 3.993135000048037*^9, {3.9931350379006567`*^9, 3.9931350546780167`*^9}}, CellLabel-> - "Out[670]=",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] + "Out[342]=",ExpressionUUID->"bd001cb1-4a45-41c7-b430-ee09941837af"] }, Open ]], Cell[CellGroupData[{ @@ -4836,18 +5320,22 @@ Cell[BoxData[ RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", CellChangeTimes->{3.992086162437586*^9}, CellLabel-> - "In[671]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], + "In[343]:=",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[BoxData["61.811743284264836`"], "Output", +Cell[BoxData["50.4711532561381`"], "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.992572216078087*^9, 3.9925723188275003`*^9, + 3.993119179704794*^9, 3.9931201268866777`*^9, 3.99312063019658*^9, + 3.993120735497006*^9, 3.993120780485326*^9, {3.993120811174397*^9, + 3.993120919941325*^9}, 3.993134745295041*^9, 3.993135000075602*^9, { + 3.9931350379298553`*^9, 3.993135054708672*^9}}, CellLabel-> - "Out[671]=",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] + "Out[343]=",ExpressionUUID->"83e2e676-103c-421a-8a33-1590d9459c73"] }, Open ]], Cell[CellGroupData[{ @@ -4857,18 +5345,22 @@ Cell[BoxData[ SqrtBox[ FractionBox["Kb", "Qb2"]]}]], "Input", CellLabel-> - "In[672]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], + "In[344]:=",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[BoxData["2.078701539535334`"], "Output", +Cell[BoxData["3.214571460307878`"], "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.992572216104237*^9, + 3.992572318851293*^9, 3.993119179754738*^9, 3.9931201269078703`*^9, + 3.9931206367788277`*^9, 3.993120735517454*^9, 3.9931207805115347`*^9, { + 3.9931208111993237`*^9, 3.9931209199678783`*^9}, 3.993134745299844*^9, + 3.993135000102624*^9, {3.993135037961005*^9, 3.993135054738546*^9}}, CellLabel-> - "Out[672]=",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] + "Out[344]=",ExpressionUUID->"af8d0611-916a-40a4-8235-e0dbbcee4d5a"] }, Open ]], Cell[CellGroupData[{ @@ -4879,17 +5371,22 @@ Cell[BoxData[ FractionBox["Kw", "Qw2"]]}]], "Input", CellChangeTimes->{{3.992086303949501*^9, 3.992086304210249*^9}}, CellLabel-> - "In[673]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], + "In[345]:=",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[BoxData["5.12428714806174`"], "Output", +Cell[BoxData["4.765555778338291`"], "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.992572216131082*^9, 3.992572318875443*^9, 3.9931191797784*^9, + 3.993120126929338*^9, 3.993120644780542*^9, 3.9931207355264797`*^9, + 3.993120780544077*^9, {3.993120811223709*^9, 3.99312091999437*^9}, + 3.99313474533982*^9, 3.993135000130045*^9, {3.993135037983925*^9, + 3.993135054768073*^9}}, CellLabel-> - "Out[673]=",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] + "Out[345]=",ExpressionUUID->"7276fc2b-32cc-40b2-bb62-66775e78f2d1"] }, Open ]], Cell[CellGroupData[{ @@ -4900,18 +5397,22 @@ Cell[BoxData[ RowBox[{"Qw2", "*", "hw"}], "1"]}]], "Input", CellChangeTimes->{3.992086167409481*^9}, CellLabel-> - "In[674]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], + "In[346]:=",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[BoxData["316.7411217108498`"], "Output", +Cell[BoxData["240.52309603918636`"], "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.99257221615522*^9, 3.992572318900923*^9, + 3.993119179802146*^9, 3.99312012695065*^9, 3.993120651688364*^9, + 3.9931207355359573`*^9, 3.993120780570775*^9, {3.993120811248013*^9, + 3.9931209200459337`*^9}, 3.9931347453770247`*^9, 3.9931350001603127`*^9, { + 3.993135038006143*^9, 3.993135054797456*^9}}, CellLabel-> - "Out[674]=",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] + "Out[346]=",ExpressionUUID->"471fdba1-5c82-4a8d-aa97-b8178b4be918"] }, Open ]], Cell[CellGroupData[{ @@ -4921,18 +5422,22 @@ Cell[BoxData[ FractionBox[ RowBox[{"Qb2", "*", "hb"}], "1"]}]], "Input", CellLabel-> - "In[675]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], + "In[347]:=",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[BoxData["42.05756119728645`"], "Output", +Cell[BoxData["39.7014951808798`"], "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.9925722161824293`*^9, + 3.992572318926599*^9, 3.993119179825605*^9, 3.99312012697173*^9, + 3.993120654519829*^9, 3.993120735545637*^9, 3.993120780596869*^9, { + 3.993120811272787*^9, 3.993120920072809*^9}, 3.9931347454140387`*^9, + 3.993135000188291*^9, {3.993135038026829*^9, 3.993135054826989*^9}}, CellLabel-> - "Out[675]=",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] + "Out[347]=",ExpressionUUID->"7473c32b-824c-41c6-9cc3-2be9b14d5c9c"] }, Open ]], Cell[CellGroupData[{ @@ -5122,18 +5627,22 @@ Cell[BoxData[ RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", CellLabel-> - "In[676]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], + "In[348]:=",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[BoxData["0.007069898460535921`"], "Output", +Cell[BoxData["0.004343660862837304`"], "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.99257221620927*^9, 3.9925723189538813`*^9, + 3.993119179849881*^9, 3.993120126993631*^9, 3.993120666447638*^9, + 3.993120735555725*^9, 3.993120780623123*^9, {3.993120811297988*^9, + 3.993120920099532*^9}, 3.993134745455284*^9, 3.9931350002156353`*^9, { + 3.9931350380483007`*^9, 3.993135054858551*^9}}, CellLabel-> - "Out[676]=",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] + "Out[348]=",ExpressionUUID->"0a7ed2cf-0636-4219-80a9-641d0a944484"] }, Open ]], Cell[CellGroupData[{ @@ -5147,17 +5656,24 @@ Cell[BoxData[ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellLabel-> - "In[677]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], + "In[349]:=",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[BoxData["10.539945190547895`"], "Output", +Cell[BoxData["13.446739323646947`"], "Output", + CellFrame->{{0, 0}, {0, 0}}, 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.992572237656403*^9, 3.9925723190093107`*^9, 3.9931191800227613`*^9, + 3.993120127039193*^9, {3.993120711767684*^9, 3.993120735600266*^9}, + 3.993120780667444*^9, {3.9931208113403873`*^9, 3.993120920143339*^9}, + 3.993134745617689*^9, 3.993135000277349*^9, {3.993135038389254*^9, + 3.993135054900625*^9}}, + Background->RGBColor[0.88, 1, 0.88], CellLabel-> - "Out[677]=",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] + "Out[349]=",ExpressionUUID->"10d33318-1434-44dc-b7af-ce0891069cbb"] }, Open ]], Cell[BoxData[ @@ -5170,7 +5686,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[350]:=",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ @@ -5192,11 +5708,18 @@ Cell[BoxData[ FractionBox[ RowBox[{"Ih", "*", "Ir"}], RowBox[{"Ih", "+", "Ir"}]]}]}]], "Input", - CellLabel->"In[70]:=",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], + CellLabel-> + "In[351]:=",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["40.710735840828534`"], "Output", + CellChangeTimes->{ + 3.991320421637537*^9, 3.993119819829062*^9, 3.9931201270730677`*^9, + 3.993120735621442*^9, 3.993120780707309*^9, {3.993120811378684*^9, + 3.993120920191085*^9}, 3.993121005860128*^9, 3.9931210564420843`*^9, + 3.993134745669756*^9, 3.993135000331353*^9, {3.9931350385213327`*^9, + 3.9931350549468822`*^9}}, + CellLabel-> + "Out[351]=",ExpressionUUID->"4cbeb93a-ad22-4f43-a71f-fcf483939cc6"] }, Open ]], Cell[CellGroupData[{ @@ -5221,11 +5744,23 @@ Cell[BoxData[ RowBox[{"(", RowBox[{"Ih", "+", "Il"}], ")"}], "*", "Ir"}], RowBox[{"Ih", "+", "Ir", "+", "Il"}]]}]}]], "Input", - CellLabel->"In[71]:=",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], + CellFrame->{{0, 0}, {0, 0}}, + Background->RGBColor[0.87, 0.94, 1], + CellTags->"evaluate for d", + CellLabel-> + "In[264]:=",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["58.13970222575384`"], "Output", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{ + 3.9913204216685333`*^9, 3.9931198155549803`*^9, 3.9931201270902777`*^9, + 3.9931207356417093`*^9, 3.9931207807325487`*^9, {3.9931208114034243`*^9, + 3.993120920217353*^9}, 3.993121005870536*^9, 3.993121056474043*^9, + 3.993134745705722*^9, 3.993135000361124*^9, 3.993135038545847*^9}, + Background->RGBColor[0.87, 0.94, 1], + CellTags->"evaluate for d", + CellLabel-> + "Out[264]=",ExpressionUUID->"174b5dac-f3e7-4993-ad59-bf55f8af777c"] }, Open ]], Cell[CellGroupData[{ @@ -5234,11 +5769,14 @@ Cell[BoxData[ RowBox[{"hb", "=", SqrtBox[ FractionBox["Kb", "Qb3"]]}]], "Input", - CellLabel->"In[72]:=",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], + CellLabel-> + "In[898]:=",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.7705593846810994`"], "Output", + CellChangeTimes->{3.991320421698473*^9, 3.993121005879211*^9, + 3.993121056496807*^9}, + CellLabel-> + "Out[898]=",ExpressionUUID->"bbf18cf2-8673-41f9-8a78-a53a71fdc751"] }, Open ]], Cell[CellGroupData[{ @@ -5246,12 +5784,22 @@ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"hw", "=", SqrtBox[ - FractionBox["Kw", "Qw3"]]}]], "Input", - CellLabel->"In[73]:=",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], + RowBox[{ + FractionBox["Kw", "Qw3"], + RowBox[{"\[AliasDelimiter]", + RowBox[{"\[AliasDelimiter]", "\[AliasDelimiter]"}]}]}]]}]], "Input", + CellChangeTimes->{{3.993120043433605*^9, 3.993120080888587*^9}}, + CellLabel-> + "In[899]:=",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[ + RowBox[{"4.765555778338291`", " ", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]}]], "Output", + CellChangeTimes->{3.991320421726494*^9, 3.993121005887855*^9, + 3.993121056518838*^9}, + CellLabel-> + "Out[899]=",ExpressionUUID->"8018b7e0-0def-4cc7-ac92-8cc8194db855"] }, Open ]], Cell[CellGroupData[{ @@ -5260,11 +5808,17 @@ Cell[BoxData[ RowBox[{"Cw", "=", FractionBox[ RowBox[{"Qw3", "*", "hw"}], "1"]}]], "Input", - CellLabel->"In[74]:=",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], + CellLabel-> + "In[900]:=",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[ + RowBox[{"240.52309603918636`", " ", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]}]], "Output", + CellChangeTimes->{3.9913204217554817`*^9, 3.9931210058981657`*^9, + 3.993121056541285*^9}, + CellLabel-> + "Out[900]=",ExpressionUUID->"3a79fb68-0a2c-43e3-9b3e-ea610874d5ea"] }, Open ]], Cell[CellGroupData[{ @@ -5273,11 +5827,14 @@ Cell[BoxData[ RowBox[{"Cb", "=", FractionBox[ RowBox[{"Qb3", "*", "hb"}], "1"]}]], "Input", - CellLabel->"In[75]:=",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], + CellLabel-> + "In[901]:=",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["72.08077540025215`"], "Output", + CellChangeTimes->{3.9913204217855225`*^9, 3.993121005907679*^9, + 3.993121056563224*^9}, + CellLabel-> + "Out[901]=",ExpressionUUID->"fc590d50-9d34-4722-8d3f-9bfd21768337"] }, Open ]], Cell[CellGroupData[{ @@ -5466,11 +6023,19 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[76]:=",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], + CellLabel-> + "In[902]:=",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[ + FractionBox["13390.159210117996`", + RowBox[{"965173.058598133`", "\[VeryThinSpace]", "+", + RowBox[{"2.5510804986123275`*^6", " ", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]}]}]]], "Output", + CellChangeTimes->{3.9913204218154297`*^9, 3.9931210059165583`*^9, + 3.993121056585721*^9}, + CellLabel-> + "Out[902]=",ExpressionUUID->"aff64ccd-d44a-4615-89c9-3c45d6f4c9b8"] }, Open ]], Cell[CellGroupData[{ @@ -5483,11 +6048,20 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o1"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[77]:=",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], + CellLabel-> + "In[903]:=",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[ + RowBox[{"12.23246978491742`", " ", + SqrtBox[ + RowBox[{"0.3783389270245073`", "\[VeryThinSpace]", "+", + RowBox[{"1.`", " ", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]}]}]]}]], "Output", + CellChangeTimes->{3.991320422776104*^9, 3.9931210066459703`*^9, + 3.9931210566818123`*^9}, + CellLabel-> + "Out[903]=",ExpressionUUID->"bb8bc5c5-444c-4a04-bd4e-0b6832f33e9c"] }, Open ]], Cell[CellGroupData[{ @@ -5678,11 +6252,19 @@ Cell[BoxData[ SuperscriptBox["10", RowBox[{"-", "13"}]]}]], ")"}], RowBox[{"-", "2"}]]}]}]], "Input", - CellLabel->"In[78]:=",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], + CellLabel-> + "In[904]:=",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[ + FractionBox["13390.159210117996`", + RowBox[{"965173.058598133`", "\[VeryThinSpace]", "+", + RowBox[{"38968.596376130685`", " ", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]}]}]]], "Output", + CellChangeTimes->{3.9913204229248886`*^9, 3.993121006658537*^9, + 3.993121056705227*^9}, + CellLabel-> + "Out[904]=",ExpressionUUID->"19d1db02-8742-48ad-97e0-cc7f6ee8d889"] }, Open ]], Cell[CellGroupData[{ @@ -5695,11 +6277,20 @@ Cell[BoxData[ RowBox[{ RowBox[{"-", "x"}], "*", "x", "*", "o2"}]], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", - CellLabel->"In[79]:=",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], + CellLabel-> + "In[905]:=",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[ + RowBox[{"1.5118526023028775`", " ", + SqrtBox[ + RowBox[{"24.767970836879503`", "\[VeryThinSpace]", "+", + RowBox[{"1.`", " ", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]}]}]]}]], "Output", + CellChangeTimes->{3.9913204230053368`*^9, 3.993121007336217*^9, + 3.993121056800115*^9}, + CellLabel-> + "Out[905]=",ExpressionUUID->"2636f1b7-5a20-4000-b632-4b52c1d04e8e"] }, Open ]], Cell[CellGroupData[{ @@ -5791,11 +6382,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[80]:=",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], + CellLabel-> + "In[906]:=",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.10999833674656989`"], "Output", + CellChangeTimes->{3.9913204230393543`*^9, 3.9931210073669453`*^9, + 3.993121056824998*^9}, + CellLabel-> + "Out[906]=",ExpressionUUID->"b29a12d4-c068-48fc-91a0-eea1d62d70a8"] }, Open ]], Cell[CellGroupData[{ @@ -5884,11 +6478,14 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}]}]}]], "Input", - CellLabel->"In[81]:=",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], + CellLabel-> + "In[907]:=",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.8900016632534301`"], "Output", + CellChangeTimes->{3.9913204230728855`*^9, 3.99312100737821*^9, + 3.993121056847259*^9}, + CellLabel-> + "Out[907]=",ExpressionUUID->"70bc626e-3b8c-4cf2-8213-b06d2a8ace28"] }, Open ]], Cell[CellGroupData[{ @@ -6010,17 +6607,21 @@ Cell[BoxData[ FractionBox["25", RowBox[{"32", "\[Pi]"}]], "b2", "*", "b2"}]}], ")"}], "*", "f2"}]}], ")"}], "2"]}]}]], "Input", - CellLabel->"In[82]:=",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], + CellLabel-> + "In[908]:=",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.0978987026595581`"], "Output", + CellChangeTimes->{3.9913204231038837`*^9, 3.9931210073885508`*^9, + 3.993121056869521*^9}, + CellLabel-> + "Out[908]=",ExpressionUUID->"8beeb997-3712-4761-af49-33d982517267"] }, Open ]], Cell[BoxData[ RowBox[{"Clear", "[", - RowBox[{"x", ",", "y"}], "]"}]], "Input",ExpressionUUID->"1cc34a71-05ee-\ -424c-ba53-995669bbcd65"], + RowBox[{"x", ",", "y"}], "]"}]], "Input", + CellLabel-> + "In[909]:=",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ @@ -6081,67 +6682,176 @@ Cell[BoxData[ RowBox[{"h2", "*", "h2"}], "Cb"]}], ")"}]}]], RowBox[{"\[DifferentialD]", "x"}]}]}], ")"}], RowBox[{"\[DifferentialD]", "y"}]}]}], "//", "N"}]}]], "Input", - CellChangeTimes->{ - 3.991799443370365*^9},ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-\ -3a94fbdbad18"], + CellChangeTimes->{3.991799443370365*^9}, + CellLabel-> + "In[910]:=",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.2402053395855346`*^-304\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 910, 85, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231548862`*^9}, + CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, + 3.993121057095438*^9}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], +In[910]:=",ExpressionUUID->"a5e461b4-b6ce-49af-908c-7759f5894c91"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.2402053395855346`*^-304\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 910, 86, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204231788826`*^9}, + CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, + 3.993121057101531*^9}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], +In[910]:=",ExpressionUUID->"771a6564-e9ed-4b62-8e24-2cced17cfc21"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"3.957133822984849`*^-253\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 910, 87, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423191887*^9}, + CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, + 3.993121057104961*^9}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], +In[910]:=",ExpressionUUID->"70753d79-4ba1-44f6-a685-62fcced8c60b"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 83, 4, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 910, 88, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320423200884*^9}, + CellChangeTimes->{3.9913204231548862`*^9, 3.9931210076232777`*^9, + 3.993121057108165*^9}, CellLabel-> "During evaluation of \ -In[83]:=",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], +In[910]:=",ExpressionUUID->"2ab2acdf-3d6b-4249-9af8-b0998c1c9ea9"], -Cell[BoxData["6.198662839936798`"], "Output", - CellChangeTimes->{3.9913204260017204`*^9}, - CellLabel->"Out[83]=",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[BoxData[ + TemplateBox[<|"shortenedBoxes" -> TagBox[ + FractionBox[ + RowBox[{"0.00023071920999030425`", " ", + RowBox[{"(", + RowBox[{ + FractionBox["5.07197163612648`*^-81", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.0001678621521456255`", "\[VeryThinSpace]"}], + "+", + FractionBox["0.004157604888958683`", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + RowBox[{"31", "/", "2"}]], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.010989101548859046`", "\[VeryThinSpace]"}], + "+", + FractionBox["0.004157604888958683`", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + "15"]}]], "+", + FractionBox["2.0416307254075066`*^-67", + RowBox[{ + SuperscriptBox["\[AliasDelimiter]", "42"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.0001678621521456255`", "\[VeryThinSpace]"}], + "+", + FractionBox["0.004157604888958683`", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + RowBox[{"31", "/", "2"}]], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.010989101548859046`", "\[VeryThinSpace]"}], + "+", + FractionBox["0.004157604888958683`", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + "15"]}]], "+", + FractionBox["8.235643471177286`*^-66", + RowBox[{ + SuperscriptBox["\[AliasDelimiter]", "39"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.0001678621521456255`", "\[VeryThinSpace]"}], + "+", + FractionBox["0.004157604888958683`", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + RowBox[{"31", "/", "2"}]], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.010989101548859046`", "\[VeryThinSpace]"}], + "+", + FractionBox["0.004157604888958683`", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + "15"]}]], "+", + FractionBox["4.760561636114128`*^-65", + RowBox[{ + SuperscriptBox["\[AliasDelimiter]", "36"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + TemplateBox[{"22"}, "OutputSizeLimit`Skeleton"], + "\[VeryThinSpace]"}], "+", + TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}], + RowBox[{"31", "/", "2"}]], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.010989101548859046`", "\[VeryThinSpace]"}], + "+", + FractionBox[ + TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + "15"]}]], "+", + FractionBox["9.347695566806817`*^-65", + RowBox[{ + SuperscriptBox["\[AliasDelimiter]", "33"], " ", + TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], " ", + SuperscriptBox[ + RowBox[{"(", + TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"], ")"}], + "15"]}]], "+", + TemplateBox[{"2375"}, "OutputSizeLimit`Skeleton"]}], ")"}]}], + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]], Short[#, 8]& ], "line" -> + 910, "sessionID" -> 25985909090072005749, "byteCount" -> 1754840, "size" -> + 8, "stored" -> False, "expr" -> Missing["NotAvailable", "NewSessionID"], + "wrap" -> OutputSizeLimit`Defer, "version" -> 1|>, + "OutputSizeLimitTemplate"]], "Output", + CellChangeTimes->{3.9913204260017204`*^9, 3.993121041511737*^9, + 3.9931211682294207`*^9}, + CellLabel-> + "Out[910]=",ExpressionUUID->"d82a68f3-1a27-430e-b93d-e437cc881d2d"] }, Open ]], Cell[CellGroupData[{ @@ -6203,67 +6913,120 @@ 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[911]:=",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"}, + "\"\\!\\(\\*FractionBox[\\\"1.2402053395855346`*^-304\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 911, 89, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9913204262354183`*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.993121168521811*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], +In[911]:=",ExpressionUUID->"0c0c60c4-09ea-4bd5-9d80-4bdab798a88a"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"1.2402053395855346`*^-304\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 911, 90, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.99132042625132*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.993121168525882*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +In[911]:=",ExpressionUUID->"bf44a090-6df3-4576-82a7-c1e8d3b947db"], 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"}, + "\"\\!\\(\\*FractionBox[\\\"3.957133822984849`*^-253\\\", \ +\\\"18274627092335829218864095445902180793856136322602419837579292998750581286\ +734132469439962976751467383679745821507584000000000000000000000000\\\"]\\) is \ +too small to represent as a normalized machine number; precision may be lost.\ +\"", 2, 911, 91, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426261322*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.9931211685285797`*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], +In[911]:=",ExpressionUUID->"47902ea8-bb26-4b20-b8d2-107058c54460"], Cell[BoxData[ TemplateBox[{ "General", "stop", "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"General\\\", \ \\\"::\\\", \\\"munfl\\\"}], \\\"MessageName\\\"]\\) will be suppressed \ -during this calculation.\"", 2, 84, 8, 24483298974280422597, "Local"}, +during this calculation.\"", 2, 911, 92, 25985909090072005749, "Local"}, "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991320426270418*^9}, + CellChangeTimes->{3.9913204262354183`*^9, 3.993121168531234*^9}, CellLabel-> "During evaluation of \ -In[84]:=",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], +In[911]:=",ExpressionUUID->"a0e2f71a-23e0-4c5c-b110-5d9e981b26de"], -Cell[BoxData["8.233206772574558`"], "Output", - CellChangeTimes->{3.991320428882721*^9}, - CellLabel->"Out[84]=",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[BoxData[ + TemplateBox[<|"shortenedBoxes" -> TagBox[ + FractionBox[ + RowBox[{"0.00023071920999030425`", " ", + RowBox[{"(", + RowBox[{ + FractionBox["5.07197163612648`*^-81", + RowBox[{ + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.0001678621521456255`", "\[VeryThinSpace]"}], + "+", + FractionBox["0.004157604888958683`", + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + "15"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{"0.010989101548859046`", "\[VeryThinSpace]"}], + "+", + FractionBox[ + TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]]}], ")"}], + RowBox[{"31", "/", "2"}]]}]], "+", + FractionBox["2.0416307254075066`*^-67", + RowBox[{ + SuperscriptBox["\[AliasDelimiter]", "42"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + TemplateBox[{"22"}, "OutputSizeLimit`Skeleton"], + "\[VeryThinSpace]"}], "+", + TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}], + "15"], " ", + SuperscriptBox[ + RowBox[{"(", + RowBox[{ + RowBox[{ + TemplateBox[{"21"}, "OutputSizeLimit`Skeleton"], + "\[VeryThinSpace]"}], "+", + TemplateBox[{"1"}, "OutputSizeLimit`Skeleton"]}], ")"}], + RowBox[{"31", "/", "2"}]]}]], "+", + TemplateBox[{"2378"}, "OutputSizeLimit`Skeleton"]}], ")"}]}], + SqrtBox[ + SuperscriptBox["\[AliasDelimiter]", "3"]]], Short[#, 8]& ], "line" -> + 911, "sessionID" -> 25985909090072005749, "byteCount" -> 1754840, "size" -> + 8, "stored" -> False, "expr" -> Missing["NotAvailable", "NewSessionID"], + "wrap" -> OutputSizeLimit`Defer, "version" -> 1|>, + "OutputSizeLimitTemplate"]], "Output", + CellChangeTimes->{3.991320428882721*^9, 3.993121282011409*^9}, + CellLabel-> + "Out[911]=",ExpressionUUID->"76e24e3e-fc4a-4fa8-a56c-75ff74dc49cc"] }, Open ]], Cell[CellGroupData[{ @@ -6319,389 +7082,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[912]:=",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.9931218653621607`*^9}, + CellLabel-> + "Out[912]=",ExpressionUUID->"0fb0f038-48be-47d2-b17e-c320587ee6d0"] }, Open ]], Cell[CellGroupData[{ @@ -13752,11 +14140,12 @@ Cell[BoxData["0.08333108480569339`"], "Output", "Out[146]=",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{195, Automatic}, {-0.75, Automatic}}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, -Magnification:>0.8 Inherited, -FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +ShowCellTags->True, +Magnification:>0.7 Inherited, +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" ] @@ -13764,662 +14153,678 @@ ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" (* Internal cache information *) (*CellTagsOutline -CellTagsIndex->{} +CellTagsIndex->{ + "evaluate for d"->{ + Cell[217219, 5726, 720, 24, 58, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", + CellTags->"evaluate for d"], + Cell[217942, 5752, 538, 10, 44, "Output",ExpressionUUID->"174b5dac-f3e7-4993-ad59-bf55f8af777c", + CellTags->"evaluate for d"]} + } *) (*CellTagsIndex -CellTagsIndex->{} +CellTagsIndex->{ + {"evaluate for d", 559587, 14156} + } *) (*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, 546, 10, 21, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[1125, 34, 353, 6, 23, "Output",ExpressionUUID->"b532b330-b3df-4187-a8c0-349e8433ee17"] }, Open ]], Cell[CellGroupData[{ -Cell[994, 36, 248, 4, 22, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], -Cell[1245, 42, 174, 2, 25, "Output",ExpressionUUID->"4a4f3c62-bf4d-4f46-b820-7316e2b63cd1"] +Cell[1515, 45, 253, 5, 21, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1771, 52, 494, 8, 23, "Output",ExpressionUUID->"ccc0084e-2d94-4188-8ecd-701a3f60ffb4"] }, Open ]], Cell[CellGroupData[{ -Cell[1456, 49, 228, 4, 22, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], -Cell[1687, 55, 150, 2, 25, "Output",ExpressionUUID->"56a25e73-0044-2e4f-a1d1-08f8b605dce1"] +Cell[2302, 65, 233, 5, 21, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[2538, 72, 470, 8, 23, "Output",ExpressionUUID->"1f445879-e90c-431e-822f-5c5c7149f36c"] }, Open ]], Cell[CellGroupData[{ -Cell[1874, 62, 175, 3, 22, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], -Cell[2052, 67, 152, 2, 25, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] +Cell[3045, 85, 180, 4, 21, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[3228, 91, 468, 8, 23, "Output",ExpressionUUID->"30ed4780-808e-43e9-b9fc-2093fad1dbc3"] }, Open ]], Cell[CellGroupData[{ -Cell[2241, 74, 257, 7, 35, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], -Cell[2501, 83, 168, 2, 25, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] +Cell[3733, 104, 262, 8, 31, "Input",ExpressionUUID->"3b0b73a0-2c54-5344-b35f-f9d9ee0b6951"], +Cell[3998, 114, 473, 8, 23, "Output",ExpressionUUID->"5771dfa7-0c1e-40fc-8898-9f95829a1266"] }, Open ]], Cell[CellGroupData[{ -Cell[2706, 90, 131, 2, 22, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], -Cell[2840, 94, 154, 2, 25, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] +Cell[4508, 127, 136, 3, 21, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[4647, 132, 471, 8, 23, "Output",ExpressionUUID->"5108cd9f-f24c-41f4-9a6e-75388c409cb3"] }, Open ]], Cell[CellGroupData[{ -Cell[3031, 101, 276, 6, 22, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], -Cell[3310, 109, 167, 2, 25, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] +Cell[5155, 145, 281, 7, 21, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[5439, 154, 487, 8, 23, "Output",ExpressionUUID->"8df13b31-f7c1-4ece-a4a0-d76ad9025dd4"] }, Open ]], Cell[CellGroupData[{ -Cell[3514, 116, 257, 7, 22, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], -Cell[3774, 125, 167, 2, 25, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] +Cell[5963, 167, 262, 8, 21, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[6228, 177, 487, 8, 23, "Output",ExpressionUUID->"28fda591-2b58-4eb9-b112-0b2534636cae"] }, Open ]], Cell[CellGroupData[{ -Cell[3978, 132, 242, 4, 22, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], -Cell[4223, 138, 167, 2, 25, "Output",ExpressionUUID->"d4a79d0a-c33e-7b48-a36a-baaf07895183"] +Cell[6752, 190, 247, 5, 21, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[7002, 197, 485, 8, 23, "Output",ExpressionUUID->"e9835c4e-249f-444d-bc6b-38b4f54e5246"] }, Open ]], Cell[CellGroupData[{ -Cell[4427, 145, 244, 4, 22, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], -Cell[4674, 151, 167, 2, 25, "Output",ExpressionUUID->"240ba6c8-e382-9640-a885-b1b92fc93d62"] +Cell[7524, 210, 249, 5, 21, "Input",ExpressionUUID->"c984ea2d-3d65-1d43-b11d-50fde111107a"], +Cell[7776, 217, 485, 8, 23, "Output",ExpressionUUID->"ae7508a7-d59a-46a4-9fc3-32077dd2a4d9"] }, Open ]], Cell[CellGroupData[{ -Cell[4878, 158, 129, 2, 22, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], -Cell[5010, 162, 151, 2, 25, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] +Cell[8298, 230, 133, 3, 21, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[8434, 235, 472, 8, 23, "Output",ExpressionUUID->"de8f01c3-8c54-49c0-a907-a94de9bdef0b"] }, Open ]], Cell[CellGroupData[{ -Cell[5198, 169, 129, 2, 22, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], -Cell[5330, 173, 151, 2, 25, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] +Cell[8943, 248, 133, 3, 21, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[9079, 253, 469, 8, 23, "Output",ExpressionUUID->"4d0285bc-5d29-4eb3-9383-71720dde2c5b"] }, Open ]], Cell[CellGroupData[{ -Cell[5518, 180, 557, 19, 65, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], -Cell[6078, 201, 169, 2, 25, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] +Cell[9585, 266, 561, 20, 63, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[10149, 288, 491, 8, 23, "Output",ExpressionUUID->"be51ea6f-4314-452c-8000-ef6b27723a69"] }, Open ]], Cell[CellGroupData[{ -Cell[6284, 208, 557, 19, 65, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], -Cell[6844, 229, 168, 2, 25, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] +Cell[10677, 301, 561, 20, 63, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[11241, 323, 486, 8, 23, "Output",ExpressionUUID->"d353232d-fa02-4a6e-ade4-8693d768d343"] }, Open ]], Cell[CellGroupData[{ -Cell[7049, 236, 1492, 48, 65, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], -Cell[8544, 286, 167, 2, 25, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] +Cell[11764, 336, 1496, 49, 63, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[13263, 387, 479, 8, 23, "Output",ExpressionUUID->"a867d7f5-2b27-4f20-8630-7c9bb9c028bd"] }, Open ]], Cell[CellGroupData[{ -Cell[8748, 293, 1331, 44, 65, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], -Cell[10082, 339, 185, 3, 25, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] +Cell[13779, 400, 1335, 45, 63, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[15117, 447, 502, 9, 23, "Output",ExpressionUUID->"f40cca7a-d6bd-46bc-9083-eb3bf610e50f"] }, Open ]], Cell[CellGroupData[{ -Cell[10304, 347, 1331, 44, 65, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], -Cell[11638, 393, 187, 3, 25, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] +Cell[15656, 461, 1335, 45, 63, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[16994, 508, 501, 9, 23, "Output",ExpressionUUID->"294eb510-f072-4c6d-9f6e-dfc805f730c1"] }, Open ]], Cell[CellGroupData[{ -Cell[11862, 401, 1492, 48, 65, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], -Cell[13357, 451, 166, 2, 25, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] +Cell[17532, 522, 1496, 49, 63, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[19031, 573, 481, 8, 23, "Output",ExpressionUUID->"41702782-9c7b-4e0c-b2a2-45e459920ee1"] }, Open ]], Cell[CellGroupData[{ -Cell[13560, 458, 131, 2, 22, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], -Cell[13694, 462, 151, 2, 25, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] +Cell[19549, 586, 135, 3, 21, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[19687, 591, 471, 8, 23, "Output",ExpressionUUID->"dd293ec1-c520-428b-a61d-38391f57b1ac"] }, Open ]], Cell[CellGroupData[{ -Cell[13882, 469, 133, 2, 22, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], -Cell[14018, 473, 153, 2, 25, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] +Cell[20195, 604, 137, 3, 21, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[20335, 609, 479, 8, 23, "Output",ExpressionUUID->"424eeb83-2158-4d70-842b-38a56199ba47"] }, Open ]], Cell[CellGroupData[{ -Cell[14208, 480, 134, 2, 22, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], -Cell[14345, 484, 155, 2, 25, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] +Cell[20851, 622, 138, 3, 21, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[20992, 627, 477, 8, 23, "Output",ExpressionUUID->"a3d78d8c-bcf9-4416-946a-42c62b5550c6"] }, Open ]], Cell[CellGroupData[{ -Cell[14537, 491, 219, 4, 22, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], -Cell[14759, 497, 168, 3, 25, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] +Cell[21506, 640, 223, 5, 21, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[21732, 647, 481, 9, 23, "Output",ExpressionUUID->"fddc7aef-2980-4156-9646-3a040e86192a"] }, Open ]], Cell[CellGroupData[{ -Cell[14964, 505, 134, 2, 22, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], -Cell[15101, 509, 155, 2, 25, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] +Cell[22250, 661, 138, 3, 21, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[22391, 666, 475, 8, 23, "Output",ExpressionUUID->"e4e59962-02db-4eee-9bfe-9e017f410a6c"] }, Open ]], Cell[CellGroupData[{ -Cell[15293, 516, 326, 5, 22, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], -Cell[15622, 523, 149, 2, 25, "Output",ExpressionUUID->"ce192b42-76d8-3a45-9997-3705d5a92d64"] +Cell[22903, 679, 331, 6, 21, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[23237, 687, 471, 8, 23, "Output",ExpressionUUID->"3f73d01a-62b6-4f18-83ed-a49841807a14"] }, Open ]], Cell[CellGroupData[{ -Cell[15808, 530, 297, 5, 22, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], -Cell[16108, 537, 198, 3, 25, "Output",ExpressionUUID->"48127ebb-1887-da43-b821-cc9188acc232"] +Cell[23745, 700, 302, 6, 21, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[24050, 708, 499, 8, 23, "Output",ExpressionUUID->"03e3910e-b9c8-4402-b097-46aeb67de349"] }, Open ]], Cell[CellGroupData[{ -Cell[16343, 545, 219, 4, 22, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], -Cell[16565, 551, 151, 2, 25, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] +Cell[24586, 721, 223, 5, 21, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[24812, 728, 466, 8, 23, "Output",ExpressionUUID->"4cd13e34-fefe-4fba-941b-d252535c7d6f"] }, Open ]], Cell[CellGroupData[{ -Cell[16753, 558, 350, 10, 35, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], -Cell[17106, 570, 170, 2, 25, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] +Cell[25315, 741, 354, 11, 31, "Input",ExpressionUUID->"d5f2edc1-8551-7648-9dc8-cd367297c908"], +Cell[25672, 754, 491, 8, 23, "Output",ExpressionUUID->"7474e1fc-59a5-4fe8-9bbc-63b0b2f8c472"] }, Open ]], Cell[CellGroupData[{ -Cell[17313, 577, 350, 10, 35, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], -Cell[17666, 589, 186, 3, 25, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] +Cell[26200, 767, 354, 11, 31, "Input",ExpressionUUID->"01eb3c5e-aadf-9d41-ba4e-940b4b61c6c8"], +Cell[26557, 780, 503, 9, 23, "Output",ExpressionUUID->"4d2ad327-741f-451d-8aa8-30a42a2b8657"] }, Open ]], Cell[CellGroupData[{ -Cell[17889, 597, 975, 27, 67, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], -Cell[18867, 626, 169, 2, 25, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] +Cell[27097, 794, 998, 27, 37, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[28098, 823, 493, 8, 23, "Output",ExpressionUUID->"069eaff6-07ca-4028-b554-fa84143e74f1"] }, Open ]], Cell[CellGroupData[{ -Cell[19073, 633, 199, 3, 22, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], -Cell[19275, 638, 151, 2, 25, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] +Cell[28628, 836, 203, 4, 21, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[28834, 842, 469, 8, 23, "Output",ExpressionUUID->"b2f256b6-a5ff-450f-bfae-9811fb559d1f"] }, Open ]], Cell[CellGroupData[{ -Cell[19463, 645, 333, 5, 22, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], -Cell[19799, 652, 152, 2, 25, "Output",ExpressionUUID->"7e065166-098d-e64d-9755-0343fb91a7a3"] +Cell[29340, 855, 338, 6, 21, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[29681, 863, 470, 8, 23, "Output",ExpressionUUID->"6d05b844-127d-4fcc-98d9-7771d7e0c6cd"] }, Open ]], -Cell[19966, 657, 154, 3, 22, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[30166, 874, 177, 3, 21, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], Cell[CellGroupData[{ -Cell[20145, 664, 332, 5, 22, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], -Cell[20480, 671, 152, 2, 25, "Output",ExpressionUUID->"4568959e-8357-a941-86ee-9e0738db37d0"] +Cell[30368, 881, 337, 6, 21, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[30708, 889, 470, 8, 23, "Output",ExpressionUUID->"d9989874-160d-44e1-acdf-d01be96ac934"] }, Open ]], -Cell[20647, 676, 154, 3, 22, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[31193, 900, 177, 3, 21, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], Cell[CellGroupData[{ -Cell[20826, 683, 337, 5, 22, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], -Cell[21166, 690, 152, 2, 25, "Output",ExpressionUUID->"d1e0c0fb-c1fe-474d-b753-e32fec84425e"] +Cell[31395, 907, 341, 6, 21, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[31739, 915, 465, 8, 23, "Output",ExpressionUUID->"e8222d41-d51d-414a-b69f-4d14dc4eb7a6"] }, Open ]], -Cell[21333, 695, 154, 3, 22, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[32219, 926, 177, 3, 21, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], Cell[CellGroupData[{ -Cell[21512, 702, 360, 5, 22, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], -Cell[21875, 709, 154, 2, 25, "Output",ExpressionUUID->"5fde13cb-ad9a-b942-b5e7-0bfb84635642"] +Cell[32421, 933, 364, 6, 21, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[32788, 941, 470, 8, 23, "Output",ExpressionUUID->"e13f5eec-5541-4c26-b9e4-8c0577d0104f"] }, Open ]], -Cell[22044, 714, 152, 3, 22, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[33273, 952, 175, 3, 21, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], Cell[CellGroupData[{ -Cell[22221, 721, 307, 5, 22, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], -Cell[22531, 728, 157, 2, 25, "Output",ExpressionUUID->"a896dc51-a614-1542-a083-12b1fd350591"] +Cell[33473, 959, 311, 6, 21, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[33787, 967, 477, 8, 23, "Output",ExpressionUUID->"2c6e967c-5dea-4a29-b1de-f07841536bc5"] }, Open ]], -Cell[22703, 733, 152, 3, 22, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[34279, 978, 175, 3, 21, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], Cell[CellGroupData[{ -Cell[22880, 740, 313, 5, 22, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], -Cell[23196, 747, 157, 2, 25, "Output",ExpressionUUID->"a1160edd-29d5-0643-a9b4-2a0c8687671e"] +Cell[34479, 985, 317, 6, 21, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[34799, 993, 476, 8, 23, "Output",ExpressionUUID->"ec097b7c-431d-4e58-98bf-fe70c0813c9f"] }, Open ]], -Cell[23368, 752, 154, 3, 22, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[35290, 1004, 177, 3, 21, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], Cell[CellGroupData[{ -Cell[23547, 759, 314, 5, 22, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], -Cell[23864, 766, 154, 2, 25, "Output",ExpressionUUID->"1d096934-3f2c-d145-a3ad-71fe8ddc39c4"] +Cell[35492, 1011, 318, 6, 21, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[35813, 1019, 470, 8, 23, "Output",ExpressionUUID->"c23956d6-a9fa-4e3f-8d33-7d9edc8fe190"] }, Open ]], -Cell[24033, 771, 153, 3, 22, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[36298, 1030, 176, 3, 21, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], Cell[CellGroupData[{ -Cell[24211, 778, 283, 4, 22, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], -Cell[24497, 784, 153, 2, 47, "Output",ExpressionUUID->"a2d62cc7-6150-7e4e-87be-073edbded81e"] +Cell[36499, 1037, 287, 5, 21, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[36789, 1044, 470, 8, 23, "Output",ExpressionUUID->"7881f412-d8f7-4a62-ac89-5f95e06d92bb"] }, Open ]], -Cell[24665, 789, 156, 3, 22, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], +Cell[37274, 1055, 179, 3, 21, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[24846, 796, 19809, 485, 1137, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], -Cell[44658, 1283, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] +Cell[37478, 1062, 19813, 486, 512, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[57294, 1550, 485, 8, 23, "Output",ExpressionUUID->"86f48f79-83a0-400b-8df5-551dd4962072"] }, Open ]], Cell[CellGroupData[{ -Cell[44862, 1290, 19748, 489, 1163, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], -Cell[64613, 1781, 168, 2, 25, "Output",ExpressionUUID->"ca8af40c-4f04-8747-aa6f-9594ea3fb865"] +Cell[57816, 1563, 19752, 490, 504, "Input",ExpressionUUID->"9591c53c-0076-6843-b513-d92cafe6e7a1"], +Cell[77571, 2055, 487, 8, 23, "Output",ExpressionUUID->"46e2171b-dbeb-499d-b50b-84660ba15b00"] }, Open ]], Cell[CellGroupData[{ -Cell[64818, 1788, 19748, 483, 1572, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], -Cell[84569, 2273, 183, 3, 25, "Output",ExpressionUUID->"43eaee96-3646-954d-899a-d1e3ee2edd5e"] +Cell[78095, 2068, 19752, 484, 485, "Input",ExpressionUUID->"8502aa34-e91a-9048-ac4e-0c1d99702bcf"], +Cell[97850, 2554, 507, 9, 23, "Output",ExpressionUUID->"bb5d30ca-594e-48eb-b85b-1a7ea71a32e9"] }, Open ]], Cell[CellGroupData[{ -Cell[84789, 2281, 22534, 553, 1766, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], -Cell[107326, 2836, 182, 3, 25, "Output",ExpressionUUID->"a8d59888-f6f0-0746-9034-5e74c45610b1"] +Cell[98394, 2568, 22538, 554, 554, "Input",ExpressionUUID->"6ad63411-c9d6-5a4a-84d0-dc66849392ef"], +Cell[120935, 3124, 499, 9, 23, "Output",ExpressionUUID->"172c8b8f-dda1-403b-9688-acf59eb77a54"] }, Open ]], Cell[CellGroupData[{ -Cell[107545, 2844, 22535, 553, 1773, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], -Cell[130083, 3399, 185, 3, 25, "Output",ExpressionUUID->"dd5d5506-e4f6-7d4c-bcd9-ea70659f69e1"] +Cell[121471, 3138, 22539, 554, 554, "Input",ExpressionUUID->"30036f36-0c55-214a-92c3-79cfd2a0c67a"], +Cell[144013, 3694, 505, 9, 23, "Output",ExpressionUUID->"7212bd4a-c994-41ca-9c05-425ca1d7f90e"] }, Open ]], Cell[CellGroupData[{ -Cell[130305, 3407, 25491, 626, 1984, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], -Cell[155799, 4035, 184, 3, 25, "Output",ExpressionUUID->"b983c8d8-6a34-fb4a-8a0a-8960e79ae993"] +Cell[144555, 3708, 25495, 627, 623, "Input",ExpressionUUID->"549a1778-a43a-4e45-9a11-32d9c77fa33e"], +Cell[170053, 4337, 500, 9, 23, "Output",ExpressionUUID->"e421037e-6d93-4574-83dd-7ee4d3ed53d3"] }, Open ]], Cell[CellGroupData[{ -Cell[156020, 4043, 130, 2, 22, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], -Cell[156153, 4047, 151, 2, 25, "Output",ExpressionUUID->"bb0c55af-9cf7-0443-8b24-f19c97d6c781"] +Cell[170590, 4351, 134, 3, 21, "Input",ExpressionUUID->"1de05a27-91fb-374c-9bf4-36eb924ab119"], +Cell[170727, 4356, 473, 8, 23, "Output",ExpressionUUID->"f030bb03-50eb-45bb-bfd0-5154f28e4c9f"] }, Open ]], Cell[CellGroupData[{ -Cell[156341, 4054, 130, 2, 22, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], -Cell[156474, 4058, 151, 2, 25, "Output",ExpressionUUID->"0d4bafbb-7685-ff43-aaa0-fe1597369669"] +Cell[171237, 4369, 134, 3, 21, "Input",ExpressionUUID->"697de377-c4a3-6a42-abd6-fdfc5aa82b17"], +Cell[171374, 4374, 466, 8, 23, "Output",ExpressionUUID->"4bb3a1db-1aab-4886-b03b-41a19a72e4e4"] }, Open ]], Cell[CellGroupData[{ -Cell[156662, 4065, 1144, 39, 46, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], -Cell[157809, 4106, 167, 2, 25, "Output",ExpressionUUID->"25fde637-8846-5644-8daa-868231713f08"] +Cell[171877, 4387, 1148, 40, 42, "Input",ExpressionUUID->"94ea3d4e-e0b2-bc43-9598-11f2ab415b83"], +Cell[173028, 4429, 492, 8, 23, "Output",ExpressionUUID->"82de7934-a1a1-4efd-a73c-01fa66f8cd73"] }, Open ]], Cell[CellGroupData[{ -Cell[158013, 4113, 1041, 35, 46, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], -Cell[159057, 4150, 184, 3, 25, "Output",ExpressionUUID->"222cd90e-6438-0a46-88d0-fcdd10fc9432"] +Cell[173557, 4442, 1045, 36, 42, "Input",ExpressionUUID->"2492a1fb-0cde-0f4b-8029-0c1ad31ae0ff"], +Cell[174605, 4480, 502, 9, 23, "Output",ExpressionUUID->"480bf2eb-d6fb-4e2b-9d75-1443479b493d"] }, Open ]], Cell[CellGroupData[{ -Cell[159278, 4158, 1144, 39, 46, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], -Cell[160425, 4199, 169, 2, 25, "Output",ExpressionUUID->"b7d1d4d3-3e05-af4b-9683-83817f2bdc88"] +Cell[175144, 4494, 1148, 40, 42, "Input",ExpressionUUID->"43ac9026-ad7b-984c-bdea-7f5728138bc4"], +Cell[176295, 4536, 488, 8, 23, "Output",ExpressionUUID->"073626e7-e352-4bbe-81da-265884d0215d"] }, Open ]], Cell[CellGroupData[{ -Cell[160631, 4206, 108, 1, 22, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], -Cell[160742, 4209, 169, 2, 25, "Output",ExpressionUUID->"9fab72a0-15cc-f04b-8b2d-eafd610fbe08"] +Cell[176820, 4549, 112, 2, 21, "Input",ExpressionUUID->"c9b84954-5fec-7d49-9262-9c2a3c4ce713"], +Cell[176935, 4553, 488, 8, 23, "Output",ExpressionUUID->"cee12910-d1e2-4d79-b5fd-4b2a2a92f6b2"] }, Open ]], Cell[CellGroupData[{ -Cell[160948, 4216, 108, 1, 22, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], -Cell[161059, 4219, 187, 3, 25, "Output",ExpressionUUID->"5baa5811-6d68-0847-bfa7-611a7f282595"] +Cell[177460, 4566, 112, 2, 21, "Input",ExpressionUUID->"1c75f6b7-d1c2-4b41-abdb-2201a28b86e3"], +Cell[177575, 4570, 509, 9, 23, "Output",ExpressionUUID->"9fe39435-db76-4670-ae78-d939a575eecd"] }, Open ]], Cell[CellGroupData[{ -Cell[161283, 4227, 108, 1, 22, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], -Cell[161394, 4230, 185, 3, 25, "Output",ExpressionUUID->"66d60cf8-894b-f64c-bc5e-4862fc34e98d"] +Cell[178121, 4584, 112, 2, 21, "Input",ExpressionUUID->"4faecd3f-a48f-a345-a962-630b0b0387c6"], +Cell[178236, 4588, 502, 9, 23, "Output",ExpressionUUID->"457ae2ea-da12-4ce3-8ef7-405b8829a668"] }, Open ]], Cell[CellGroupData[{ -Cell[161616, 4238, 108, 1, 22, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], -Cell[161727, 4241, 168, 2, 25, "Output",ExpressionUUID->"95baa4f5-66f1-b04e-8459-661f90319bc4"] +Cell[178775, 4602, 112, 2, 21, "Input",ExpressionUUID->"4e39798e-d021-5445-8896-673aeaee51b1"], +Cell[178890, 4606, 493, 8, 23, "Output",ExpressionUUID->"6e20ce5a-ae44-4798-b45f-85585abd04b4"] }, Open ]], Cell[CellGroupData[{ -Cell[161932, 4248, 107, 1, 22, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], -Cell[162042, 4251, 169, 2, 25, "Output",ExpressionUUID->"de032191-9b61-7645-8f26-423f534a2cb1"] +Cell[179420, 4619, 111, 2, 21, "Input",ExpressionUUID->"18acb8af-3ba3-704e-b004-19ebda7db232"], +Cell[179534, 4623, 485, 8, 23, "Output",ExpressionUUID->"1d30c9f4-d9ef-48da-8d45-29f71bb7ffd4"] }, Open ]], Cell[CellGroupData[{ -Cell[162248, 4258, 107, 1, 22, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], -Cell[162358, 4261, 168, 2, 25, "Output",ExpressionUUID->"56b6e721-a4ff-f24f-9100-8013c893b0ae"] +Cell[180056, 4636, 111, 2, 21, "Input",ExpressionUUID->"03f4f06b-f87b-184d-9748-965db47fceb7"], +Cell[180170, 4640, 478, 8, 23, "Output",ExpressionUUID->"ecbf4cf9-3cd0-4a44-9ed8-b06863d97dfc"] }, Open ]], Cell[CellGroupData[{ -Cell[162563, 4268, 497, 16, 46, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], -Cell[163063, 4286, 186, 3, 25, "Output",ExpressionUUID->"ed7537ce-20e6-4246-aac0-4a4b9f4faed7"] +Cell[180685, 4653, 501, 17, 42, "Input",ExpressionUUID->"4810f0aa-dabf-a247-9e90-3e224a24b9c4"], +Cell[181189, 4672, 505, 9, 23, "Output",ExpressionUUID->"9829e8e1-9da2-4440-b5cd-b5f48e331083"] }, Open ]], Cell[CellGroupData[{ -Cell[163286, 4294, 497, 16, 46, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], -Cell[163786, 4312, 184, 3, 25, "Output",ExpressionUUID->"643b7429-505f-4045-a97f-7e6871b3f504"] +Cell[181731, 4686, 501, 17, 42, "Input",ExpressionUUID->"fbd88556-f41b-4042-9336-97ea03c08800"], +Cell[182235, 4705, 501, 9, 23, "Output",ExpressionUUID->"5e1e8c36-9445-4a45-88f3-1b8549c7a9f4"] }, Open ]], Cell[CellGroupData[{ -Cell[164007, 4320, 1788, 60, 109, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], -Cell[165798, 4382, 168, 2, 25, "Output",ExpressionUUID->"029098e5-22ab-9a4c-99ad-caac4d1307db"] +Cell[182773, 4719, 1792, 61, 42, "Input",ExpressionUUID->"bcdd28c4-9a78-2a44-b854-ef88bbc17e46"], +Cell[184568, 4782, 482, 8, 23, "Output",ExpressionUUID->"5303967b-ea01-4765-9d9a-1c7a34974992"] }, Open ]], Cell[CellGroupData[{ -Cell[166003, 4389, 1101, 36, 64, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], -Cell[167107, 4427, 186, 3, 25, "Output",ExpressionUUID->"f7cceab2-e319-0345-98f3-b759ec5fa40c"] +Cell[185087, 4795, 1105, 37, 42, "Input",ExpressionUUID->"cb449bf0-0225-b74b-a7eb-da633694c642"], +Cell[186195, 4834, 502, 9, 23, "Output",ExpressionUUID->"d69377b0-f0f2-4a26-a0f5-72ee40d8e414"] }, Open ]], Cell[CellGroupData[{ -Cell[167330, 4435, 1818, 61, 90, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], -Cell[169151, 4498, 166, 2, 25, "Output",ExpressionUUID->"ee7339b3-3748-a34f-a057-3912a0918fd6"] +Cell[186734, 4848, 1822, 62, 85, "Input",ExpressionUUID->"499f7984-fdca-3841-a79e-5312624ba7d1"], +Cell[188559, 4912, 480, 8, 23, "Output",ExpressionUUID->"a21af433-69fe-44f9-8e01-1a2a9967fcd3"] }, Open ]], Cell[CellGroupData[{ -Cell[169354, 4505, 1631, 53, 65, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], -Cell[170988, 4560, 169, 2, 25, "Output",ExpressionUUID->"9d980dd1-9860-3745-8961-1b723545e44c"] +Cell[189076, 4925, 1635, 54, 63, "Input",ExpressionUUID->"a89765b9-ecae-b94a-b52d-9e09b94eaec7"], +Cell[190714, 4981, 489, 8, 23, "Output",ExpressionUUID->"09aff34a-e383-4665-9574-184ccc40a669"] }, Open ]], Cell[CellGroupData[{ -Cell[171194, 4567, 1631, 53, 65, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], -Cell[172828, 4622, 167, 2, 25, "Output",ExpressionUUID->"791dcf4f-1a7f-2347-997c-27eed6cf3948"] +Cell[191240, 4994, 1635, 54, 63, "Input",ExpressionUUID->"75a4e593-60a4-d44b-ba89-8ad9cf15c456"], +Cell[192878, 5050, 487, 8, 23, "Output",ExpressionUUID->"1a8382d0-31e5-4ad7-a737-56b5e8a2ae0f"] }, Open ]], -Cell[173010, 4627, 147, 4, 22, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], -Cell[173160, 4633, 153, 3, 22, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], -Cell[173316, 4638, 147, 4, 22, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], -Cell[173466, 4644, 154, 3, 22, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[173645, 4651, 1297, 42, 39, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], -Cell[174945, 4695, 171, 2, 25, "Output",ExpressionUUID->"83707082-f118-c146-a95c-693158b61875"] +Cell[193402, 5063, 266, 6, 21, "Input",ExpressionUUID->"8ee71d5b-854f-5949-88a2-843ffd08641f"], +Cell[193671, 5071, 430, 7, 23, "Output",ExpressionUUID->"ebd28a45-37aa-4e77-95ff-3b7518d6551f"] }, Open ]], +Cell[194116, 5081, 176, 3, 21, "Input",ExpressionUUID->"13f65097-48a8-0b48-8f26-bfa63ff56738"], Cell[CellGroupData[{ -Cell[175153, 4702, 908, 31, 46, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], -Cell[176064, 4735, 170, 2, 25, "Output",ExpressionUUID->"93dbdfa1-2e9a-2d49-80d6-05af3e592734"] +Cell[194317, 5088, 235, 5, 21, "Input",ExpressionUUID->"6c8cc5df-ad31-9945-825b-23c469148e55"], +Cell[194555, 5095, 426, 7, 23, "Output",ExpressionUUID->"822ff289-36dd-4834-93fc-4eb7af24fd1a"] }, Open ]], +Cell[194996, 5105, 177, 3, 21, "Input",ExpressionUUID->"f01796a4-39d7-3b4e-ae8e-049e50ab8a2a"], Cell[CellGroupData[{ -Cell[176271, 4742, 884, 30, 46, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], -Cell[177158, 4774, 173, 2, 25, "Output",ExpressionUUID->"afd7d2f8-cc87-734c-9c81-c0621f31e0e5"] +Cell[195198, 5112, 1301, 43, 35, "Input",ExpressionUUID->"eb49a904-abe3-7c49-91ca-3a700617f3d2"], +Cell[196502, 5157, 486, 8, 23, "Output",ExpressionUUID->"2d528345-e9ab-4bd8-9a2e-8d657ec54773"] }, Open ]], Cell[CellGroupData[{ -Cell[177368, 4781, 558, 19, 42, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], -Cell[177929, 4802, 567, 9, 25, "Output",ExpressionUUID->"0432d540-b940-d44f-87c2-61a0d876fa3f"] +Cell[197025, 5170, 931, 31, 42, "Input",ExpressionUUID->"4237f61c-7340-ae4e-a030-5501c3a85c24"], +Cell[197959, 5203, 491, 8, 23, "Output",ExpressionUUID->"8f14117c-cd4a-48e1-9224-5c7c472dc9b2"] }, Open ]], Cell[CellGroupData[{ -Cell[178533, 4816, 665, 22, 42, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], -Cell[179201, 4840, 554, 9, 25, "Output",ExpressionUUID->"d6001eae-8a76-854e-9f93-fc6d9f888546"] +Cell[198487, 5216, 907, 30, 42, "Input",ExpressionUUID->"8a758118-d07d-d243-b7d7-f8e668175458"], +Cell[199397, 5248, 491, 8, 23, "Output",ExpressionUUID->"bd791a8f-9fcd-4b89-ab18-b8694c99991d"] }, Open ]], Cell[CellGroupData[{ -Cell[179792, 4854, 170, 5, 46, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], -Cell[179965, 4861, 577, 9, 25, "Output",ExpressionUUID->"529ddbf3-d030-9b49-9390-e82eea1b6cd9"] +Cell[199925, 5261, 558, 19, 38, "Input",ExpressionUUID->"fa4828cd-ca53-074e-a881-e8b97209c63d"], +Cell[200486, 5282, 877, 13, 23, "Output",ExpressionUUID->"bd001cb1-4a45-41c7-b430-ee09941837af"] }, Open ]], Cell[CellGroupData[{ -Cell[180579, 4875, 236, 6, 45, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], -Cell[180818, 4883, 514, 8, 25, "Output",ExpressionUUID->"1efb03b1-ddd9-3544-b911-a583d1e1d12c"] +Cell[201400, 5300, 665, 22, 38, "Input",ExpressionUUID->"c31de419-8a61-354a-89bd-271da8be58af"], +Cell[202068, 5324, 863, 13, 23, "Output",ExpressionUUID->"83e2e676-103c-421a-8a33-1590d9459c73"] }, Open ]], Cell[CellGroupData[{ -Cell[181369, 4896, 223, 6, 35, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], -Cell[181595, 4904, 549, 9, 25, "Output",ExpressionUUID->"0c2f4a5d-aa8f-1846-8930-72520d6d68fa"] +Cell[202968, 5342, 170, 5, 40, "Input",ExpressionUUID->"61341448-f30f-cf4c-b0f6-8a340beb6317"], +Cell[203141, 5349, 893, 13, 23, "Output",ExpressionUUID->"af8d0611-916a-40a4-8235-e0dbbcee4d5a"] }, Open ]], Cell[CellGroupData[{ -Cell[182181, 4918, 181, 5, 35, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], -Cell[182365, 4925, 567, 9, 25, "Output",ExpressionUUID->"51b96550-e411-8f49-ae52-0ef4087a9cca"] +Cell[204071, 5367, 236, 6, 40, "Input",ExpressionUUID->"f1b527d7-bbe1-994e-ac10-637b882b6707"], +Cell[204310, 5375, 823, 13, 23, "Output",ExpressionUUID->"7276fc2b-32cc-40b2-bb62-66775e78f2d1"] }, Open ]], Cell[CellGroupData[{ -Cell[182969, 4939, 6055, 185, 310, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], -Cell[189027, 5126, 548, 9, 25, "Output",ExpressionUUID->"ae5a263d-347a-6e47-95a0-f7c420f4dc91"] +Cell[205170, 5393, 223, 6, 32, "Input",ExpressionUUID->"d26a0647-1a99-f244-9355-6f61fd9791ee"], +Cell[205396, 5401, 862, 13, 23, "Output",ExpressionUUID->"471fdba1-5c82-4a8d-aa97-b8178b4be918"] }, Open ]], Cell[CellGroupData[{ -Cell[189612, 5140, 368, 9, 33, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], -Cell[189983, 5151, 521, 8, 25, "Output",ExpressionUUID->"eb964dd3-b4a5-124b-bf6d-21f5f9718a4e"] +Cell[206295, 5419, 181, 5, 32, "Input",ExpressionUUID->"b0d0ac9b-39f3-4b4b-b52c-a1e650a8f586"], +Cell[206479, 5426, 875, 13, 23, "Output",ExpressionUUID->"7473c32b-824c-41c6-9cc3-2be9b14d5c9c"] }, Open ]], -Cell[190519, 5162, 492, 10, 34, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[191036, 5176, 554, 18, 42, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], -Cell[191593, 5196, 166, 2, 25, "Output",ExpressionUUID->"e4d9d77a-b508-454c-baed-04aa4a4ef418"] +Cell[207391, 5444, 6055, 185, 143, "Input",ExpressionUUID->"2a846e87-22f9-6748-92c3-410b79cd4168"], +Cell[213449, 5631, 859, 13, 23, "Output",ExpressionUUID->"0a7ed2cf-0636-4219-80a9-641d0a944484"] }, Open ]], Cell[CellGroupData[{ -Cell[191796, 5203, 619, 20, 42, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972"], -Cell[192418, 5225, 168, 2, 25, "Output",ExpressionUUID->"3007515b-4da6-bf4e-9b4f-90b429e2dd04"] +Cell[214345, 5649, 368, 9, 29, "Input",ExpressionUUID->"7e54765c-ed38-c54f-8cf0-2d431ca0d8f5"], +Cell[214716, 5660, 907, 15, 35, "Output",ExpressionUUID->"10d33318-1434-44dc-b7af-ce0891069cbb"] }, Open ]], +Cell[215638, 5678, 492, 10, 21, "Input",ExpressionUUID->"c71820da-1361-0745-a79a-f4315ad9d1d8"], Cell[CellGroupData[{ -Cell[192623, 5232, 166, 4, 46, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], -Cell[192792, 5238, 167, 2, 25, "Output",ExpressionUUID->"f6274504-766f-8549-a4a8-fd0e803dda86"] +Cell[216155, 5692, 558, 19, 38, "Input",ExpressionUUID->"41122921-df43-7745-9c83-a32ede989593"], +Cell[216716, 5713, 466, 8, 23, "Output",ExpressionUUID->"4cbeb93a-ad22-4f43-a71f-fcf483939cc6"] }, Open ]], Cell[CellGroupData[{ -Cell[192996, 5245, 166, 4, 45, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], -Cell[193165, 5251, 166, 2, 25, "Output",ExpressionUUID->"72d24546-97b5-7344-98ec-019068f7b9fb"] +Cell[217219, 5726, 720, 24, 58, "Input",ExpressionUUID->"669c27bc-dd4c-6c44-9db2-2e5f84247972", + CellTags->"evaluate for d"], +Cell[217942, 5752, 538, 10, 44, "Output",ExpressionUUID->"174b5dac-f3e7-4993-ad59-bf55f8af777c", + CellTags->"evaluate for d"] }, Open ]], Cell[CellGroupData[{ -Cell[193368, 5258, 177, 4, 35, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], -Cell[193548, 5264, 169, 2, 25, "Output",ExpressionUUID->"7075b380-afe9-8b44-acc9-29433a09a866"] +Cell[218517, 5767, 170, 5, 40, "Input",ExpressionUUID->"0caad06a-e763-ed40-8f23-6acc9d03327f"], +Cell[218690, 5774, 218, 4, 23, "Output",ExpressionUUID->"bbf18cf2-8673-41f9-8a78-a53a71fdc751"] }, Open ]], Cell[CellGroupData[{ -Cell[193754, 5271, 177, 4, 35, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], -Cell[193934, 5277, 168, 2, 25, "Output",ExpressionUUID->"667394bf-ade3-1944-8cac-a719104b58af"] +Cell[218945, 5783, 345, 9, 38, "Input",ExpressionUUID->"7ed978b9-9ced-bc41-928c-5cd0fd4609a2"], +Cell[219293, 5794, 292, 7, 24, "Output",ExpressionUUID->"8018b7e0-0def-4cc7-ac92-8cc8194db855"] }, Open ]], Cell[CellGroupData[{ -Cell[194139, 5284, 6051, 184, 310, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], -Cell[200193, 5470, 171, 2, 25, "Output",ExpressionUUID->"bdb345c8-7c0c-3e4d-96c3-d5d94768456f"] +Cell[219622, 5806, 181, 5, 32, "Input",ExpressionUUID->"62a9c49b-67cf-f94a-b42f-048d396b9ef9"], +Cell[219806, 5813, 297, 7, 24, "Output",ExpressionUUID->"3a79fb68-0a2c-43e3-9b3e-ea610874d5ea"] }, Open ]], Cell[CellGroupData[{ -Cell[200401, 5477, 364, 8, 33, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], -Cell[200768, 5487, 166, 2, 25, "Output",ExpressionUUID->"a136c49d-6dd1-8a4a-9add-7300e6132adb"] +Cell[220140, 5825, 181, 5, 32, "Input",ExpressionUUID->"3bf1c992-ca95-0840-b09f-adb82f719a7c"], +Cell[220324, 5832, 219, 4, 23, "Output",ExpressionUUID->"fc590d50-9d34-4722-8d3f-9bfd21768337"] }, Open ]], Cell[CellGroupData[{ -Cell[200971, 5494, 6118, 186, 353, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], -Cell[207092, 5682, 170, 2, 25, "Output",ExpressionUUID->"85a24dde-0aa6-984c-b7a3-ccfa87afb6cd"] +Cell[220580, 5841, 6055, 185, 143, "Input",ExpressionUUID->"f0ee6503-462a-8e43-9c68-aa20666fdb61"], +Cell[226638, 6028, 403, 9, 39, "Output",ExpressionUUID->"aff64ccd-d44a-4615-89c9-3c45d6f4c9b8"] }, Open ]], Cell[CellGroupData[{ -Cell[207299, 5689, 364, 8, 33, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], -Cell[207666, 5699, 168, 2, 25, "Output",ExpressionUUID->"9a87dba6-1411-3f4b-a17f-9d7a664889bd"] +Cell[227078, 6042, 368, 9, 29, "Input",ExpressionUUID->"25ca2884-0dbe-144c-96cc-2a4d1e92f199"], +Cell[227449, 6053, 403, 10, 27, "Output",ExpressionUUID->"bb8bc5c5-444c-4a04-bd4e-0b6832f33e9c"] }, Open ]], Cell[CellGroupData[{ -Cell[207871, 5706, 2659, 87, 135, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], -Cell[210533, 5795, 169, 2, 25, "Output",ExpressionUUID->"39ebfd06-20a8-e945-ae56-55ff95d26618"] +Cell[227889, 6068, 6122, 187, 143, "Input",ExpressionUUID->"34ae97e2-3a1e-e741-af74-2f3c81915900"], +Cell[234014, 6257, 398, 9, 39, "Output",ExpressionUUID->"19d1db02-8742-48ad-97e0-cc7f6ee8d889"] }, Open ]], Cell[CellGroupData[{ -Cell[210739, 5802, 2599, 84, 135, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], -Cell[213341, 5888, 169, 2, 25, "Output",ExpressionUUID->"6c617ce1-6ebd-9d43-be44-73f7ca23a829"] +Cell[234449, 6271, 368, 9, 29, "Input",ExpressionUUID->"721f8d78-4352-d846-b1aa-d74212b54a59"], +Cell[234820, 6282, 402, 10, 27, "Output",ExpressionUUID->"2636f1b7-5a20-4000-b632-4b52c1d04e8e"] }, Open ]], Cell[CellGroupData[{ -Cell[213547, 5895, 3708, 117, 197, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], -Cell[217258, 6014, 169, 2, 25, "Output",ExpressionUUID->"145fcb0a-d842-9a43-9617-34577d485689"] +Cell[235259, 6297, 2663, 88, 42, "Input",ExpressionUUID->"fb930c1f-5172-4e4e-8627-5b438aae1c06"], +Cell[237925, 6387, 223, 4, 23, "Output",ExpressionUUID->"b29a12d4-c068-48fc-91a0-eea1d62d70a8"] }, Open ]], -Cell[217442, 6019, 138, 3, 34, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[217605, 6026, 2052, 59, 92, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], -Cell[219660, 6087, 556, 12, 50, "Message",ExpressionUUID->"be9831d8-a262-3541-9040-ad5e31b2eb28"], -Cell[220219, 6101, 559, 12, 50, "Message",ExpressionUUID->"31896901-1c82-aa4e-bb9a-c09e2220f684"], -Cell[220781, 6115, 559, 12, 50, "Message",ExpressionUUID->"aa16e061-5976-9143-8add-7376f3059569"], -Cell[221343, 6129, 452, 10, 20, "Message",ExpressionUUID->"68730c15-5e57-ca48-8468-735233dec44d"], -Cell[221798, 6141, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65-d7f8adce193c"] +Cell[238185, 6396, 2603, 85, 42, "Input",ExpressionUUID->"4585ec75-2d4f-b84a-b605-f090f6c3c5a2"], +Cell[240791, 6483, 219, 4, 23, "Output",ExpressionUUID->"70bc626e-3b8c-4cf2-8213-b06d2a8ace28"] }, Open ]], Cell[CellGroupData[{ -Cell[222003, 6148, 2054, 59, 92, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], -Cell[224060, 6209, 556, 12, 50, "Message",ExpressionUUID->"365becfb-66c2-b442-8b7b-c6077e53a212"], -Cell[224619, 6223, 556, 12, 50, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], -Cell[225178, 6237, 559, 12, 50, "Message",ExpressionUUID->"02967e8e-3430-cf4f-b706-b82af40300a2"], -Cell[225740, 6251, 452, 10, 20, "Message",ExpressionUUID->"a8933e75-6bbd-684a-8439-656414d7fe5d"], -Cell[226195, 6263, 166, 2, 25, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] +Cell[241047, 6492, 3712, 118, 84, "Input",ExpressionUUID->"eb4fb471-42c6-494f-9edf-c7b1cc74dfd7"], +Cell[244762, 6612, 222, 4, 23, "Output",ExpressionUUID->"8beeb997-3712-4761-af49-33d982517267"] }, Open ]], +Cell[244999, 6619, 164, 4, 21, "Input",ExpressionUUID->"1cc34a71-05ee-424c-ba53-995669bbcd65"], Cell[CellGroupData[{ -Cell[226398, 6270, 1938, 53, 69, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], -Cell[228339, 6325, 20226, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] +Cell[245188, 6627, 2075, 59, 70, "Input",ExpressionUUID->"a98d80d1-1ce4-a541-8ba1-3a94fbdbad18"], +Cell[247266, 6688, 643, 13, 28, "Message",ExpressionUUID->"a5e461b4-b6ce-49af-908c-7759f5894c91"], +Cell[247912, 6703, 643, 13, 28, "Message",ExpressionUUID->"771a6564-e9ed-4b62-8e24-2cced17cfc21"], +Cell[248558, 6718, 642, 13, 28, "Message",ExpressionUUID->"70753d79-4ba1-44f6-a685-62fcced8c60b"], +Cell[249203, 6733, 506, 11, 18, "Message",ExpressionUUID->"2ab2acdf-3d6b-4249-9af8-b0998c1c9ea9"], +Cell[249712, 6746, 4762, 107, 103, "Output",ExpressionUUID->"d82a68f3-1a27-430e-b93d-e437cc881d2d"] }, Open ]], Cell[CellGroupData[{ -Cell[248602, 6708, 2094, 60, 92, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], -Cell[250699, 6770, 497, 11, 70, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], -Cell[251199, 6783, 501, 11, 70, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], -Cell[251703, 6796, 503, 11, 70, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], -Cell[252209, 6809, 455, 10, 70, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], -Cell[252667, 6821, 43631, 762, 70, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] +Cell[254511, 6858, 2077, 59, 70, "Input",ExpressionUUID->"0f581ffd-dfa8-e845-a733-ca6cc08b08a0"], +Cell[256591, 6919, 616, 12, 28, "Message",ExpressionUUID->"0c0c60c4-09ea-4bd5-9d80-4bdab798a88a"], +Cell[257210, 6933, 616, 12, 28, "Message",ExpressionUUID->"bf44a090-6df3-4576-82a7-c1e8d3b947db"], +Cell[257829, 6947, 617, 12, 28, "Message",ExpressionUUID->"47902ea8-bb26-4b20-b8d2-107058c54460"], +Cell[258449, 6961, 479, 10, 18, "Message",ExpressionUUID->"a0e2f71a-23e0-4c5c-b110-5d9e981b26de"], +Cell[258931, 6973, 2477, 55, 103, "Output",ExpressionUUID->"76e24e3e-fc4a-4fa8-a56c-75ff74dc49cc"] }, Open ]], -Cell[296313, 7586, 232, 6, 70, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], -Cell[296548, 7594, 209, 5, 70, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[296782, 7603, 212, 6, 70, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], -Cell[296997, 7611, 168, 2, 70, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] +Cell[261445, 7033, 1961, 53, 50, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[263409, 7088, 186, 3, 23, "Output",ExpressionUUID->"0fb0f038-48be-47d2-b17e-c320587ee6d0"] }, Open ]], Cell[CellGroupData[{ -Cell[297202, 7618, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], -Cell[299019, 7673, 505, 11, 70, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], -Cell[299527, 7686, 509, 11, 70, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], -Cell[300039, 7699, 508, 11, 70, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], -Cell[300550, 7712, 455, 10, 70, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], -Cell[301008, 7724, 22399, 414, 70, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] +Cell[263632, 7096, 2094, 60, 70, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[265729, 7158, 497, 11, 28, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[266229, 7171, 501, 11, 28, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[266733, 7184, 503, 11, 28, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[267239, 7197, 455, 10, 18, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[267697, 7209, 43631, 762, 163, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, Open ]], +Cell[311343, 7974, 232, 6, 21, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[311578, 7982, 209, 5, 21, "Input",ExpressionUUID->"39000a9e-1f94-0640-8925-ec28b28907cc"], Cell[CellGroupData[{ -Cell[323444, 8143, 1612, 47, 70, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], -Cell[325059, 8192, 581, 12, 70, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], -Cell[325643, 8206, 584, 12, 70, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], -Cell[326230, 8220, 590, 12, 70, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], -Cell[326823, 8234, 455, 10, 70, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], -Cell[327281, 8246, 169, 2, 70, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] +Cell[311812, 7991, 212, 6, 35, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[312027, 7999, 168, 2, 23, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, Open ]], Cell[CellGroupData[{ -Cell[327487, 8253, 2249, 64, 70, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], -Cell[329739, 8319, 557, 12, 70, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], -Cell[330299, 8333, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], -Cell[330862, 8347, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], -Cell[331425, 8361, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], -Cell[331883, 8373, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] +Cell[312232, 8006, 1814, 53, 70, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[314049, 8061, 505, 11, 28, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[314557, 8074, 509, 11, 28, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[315069, 8087, 508, 11, 28, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[315580, 8100, 455, 10, 18, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[316038, 8112, 22399, 414, 164, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, Open ]], Cell[CellGroupData[{ -Cell[332089, 8380, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], -Cell[334313, 8446, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], -Cell[334870, 8460, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], -Cell[335433, 8474, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], -Cell[335996, 8488, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], -Cell[336454, 8500, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] +Cell[338474, 8531, 1612, 47, 51, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[340089, 8580, 581, 12, 28, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[340673, 8594, 584, 12, 28, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[341260, 8608, 590, 12, 28, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[341853, 8622, 455, 10, 18, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[342311, 8634, 169, 2, 23, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, Open ]], Cell[CellGroupData[{ -Cell[336660, 8507, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], -Cell[338886, 8573, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], -Cell[339444, 8587, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], -Cell[340005, 8601, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], -Cell[340568, 8615, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], -Cell[341024, 8627, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] +Cell[342517, 8641, 2249, 64, 45, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[344769, 8707, 557, 12, 28, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[345329, 8721, 560, 12, 28, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[345892, 8735, 560, 12, 28, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[346455, 8749, 455, 10, 18, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[346913, 8761, 169, 2, 23, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, Open ]], Cell[CellGroupData[{ -Cell[341228, 8634, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], -Cell[341444, 8642, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] +Cell[347119, 8768, 2221, 64, 45, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[349343, 8834, 554, 12, 28, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[349900, 8848, 560, 12, 28, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[350463, 8862, 560, 12, 28, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[351026, 8876, 455, 10, 18, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[351484, 8888, 169, 2, 23, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, Open ]], -Cell[341628, 8647, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[341900, 8656, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], -Cell[342457, 8676, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] +Cell[351690, 8895, 2223, 64, 45, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[353916, 8961, 555, 12, 28, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[354474, 8975, 558, 12, 28, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[355035, 8989, 560, 12, 28, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[355598, 9003, 453, 10, 18, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[356054, 9015, 167, 2, 23, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, Open ]], Cell[CellGroupData[{ -Cell[342661, 8683, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], -Cell[342830, 8689, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] +Cell[356258, 9022, 213, 6, 34, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[356474, 9030, 169, 2, 23, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], +Cell[356658, 9035, 247, 5, 21, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], Cell[CellGroupData[{ -Cell[343036, 8696, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], -Cell[343220, 8703, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] +Cell[356930, 9044, 554, 18, 38, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[357487, 9064, 167, 2, 23, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], Cell[CellGroupData[{ -Cell[343430, 8711, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], -Cell[349488, 8898, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] +Cell[357691, 9071, 166, 4, 40, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[357860, 9077, 169, 2, 23, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, Open ]], Cell[CellGroupData[{ -Cell[349697, 8906, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], -Cell[350068, 8917, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] +Cell[358066, 9084, 181, 5, 32, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[358250, 9091, 173, 3, 23, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, Open ]], Cell[CellGroupData[{ -Cell[350275, 8925, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], -Cell[356400, 9114, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] +Cell[358460, 9099, 6055, 185, 143, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[364518, 9286, 172, 3, 23, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, Open ]], Cell[CellGroupData[{ -Cell[356612, 9122, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], -Cell[356983, 9133, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] +Cell[364727, 9294, 368, 9, 29, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[365098, 9305, 170, 3, 23, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], Cell[CellGroupData[{ -Cell[357189, 9141, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], -Cell[359855, 9231, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] +Cell[365305, 9313, 6122, 187, 143, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[371430, 9502, 175, 3, 23, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, Open ]], Cell[CellGroupData[{ -Cell[360065, 9239, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], -Cell[362671, 9326, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] +Cell[371642, 9510, 368, 9, 29, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[372013, 9521, 169, 3, 23, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, Open ]], Cell[CellGroupData[{ -Cell[362879, 9334, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], -Cell[366594, 9454, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] +Cell[372219, 9529, 2663, 88, 42, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[374885, 9619, 173, 3, 23, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, Open ]], Cell[CellGroupData[{ -Cell[366802, 9462, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], -Cell[368857, 9523, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], -Cell[369432, 9537, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], -Cell[370008, 9551, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], -Cell[370589, 9565, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], -Cell[371049, 9577, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] +Cell[375095, 9627, 2603, 85, 42, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[377701, 9714, 171, 3, 23, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, Open ]], Cell[CellGroupData[{ -Cell[371258, 9585, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], -Cell[373315, 9646, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], -Cell[373890, 9660, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], -Cell[374468, 9674, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], -Cell[375047, 9688, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], -Cell[375507, 9700, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] +Cell[377909, 9722, 3712, 118, 84, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[381624, 9842, 171, 3, 23, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, Open ]], Cell[CellGroupData[{ -Cell[375714, 9708, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], -Cell[377747, 9765, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] +Cell[381832, 9850, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[383887, 9911, 572, 12, 28, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[384462, 9925, 573, 12, 28, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[385038, 9939, 578, 12, 28, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[385619, 9953, 457, 10, 18, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[386079, 9965, 172, 3, 23, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, Open ]], Cell[CellGroupData[{ -Cell[398161, 10154, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], -Cell[400282, 10216, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], -Cell[400784, 10229, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], -Cell[401291, 10242, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], -Cell[401801, 10255, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], -Cell[402259, 10267, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] +Cell[386288, 9973, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[388345, 10034, 572, 12, 28, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[388920, 10048, 575, 12, 28, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[389498, 10062, 576, 12, 28, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[390077, 10076, 457, 10, 18, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[390537, 10088, 170, 3, 23, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], -Cell[424655, 10685, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], -Cell[424832, 10690, 209, 5, 70, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[425066, 10699, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], -Cell[426685, 10749, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], -Cell[427282, 10763, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], -Cell[427879, 10777, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], -Cell[428480, 10791, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], -Cell[428940, 10803, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] +Cell[390744, 10096, 2030, 55, 37, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[392777, 10153, 20377, 384, 165, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, Open ]], Cell[CellGroupData[{ -Cell[429148, 10811, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], -Cell[431398, 10877, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], -Cell[431973, 10891, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], -Cell[432549, 10905, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], -Cell[433130, 10919, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], -Cell[433588, 10931, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] +Cell[413191, 10542, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[415312, 10604, 499, 11, 28, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[415814, 10617, 504, 11, 28, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[416321, 10630, 507, 11, 28, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[416831, 10643, 455, 10, 18, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[417289, 10655, 22381, 415, 164, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, Open ]], +Cell[439685, 11073, 174, 3, 21, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[439862, 11078, 209, 5, 21, "Input",ExpressionUUID->"05df483d-64d7-9449-845e-6e6b94590d4b"], Cell[CellGroupData[{ -Cell[433797, 10939, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], -Cell[436021, 11005, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], -Cell[436594, 11019, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], -Cell[437170, 11033, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], -Cell[437751, 11047, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], -Cell[438209, 11059, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] +Cell[440096, 11087, 1616, 48, 51, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[441715, 11137, 594, 12, 28, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[442312, 11151, 594, 12, 28, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[442909, 11165, 598, 12, 28, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[443510, 11179, 457, 10, 18, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[443970, 11191, 171, 3, 23, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, Open ]], Cell[CellGroupData[{ -Cell[438418, 11067, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], -Cell[440642, 11133, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], -Cell[441217, 11147, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], -Cell[441795, 11161, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], -Cell[442376, 11175, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], -Cell[442834, 11187, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] +Cell[444178, 11199, 2247, 64, 45, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[446428, 11265, 572, 12, 28, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[447003, 11279, 573, 12, 28, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[447579, 11293, 578, 12, 28, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[448160, 11307, 455, 10, 18, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[448618, 11319, 172, 3, 23, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, Open ]], Cell[CellGroupData[{ -Cell[443044, 11195, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], -Cell[443260, 11203, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] +Cell[448827, 11327, 2221, 64, 45, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[451051, 11393, 570, 12, 28, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[451624, 11407, 573, 12, 28, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[452200, 11421, 578, 12, 28, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[452781, 11435, 455, 10, 18, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[453239, 11447, 172, 3, 23, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, Open ]], -Cell[443447, 11209, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[443717, 11218, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], -Cell[444278, 11239, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] +Cell[453448, 11455, 2221, 64, 45, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[455672, 11521, 572, 12, 28, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[456247, 11535, 575, 12, 28, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[456825, 11549, 578, 12, 28, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[457406, 11563, 455, 10, 18, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[457864, 11575, 173, 3, 23, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, Open ]], Cell[CellGroupData[{ -Cell[444488, 11247, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], -Cell[444661, 11254, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] +Cell[458074, 11583, 213, 6, 34, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[458290, 11591, 172, 3, 23, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], +Cell[458477, 11597, 245, 5, 21, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], Cell[CellGroupData[{ -Cell[444869, 11262, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], -Cell[445053, 11269, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] +Cell[458747, 11606, 558, 19, 38, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[459308, 11627, 173, 3, 23, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, Open ]], Cell[CellGroupData[{ -Cell[445263, 11277, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], -Cell[451321, 11464, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] +Cell[459518, 11635, 170, 5, 40, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[459691, 11642, 171, 3, 23, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, Open ]], Cell[CellGroupData[{ -Cell[451533, 11472, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], -Cell[451904, 11483, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] +Cell[459899, 11650, 181, 5, 32, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[460083, 11657, 173, 3, 23, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, Open ]], Cell[CellGroupData[{ -Cell[452111, 11491, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], -Cell[458236, 11680, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] +Cell[460293, 11665, 6055, 185, 143, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[466351, 11852, 175, 3, 23, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, Open ]], Cell[CellGroupData[{ -Cell[458448, 11688, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], -Cell[458819, 11699, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] +Cell[466563, 11860, 368, 9, 29, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[466934, 11871, 170, 3, 23, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, Open ]], Cell[CellGroupData[{ -Cell[459028, 11707, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], -Cell[461694, 11797, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] +Cell[467141, 11879, 6122, 187, 143, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[473266, 12068, 175, 3, 23, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, Open ]], Cell[CellGroupData[{ -Cell[461904, 11805, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], -Cell[464510, 11892, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] +Cell[473478, 12076, 368, 9, 29, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[473849, 12087, 172, 3, 23, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] }, Open ]], Cell[CellGroupData[{ -Cell[464718, 11900, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], -Cell[468433, 12020, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] +Cell[474058, 12095, 2663, 88, 42, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[476724, 12185, 173, 3, 23, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] }, Open ]], Cell[CellGroupData[{ -Cell[468641, 12028, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], -Cell[470696, 12089, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], -Cell[471267, 12103, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], -Cell[471842, 12117, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], -Cell[472419, 12131, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], -Cell[472879, 12143, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] +Cell[476934, 12193, 2603, 85, 42, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[479540, 12280, 171, 3, 23, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] }, Open ]], Cell[CellGroupData[{ -Cell[473088, 12151, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], -Cell[475145, 12212, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], -Cell[475716, 12226, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], -Cell[476291, 12240, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], -Cell[476868, 12254, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], -Cell[477328, 12266, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] +Cell[479748, 12288, 3712, 118, 84, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[483463, 12408, 171, 3, 23, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] }, Open ]], Cell[CellGroupData[{ -Cell[477536, 12274, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], -Cell[479569, 12331, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] +Cell[483671, 12416, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[485726, 12477, 568, 12, 28, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[486297, 12491, 572, 12, 28, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[486872, 12505, 574, 12, 28, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[487449, 12519, 457, 10, 18, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[487909, 12531, 172, 3, 23, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] }, Open ]], Cell[CellGroupData[{ -Cell[499566, 12711, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], -Cell[501687, 12773, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], -Cell[502186, 12786, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], -Cell[502690, 12799, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], -Cell[503198, 12812, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], -Cell[503656, 12824, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] +Cell[488118, 12539, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[490175, 12600, 568, 12, 28, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[490746, 12614, 572, 12, 28, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[491321, 12628, 574, 12, 28, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[491898, 12642, 457, 10, 18, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[492358, 12654, 171, 3, 23, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] }, Open ]], -Cell[525392, 13230, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], -Cell[525576, 13235, 207, 5, 70, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[525808, 13244, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], -Cell[527427, 13294, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], -Cell[528019, 13308, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], -Cell[528610, 13322, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], -Cell[529207, 13336, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], -Cell[529665, 13348, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] +Cell[492566, 12662, 2030, 55, 37, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[494599, 12719, 19960, 375, 165, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] }, Open ]], Cell[CellGroupData[{ -Cell[529875, 13356, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], -Cell[532124, 13422, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], -Cell[532693, 13436, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], -Cell[533266, 13450, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], -Cell[533843, 13464, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], -Cell[534302, 13476, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] +Cell[514596, 13099, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[516717, 13161, 496, 11, 28, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[517216, 13174, 501, 11, 28, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[517720, 13187, 505, 11, 28, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[518228, 13200, 455, 10, 18, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[518686, 13212, 21721, 403, 163, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] }, Open ]], +Cell[540422, 13618, 181, 3, 21, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[540606, 13623, 207, 5, 21, "Input",ExpressionUUID->"eae5aeae-3f12-2d4a-842b-85a3484011b6"], Cell[CellGroupData[{ -Cell[534510, 13484, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], -Cell[536734, 13550, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], -Cell[537306, 13564, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], -Cell[537880, 13578, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], -Cell[538458, 13592, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], -Cell[538919, 13604, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +Cell[540838, 13632, 1616, 48, 51, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[542457, 13682, 589, 12, 28, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[543049, 13696, 588, 12, 28, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[543640, 13710, 594, 12, 28, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[544237, 13724, 455, 10, 18, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[544695, 13736, 173, 3, 23, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] }, Open ]], Cell[CellGroupData[{ -Cell[539127, 13612, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], -Cell[541353, 13678, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], -Cell[541923, 13692, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], -Cell[542497, 13706, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], -Cell[543073, 13720, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], -Cell[543532, 13732, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +Cell[544905, 13744, 2246, 64, 45, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[547154, 13810, 566, 12, 28, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[547723, 13824, 570, 12, 28, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[548296, 13838, 574, 12, 28, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[548873, 13852, 456, 10, 18, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[549332, 13864, 171, 3, 23, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] }, Open ]], Cell[CellGroupData[{ -Cell[543742, 13740, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], -Cell[543956, 13748, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] +Cell[549540, 13872, 2221, 64, 45, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[551764, 13938, 569, 12, 28, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[552336, 13952, 571, 12, 28, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[552910, 13966, 575, 12, 28, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[553488, 13980, 458, 10, 18, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[553949, 13992, 171, 3, 23, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] +}, Open ]], +Cell[CellGroupData[{ +Cell[554157, 14000, 2223, 64, 45, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[556383, 14066, 567, 12, 28, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[556953, 14080, 571, 12, 28, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[557527, 14094, 573, 12, 28, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[558103, 14108, 456, 10, 18, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[558562, 14120, 173, 3, 23, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[558772, 14128, 211, 6, 34, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[558986, 14136, 174, 3, 23, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]] } ] diff --git a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb index 14330be..3e29ce9 100755 --- a/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb +++ b/Pu240_798-811_TitovAA/174-66_h_Pu240_2-3/h_174-66_Pu240_2-3_pr_Qw1.nb @@ -10,35 +10,5006 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 419556, 9759] -NotebookOptionsPosition[ 394772, 9385] -NotebookOutlinePosition[ 395226, 9403] -CellTagsIndexPosition[ 395183, 9400] +NotebookDataLength[ 622781, 15030] +NotebookOptionsPosition[ 583323, 14402] +NotebookOutlinePosition[ 583765, 14420] +CellTagsIndexPosition[ 583722, 14417] 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.8"}]], "Input", + CellChangeTimes->{ + 3.991926627241884*^9, {3.9919752407542057`*^9, 3.9919752437472878`*^9}, + 3.9920650045886707`*^9, {3.993120093374651*^9, 3.993120098406262*^9}, { + 3.9931205775772543`*^9, 3.9931205930074*^9}, {3.99312068244851*^9, + 3.993120683031312*^9}, {3.993120763928855*^9, 3.993120796207575*^9}, { + 3.993120826638487*^9, 3.99312091050727*^9}}, + CellLabel-> + "In[791]:=",ExpressionUUID->"dd9dcfd4-9683-421f-bda5-b31da0d323d6"], + +Cell[BoxData["1.8`"], "Output", + CellChangeTimes->{{3.99312071481172*^9, 3.993120733996957*^9}, + 3.993120778405978*^9, {3.993120808982645*^9, 3.993120917972237*^9}}, + CellLabel-> + "Out[791]=",ExpressionUUID->"71f089d7-0dcf-4f9c-8aa5-523fa7ebebca"] +}, Open ]], + +Cell[CellGroupData[{ Cell[BoxData[ - RowBox[{"f2", "="}]], "Input", + RowBox[{"A", "=", "240"}]], "Input", + CellChangeTimes->{{3.9915672960517406`*^9, 3.991567297688427*^9}, { + 3.9921791748924236`*^9, 3.992179175479521*^9}}, + CellLabel-> + "In[792]:=",ExpressionUUID->"7dcc824c-c714-473c-855d-4595e82aca01"], + +Cell[BoxData["240"], "Output", CellChangeTimes->{ - 3.9918488509977226`*^9},ExpressionUUID->"45ed831b-459a-9a41-990f-\ -c079ad464f5d"], + 3.9913196497381973`*^9, 3.992179197984804*^9, 3.992572214097535*^9, + 3.992572317060832*^9, 3.993119177905259*^9, 3.993120125010063*^9, + 3.9931206200212383`*^9, 3.993120734031558*^9, 3.993120778440694*^9, { + 3.9931208090163393`*^9, 3.993120918005108*^9}}, + CellLabel-> + "Out[792]=",ExpressionUUID->"fd1bccfd-34c1-4e94-8d81-78ac9daa80da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A1", "=", " ", "174"}]], "Input", + CellChangeTimes->{ + 3.991798961431202*^9, {3.992179210458246*^9, 3.9921792125496464`*^9}}, + CellLabel-> + "In[793]:=",ExpressionUUID->"584dc846-b443-4e78-9de7-8414a101f8a2"], + +Cell[BoxData["174"], "Output", + CellChangeTimes->{ + 3.992179213346216*^9, 3.992572214121804*^9, 3.992572317082644*^9, + 3.9931191779262667`*^9, 3.993120125034624*^9, 3.993120620044674*^9, + 3.993120734050745*^9, 3.993120778464333*^9, {3.9931208090398912`*^9, + 3.993120918033216*^9}}, + CellLabel-> + "Out[793]=",ExpressionUUID->"b7546eb2-a7dd-432b-b569-c556729c4981"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a1", "=", "0.55"}]], "Input", + CellChangeTimes->{3.9434144380252676`*^9}, + CellLabel-> + "In[794]:=",ExpressionUUID->"5b808487-9536-4677-81b9-b32effd22817"], + +Cell[BoxData["0.55`"], "Output", + CellChangeTimes->{ + 3.991319649777508*^9, 3.992572214146598*^9, 3.992572317086834*^9, + 3.993119177946436*^9, 3.993120125058119*^9, 3.993120620068224*^9, + 3.993120734070492*^9, 3.993120778487204*^9, {3.993120809063224*^9, + 3.993120918037675*^9}}, + CellLabel-> + "Out[794]=",ExpressionUUID->"c004b49d-d6d2-4205-9f7f-dc9bf2c42278"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"a2", "=", + RowBox[{"a1", "-", + RowBox[{"0.015", "*", + FractionBox[ + RowBox[{ + RowBox[{"2", "*", "A1"}], "-", "A"}], "A"]}]}]}]], "Input", + CellLabel-> + "In[795]:=",ExpressionUUID->"28f4a07e-cc9f-47d8-bbfe-99b8a159e621"], + +Cell[BoxData["0.54325`"], "Output", + CellChangeTimes->{ + 3.9913196497965145`*^9, 3.992572214170871*^9, 3.992572317111895*^9, + 3.993119177966724*^9, 3.993120125061846*^9, 3.993120620073361*^9, + 3.993120734074827*^9, 3.993120778491198*^9, {3.993120809067272*^9, + 3.993120918063335*^9}}, + CellLabel-> + "Out[795]=",ExpressionUUID->"8143efd7-4f40-4f21-b8af-9c2f3a2aec4b"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"p0", "=", "0.17"}]], "Input", + CellLabel-> + "In[796]:=",ExpressionUUID->"7b5372cd-097f-410a-9dde-ee8d7b47efcb"], + +Cell[BoxData["0.17`"], "Output", + CellChangeTimes->{ + 3.9913196498144608`*^9, 3.992572214197208*^9, 3.992572317132773*^9, + 3.993119177986623*^9, 3.993120125088593*^9, 3.993120620099668*^9, + 3.993120734095941*^9, 3.99312077851781*^9, {3.993120809095289*^9, + 3.993120918090218*^9}}, + CellLabel-> + "Out[796]=",ExpressionUUID->"3c21fed9-9378-4c6a-a321-bd30670a207e"] +}, 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[797]:=",ExpressionUUID->"790ed917-dfad-4a40-8347-e877a413e7b7"], + +Cell[BoxData["6.4760133991237705`"], "Output", + CellChangeTimes->{ + 3.9913196498225155`*^9, 3.992572214222725*^9, 3.992572317154562*^9, + 3.99311917800653*^9, 3.9931201251119223`*^9, 3.993120620121489*^9, + 3.993120734114851*^9, 3.993120778540956*^9, {3.993120809118425*^9, + 3.9931209181194077`*^9}}, + CellLabel-> + "Out[797]=",ExpressionUUID->"b21841a9-d4b5-4e08-b7b5-53a7b1796a54"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"R02", "=", + RowBox[{"1.16", "*", + SuperscriptBox[ + RowBox[{"(", + RowBox[{"A", "-", "A1"}], ")"}], + RowBox[{"1", "/", "3"}]]}]}]], "Input", + CellLabel-> + "In[798]:=",ExpressionUUID->"001b5f74-5cee-4774-98c8-fb175cefbb28"], + +Cell[BoxData["4.6878384239217405`"], "Output", + CellChangeTimes->{ + 3.9913196498425236`*^9, 3.992572214247353*^9, 3.9925723171758833`*^9, + 3.993119178026596*^9, 3.993120125135309*^9, 3.9931206201430807`*^9, + 3.9931207341331453`*^9, 3.993120778564814*^9, {3.993120809140911*^9, + 3.993120918144981*^9}}, + CellLabel-> + "Out[798]=",ExpressionUUID->"2b9b6d38-fe87-4971-96da-c998142b4518"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b1", "=", " ", "0.787635594208527"}]], "Input", + CellChangeTimes->{ + 3.991799283179735*^9, {3.992179227142147*^9, 3.9921792274418793`*^9}}, + CellLabel-> + "In[799]:=",ExpressionUUID->"d71ecc94-8318-4cd7-af7d-f1b9397248d9"], + +Cell[BoxData["0.787635594208527`"], "Output", + CellChangeTimes->{ + 3.9921792420000687`*^9, 3.992572214271277*^9, 3.992572317197154*^9, + 3.993119178046308*^9, 3.993120125158621*^9, 3.993120620165731*^9, + 3.993120734151725*^9, 3.993120778587878*^9, {3.993120809163859*^9, + 3.993120918172269*^9}}, + CellLabel-> + "Out[799]=",ExpressionUUID->"b636a8ff-d23e-489c-ac30-7ceba04fb959"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"b2", "=", " ", "0.446333511300556"}]], "Input", + CellChangeTimes->{ + 3.991799280663351*^9, {3.9921792384900284`*^9, 3.9921792388312874`*^9}}, + CellLabel-> + "In[800]:=",ExpressionUUID->"1bea7163-2ebf-4d7c-ab40-26fa692583b8"], + +Cell[BoxData["0.446333511300556`"], "Output", + CellChangeTimes->{ + 3.9921792398346214`*^9, 3.992572214295*^9, 3.992572317218054*^9, + 3.9931191780661097`*^9, 3.9931201251823397`*^9, 3.9931206201876802`*^9, + 3.993120734170333*^9, 3.993120778610222*^9, {3.993120809186323*^9, + 3.99312091819843*^9}}, + CellLabel-> + "Out[800]=",ExpressionUUID->"fb26e70a-aff0-4c8d-9f31-8849a625c144"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x1", "=", "0"}]], "Input", + CellLabel-> + "In[801]:=",ExpressionUUID->"a3e3cd1f-cbf4-4e81-8bfc-93c03c56f907"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498927155`*^9, 3.992572214318672*^9, 3.992572317239251*^9, + 3.99311917808567*^9, 3.9931201252072067`*^9, 3.993120620211128*^9, + 3.9931207341889687`*^9, 3.99312077863275*^9, {3.9931208092095003`*^9, + 3.993120918224504*^9}}, + CellLabel-> + "Out[801]=",ExpressionUUID->"eb16effe-7bc1-46f1-b5da-bb2febd45703"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"x2", "=", "0"}]], "Input", + CellLabel-> + "In[802]:=",ExpressionUUID->"c286758a-dd5f-4276-977f-87bcd04f953e"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913196498996067`*^9, 3.992572214341442*^9, 3.99257231726003*^9, + 3.9931191781051207`*^9, 3.993120125230564*^9, 3.9931206202335043`*^9, + 3.99312073420716*^9, 3.993120778655138*^9, {3.993120809232238*^9, + 3.993120918250256*^9}}, + CellLabel-> + "Out[802]=",ExpressionUUID->"397bad2c-5f0c-4cd4-9cea-c2e772ff5a8d"] +}, 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[803]:=",ExpressionUUID->"1736b587-9844-4225-9978-48310d664cf7"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913197863028755`*^9, 3.9925722143657017`*^9, 3.992572317280959*^9, + 3.993119178124851*^9, 3.993120125254407*^9, 3.993120620254471*^9, + 3.993120734225675*^9, 3.9931207786779127`*^9, {3.993120809254608*^9, + 3.993120918276112*^9}}, + CellLabel-> + "Out[803]=",ExpressionUUID->"133b4f2a-ff50-4808-a266-e16ae8426cb3"] +}, 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[804]:=",ExpressionUUID->"156a2269-70bf-4726-8b57-80df2441dde8"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913197864610195`*^9, 3.992572214389948*^9, 3.992572317303102*^9, + 3.993119178144163*^9, 3.9931201252777433`*^9, 3.9931206202755957`*^9, + 3.993120734243594*^9, 3.9931207787003393`*^9, {3.993120809276908*^9, + 3.99312091830203*^9}}, + CellLabel-> + "Out[804]=",ExpressionUUID->"1146507e-0090-406e-a243-4f77cf2f31b8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c11", "=", + RowBox[{"1", "-", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"]}]}], ")"}], "*", + RowBox[{"(", + RowBox[{ + SuperscriptBox["w1", "2"], "-", "1"}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]}]], "Input", + CellLabel-> + "In[805]:=",ExpressionUUID->"13e44969-f264-4100-9ae0-ffcdb8a6ee14"], + +Cell[BoxData["0.4893939523240862`"], "Output", + CellChangeTimes->{ + 3.991319786533783*^9, 3.992572214413184*^9, 3.99257231732421*^9, + 3.993119178164648*^9, 3.993120125301038*^9, 3.9931206202958717`*^9, + 3.993120734262151*^9, 3.993120778723154*^9, {3.993120809300878*^9, + 3.99312091832813*^9}}, + CellLabel-> + "Out[805]=",ExpressionUUID->"ca7106b1-8cd7-4d77-b856-40214148d0d6"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"c12", "=", + FractionBox[ + RowBox[{ + RowBox[{"(", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}]}], ")"}], "*", + RowBox[{"(", + RowBox[{"1", "-", + SuperscriptBox["w2", "2"]}], ")"}]}], + RowBox[{ + RowBox[{"R01", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b1", "*", "b1"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b1", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w2", "2"]}], "+", + RowBox[{"R02", "*", + RowBox[{"(", + RowBox[{"1", "-", + FractionBox[ + RowBox[{"b2", "*", "b2"}], + RowBox[{"4", "\[Pi]"}]], "+", + RowBox[{"b2", "*", + SqrtBox[ + FractionBox["5", + RowBox[{"4", "\[Pi]"}]]]}]}], ")"}], "*", + SuperscriptBox["w1", "2"]}], "+", + RowBox[{"d", "*", + SuperscriptBox["w2", "2"], "*", + SuperscriptBox["w1", "2"]}]}]]}]], "Input", + CellLabel-> + "In[806]:=",ExpressionUUID->"7d647c9c-fb30-46f9-ad54-2bca6c3ea417"], + +Cell[BoxData[ + RowBox[{"-", "0.11691975046471094`"}]], "Output", + CellChangeTimes->{ + 3.991319786540777*^9, 3.992572214437451*^9, 3.9925723173458*^9, + 3.993119178185848*^9, 3.993120125324417*^9, 3.9931206203183327`*^9, + 3.993120734281169*^9, 3.9931207787467546`*^9, {3.9931208093296213`*^9, + 3.99312091835464*^9}}, + CellLabel-> + "Out[806]=",ExpressionUUID->"8eb5526c-ca9b-454d-9e72-3b94bb4239cf"] +}, 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[807]:=",ExpressionUUID->"27a549f5-e1cc-4650-b38b-1ad808b9d74d"], + +Cell[BoxData[ + RowBox[{"-", "0.47923841529777084`"}]], "Output", + CellChangeTimes->{ + 3.9913197865777817`*^9, 3.992572214463674*^9, 3.992572317369649*^9, + 3.9931191782082033`*^9, 3.99312012534838*^9, 3.993120620340795*^9, + 3.993120734300748*^9, 3.993120778771158*^9, {3.993120809354206*^9, + 3.993120918381035*^9}}, + CellLabel-> + "Out[807]=",ExpressionUUID->"64903f7c-c056-4432-b67a-5fa35c8c85bc"] +}, 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[808]:=",ExpressionUUID->"5e91c74f-1789-45c9-a214-2244c72ade7d"], + +Cell[BoxData["0.6645788995097195`"], "Output", + CellChangeTimes->{ + 3.9913197866129*^9, 3.992572214489163*^9, 3.992572317393075*^9, + 3.993119178231051*^9, 3.9931201253721113`*^9, 3.99312062036334*^9, + 3.993120734321094*^9, 3.993120778795766*^9, {3.993120809378998*^9, + 3.993120918385751*^9}}, + CellLabel-> + "Out[808]=",ExpressionUUID->"31f182a9-76a8-47b9-8f55-c48f52b240d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellLabel-> + "In[809]:=",ExpressionUUID->"7a482116-c539-43ca-85e3-f73fb60f240c"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786620775*^9, 3.992572214515427*^9, 3.99257231741498*^9, + 3.993119178253972*^9, 3.993120125375824*^9, 3.993120620387291*^9, + 3.993120734341495*^9, 3.993120778819956*^9, {3.9931208093832693`*^9, + 3.9931209184116087`*^9}}, + CellLabel-> + "Out[809]=",ExpressionUUID->"e64b6eb2-75dd-486e-8ee1-d800f1edbab4"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fin", "=", "0.09"}]], "Input", + CellLabel-> + "In[810]:=",ExpressionUUID->"ea634259-306f-4340-9a17-572370411175"], + +Cell[BoxData["0.09`"], "Output", + CellChangeTimes->{ + 3.991319786657793*^9, 3.9925722145429707`*^9, 3.992572317437202*^9, + 3.993119178277193*^9, 3.9931201254011793`*^9, 3.993120620412382*^9, + 3.9931207343622217`*^9, 3.9931207788442707`*^9, {3.99312080941044*^9, + 3.9931209184381313`*^9}}, + CellLabel-> + "Out[810]=",ExpressionUUID->"5a9d1eaf-bc28-4a92-a9bd-717db8ce16da"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffin", "=", "0.42"}]], "Input", + CellLabel-> + "In[811]:=",ExpressionUUID->"f54223b7-3ea2-47c0-86bb-064a003a0c65"], + +Cell[BoxData["0.42`"], "Output", + CellChangeTimes->{ + 3.9913197866657925`*^9, 3.992572214574439*^9, 3.992572317459443*^9, + 3.993119178300417*^9, 3.9931201254244537`*^9, 3.9931206204363203`*^9, + 3.993120734383583*^9, 3.9931207788686132`*^9, {3.9931208094353867`*^9, + 3.9931209184643908`*^9}}, + CellLabel-> + "Out[811]=",ExpressionUUID->"2760ec95-9401-42cb-8266-78f21b99cbf3"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"fex", "=", + RowBox[{"-", "2.59"}]}]], "Input", + CellChangeTimes->{{3.9434353249158707`*^9, 3.943435325663808*^9}}, + CellLabel-> + "In[812]:=",ExpressionUUID->"0541a946-202c-4b2c-83f8-ebb523379191"], + +Cell[BoxData[ + RowBox[{"-", "2.59`"}]], "Output", + CellChangeTimes->{ + 3.9913197866996*^9, 3.992572214602646*^9, 3.9925723174828*^9, + 3.993119178323925*^9, 3.993120125448517*^9, 3.993120620460043*^9, + 3.993120734387587*^9, 3.993120778893586*^9, {3.99312080946041*^9, + 3.993120918489931*^9}}, + CellLabel-> + "Out[812]=",ExpressionUUID->"4c02c8a0-a1df-4c84-a94e-5fcbaab897df"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"ffex", "=", "0.54"}]], "Input", + CellLabel-> + "In[813]:=",ExpressionUUID->"e87a0bbb-4305-42aa-bd42-1c6fa342cfc8"], + +Cell[BoxData["0.54`"], "Output", + CellChangeTimes->{ + 3.9913197867406044`*^9, 3.992572214629313*^9, 3.992572317507607*^9, + 3.9931191783485727`*^9, 3.993120125472217*^9, 3.993120620483555*^9, + 3.9931207344112377`*^9, 3.993120778917965*^9, {3.9931208094855137`*^9, + 3.993120918515835*^9}}, + CellLabel-> + "Out[813]=",ExpressionUUID->"d95a15bc-2ec7-4a91-ae7c-98832b6c97d7"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z1", "=", " ", "64"}]], "Input", + CellChangeTimes->{{3.9434374360643005`*^9, 3.943437436361556*^9}, { + 3.943437514738135*^9, 3.9434375159795218`*^9}, 3.991799293571144*^9, { + 3.992179334842106*^9, 3.992179335687786*^9}}, + CellLabel-> + "In[814]:=",ExpressionUUID->"7c0eb7f0-9d06-45cd-b294-8a4c83a9759a"], + +Cell[BoxData["64"], "Output", + CellChangeTimes->{ + 3.992179336847067*^9, 3.9925722146573257`*^9, 3.992572317531928*^9, + 3.9931191783727818`*^9, 3.99312012549559*^9, 3.993120620507852*^9, + 3.99312073443309*^9, 3.9931207789437017`*^9, {3.993120809511362*^9, + 3.993120918541663*^9}}, + CellLabel-> + "Out[814]=",ExpressionUUID->"255991d9-42a7-403f-a2a3-44f6ef5a8dd8"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"Z2", "=", + RowBox[{"94", "-", "Z1"}]}]], "Input", + CellChangeTimes->{{3.9434375187586946`*^9, 3.943437529577962*^9}, + 3.9916443064841423`*^9, {3.9921793256443367`*^9, 3.992179330522312*^9}}, + CellLabel-> + "In[815]:=",ExpressionUUID->"8b2b0bd6-e999-4d3a-8603-6ef666baf6b8"], + +Cell[BoxData["30"], "Output", + CellChangeTimes->{ + 3.9913197867928696`*^9, 3.9921793318030663`*^9, 3.9925722146853657`*^9, + 3.9925723175551643`*^9, 3.993119178397065*^9, 3.9931201255193787`*^9, + 3.993120620532507*^9, 3.993120734454447*^9, 3.9931207789693117`*^9, { + 3.993120809536613*^9, 3.9931209185672503`*^9}}, + CellLabel-> + "Out[815]=",ExpressionUUID->"cbb76a17-a13f-4118-a7e4-03f53fb74bda"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"A2", "=", + RowBox[{"A", "-", "A1"}]}]], "Input", + CellChangeTimes->{{3.943437540957633*^9, 3.943437547073514*^9}}, + CellLabel-> + "In[816]:=",ExpressionUUID->"161e6521-bc56-4dfd-a046-9fc45d73a999"], + +Cell[BoxData["66"], "Output", + CellChangeTimes->{ + 3.991319786827894*^9, 3.992572214711643*^9, 3.9925723175775127`*^9, + 3.993119178422393*^9, 3.993120125544594*^9, 3.9931206205571127`*^9, + 3.993120734475452*^9, 3.993120778995337*^9, {3.993120809563072*^9, + 3.993120918592782*^9}}, + CellLabel-> + "Out[816]=",ExpressionUUID->"67c9d1fd-5617-49c5-8946-d54d59d8cc4b"] +}, 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[817]:=",ExpressionUUID->"e2ee5596-377d-47e9-ba0e-ba4715189ab1"], + +Cell[BoxData["0.10009404388714734`"], "Output", + CellChangeTimes->{ + 3.9913197868648605`*^9, 3.9925722147384853`*^9, 3.9925723175992517`*^9, + 3.993119178447468*^9, 3.9931201255690928`*^9, 3.99312062058057*^9, + 3.993120734496913*^9, 3.9931207790217533`*^9, {3.993120809589333*^9, + 3.993120918618535*^9}}, + CellLabel-> + "Out[817]=",ExpressionUUID->"6d065012-6ae0-4a15-ab7e-23c0758da6b5"] +}, 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[818]:=",ExpressionUUID->"83eb4ed2-6dfc-4ba7-ac7e-dc009b382bed"], + +Cell[BoxData[ + RowBox[{"-", "2.5770219435736674`"}]], "Output", + CellChangeTimes->{ + 3.9913197868718567`*^9, 3.9925722147662983`*^9, 3.992572317620441*^9, + 3.99311917847161*^9, 3.9931201255928173`*^9, 3.993120620603883*^9, + 3.99312073451705*^9, 3.993120779047393*^9, {3.993120809616363*^9, + 3.99312091864408*^9}}, + CellLabel-> + "Out[818]=",ExpressionUUID->"9075a821-a828-4d8d-a659-e129e1cf260d"] +}, 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[819]:=",ExpressionUUID->"8072c677-ed25-44a8-9254-3d3d9447cfe4"], + +Cell[BoxData["17.107103859214785`"], "Output", + CellChangeTimes->{ + 3.9913197869068584`*^9, 3.9925722147917547`*^9, 3.992572317642908*^9, + 3.9931191784953337`*^9, 3.9931201256157637`*^9, 3.993120620627388*^9, + 3.993120734537298*^9, 3.993120779073007*^9, {3.993120809642799*^9, + 3.99312091866967*^9}}, + CellLabel-> + "Out[819]=",ExpressionUUID->"2d8ed23b-c09e-4b8c-8dd6-af975a869850"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"C0", "=", "300"}]], "Input", + CellChangeTimes->{{3.943434925954894*^9, 3.9434349285011044`*^9}}, + CellLabel-> + "In[820]:=",ExpressionUUID->"036b3ae2-630a-4a38-a182-65b537997030"], + +Cell[BoxData["300"], "Output", + CellChangeTimes->{ + 3.991319786940857*^9, 3.992572214844244*^9, 3.992572317663885*^9, + 3.993119178519957*^9, 3.9931201256394*^9, 3.993120620650062*^9, + 3.9931207345574923`*^9, 3.9931207790984907`*^9, {3.99312080966818*^9, + 3.993120918694831*^9}}, + CellLabel-> + "Out[820]=",ExpressionUUID->"7227e8b9-5a37-40fd-979a-c27b8d806e04"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v1", "=", " ", "1.7300"}]], "Input", + CellChangeTimes->{{3.9434349548512697`*^9, 3.9434349649002953`*^9}, + 3.943437451104373*^9, 3.9917179877659073`*^9, 3.9917993555955296`*^9, { + 3.99217938935705*^9, 3.9921793928277493`*^9}}, + CellLabel-> + "In[821]:=",ExpressionUUID->"9edaecee-d32e-4be8-bd42-1e687186fb4d"], + +Cell[BoxData["1.73`"], "Output", + CellChangeTimes->{ + 3.992179393619543*^9, 3.99257221486978*^9, 3.9925723176844263`*^9, + 3.993119178543579*^9, 3.993120125662697*^9, 3.993120620672945*^9, + 3.993120734577505*^9, 3.99312077912435*^9, {3.993120809694366*^9, + 3.9931209187201843`*^9}}, + CellLabel-> + "Out[821]=",ExpressionUUID->"7979909c-af2f-44c7-a643-1a5e2374f69b"] +}, 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[822]:=",ExpressionUUID->"c32c1952-2063-4bc0-b522-543f9ed15363"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n1", "=", " ", "0.7600"}]], "Input", + CellChangeTimes->{{3.9434349674855194`*^9, 3.943434971565033*^9}, + 3.9434374542625003`*^9, 3.9917179964399834`*^9, 3.9917993574235134`*^9, { + 3.992179397583227*^9, 3.992179400444868*^9}}, + CellLabel-> + "In[823]:=",ExpressionUUID->"7a216ff1-d300-4bf0-ab92-54cca1e0ad89"], + +Cell[BoxData["0.76`"], "Output", + CellChangeTimes->{ + 3.992179401201977*^9, 3.992572214909528*^9, 3.992572317717004*^9, + 3.993119178580999*^9, 3.993120125699438*^9, 3.993120620708702*^9, + 3.993120734611329*^9, 3.993120779164959*^9, {3.9931208097375097`*^9, + 3.993120918756428*^9}}, + CellLabel-> + "Out[823]=",ExpressionUUID->"628cf8a4-9553-489c-bada-ca3dbd35ff46"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848641020609*^9, 3.9918486410246162`*^9}}, + CellLabel-> + "In[824]:=",ExpressionUUID->"4c5193ce-02f4-44a7-843f-31cc0aca3d1c"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv1", "=", " ", "2.400"}]], "Input", + CellChangeTimes->{{3.9434349759643574`*^9, 3.9434349806520367`*^9}, { + 3.943437458959346*^9, 3.943437459115596*^9}, 3.9917993587947025`*^9, { + 3.9921794031483917`*^9, 3.9921794061884384`*^9}}, + CellLabel-> + "In[825]:=",ExpressionUUID->"fd838566-0558-4d1c-b173-75f88e252bd8"], + +Cell[BoxData["2.4`"], "Output", + CellChangeTimes->{ + 3.992179407540327*^9, 3.992572214945683*^9, 3.9925723177561007`*^9, + 3.993119178617138*^9, 3.993120125731515*^9, 3.993120620741789*^9, + 3.99312073464296*^9, 3.993120779203336*^9, {3.993120809773469*^9, + 3.993120918792803*^9}}, + CellLabel-> + "Out[825]=",ExpressionUUID->"16118013-5872-490c-ae47-4576fc7e80ad"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486421415234`*^9, 3.991848642146063*^9}}, + CellLabel-> + "In[826]:=",ExpressionUUID->"7e3dccb6-c958-4c9c-8079-58ceb9f9b614"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn1", "=", " ", "1.1050"}]], "Input", + CellChangeTimes->{{3.943434982590375*^9, 3.9434349866047964`*^9}, { + 3.9434374622143803`*^9, 3.9434374623562365`*^9}, 3.9917180082009144`*^9, + 3.991799359954439*^9, {3.992179410033045*^9, 3.9921794153030643`*^9}}, + CellLabel-> + "In[827]:=",ExpressionUUID->"2c752b9c-11a9-43dc-81e0-db5582a71605"], + +Cell[BoxData["1.105`"], "Output", + CellChangeTimes->{ + 3.992179415754301*^9, 3.992572214981649*^9, 3.992572317797142*^9, + 3.9931191786546717`*^9, 3.993120125772245*^9, 3.993120620774741*^9, + 3.993120734674015*^9, 3.993120779246025*^9, {3.9931208098102417`*^9, + 3.993120918832294*^9}}, + CellLabel-> + "Out[827]=",ExpressionUUID->"48133414-a63b-4332-8ded-06be5ec919ca"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848643356409*^9, 3.991848643361412*^9}}, + CellLabel-> + "In[828]:=",ExpressionUUID->"69ed9a70-1acf-4787-9df1-c8a58e37f569"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"v2", "=", " ", "1.4012"}]], "Input", + CellChangeTimes->{{3.9434349919514623`*^9, 3.943434996184626*^9}, + 3.991718016467348*^9, 3.991799361414671*^9, {3.9921794177283573`*^9, + 3.992179423583313*^9}}, + CellLabel-> + "In[829]:=",ExpressionUUID->"09cfcfa5-64e4-4620-a2b5-9f922df7b73e"], + +Cell[BoxData["1.4012`"], "Output", + CellChangeTimes->{ + 3.9921794257836323`*^9, 3.992572215020274*^9, 3.9925723178372593`*^9, + 3.993119178721389*^9, 3.9931201258041277`*^9, 3.993120620807364*^9, + 3.9931207347045813`*^9, 3.99312077928405*^9, {3.993120809849883*^9, + 3.993120918882786*^9}}, + CellLabel-> + "Out[829]=",ExpressionUUID->"521cd720-75cf-4bd3-a410-28c6dc19a6cd"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.991848644751276*^9, 3.991848644757372*^9}}, + CellLabel-> + "In[830]:=",ExpressionUUID->"25db9763-73a6-4053-b9be-e24a242afa4d"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"n2", "=", " ", "0.5547"}]], "Input", + CellChangeTimes->{{3.9434350002095394`*^9, 3.943435004108102*^9}, + 3.9917180279399567`*^9, 3.9917993631287174`*^9, {3.9921794277801266`*^9, + 3.9921794329809513`*^9}}, + CellLabel-> + "In[831]:=",ExpressionUUID->"01b83192-9964-4116-8b42-c27efb527d64"], + +Cell[BoxData["0.5547`"], "Output", + CellChangeTimes->{ + 3.9921794363325005`*^9, 3.992572215056624*^9, 3.992572317866984*^9, + 3.9931191787561502`*^9, 3.993120125890787*^9, 3.9931206208406067`*^9, + 3.993120734738842*^9, 3.993120779339178*^9, {3.993120809889782*^9, + 3.993120918919759*^9}}, + CellLabel-> + "Out[831]=",ExpressionUUID->"53b9f562-b01a-4ae9-9fc6-1427d6a7f17e"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486484561863`*^9, 3.991848648461731*^9}}, + CellLabel-> + "In[832]:=",ExpressionUUID->"dea1f43e-f5ed-4242-9424-7ddadd695b03"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"vv2", "=", " ", "1.1338"}]], "Input", + CellChangeTimes->{{3.9434350062180433`*^9, 3.9434350100875373`*^9}, + 3.9917180507508755`*^9, 3.9917993645898876`*^9, {3.9921794404678802`*^9, + 3.992179445208559*^9}}, + CellLabel-> + "In[833]:=",ExpressionUUID->"5ba9f01f-8d54-4308-9dc0-7c727f65b81e"], + +Cell[BoxData["1.1338`"], "Output", + CellChangeTimes->{ + 3.99217944657938*^9, 3.992572215093463*^9, 3.992572317906247*^9, + 3.99311917879039*^9, 3.9931201260449333`*^9, 3.993120620873763*^9, + 3.993120734773638*^9, 3.993120779536425*^9, {3.993120809930094*^9, + 3.993120918956725*^9}}, + CellLabel-> + "Out[833]=",ExpressionUUID->"bf11a96c-813f-4ce0-b5f0-b5dd54a2cf5d"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.99184864995627*^9, 3.9918486499632607`*^9}}, + CellLabel-> + "In[834]:=",ExpressionUUID->"4e9612f9-2502-4606-82ad-ba1f87b9a20b"], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"nn2", "=", " ", "0.8500"}]], "Input", + CellChangeTimes->{{3.9434350133231063`*^9, 3.94343502227812*^9}, + 3.9917993660901737`*^9, {3.9921794486072216`*^9, 3.992179451994211*^9}}, + CellLabel-> + "In[835]:=",ExpressionUUID->"3a93e438-690f-47c1-ab87-c06a1606afb2"], + +Cell[BoxData["0.85`"], "Output", + CellChangeTimes->{ + 3.992179452410452*^9, 3.9925722151320877`*^9, 3.99257231794547*^9, + 3.9931191788237534`*^9, 3.993120126088036*^9, 3.993120620906579*^9, + 3.993120734815996*^9, 3.99312077958954*^9, {3.993120809970735*^9, + 3.993120919005844*^9}}, + CellLabel-> + "Out[835]=",ExpressionUUID->"67f3903b-d44b-4c15-8094-a672822f61f9"] +}, Open ]], + +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9918486513316555`*^9, 3.9918486513362026`*^9}}, + CellLabel-> + "In[836]:=",ExpressionUUID->"cf32dc23-38f4-4d48-856d-1c607860a5be"], + +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[837]:=",ExpressionUUID->"c84fcfb9-22dc-4660-af0b-21454e0f8a37"], + +Cell[BoxData["0.2740681472438999`"], "Output", + CellChangeTimes->{ + 3.991319787430073*^9, 3.9925722152487392`*^9, 3.99257231801375*^9, + 3.993119178932695*^9, 3.9931201261547956`*^9, 3.993120621085143*^9, + 3.993120734882799*^9, 3.993120779663743*^9, {3.9931208100453367`*^9, + 3.993120919069702*^9}}, + CellLabel-> + "Out[837]=",ExpressionUUID->"114a1667-2b83-49f8-b7c0-66c011bbd0f0"] +}, 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[838]:=",ExpressionUUID->"a1a7567b-6fc3-473f-b830-2b8940637361"], + +Cell[BoxData["6.729727276682354`"], "Output", + CellChangeTimes->{ + 3.991319787574972*^9, 3.992572215281089*^9, 3.992572318073772*^9, + 3.993119178961668*^9, 3.9931201261913633`*^9, 3.9931206212251253`*^9, + 3.993120734908091*^9, 3.993120779691341*^9, {3.993120810074683*^9, + 3.9931209190984907`*^9}}, + CellLabel-> + "Out[838]=",ExpressionUUID->"07516dd9-4b91-4cd5-8adf-7d2da56e5428"] +}, 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[839]:=",ExpressionUUID->"df0b8849-90eb-4cb8-ad0d-a1d1f6f6f223"], + +Cell[BoxData[ + RowBox[{"-", "33.539435872430126`"}]], "Output", + CellChangeTimes->{ + 3.991319787641424*^9, 3.992572215310524*^9, 3.9925723181046333`*^9, + 3.9931191789891367`*^9, 3.993120126228422*^9, 3.9931206213349524`*^9, + 3.993120734934422*^9, 3.993120779718647*^9, {3.993120810103335*^9, + 3.9931209191268253`*^9}}, + CellLabel-> + "Out[839]=",ExpressionUUID->"f2969697-38d7-4b5e-a602-995bd4a2b9ac"] +}, 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[840]:=",ExpressionUUID->"72284c56-eacd-4f84-b01f-494c6d688fa2"], + +Cell[BoxData[ + RowBox[{"-", "42.596524206199966`"}]], "Output", + CellChangeTimes->{ + 3.991319787711939*^9, 3.9925722153471212`*^9, 3.992572318139402*^9, + 3.993119179022643*^9, 3.993120126260621*^9, 3.99312062146356*^9, + 3.993120734966599*^9, 3.993120779750485*^9, {3.9931208101344213`*^9, + 3.993120919158321*^9}}, + CellLabel-> + "Out[840]=",ExpressionUUID->"9ec9f91b-f7c8-4956-9238-5d1a587e8942"] +}, 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[841]:=",ExpressionUUID->"f81a9a41-66ce-4d2c-99fa-c101ce857f23"], + +Cell[BoxData[ + RowBox[{"-", "101.06737781470315`"}]], "Output", + CellChangeTimes->{ + 3.9913197877723045`*^9, 3.992572215384285*^9, 3.992572318174841*^9, + 3.9931191790553703`*^9, 3.993120126295026*^9, 3.993120621602091*^9, + 3.993120734997818*^9, 3.9931207797928047`*^9, {3.993120810164044*^9, + 3.993120919189701*^9}}, + CellLabel-> + "Out[841]=",ExpressionUUID->"d15f00e4-8213-4cd4-b563-8d82b14f767e"] +}, 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[842]:=",ExpressionUUID->"01330e52-1b01-4121-b0ab-9a097302a897"], + +Cell[BoxData[ + RowBox[{"-", "257.9635659781649`"}]], "Output", + CellChangeTimes->{ + 3.991319787833355*^9, 3.992572215426282*^9, 3.992572318215456*^9, + 3.993119179092291*^9, 3.9931201263315697`*^9, 3.9931206217665358`*^9, + 3.993120735034762*^9, 3.993120779834642*^9, {3.993120810200284*^9, + 3.993120919227768*^9}}, + CellLabel-> + "Out[842]=",ExpressionUUID->"e872e107-4343-4ced-bd96-e52b610cf337"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U21", "=", "0"}]], "Input", + CellLabel-> + "In[843]:=",ExpressionUUID->"35c1d571-a4e1-477e-a672-feec6bc36d4f"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210013676`*^9, 3.9925722154529037`*^9, 3.9925723182371407`*^9, + 3.993119179114964*^9, 3.993120126352831*^9, 3.993120621792342*^9, + 3.99312073505088*^9, 3.9931207798622704`*^9, {3.993120810226747*^9, + 3.9931209192549257`*^9}}, + CellLabel-> + "Out[843]=",ExpressionUUID->"2e6a4d1b-4aa7-4ce9-afa4-e480a6345597"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData[ + RowBox[{"U22", "=", "0"}]], "Input", + CellLabel-> + "In[844]:=",ExpressionUUID->"2d268bd9-e47a-4c6d-95cd-4931d98e4399"], + +Cell[BoxData["0"], "Output", + CellChangeTimes->{ + 3.9913204210355663`*^9, 3.992572215478106*^9, 3.992572318257779*^9, + 3.9931191791375523`*^9, 3.993120126374206*^9, 3.993120621815301*^9, + 3.993120735073701*^9, 3.993120779889783*^9, {3.993120810252183*^9, + 3.993120919282319*^9}}, + CellLabel-> + "Out[844]=",ExpressionUUID->"8e802030-bb7a-4462-a9f9-1d4a00388d8e"] +}, 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[845]:=",ExpressionUUID->"ca3cfab3-2c47-4dea-9621-fa411f5e2ebc"], + +Cell[BoxData["206.09321333582264`"], "Output", + CellChangeTimes->{ + 3.991320421068556*^9, 3.992572215502891*^9, 3.9925723182776947`*^9, + 3.9931191791602383`*^9, 3.9931201263788633`*^9, 3.993120622314225*^9, + 3.9931207350960493`*^9, 3.993120779914585*^9, {3.9931208102780457`*^9, + 3.9931209193092546`*^9}}, + CellLabel-> + "Out[845]=",ExpressionUUID->"b05149ea-1120-455a-9015-342decbea921"] +}, 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[846]:=",ExpressionUUID->"e59a6dab-0305-421b-9296-daf3f80919b9"], + +Cell[BoxData[ + RowBox[{"-", "161.1868287134346`"}]], "Output", + CellChangeTimes->{ + 3.991320421098543*^9, 3.992572215526945*^9, 3.992572318297956*^9, + 3.993119179182555*^9, 3.993120126400342*^9, 3.99312062277221*^9, + 3.9931207351051397`*^9, 3.993120779938876*^9, {3.9931208103040047`*^9, + 3.9931209193366623`*^9}}, + CellLabel-> + "Out[846]=",ExpressionUUID->"934c6fc8-c57e-4df9-a299-86994d7fae3b"] +}, 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[847]:=",ExpressionUUID->"c0c5ca8d-a300-440f-ad98-865ded0193ae"], + +Cell[BoxData["193.7537427380251`"], "Output", + CellChangeTimes->{ + 3.9913204211275444`*^9, 3.9925722155553827`*^9, 3.9925723183190947`*^9, + 3.9931191792047863`*^9, 3.993120126422503*^9, 3.99312062328085*^9, + 3.993120735114328*^9, 3.993120779966241*^9, {3.993120810329393*^9, + 3.993120919363965*^9}}, + CellLabel-> + "Out[847]=",ExpressionUUID->"a4f77743-298d-4a5f-8dbb-ca91f5f39574"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c11"], "Input", + CellLabel-> + "In[848]:=",ExpressionUUID->"29a5b397-974e-47ea-8824-1e801b3a44a5"], + +Cell[BoxData["0.4893939523240862`"], "Output", + CellChangeTimes->{ + 3.9913204211385536`*^9, 3.992572215581643*^9, 3.9925723183400307`*^9, + 3.9931191792269573`*^9, 3.993120126444304*^9, 3.993120623323575*^9, + 3.993120735122086*^9, 3.993120779991181*^9, {3.993120810354744*^9, + 3.993120919368601*^9}}, + CellLabel-> + "Out[848]=",ExpressionUUID->"824460f3-98ea-48c5-ad5f-4be654d6275f"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c12"], "Input", + CellLabel-> + "In[849]:=",ExpressionUUID->"fba754b3-7eb8-497a-b262-d0ce093891f1"], + +Cell[BoxData[ + RowBox[{"-", "0.11691975046471094`"}]], "Output", + CellChangeTimes->{ + 3.9913204211683464`*^9, 3.9925722156071453`*^9, 3.9925723183603783`*^9, + 3.9931191792492533`*^9, 3.993120126466148*^9, 3.993120623346512*^9, + 3.9931207351443777`*^9, 3.993120780015463*^9, {3.9931208103803673`*^9, + 3.993120919396596*^9}}, + CellLabel-> + "Out[849]=",ExpressionUUID->"b1d23822-c584-4f1b-a096-41c59b471983"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c21"], "Input", + CellLabel-> + "In[850]:=",ExpressionUUID->"750ce752-e783-4b8c-902f-582ac825ed23"], + +Cell[BoxData[ + RowBox[{"-", "0.47923841529777084`"}]], "Output", + CellChangeTimes->{ + 3.991320421199068*^9, 3.992572215632304*^9, 3.992572318380674*^9, + 3.993119179271516*^9, 3.993120126487928*^9, 3.9931206233692617`*^9, + 3.993120735165653*^9, 3.993120780040511*^9, {3.993120810385436*^9, + 3.993120919423568*^9}}, + CellLabel-> + "Out[850]=",ExpressionUUID->"159734b8-c452-460f-83d7-64f3c8bc8f9d"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["c22"], "Input", + CellLabel-> + "In[851]:=",ExpressionUUID->"4010c96c-bca7-4165-a9ee-ad8db7f6d72e"], + +Cell[BoxData["0.6645788995097195`"], "Output", + CellChangeTimes->{ + 3.991320421228037*^9, 3.992572215657671*^9, 3.9925723183847733`*^9, + 3.993119179293789*^9, 3.9931201265097437`*^9, 3.9931206233734407`*^9, + 3.99312073518717*^9, 3.9931207800652113`*^9, {3.993120810412512*^9, + 3.993120919451396*^9}}, + CellLabel-> + "Out[851]=",ExpressionUUID->"889bd42e-09b5-42eb-b259-8e9fd2664314"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w1"], "Input", + CellLabel-> + "In[852]:=",ExpressionUUID->"2ccfdabb-8537-46fb-9837-0014f37e987d"], + +Cell[BoxData["2.061265729478835`"], "Output", + CellChangeTimes->{ + 3.9913204212585373`*^9, 3.9925722156840057`*^9, 3.992572318405039*^9, + 3.993119179315935*^9, 3.993120126531769*^9, 3.993120623396599*^9, + 3.9931207352098637`*^9, 3.993120780089756*^9, {3.9931208104374*^9, + 3.9931209194800158`*^9}}, + CellLabel-> + "Out[852]=",ExpressionUUID->"a532443c-84d3-48a1-ad08-b7d0d988b586"] +}, Open ]], + +Cell[CellGroupData[{ + +Cell[BoxData["w2"], "Input", + CellLabel-> + "In[853]:=",ExpressionUUID->"4532734e-4ca1-422e-84dc-7e8221a67683"], + +Cell[BoxData["1.500736140386642`"], "Output", + CellChangeTimes->{ + 3.9913204212884274`*^9, 3.992572215708795*^9, 3.992572318425254*^9, + 3.993119179337996*^9, 3.9931201265538*^9, 3.993120623423506*^9, + 3.993120735231386*^9, 3.993120780114184*^9, {3.993120810463977*^9, + 3.993120919508306*^9}}, + CellLabel-> + "Out[853]=",ExpressionUUID->"31e55ff0-6852-463f-85a0-7a0d0b3206f5"] +}, 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[854]:=",ExpressionUUID->"bd5beb09-b31e-4641-94f9-67c76dd7b420"], + +Cell[BoxData[ + RowBox[{"-", "32.4727450296612`"}]], "Output", + CellChangeTimes->{ + 3.9913204213185234`*^9, 3.992572215734977*^9, 3.992572318447076*^9, + 3.993119179360752*^9, 3.9931201265765343`*^9, 3.993120623446788*^9, + 3.993120735251999*^9, 3.9931207801392517`*^9, {3.993120810491658*^9, + 3.993120919536584*^9}}, + CellLabel-> + "Out[854]=",ExpressionUUID->"67c58a42-07ab-4190-b8d4-5016b24fa348"] +}, 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[855]:=",ExpressionUUID->"1d3f24a2-16c1-475f-a3ac-bad84977b0e7"], + +Cell[BoxData[ + RowBox[{"-", "8.129129787064175`"}]], "Output", + CellChangeTimes->{ + 3.991320421349531*^9, 3.9925722157597923`*^9, 3.992572318468158*^9, + 3.993119179384171*^9, 3.9931201265982*^9, 3.99312062346908*^9, + 3.9931207352722187`*^9, 3.993120780163753*^9, {3.993120810569303*^9, + 3.9931209195640697`*^9}}, + CellLabel-> + "Out[855]=",ExpressionUUID->"930fd323-676c-4c5c-afc2-d2fa5d9e40cc"] +}, 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[856]:=",ExpressionUUID->"4fcdc36a-6c50-402a-8ffe-fab13953e5a4"], + +Cell[BoxData["173.62046830616146`"], "Output", + CellChangeTimes->{ + 3.9913204213784294`*^9, 3.992572215787087*^9, 3.992572318490714*^9, + 3.993119179407145*^9, 3.993120126619657*^9, 3.993120624387237*^9, + 3.993120735294096*^9, 3.993120780189163*^9, {3.9931208106477613`*^9, + 3.9931209195925417`*^9}}, + CellLabel-> + "Out[856]=",ExpressionUUID->"d47ed223-aa54-4e1e-9ea4-375cee3d528e"] +}, 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[857]:=",ExpressionUUID->"ba79bb94-1e2b-40c7-ae0f-fe5dcec327f5"], + +Cell[BoxData[ + RowBox[{"-", "161.1868287134346`"}]], "Output", + CellChangeTimes->{ + 3.9913204213904285`*^9, 3.992572215791572*^9, 3.992572318513729*^9, + 3.993119179431038*^9, 3.993120126641369*^9, 3.9931206250374393`*^9, + 3.993120735303513*^9, 3.993120780214625*^9, {3.993120810674247*^9, + 3.993120919619622*^9}}, + CellLabel-> + "Out[857]=",ExpressionUUID->"893a3ca9-ece0-491e-886a-7b04de4eda67"] +}, 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[858]:=",ExpressionUUID->"eb50d845-140a-41e5-8bbb-9de6966cc8f9"], + +Cell[BoxData["185.6246129509609`"], "Output", + CellChangeTimes->{ + 3.991320421419428*^9, 3.992572215816564*^9, 3.992572318536264*^9, + 3.993119179456161*^9, 3.99312012666339*^9, 3.993120625976398*^9, + 3.993120735311919*^9, 3.993120780234991*^9, {3.993120810701437*^9, + 3.993120919646469*^9}}, + CellLabel-> + "Out[858]=",ExpressionUUID->"fed59031-982d-48a9-8ed7-844afee9b57c"] +}, 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[859]:=",ExpressionUUID->"07faf75c-5f38-434a-9155-1b51811623d6"], + +Cell[BoxData["127.62329334000697`"], "Output", + CellChangeTimes->{ + 3.9913204214494324`*^9, 3.992572215864458*^9, 3.992572318557802*^9, + 3.993119179480179*^9, 3.993120126684946*^9, 3.9931206278422623`*^9, + 3.993120735320333*^9, 3.993120780256549*^9, {3.993120810728241*^9, + 3.993120919673271*^9}}, + CellLabel-> + "Out[859]=",ExpressionUUID->"fc151155-763a-415a-86e2-52f104fa59d9"] +}, 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[860]:=",ExpressionUUID->"70a8d671-1691-435f-82f5-f7cec68fb11e"], + +Cell[BoxData["1146.2262301533601`"], "Output", + CellChangeTimes->{ + 3.991320421481529*^9, 3.9925722158897552`*^9, 3.99257231857898*^9, + 3.9931191795053587`*^9, 3.9931201267064877`*^9, 3.993120629931678*^9, + 3.9931207353284397`*^9, 3.993120780277225*^9, {3.993120810753913*^9, + 3.993120919701824*^9}}, + CellLabel-> + "Out[860]=",ExpressionUUID->"340c398b-9922-411f-9349-39861ac23af3"] +}, Open ]], + +Cell[BoxData[ + RowBox[{"f1", "=", "0.4360626729"}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{ + 3.9918488488187084`*^9, {3.993124958314062*^9, 3.9931249693378973`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], + +Cell[BoxData[ + RowBox[{"f2", "=", "0.2390208968"}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{ + 3.9918488509977226`*^9, {3.993124964146654*^9, 3.993124966265024*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], Cell[CellGroupData[{ @@ -1582,8 +6553,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->{{84.68028467793367, + 211.87669874043365`}, {-13.456694925159734`, 4.540961324840264}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ @@ -2844,10 +7815,56 @@ Oa5jBLdOiYrDOgGXniRkn4qxJ7LO1C1tbhJguQINFxntif8BOQL1wg== 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", ",", "004388"}], "}"}], ",", + RowBox[{"{", + RowBox[{"1", ",", "0", ",", "013039"}], "}"}], ",", + RowBox[{"{", + RowBox[{"2", ",", "0", ",", "021317"}], "}"}], ",", + RowBox[{"{", + RowBox[{"3", ",", "0", ",", "028996"}], "}"}], ",", + RowBox[{"{", + RowBox[{"4", ",", "0", ",", "035881"}], "}"}], ",", + RowBox[{"{", + RowBox[{"5", ",", "0", ",", "041813"}], "}"}], ",", + RowBox[{"{", + RowBox[{"6", ",", "0", ",", "046685"}], "}"}], ",", + RowBox[{"{", + RowBox[{"7", ",", "0", ",", "050429"}], "}"}], ",", + RowBox[{"{", + RowBox[{"8", ",", "0", ",", "053035"}], "}"}], ",", + RowBox[{"{", + RowBox[{"9", ",", "0", ",", "054525"}], "}"}], ",", + RowBox[{"{", + RowBox[{"10", ",", "0", ",", "054971"}], "}"}], ",", + RowBox[{"{", + RowBox[{"11", ",", "0", ",", "054465"}], "}"}], ",", + RowBox[{"{", + RowBox[{"12", ",", "0", ",", "053131"}], "}"}], ",", + RowBox[{"{", + RowBox[{"13", ",", "0", ",", "051096"}], "}"}], ",", + RowBox[{"{", + RowBox[{"14", ",", "0", ",", "048507"}], "}"}], ",", + RowBox[{"{", + RowBox[{"15", ",", "0", ",", "045494"}], "}"}], ",", + RowBox[{"{", + RowBox[{"16", ",", "0", ",", "042194"}], "}"}], ",", + RowBox[{"{", + RowBox[{"17", ",", "0", ",", "038723"}], "}"}], ",", + RowBox[{"{", + RowBox[{"18", ",", "0", ",", "03519"}], "}"}], ",", + RowBox[{"{", + RowBox[{"19", ",", "0", ",", "031681"}], "}"}], ",", + RowBox[{"{", + RowBox[{"20", ",", "0", ",", "028272"}], "}"}]}], "}"}], + "]"}]}]], "Input", + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}, + 3.9931248862809143`*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], Cell[BoxData[ RowBox[{"Show", "[", @@ -9383,11 +14400,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, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"5cbbdd72-8791-4241-8a7a-ad89ed63e6b0" ] @@ -9402,368 +14419,620 @@ 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, 497, 9, 23, "Input",ExpressionUUID->"dd9dcfd4-9683-421f-bda5-b31da0d323d6"], +Cell[1076, 33, 251, 4, 26, "Output",ExpressionUUID->"71f089d7-0dcf-4f9c-8aa5-523fa7ebebca"] }, 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[1364, 42, 253, 5, 23, "Input",ExpressionUUID->"7dcc824c-c714-473c-855d-4595e82aca01"], +Cell[1620, 49, 398, 7, 26, "Output",ExpressionUUID->"fd1bccfd-34c1-4e94-8d81-78ac9daa80da"] }, 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[2055, 61, 233, 5, 23, "Input",ExpressionUUID->"584dc846-b443-4e78-9de7-8414a101f8a2"], +Cell[2291, 68, 374, 7, 26, "Output",ExpressionUUID->"b7546eb2-a7dd-432b-b569-c556729c4981"] }, 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[2702, 80, 180, 4, 23, "Input",ExpressionUUID->"5b808487-9536-4677-81b9-b32effd22817"], +Cell[2885, 86, 372, 7, 26, "Output",ExpressionUUID->"c004b49d-d6d2-4205-9f7f-dc9bf2c42278"] }, 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[3294, 98, 262, 8, 35, "Input",ExpressionUUID->"28f4a07e-cc9f-47d8-bbfe-99b8a159e621"], +Cell[3559, 108, 377, 7, 26, "Output",ExpressionUUID->"8143efd7-4f40-4f21-b8af-9c2f3a2aec4b"] }, 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[3973, 120, 136, 3, 23, "Input",ExpressionUUID->"7b5372cd-097f-410a-9dde-ee8d7b47efcb"], +Cell[4112, 125, 373, 7, 26, "Output",ExpressionUUID->"3c21fed9-9378-4c6a-a321-bd30670a207e"] }, 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[4522, 137, 281, 7, 23, "Input",ExpressionUUID->"790ed917-dfad-4a40-8347-e877a413e7b7"], +Cell[4806, 146, 391, 7, 26, "Output",ExpressionUUID->"b21841a9-d4b5-4e08-b7b5-53a7b1796a54"] }, 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[5234, 158, 262, 8, 23, "Input",ExpressionUUID->"001b5f74-5cee-4774-98c8-fb175cefbb28"], +Cell[5499, 168, 394, 7, 26, "Output",ExpressionUUID->"2b9b6d38-fe87-4971-96da-c998142b4518"] }, 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[5930, 180, 247, 5, 23, "Input",ExpressionUUID->"d71ecc94-8318-4cd7-af7d-f1b9397248d9"], +Cell[6180, 187, 387, 7, 26, "Output",ExpressionUUID->"b636a8ff-d23e-489c-ac30-7ceba04fb959"] }, 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[6604, 199, 249, 5, 23, "Input",ExpressionUUID->"1bea7163-2ebf-4d7c-ab40-26fa692583b8"], +Cell[6856, 206, 389, 7, 26, "Output",ExpressionUUID->"fb26e70a-aff0-4c8d-9f31-8849a625c144"] }, 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[7282, 218, 133, 3, 23, "Input",ExpressionUUID->"a3e3cd1f-cbf4-4e81-8bfc-93c03c56f907"], +Cell[7418, 223, 374, 7, 26, "Output",ExpressionUUID->"eb16effe-7bc1-46f1-b5da-bb2febd45703"] }, 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[7829, 235, 133, 3, 23, "Input",ExpressionUUID->"c286758a-dd5f-4276-977f-87bcd04f953e"], +Cell[7965, 240, 372, 7, 26, "Output",ExpressionUUID->"397bad2c-5f0c-4cd4-9cea-c2e772ff5a8d"] }, 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[8374, 252, 561, 20, 69, "Input",ExpressionUUID->"1736b587-9844-4225-9978-48310d664cf7"], +Cell[8938, 274, 391, 7, 26, "Output",ExpressionUUID->"133b4f2a-ff50-4808-a266-e16ae8426cb3"] }, 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[9366, 286, 561, 20, 69, "Input",ExpressionUUID->"156a2269-70bf-4726-8b57-80df2441dde8"], +Cell[9930, 308, 392, 7, 26, "Output",ExpressionUUID->"1146507e-0090-406e-a243-4f77cf2f31b8"] }, 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[10359, 320, 1496, 49, 69, "Input",ExpressionUUID->"13e44969-f264-4100-9ae0-ffcdb8a6ee14"], +Cell[11858, 371, 386, 7, 26, "Output",ExpressionUUID->"ca7106b1-8cd7-4d77-b856-40214148d0d6"] }, 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[12281, 383, 1335, 45, 69, "Input",ExpressionUUID->"7d647c9c-fb30-46f9-ad54-2bca6c3ea417"], +Cell[13619, 430, 407, 8, 26, "Output",ExpressionUUID->"8eb5526c-ca9b-454d-9e72-3b94bb4239cf"] }, 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[14063, 443, 1335, 45, 69, "Input",ExpressionUUID->"27a549f5-e1cc-4650-b38b-1ad808b9d74d"], +Cell[15401, 490, 407, 8, 26, "Output",ExpressionUUID->"64903f7c-c056-4432-b67a-5fa35c8c85bc"] }, 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[15845, 503, 1496, 49, 69, "Input",ExpressionUUID->"5e91c74f-1789-45c9-a214-2244c72ade7d"], +Cell[17344, 554, 385, 7, 26, "Output",ExpressionUUID->"31f182a9-76a8-47b9-8f55-c48f52b240d7"] }, 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[17766, 566, 135, 3, 23, "Input",ExpressionUUID->"7a482116-c539-43ca-85e3-f73fb60f240c"], +Cell[17904, 571, 373, 7, 26, "Output",ExpressionUUID->"e64b6eb2-75dd-486e-8ee1-d800f1edbab4"] }, 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[18314, 583, 137, 3, 23, "Input",ExpressionUUID->"ea634259-306f-4340-9a17-572370411175"], +Cell[18454, 588, 381, 7, 26, "Output",ExpressionUUID->"5a9d1eaf-bc28-4a92-a9bd-717db8ce16da"] }, 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[18872, 600, 138, 3, 23, "Input",ExpressionUUID->"f54223b7-3ea2-47c0-86bb-064a003a0c65"], +Cell[19013, 605, 384, 7, 26, "Output",ExpressionUUID->"2760ec95-9401-42cb-8266-78f21b99cbf3"] }, 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[19434, 617, 223, 5, 23, "Input",ExpressionUUID->"0541a946-202c-4b2c-83f8-ebb523379191"], +Cell[19660, 624, 384, 8, 26, "Output",ExpressionUUID->"4c02c8a0-a1df-4c84-a94e-5fcbaab897df"] }, 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[20081, 637, 138, 3, 23, "Input",ExpressionUUID->"e87a0bbb-4305-42aa-bd42-1c6fa342cfc8"], +Cell[20222, 642, 380, 7, 26, "Output",ExpressionUUID->"d95a15bc-2ec7-4a91-ae7c-98832b6c97d7"] }, 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[20639, 654, 331, 6, 23, "Input",ExpressionUUID->"7c0eb7f0-9d06-45cd-b294-8a4c83a9759a"], +Cell[20973, 662, 373, 7, 26, "Output",ExpressionUUID->"255991d9-42a7-403f-a2a3-44f6ef5a8dd8"] }, 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[21383, 674, 302, 6, 23, "Input",ExpressionUUID->"8b2b0bd6-e999-4d3a-8603-6ef666baf6b8"], +Cell[21688, 682, 405, 7, 26, "Output",ExpressionUUID->"cbb76a17-a13f-4118-a7e4-03f53fb74bda"] }, 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[22130, 694, 223, 5, 23, "Input",ExpressionUUID->"161e6521-bc56-4dfd-a046-9fc45d73a999"], +Cell[22356, 701, 373, 7, 26, "Output",ExpressionUUID->"67c9d1fd-5617-49c5-8946-d54d59d8cc4b"] }, 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[22766, 713, 354, 11, 35, "Input",ExpressionUUID->"e2ee5596-377d-47e9-ba0e-ba4715189ab1"], +Cell[23123, 726, 396, 7, 26, "Output",ExpressionUUID->"6d065012-6ae0-4a15-ab7e-23c0758da6b5"] }, 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[23556, 738, 354, 11, 35, "Input",ExpressionUUID->"83eb4ed2-6dfc-4ba7-ac7e-dc009b382bed"], +Cell[23913, 751, 406, 8, 26, "Output",ExpressionUUID->"9075a821-a828-4d8d-a659-e129e1cf260d"] }, 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[24356, 764, 998, 27, 82, "Input",ExpressionUUID->"8072c677-ed25-44a8-9254-3d3d9447cfe4"], +Cell[25357, 793, 393, 7, 26, "Output",ExpressionUUID->"2d8ed23b-c09e-4b8c-8dd6-af975a869850"] }, 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[25787, 805, 203, 4, 23, "Input",ExpressionUUID->"036b3ae2-630a-4a38-a182-65b537997030"], +Cell[25993, 811, 371, 7, 26, "Output",ExpressionUUID->"7227e8b9-5a37-40fd-979a-c27b8d806e04"] }, 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[26401, 823, 338, 6, 23, "Input",ExpressionUUID->"9edaecee-d32e-4be8-bd42-1e687186fb4d"], +Cell[26742, 831, 374, 7, 26, "Output",ExpressionUUID->"7979909c-af2f-44c7-a643-1a5e2374f69b"] +}, Open ]], +Cell[27131, 841, 177, 3, 23, "Input",ExpressionUUID->"c32c1952-2063-4bc0-b522-543f9ed15363"], +Cell[CellGroupData[{ +Cell[27333, 848, 337, 6, 23, "Input",ExpressionUUID->"7a216ff1-d300-4bf0-ab92-54cca1e0ad89"], +Cell[27673, 856, 374, 7, 26, "Output",ExpressionUUID->"628cf8a4-9553-489c-bada-ca3dbd35ff46"] +}, Open ]], +Cell[28062, 866, 177, 3, 23, "Input",ExpressionUUID->"4c5193ce-02f4-44a7-843f-31cc0aca3d1c"], +Cell[CellGroupData[{ +Cell[28264, 873, 341, 6, 23, "Input",ExpressionUUID->"fd838566-0558-4d1c-b173-75f88e252bd8"], +Cell[28608, 881, 372, 7, 26, "Output",ExpressionUUID->"16118013-5872-490c-ae47-4576fc7e80ad"] +}, Open ]], +Cell[28995, 891, 177, 3, 23, "Input",ExpressionUUID->"7e3dccb6-c958-4c9c-8079-58ceb9f9b614"], +Cell[CellGroupData[{ +Cell[29197, 898, 364, 6, 23, "Input",ExpressionUUID->"2c752b9c-11a9-43dc-81e0-db5582a71605"], +Cell[29564, 906, 377, 7, 26, "Output",ExpressionUUID->"48133414-a63b-4332-8ded-06be5ec919ca"] +}, Open ]], +Cell[29956, 916, 175, 3, 23, "Input",ExpressionUUID->"69ed9a70-1acf-4787-9df1-c8a58e37f569"], +Cell[CellGroupData[{ +Cell[30156, 923, 311, 6, 23, "Input",ExpressionUUID->"09cfcfa5-64e4-4620-a2b5-9f922df7b73e"], +Cell[30470, 931, 381, 7, 26, "Output",ExpressionUUID->"521cd720-75cf-4bd3-a410-28c6dc19a6cd"] +}, Open ]], +Cell[30866, 941, 175, 3, 23, "Input",ExpressionUUID->"25db9763-73a6-4053-b9be-e24a242afa4d"], +Cell[CellGroupData[{ +Cell[31066, 948, 317, 6, 23, "Input",ExpressionUUID->"01b83192-9964-4116-8b42-c27efb527d64"], +Cell[31386, 956, 380, 7, 26, "Output",ExpressionUUID->"53b9f562-b01a-4ae9-9fc6-1427d6a7f17e"] +}, Open ]], +Cell[31781, 966, 177, 3, 23, "Input",ExpressionUUID->"dea1f43e-f5ed-4242-9424-7ddadd695b03"], +Cell[CellGroupData[{ +Cell[31983, 973, 318, 6, 23, "Input",ExpressionUUID->"5ba9f01f-8d54-4308-9dc0-7c727f65b81e"], +Cell[32304, 981, 374, 7, 26, "Output",ExpressionUUID->"bf11a96c-813f-4ce0-b5f0-b5dd54a2cf5d"] +}, Open ]], +Cell[32693, 991, 176, 3, 23, "Input",ExpressionUUID->"4e9612f9-2502-4606-82ad-ba1f87b9a20b"], +Cell[CellGroupData[{ +Cell[32894, 998, 287, 5, 23, "Input",ExpressionUUID->"3a93e438-690f-47c1-ab87-c06a1606afb2"], +Cell[33184, 1005, 374, 7, 26, "Output",ExpressionUUID->"67f3903b-d44b-4c15-8094-a672822f61f9"] +}, Open ]], +Cell[33573, 1015, 179, 3, 23, "Input",ExpressionUUID->"cf32dc23-38f4-4d48-856d-1c607860a5be"], +Cell[CellGroupData[{ +Cell[33777, 1022, 19813, 486, 1321, "Input",ExpressionUUID->"c84fcfb9-22dc-4660-af0b-21454e0f8a37"], +Cell[53593, 1510, 391, 7, 26, "Output",ExpressionUUID->"114a1667-2b83-49f8-b7c0-66c011bbd0f0"] }, 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[54021, 1522, 19752, 490, 1321, "Input",ExpressionUUID->"a1a7567b-6fc3-473f-b830-2b8940637361"], +Cell[73776, 2014, 391, 7, 26, "Output",ExpressionUUID->"07516dd9-4b91-4cd5-8adf-7d2da56e5428"] }, 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[74204, 2026, 19752, 484, 1321, "Input",ExpressionUUID->"df0b8849-90eb-4cb8-ad0d-a1d1f6f6f223"], +Cell[93959, 2512, 411, 8, 26, "Output",ExpressionUUID->"f2969697-38d7-4b5e-a602-995bd4a2b9ac"] }, 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[94407, 2525, 22538, 554, 1467, "Input",ExpressionUUID->"72284c56-eacd-4f84-b01f-494c6d688fa2"], +Cell[116948, 3081, 406, 8, 26, "Output",ExpressionUUID->"9ec9f91b-f7c8-4956-9238-5d1a587e8942"] }, 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[117391, 3094, 22539, 554, 1467, "Input",ExpressionUUID->"f81a9a41-66ce-4d2c-99fa-c101ce857f23"], +Cell[139933, 3650, 409, 8, 26, "Output",ExpressionUUID->"d15f00e4-8213-4cd4-b563-8d82b14f767e"] }, 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[140379, 3663, 25495, 627, 1630, "Input",ExpressionUUID->"01330e52-1b01-4121-b0ab-9a097302a897"], +Cell[165877, 4292, 406, 8, 26, "Output",ExpressionUUID->"e872e107-4343-4ced-bd96-e52b610cf337"] }, 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[166320, 4305, 134, 3, 23, "Input",ExpressionUUID->"35c1d571-a4e1-477e-a672-feec6bc36d4f"], +Cell[166457, 4310, 377, 7, 26, "Output",ExpressionUUID->"2e6a4d1b-4aa7-4ce9-afa4-e480a6345597"] }, 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[166871, 4322, 134, 3, 23, "Input",ExpressionUUID->"2d268bd9-e47a-4c6d-95cd-4931d98e4399"], +Cell[167008, 4327, 372, 7, 26, "Output",ExpressionUUID->"8e802030-bb7a-4462-a9f9-1d4a00388d8e"] }, 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[167417, 4339, 1148, 40, 95, "Input",ExpressionUUID->"ca3cfab3-2c47-4dea-9621-fa411f5e2ebc"], +Cell[168568, 4381, 398, 7, 26, "Output",ExpressionUUID->"b05149ea-1120-455a-9015-342decbea921"] }, 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[169003, 4393, 1045, 36, 134, "Input",ExpressionUUID->"e59a6dab-0305-421b-9296-daf3f80919b9"], +Cell[170051, 4431, 407, 8, 26, "Output",ExpressionUUID->"934c6fc8-c57e-4df9-a299-86994d7fae3b"] }, 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[170495, 4444, 1148, 40, 95, "Input",ExpressionUUID->"c0c5ca8d-a300-440f-ad98-865ded0193ae"], +Cell[171646, 4486, 392, 7, 26, "Output",ExpressionUUID->"a4f77743-298d-4a5f-8dbb-ca91f5f39574"] }, 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[172075, 4498, 112, 2, 23, "Input",ExpressionUUID->"29a5b397-974e-47ea-8824-1e801b3a44a5"], +Cell[172190, 4502, 392, 7, 26, "Output",ExpressionUUID->"824460f3-98ea-48c5-ad5f-4be654d6275f"] }, 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[172619, 4514, 112, 2, 23, "Input",ExpressionUUID->"fba754b3-7eb8-497a-b262-d0ce093891f1"], +Cell[172734, 4518, 416, 8, 26, "Output",ExpressionUUID->"b1d23822-c584-4f1b-a096-41c59b471983"] }, 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[173187, 4531, 112, 2, 23, "Input",ExpressionUUID->"750ce752-e783-4b8c-902f-582ac825ed23"], +Cell[173302, 4535, 406, 8, 26, "Output",ExpressionUUID->"159734b8-c452-460f-83d7-64f3c8bc8f9d"] }, 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[173745, 4548, 112, 2, 23, "Input",ExpressionUUID->"4010c96c-bca7-4165-a9ee-ad8db7f6d72e"], +Cell[173860, 4552, 393, 7, 26, "Output",ExpressionUUID->"889bd42e-09b5-42eb-b259-8e9fd2664314"] }, 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[174290, 4564, 111, 2, 23, "Input",ExpressionUUID->"2ccfdabb-8537-46fb-9837-0014f37e987d"], +Cell[174404, 4568, 391, 7, 26, "Output",ExpressionUUID->"a532443c-84d3-48a1-ad08-b7d0d988b586"] }, 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[174832, 4580, 111, 2, 23, "Input",ExpressionUUID->"4532734e-4ca1-422e-84dc-7e8221a67683"], +Cell[174946, 4584, 385, 7, 26, "Output",ExpressionUUID->"31e55ff0-6852-463f-85a0-7a0d0b3206f5"] }, 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[175368, 4596, 501, 17, 48, "Input",ExpressionUUID->"bd5beb09-b31e-4641-94f9-67c76dd7b420"], +Cell[175872, 4615, 407, 8, 26, "Output",ExpressionUUID->"67c58a42-07ab-4190-b8d4-5016b24fa348"] }, 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[176316, 4628, 501, 17, 48, "Input",ExpressionUUID->"1d3f24a2-16c1-475f-a3ac-bad84977b0e7"], +Cell[176820, 4647, 405, 8, 26, "Output",ExpressionUUID->"930fd323-676c-4c5c-afc2-d2fa5d9e40cc"] }, 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[177262, 4660, 1792, 61, 48, "Input",ExpressionUUID->"4fcdc36a-6c50-402a-8ffe-fab13953e5a4"], +Cell[179057, 4723, 392, 7, 26, "Output",ExpressionUUID->"d47ed223-aa54-4e1e-9ea4-375cee3d528e"] }, 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[179486, 4735, 1105, 37, 48, "Input",ExpressionUUID->"ba79bb94-1e2b-40c7-ae0f-fe5dcec327f5"], +Cell[180594, 4774, 406, 8, 26, "Output",ExpressionUUID->"893a3ca9-ece0-491e-886a-7b04de4eda67"] }, 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[181037, 4787, 1822, 62, 96, "Input",ExpressionUUID->"eb50d845-140a-41e5-8bbb-9de6966cc8f9"], +Cell[182862, 4851, 384, 7, 26, "Output",ExpressionUUID->"fed59031-982d-48a9-8ed7-844afee9b57c"] }, 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[183283, 4863, 1635, 54, 69, "Input",ExpressionUUID->"07faf75c-5f38-434a-9155-1b51811623d6"], +Cell[184921, 4919, 390, 7, 26, "Output",ExpressionUUID->"fc151155-763a-415a-86e2-52f104fa59d9"] }, 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[185348, 4931, 1635, 54, 69, "Input",ExpressionUUID->"70a8d671-1691-435f-82f5-f7cec68fb11e"], +Cell[186986, 4987, 393, 7, 26, "Output",ExpressionUUID->"340c398b-9922-411f-9349-39861ac23af3"] +}, Open ]], +Cell[187394, 4997, 282, 6, 36, "Input",ExpressionUUID->"bdefbecf-0aaa-4a45-a861-406cf54e52d1"], +Cell[187679, 5005, 280, 6, 36, "Input",ExpressionUUID->"45ed831b-459a-9a41-990f-c079ad464f5d"], +Cell[CellGroupData[{ +Cell[187984, 5015, 1301, 43, 39, "Input",ExpressionUUID->"78018a61-7851-fe4d-b32f-cb68a3158f29"], +Cell[189288, 5060, 178, 3, 26, "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[189503, 5068, 910, 31, 48, "Input",ExpressionUUID->"4b8a0d40-a00c-f94e-ae25-7221ff813b6d"], +Cell[190416, 5101, 175, 3, 26, "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[190628, 5109, 887, 30, 48, "Input",ExpressionUUID->"f22831a7-63b7-f444-8e3a-fa370a62ac27"], +Cell[191518, 5141, 176, 3, 26, "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[191731, 5149, 558, 19, 42, "Input",ExpressionUUID->"f30cc552-8352-c747-9dd8-56cebba76821"], +Cell[192292, 5170, 172, 3, 26, "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[192501, 5178, 623, 21, 42, "Input",ExpressionUUID->"98d0e854-bf74-1942-9842-34bdfd57484b"], +Cell[193127, 5201, 172, 3, 26, "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[193336, 5209, 170, 5, 45, "Input",ExpressionUUID->"b27085c5-361b-ca40-8265-d33323aa857a"], +Cell[193509, 5216, 172, 3, 26, "Output",ExpressionUUID->"55e80360-690f-0444-ac68-221fe09ddfd5"] +}, Open ]], +Cell[CellGroupData[{ +Cell[193718, 5224, 170, 5, 45, "Input",ExpressionUUID->"3567cfa4-5406-b24a-a433-355914019270"], +Cell[193891, 5231, 171, 3, 26, "Output",ExpressionUUID->"ffa83e52-e057-8c44-be5c-a869714a425e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194099, 5239, 181, 5, 35, "Input",ExpressionUUID->"3ecda735-8fef-0441-a72e-f97767ecac3f"], +Cell[194283, 5246, 170, 3, 26, "Output",ExpressionUUID->"daa1af48-56b9-b549-9a5e-fd35e4ace383"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194490, 5254, 181, 5, 35, "Input",ExpressionUUID->"123c6309-8ee6-5f4a-a63d-393202ff4b16"], +Cell[194674, 5261, 172, 3, 26, "Output",ExpressionUUID->"045de583-e60b-c94a-9184-d9a46a689c39"] +}, Open ]], +Cell[CellGroupData[{ +Cell[194883, 5269, 6055, 185, 162, "Input",ExpressionUUID->"c8e563e9-04d2-4d44-be2b-35edc80b747e"], +Cell[200941, 5456, 172, 3, 26, "Output",ExpressionUUID->"cdaeef85-4599-4144-88b1-c12ccb960e67"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201150, 5464, 368, 9, 34, "Input",ExpressionUUID->"704b3c24-9edf-9847-9c42-8465e74541cc"], +Cell[201521, 5475, 171, 3, 26, "Output",ExpressionUUID->"c4da64fa-539e-454c-a7bc-f5a50d741b33"] +}, Open ]], +Cell[CellGroupData[{ +Cell[201729, 5483, 6122, 187, 162, "Input",ExpressionUUID->"b50c0284-d41c-284c-8171-8cbe39582f6c"], +Cell[207854, 5672, 173, 3, 26, "Output",ExpressionUUID->"a0ddd9ec-0ad8-da40-93c1-f69a540fecbb"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208064, 5680, 368, 9, 34, "Input",ExpressionUUID->"07cc88c3-42d6-f146-9350-08b2ef6c27de"], +Cell[208435, 5691, 170, 3, 26, "Output",ExpressionUUID->"bb399ae8-0971-524b-99dd-45c3d83aff90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[208642, 5699, 2663, 88, 95, "Input",ExpressionUUID->"2ab7eef6-afa8-a34a-8b53-21d03476bf5f"], +Cell[211308, 5789, 171, 3, 26, "Output",ExpressionUUID->"8522d772-b29b-b14d-a623-3ad00b3d8250"] +}, Open ]], +Cell[CellGroupData[{ +Cell[211516, 5797, 2603, 85, 95, "Input",ExpressionUUID->"c5d886fd-19b3-9b4b-9b9c-cbf18c46b360"], +Cell[214122, 5884, 173, 3, 26, "Output",ExpressionUUID->"d88ed30c-77e3-0245-b8d9-3b803c379fb2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[214332, 5892, 3712, 118, 143, "Input",ExpressionUUID->"ec07379d-30cf-cb4d-90d8-d72f9b6a44a8"], +Cell[218047, 6012, 174, 3, 26, "Output",ExpressionUUID->"5d391006-3707-3d44-a060-c06781a98edd"] +}, Open ]], +Cell[218236, 6018, 138, 3, 23, "Input",ExpressionUUID->"714abd93-e0d1-eb45-a9e1-7a2f5d020eb1"], +Cell[CellGroupData[{ +Cell[218399, 6025, 2054, 59, 82, "Input",ExpressionUUID->"137c38a2-741c-bd43-b6d9-c0135e32eaf8"], +Cell[220456, 6086, 557, 12, 32, "Message",ExpressionUUID->"055bf31f-37b2-724c-aeef-d922f7a205c7"], +Cell[221016, 6100, 559, 12, 32, "Message",ExpressionUUID->"eeead3e4-54a5-7c4d-95b2-292dcdbe105a"], +Cell[221578, 6114, 561, 12, 32, "Message",ExpressionUUID->"87e34a07-7a78-bf46-b222-6e72d11fd18d"], +Cell[222142, 6128, 458, 10, 20, "Message",ExpressionUUID->"1cf9faa5-3432-3349-b45a-58344623fc63"], +Cell[222603, 6140, 172, 3, 26, "Output",ExpressionUUID->"acb58738-85fd-0f40-b8fa-3a779aa79369"] +}, Open ]], +Cell[CellGroupData[{ +Cell[222812, 6148, 2052, 59, 82, "Input",ExpressionUUID->"9b196534-2ca5-e54b-8014-b0ab3cd09ac2"], +Cell[224867, 6209, 555, 12, 32, "Message",ExpressionUUID->"6fb03e9c-623b-b24d-bccd-c05b2662537c"], +Cell[225425, 6223, 559, 12, 32, "Message",ExpressionUUID->"410ed293-2b04-a346-b193-5e006759c884"], +Cell[225987, 6237, 561, 12, 32, "Message",ExpressionUUID->"9e59cf72-2df3-6741-910e-ddcc2125aa8b"], +Cell[226551, 6251, 458, 10, 20, "Message",ExpressionUUID->"6f223de4-f4b9-0a4c-b3b3-f489f4259713"], +Cell[227012, 6263, 172, 3, 26, "Output",ExpressionUUID->"d8300689-0813-6149-9a7f-c358ba826aac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[227221, 6271, 1936, 53, 59, "Input",ExpressionUUID->"124cd7db-c537-8943-bef2-1a154ab4a709"], +Cell[229160, 6326, 20445, 382, 189, "Output",ExpressionUUID->"a7dc53c9-dabc-784f-a94a-f1fb7ab10c84"] +}, Open ]], +Cell[CellGroupData[{ +Cell[249642, 6713, 2094, 60, 82, "Input",ExpressionUUID->"5a7f9400-1446-9746-a463-bade8ae5c530"], +Cell[251739, 6775, 500, 11, 32, "Message",ExpressionUUID->"eede1010-35b4-8e43-8206-4c3ebae733c0"], +Cell[252242, 6788, 503, 11, 32, "Message",ExpressionUUID->"01174b23-a2bd-8e4e-90f5-af7e82df101e"], +Cell[252748, 6801, 506, 11, 32, "Message",ExpressionUUID->"ec7385ad-4809-8947-afea-81e4a95fc523"], +Cell[253257, 6814, 455, 10, 20, "Message",ExpressionUUID->"4176ecfe-3aff-0f4b-824e-b07e40312968"], +Cell[253715, 6826, 57321, 985, 186, "Output",ExpressionUUID->"6ef8802e-494c-9d4c-94ba-3ee854b2b684"] +}, Open ]], +Cell[311051, 7814, 1988, 52, 52, "Input",ExpressionUUID->"0f83f761-b16d-5343-987d-511095eaf120"], +Cell[313042, 7868, 209, 5, 23, "Input",ExpressionUUID->"8cdd4baa-f7c9-104e-b978-89d3982ba28f"], +Cell[CellGroupData[{ +Cell[313276, 7877, 217, 7, 39, "Input",ExpressionUUID->"a6bdfe4c-4a7c-8e4d-9fae-3438788b15d6"], +Cell[313496, 7886, 172, 3, 26, "Output",ExpressionUUID->"bea5e069-6c61-f84f-be94-f0a852e2aafc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[313705, 7894, 1816, 53, 82, "Input",ExpressionUUID->"ad0a082a-b3e1-c24a-a78f-0e75880d5d98"], +Cell[315524, 7949, 508, 11, 32, "Message",ExpressionUUID->"3a61d965-a130-7645-90c6-a5061b94ec40"], +Cell[316035, 7962, 508, 11, 32, "Message",ExpressionUUID->"c3c0d10c-aa86-9b43-bfa9-71bc099863f1"], +Cell[316546, 7975, 511, 11, 32, "Message",ExpressionUUID->"321e1ff2-86f6-7244-895a-0b744ecd0cf1"], +Cell[317060, 7988, 456, 10, 20, "Message",ExpressionUUID->"43e0f399-4fd6-3f4d-a3a8-ef137bebb344"], +Cell[317519, 8000, 26000, 472, 186, "Output",ExpressionUUID->"4e674430-b3ee-f841-98e7-88500054cf35"] +}, Open ]], +Cell[CellGroupData[{ +Cell[343556, 8477, 1616, 48, 59, "Input",ExpressionUUID->"1c8deee8-e2d9-7740-b66c-f8a09d0bcc49"], +Cell[345175, 8527, 584, 12, 32, "Message",ExpressionUUID->"6dc439d9-4983-a74d-a424-1e627442f8ec"], +Cell[345762, 8541, 588, 12, 32, "Message",ExpressionUUID->"cbbb0a14-cac3-b246-be52-03554c6d0159"], +Cell[346353, 8555, 592, 12, 32, "Message",ExpressionUUID->"afaf59d8-5c82-5843-ba76-5dd1061c22bd"], +Cell[346948, 8569, 456, 10, 20, "Message",ExpressionUUID->"370cb98e-1084-6940-9e45-78218dc7334e"], +Cell[347407, 8581, 169, 3, 26, "Output",ExpressionUUID->"49c1839c-f9a0-514a-9803-38aedd206508"] +}, Open ]], +Cell[CellGroupData[{ +Cell[347613, 8589, 2249, 64, 51, "Input",ExpressionUUID->"eb852908-4d60-c84e-80d9-a57fd4094f56"], +Cell[349865, 8655, 555, 12, 32, "Message",ExpressionUUID->"e4da2c2e-bc79-8048-aec6-e0a36c5fd50c"], +Cell[350423, 8669, 557, 12, 32, "Message",ExpressionUUID->"ff48d9a8-4f15-044a-8d17-d378e560badf"], +Cell[350983, 8683, 563, 12, 32, "Message",ExpressionUUID->"d97cd881-ad70-0043-811a-b6650c7bff48"], +Cell[351549, 8697, 458, 10, 20, "Message",ExpressionUUID->"dc1ff9fc-c736-e742-9bd5-f36a7c2c6c53"], +Cell[352010, 8709, 173, 3, 26, "Output",ExpressionUUID->"207fc206-b3fa-1a42-8709-2c8aaaf304b0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[352220, 8717, 2223, 64, 51, "Input",ExpressionUUID->"d11037f6-09e7-b44f-8a1d-47c1a485c608"], +Cell[354446, 8783, 555, 12, 32, "Message",ExpressionUUID->"079487fc-3029-b74e-ba27-a61cf73f30a2"], +Cell[355004, 8797, 557, 12, 32, "Message",ExpressionUUID->"6fef6245-eafb-7343-8d9c-509c47662fd8"], +Cell[355564, 8811, 561, 12, 32, "Message",ExpressionUUID->"caeb451e-fce0-a24e-bdb2-20066bf32e23"], +Cell[356128, 8825, 458, 10, 20, "Message",ExpressionUUID->"b9263c45-06ba-d24d-a71c-72933a67fb86"], +Cell[356589, 8837, 173, 3, 26, "Output",ExpressionUUID->"fdc26e81-7e73-a54e-8b48-fba744fd21b7"] +}, Open ]], +Cell[CellGroupData[{ +Cell[356799, 8845, 2221, 64, 51, "Input",ExpressionUUID->"431dd2fa-6331-2449-bc19-0d79e6ed8953"], +Cell[359023, 8911, 557, 12, 32, "Message",ExpressionUUID->"3270b87e-9743-ef45-96a4-2ce51373a203"], +Cell[359583, 8925, 557, 12, 32, "Message",ExpressionUUID->"b5a7511b-af1a-b946-83d4-1951541611b2"], +Cell[360143, 8939, 563, 12, 32, "Message",ExpressionUUID->"55836c22-e074-4442-9aa3-8442534fcabe"], +Cell[360709, 8953, 456, 10, 20, "Message",ExpressionUUID->"18c3aa33-3860-5f41-a9ac-8cd3806fef7e"], +Cell[361168, 8965, 173, 3, 26, "Output",ExpressionUUID->"62510f7e-bac9-8b4e-86ce-182bdd5d56b9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[361378, 8973, 213, 6, 38, "Input",ExpressionUUID->"8c5df121-e0b9-a146-bc34-b231aa8028b9"], +Cell[361594, 8981, 171, 3, 26, "Output",ExpressionUUID->"5c7cd89e-20ed-8d44-83bb-e2e46deab974"] +}, Open ]], +Cell[361780, 8987, 245, 5, 23, "Input",ExpressionUUID->"831a27fc-89ff-e041-97f1-0ec5d19a7879"], +Cell[CellGroupData[{ +Cell[362050, 8996, 558, 19, 42, "Input",ExpressionUUID->"b17f1d2b-46b4-044f-9374-ae2c39a712ad"], +Cell[362611, 9017, 172, 3, 26, "Output",ExpressionUUID->"e3d357af-87e3-0047-959d-fa0139c5bfc4"] +}, Open ]], +Cell[CellGroupData[{ +Cell[362820, 9025, 170, 5, 45, "Input",ExpressionUUID->"23445e92-9763-c74c-8bec-d0e2df1f17fd"], +Cell[362993, 9032, 173, 3, 26, "Output",ExpressionUUID->"93dda073-df54-8f4e-afab-666de5caf927"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363203, 9040, 181, 5, 35, "Input",ExpressionUUID->"a53d2e90-8341-eb44-998b-2f0c92fdc24f"], +Cell[363387, 9047, 173, 3, 26, "Output",ExpressionUUID->"db5e4010-00e8-574c-8b32-365b8147ba2d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[363597, 9055, 6055, 185, 162, "Input",ExpressionUUID->"ccadfb81-e638-7c48-a12b-1acebb056ffc"], +Cell[369655, 9242, 172, 3, 26, "Output",ExpressionUUID->"6f5204f9-42a7-0343-a2cd-76cd7618ba90"] +}, Open ]], +Cell[CellGroupData[{ +Cell[369864, 9250, 368, 9, 34, "Input",ExpressionUUID->"8d558815-0185-1c41-a246-d7954cb6ecc3"], +Cell[370235, 9261, 170, 3, 26, "Output",ExpressionUUID->"732feb85-572c-6a40-bb32-258aa6fbb12e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[370442, 9269, 6122, 187, 162, "Input",ExpressionUUID->"2f52a487-744a-114c-ab74-c1ad0705fd4f"], +Cell[376567, 9458, 175, 3, 26, "Output",ExpressionUUID->"330db3dd-df0f-5e4b-9e84-63e3da6287e1"] +}, Open ]], +Cell[CellGroupData[{ +Cell[376779, 9466, 368, 9, 34, "Input",ExpressionUUID->"777a2a57-6673-2d4a-9bc5-5f7a4fb7ccd3"], +Cell[377150, 9477, 172, 3, 26, "Output",ExpressionUUID->"8403ef7a-5add-ea45-a6c0-a6dc70f27bb8"] +}, Open ]], +Cell[CellGroupData[{ +Cell[377359, 9485, 2663, 88, 95, "Input",ExpressionUUID->"5480a6f0-90af-ba47-ae64-514b75e548e0"], +Cell[380025, 9575, 173, 3, 26, "Output",ExpressionUUID->"aac00e4f-5d2b-4341-8ca5-f49d9556633e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[380235, 9583, 2603, 85, 95, "Input",ExpressionUUID->"55b6d7ba-bf5b-5646-8cf8-bca832676880"], +Cell[382841, 9670, 171, 3, 26, "Output",ExpressionUUID->"eeee5a47-9547-7746-bb79-936b40364d7e"] +}, Open ]], +Cell[CellGroupData[{ +Cell[383049, 9678, 3712, 118, 143, "Input",ExpressionUUID->"8892e253-22ef-c549-b47f-a2b51d55da4c"], +Cell[386764, 9798, 174, 3, 26, "Output",ExpressionUUID->"a1352554-6686-ff4e-be47-04b42c29b000"] +}, Open ]], +Cell[CellGroupData[{ +Cell[386975, 9806, 2052, 59, 82, "Input",ExpressionUUID->"220bdeed-2e17-e94c-a7b0-3e066daf15d7"], +Cell[389030, 9867, 578, 12, 32, "Message",ExpressionUUID->"c854318c-035d-f249-9a8c-a9608e137436"], +Cell[389611, 9881, 583, 12, 32, "Message",ExpressionUUID->"fc1eef58-3b5b-8c4c-bab7-60a3682b1d45"], +Cell[390197, 9895, 586, 12, 32, "Message",ExpressionUUID->"2e134293-05b5-624c-b206-73b12a84c5ea"], +Cell[390786, 9909, 456, 10, 20, "Message",ExpressionUUID->"2cac2ff4-fc29-a048-9fae-70918ed41968"], +Cell[391245, 9921, 170, 3, 26, "Output",ExpressionUUID->"2dcc4178-0b8d-9f48-a040-f2fc5cb8eacd"] +}, Open ]], +Cell[CellGroupData[{ +Cell[391452, 9929, 2054, 59, 82, "Input",ExpressionUUID->"b8791a07-33fe-8c4f-9c59-dd23af9a4471"], +Cell[393509, 9990, 576, 12, 32, "Message",ExpressionUUID->"ac808335-5ecc-ee4f-a7ac-d889b0bf6e05"], +Cell[394088, 10004, 581, 12, 32, "Message",ExpressionUUID->"36b7d718-32d9-a441-b985-1fed8f0f10fd"], +Cell[394672, 10018, 586, 12, 32, "Message",ExpressionUUID->"ab31a569-fab4-434a-9c76-33aa9b59b117"], +Cell[395261, 10032, 458, 10, 20, "Message",ExpressionUUID->"4c41e56d-f5cb-b94c-b99a-06e306247825"], +Cell[395722, 10044, 172, 3, 26, "Output",ExpressionUUID->"5ec230cf-b87d-3e41-bc7f-1f3f2ff283ef"] +}, Open ]], +Cell[CellGroupData[{ +Cell[395931, 10052, 2028, 55, 43, "Input",ExpressionUUID->"3fe6e7f1-b44a-234f-af77-3cf1fdaf28d9"], +Cell[397962, 10109, 20011, 378, 190, "Output",ExpressionUUID->"3d0b6a0d-2dc0-3b48-b8dd-35b5149ee27f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[418010, 10492, 2115, 60, 82, "Input",ExpressionUUID->"ab29778f-f183-804b-b871-4070462057d7"], +Cell[420128, 10554, 501, 11, 32, "Message",ExpressionUUID->"abf9cb8a-fbbf-7a43-abcd-82efb32ab217"], +Cell[420632, 10567, 503, 11, 32, "Message",ExpressionUUID->"8fcd13e3-81e0-3446-8882-6e42ca5c0bd1"], +Cell[421138, 10580, 505, 11, 32, "Message",ExpressionUUID->"2c23ed60-41ee-5841-90ce-1d26cb02619d"], +Cell[421646, 10593, 456, 10, 20, "Message",ExpressionUUID->"fa59df63-76ff-4147-acd0-9eeaf33582c5"], +Cell[422105, 10605, 32548, 580, 186, "Output",ExpressionUUID->"4ab96fbd-92e0-8a42-8552-436bb2f629b6"] +}, Open ]], +Cell[454668, 11188, 209, 5, 23, "Input",ExpressionUUID->"ad6dcd2f-3ce0-9c4b-b47a-6bd251746ea6"], +Cell[CellGroupData[{ +Cell[454902, 11197, 1616, 48, 59, "Input",ExpressionUUID->"66a026c1-613e-554d-9430-1b2806502adf"], +Cell[456521, 11247, 596, 12, 32, "Message",ExpressionUUID->"3273c967-a8f4-6b46-8292-dfd9dc69311d"], +Cell[457120, 11261, 599, 12, 32, "Message",ExpressionUUID->"cf5457ae-7056-8a4b-afa3-32b95e922259"], +Cell[457722, 11275, 605, 12, 32, "Message",ExpressionUUID->"7ef79528-2ca4-544d-8bbf-e4564533e47a"], +Cell[458330, 11289, 456, 10, 20, "Message",ExpressionUUID->"3f59bf2a-0193-1b41-9437-359e4e291f20"], +Cell[458789, 11301, 170, 3, 26, "Output",ExpressionUUID->"6c94ff26-1921-5a44-a360-bda32f564938"] +}, Open ]], +Cell[CellGroupData[{ +Cell[458996, 11309, 2247, 64, 51, "Input",ExpressionUUID->"5a0cc4bb-b2b0-c64c-958a-7a397847208f"], +Cell[461246, 11375, 580, 12, 32, "Message",ExpressionUUID->"33abd0dc-5204-1046-87c9-87cecac6793f"], +Cell[461829, 11389, 583, 12, 32, "Message",ExpressionUUID->"a3e9f415-30c2-d04b-a044-33980d6ef6e9"], +Cell[462415, 11403, 584, 12, 32, "Message",ExpressionUUID->"3dddc3ab-89f8-ab44-a85d-f5130722f198"], +Cell[463002, 11417, 458, 10, 20, "Message",ExpressionUUID->"a3229605-5a49-544b-bbf6-cc14edd6c936"], +Cell[463463, 11429, 170, 3, 26, "Output",ExpressionUUID->"2f0f984a-e452-7f46-a8f1-230feda2f30b"] +}, Open ]], +Cell[CellGroupData[{ +Cell[463670, 11437, 2219, 64, 51, "Input",ExpressionUUID->"22b50200-0b82-dc47-9932-f1f0210d6caf"], +Cell[465892, 11503, 580, 12, 32, "Message",ExpressionUUID->"1a479ad6-386a-fb47-95e4-f8a3ab25eccc"], +Cell[466475, 11517, 583, 12, 32, "Message",ExpressionUUID->"c45746b8-a614-4245-b137-e38355d43857"], +Cell[467061, 11531, 586, 12, 32, "Message",ExpressionUUID->"7ef9264b-fdf5-8e46-a39d-9d01a56d9fbc"], +Cell[467650, 11545, 458, 10, 20, "Message",ExpressionUUID->"424cc344-67bf-5349-951a-e3d6864f9105"], +Cell[468111, 11557, 171, 3, 26, "Output",ExpressionUUID->"d6fb3ea3-39a2-5b42-96f2-520a52fd0d9f"] +}, Open ]], +Cell[CellGroupData[{ +Cell[468319, 11565, 2221, 64, 51, "Input",ExpressionUUID->"8a5105db-666c-444e-9451-d3e8d1574bcd"], +Cell[470543, 11631, 580, 12, 32, "Message",ExpressionUUID->"7c3b7078-d094-2344-a157-26438223ef0f"], +Cell[471126, 11645, 583, 12, 32, "Message",ExpressionUUID->"a4aaa457-e588-7a42-9066-29e614b18d91"], +Cell[471712, 11659, 584, 12, 32, "Message",ExpressionUUID->"8e9701ac-9508-2346-b853-523f9f269328"], +Cell[472299, 11673, 456, 10, 20, "Message",ExpressionUUID->"062aadbd-03a7-1f42-b815-d27ae6ddc83e"], +Cell[472758, 11685, 170, 3, 26, "Output",ExpressionUUID->"484b070c-cc4a-7049-8a18-4aa38bea8cd9"] +}, Open ]], +Cell[CellGroupData[{ +Cell[472965, 11693, 213, 6, 38, "Input",ExpressionUUID->"d0efa798-230b-fa46-b413-76bfd8e40ccb"], +Cell[473181, 11701, 174, 3, 26, "Output",ExpressionUUID->"8b85bd5c-200a-cc44-9db5-38c5efe118ad"] +}, Open ]], +Cell[473370, 11707, 247, 5, 23, "Input",ExpressionUUID->"f842f74e-f562-934a-9011-6604b8708636"], +Cell[CellGroupData[{ +Cell[473642, 11716, 558, 19, 42, "Input",ExpressionUUID->"ef577d34-3259-8244-8d7e-4d4166e096eb"], +Cell[474203, 11737, 173, 3, 26, "Output",ExpressionUUID->"ddfcd06d-5644-fb4b-b789-815d8db71ce6"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474413, 11745, 170, 5, 45, "Input",ExpressionUUID->"a468af81-12e3-9d43-a104-6685f39c4664"], +Cell[474586, 11752, 173, 3, 26, "Output",ExpressionUUID->"96020250-b44c-694d-acbe-eb8b1c066e25"] +}, Open ]], +Cell[CellGroupData[{ +Cell[474796, 11760, 181, 5, 35, "Input",ExpressionUUID->"cf41dfcd-ad77-3b43-8c5a-c343dfac6e7c"], +Cell[474980, 11767, 171, 3, 26, "Output",ExpressionUUID->"a3cad59a-97f1-1b4b-a0d3-0fcbb55e71c0"] +}, Open ]], +Cell[CellGroupData[{ +Cell[475188, 11775, 6055, 185, 162, "Input",ExpressionUUID->"9ca67d43-d599-5b4d-b0da-17e668defa6c"], +Cell[481246, 11962, 173, 3, 26, "Output",ExpressionUUID->"221426ad-3f43-834a-96dc-c22bf0ed0e23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[481456, 11970, 368, 9, 34, "Input",ExpressionUUID->"133a9d5a-6382-8444-adc7-845d12063729"], +Cell[481827, 11981, 172, 3, 26, "Output",ExpressionUUID->"54964f1a-0c74-5b45-a5d4-8b241885bf9d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[482036, 11989, 6122, 187, 162, "Input",ExpressionUUID->"0bba09a8-dc3f-4d4e-9975-c4965bedba5a"], +Cell[488161, 12178, 175, 3, 26, "Output",ExpressionUUID->"637b4460-08e1-2c47-b235-20b94d0413ac"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488373, 12186, 368, 9, 34, "Input",ExpressionUUID->"dd25df10-1e06-da4b-ab21-bdad201f1706"], +Cell[488744, 12197, 171, 3, 26, "Output",ExpressionUUID->"55b9de35-b316-8a4b-b6c7-df263fdc91bc"] +}, Open ]], +Cell[CellGroupData[{ +Cell[488952, 12205, 2663, 88, 95, "Input",ExpressionUUID->"c9ed9a65-8532-1d41-8213-a0bd40ace7df"], +Cell[491618, 12295, 173, 3, 26, "Output",ExpressionUUID->"fd2a841e-0c22-9146-97fa-d652989dadbe"] +}, Open ]], +Cell[CellGroupData[{ +Cell[491828, 12303, 2603, 85, 95, "Input",ExpressionUUID->"9e2a88cb-b398-b544-afe2-a8ca3be8151d"], +Cell[494434, 12390, 171, 3, 26, "Output",ExpressionUUID->"94bd0f60-5228-9b42-83fe-23a478d55c7c"] +}, Open ]], +Cell[CellGroupData[{ +Cell[494642, 12398, 3712, 118, 143, "Input",ExpressionUUID->"e44fc740-fe73-cc48-800c-d12df9afecd2"], +Cell[498357, 12518, 174, 3, 26, "Output",ExpressionUUID->"fe51f341-63c7-8f47-9357-139cd58159ba"] +}, Open ]], +Cell[CellGroupData[{ +Cell[498568, 12526, 2054, 59, 82, "Input",ExpressionUUID->"1dec41a6-6752-2041-9d38-804123b5ccd0"], +Cell[500625, 12587, 572, 12, 32, "Message",ExpressionUUID->"0e079558-1b2f-5a46-8c66-a9ee31993ddb"], +Cell[501200, 12601, 573, 12, 32, "Message",ExpressionUUID->"d148db97-53f1-5f42-bd2e-6e779140d5b6"], +Cell[501776, 12615, 579, 12, 32, "Message",ExpressionUUID->"186b0633-6992-1247-a396-6e446c898f15"], +Cell[502358, 12629, 456, 10, 20, "Message",ExpressionUUID->"81723359-f225-2c46-ac9d-0c5bbdaa253b"], +Cell[502817, 12641, 169, 3, 26, "Output",ExpressionUUID->"dfb1ce0b-e756-e84a-9724-ecf250122f19"] +}, Open ]], +Cell[CellGroupData[{ +Cell[503023, 12649, 2049, 58, 82, "Input",ExpressionUUID->"442c9cc5-031c-244c-a3bb-8044e56b047f"], +Cell[505075, 12709, 570, 12, 32, "Message",ExpressionUUID->"90df9b1f-7133-e445-8661-0af9d5feb8bd"], +Cell[505648, 12723, 575, 12, 32, "Message",ExpressionUUID->"93c48be2-5ad7-ad43-88e8-2c6ab8e2f132"], +Cell[506226, 12737, 579, 12, 32, "Message",ExpressionUUID->"cbcbafce-f556-944f-b5f3-9a75f9ae2725"], +Cell[506808, 12751, 458, 10, 20, "Message",ExpressionUUID->"83820e0a-b24a-cc46-bd5a-b19f0104c185"], +Cell[507269, 12763, 171, 3, 26, "Output",ExpressionUUID->"0d63c418-a50b-b94b-ad7d-1a46c6eb320d"] +}, Open ]], +Cell[CellGroupData[{ +Cell[507477, 12771, 2030, 55, 43, "Input",ExpressionUUID->"75bdb70f-74f6-1a4c-9c04-b799ae260294"], +Cell[509510, 12828, 20011, 378, 189, "Output",ExpressionUUID->"a15038e3-a3ab-e64e-ad3b-e8cb09ec92a2"] +}, Open ]], +Cell[CellGroupData[{ +Cell[529558, 13211, 2120, 60, 82, "Input",ExpressionUUID->"cbec275e-4d01-7747-9ece-7fa9a2a651b1"], +Cell[531681, 13273, 501, 11, 32, "Message",ExpressionUUID->"bf289d91-76e3-3e4e-937f-93db9b038d39"], +Cell[532185, 13286, 505, 11, 32, "Message",ExpressionUUID->"a52542a3-f03a-414f-86c8-3b114308924e"], +Cell[532693, 13299, 506, 11, 32, "Message",ExpressionUUID->"1c7104f0-99cd-c74c-b855-98253be62519"], +Cell[533202, 13312, 456, 10, 20, "Message",ExpressionUUID->"e66837df-658a-2c4c-973b-50c515d3781f"], +Cell[533661, 13324, 31008, 556, 186, "Output",ExpressionUUID->"0c8adc65-2b3c-a14f-87e8-79cdde17788b"] +}, Open ]], +Cell[564684, 13883, 209, 5, 23, "Input",ExpressionUUID->"f380af60-a605-c546-a4c8-b989835aa113"], +Cell[CellGroupData[{ +Cell[564918, 13892, 1616, 48, 59, "Input",ExpressionUUID->"2a506f59-0d86-f149-9072-b651d8746981"], +Cell[566537, 13942, 593, 12, 32, "Message",ExpressionUUID->"6cb27c14-3e28-3a42-b8b7-fdcba2488488"], +Cell[567133, 13956, 595, 12, 32, "Message",ExpressionUUID->"cb81e4d8-f3c2-a440-be93-8add6661d63f"], +Cell[567731, 13970, 602, 12, 32, "Message",ExpressionUUID->"6fc2d4bb-75da-4f4f-bee0-560983907484"], +Cell[568336, 13984, 456, 10, 20, "Message",ExpressionUUID->"a75f01ed-738d-2b4a-b751-ccae7a894e31"], +Cell[568795, 13996, 172, 3, 26, "Output",ExpressionUUID->"a9b05d7b-788a-eb45-8401-918c1ed97234"] +}, Open ]], +Cell[CellGroupData[{ +Cell[569004, 14004, 2249, 64, 51, "Input",ExpressionUUID->"f2835c98-560f-8e47-bdab-0d2700971836"], +Cell[571256, 14070, 572, 12, 32, "Message",ExpressionUUID->"e3c0ae99-c55d-1a40-897e-ede7de12487f"], +Cell[571831, 14084, 575, 12, 32, "Message",ExpressionUUID->"0a52e0c9-3a0a-a24b-a9af-01175c4ee0f4"], +Cell[572409, 14098, 579, 12, 32, "Message",ExpressionUUID->"e6adb683-0ea5-4b48-bbb8-23c8c11e4418"], +Cell[572991, 14112, 458, 10, 20, "Message",ExpressionUUID->"12441524-bcf6-244b-b009-fad76aa84cea"], +Cell[573452, 14124, 173, 3, 26, "Output",ExpressionUUID->"cc74ac59-df4c-cf4b-a4af-36b2436eea23"] +}, Open ]], +Cell[CellGroupData[{ +Cell[573662, 14132, 2221, 64, 51, "Input",ExpressionUUID->"ca837916-250f-4d4e-8368-5a08f479e656"], +Cell[575886, 14198, 572, 12, 32, "Message",ExpressionUUID->"ee3e5086-63b9-a04a-8b60-1a07bbedb00c"], +Cell[576461, 14212, 575, 12, 32, "Message",ExpressionUUID->"f824dc64-7721-2e40-87b9-9d308e655a7c"], +Cell[577039, 14226, 577, 12, 32, "Message",ExpressionUUID->"830b9065-dbdb-094f-aba8-2b0b04ca96a6"], +Cell[577619, 14240, 456, 10, 20, "Message",ExpressionUUID->"f79b172f-d4db-f24b-98c7-2b2531d3e183"], +Cell[578078, 14252, 172, 3, 26, "Output",ExpressionUUID->"88b0c8ab-c0ff-2a4c-be6a-f15bb3bf7202"] +}, Open ]], +Cell[CellGroupData[{ +Cell[578287, 14260, 2223, 64, 51, "Input",ExpressionUUID->"b579991f-985b-234a-94aa-ed18c097f8c0"], +Cell[580513, 14326, 572, 12, 32, "Message",ExpressionUUID->"f816110f-9bc3-0e4e-85c9-2e71a255bbb9"], +Cell[581088, 14340, 573, 12, 32, "Message",ExpressionUUID->"36d057a5-55b4-f047-814d-965f9626b543"], +Cell[581664, 14354, 579, 12, 32, "Message",ExpressionUUID->"4ef30680-44fe-0244-870d-45b0a67e7a3d"], +Cell[582246, 14368, 456, 10, 20, "Message",ExpressionUUID->"c685c306-1cc4-0a4f-bb39-965ed01378a7"], +Cell[582705, 14380, 173, 3, 26, "Output",ExpressionUUID->"621ca10b-eff8-834f-a283-22ac03a895a3"] +}, Open ]], +Cell[CellGroupData[{ +Cell[582915, 14388, 215, 6, 38, "Input",ExpressionUUID->"afb7855c-8700-d444-926c-6d96abe14e67"], +Cell[583133, 14396, 174, 3, 26, "Output",ExpressionUUID->"3737ba01-5151-874d-9846-1c8b07e42d7a"] }, Open ]] } ] *) -(* 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 0b16837..973ef18 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[ 581439, 14318] -NotebookOptionsPosition[ 540981, 13683] -NotebookOutlinePosition[ 541435, 13701] -CellTagsIndexPosition[ 541392, 13698] +NotebookDataLength[ 581491, 14319] +NotebookOptionsPosition[ 541044, 13684] +NotebookOutlinePosition[ 541486, 13702] +CellTagsIndexPosition[ 541443, 13699] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -6479,8 +6479,8 @@ v816fiUGr+eg0YII9v8BEOUgTQ== "Meta" -> <| "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{91.80048673422974, - 202.74756866009872`}, {-11.626778089982832`, 5.710721910017167}}], + ImageSizeCache->{{84.68028467793367, + 211.87669874043365`}, {-12.1671435127389, 5.830512737261099}}], Selectable->False]}, Annotation[{{{{}, {}, Annotation[{ @@ -7517,9 +7517,10 @@ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"d9d63445-4981-8f49-b88b-\ -9e93d345c648"], + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], Cell[BoxData[ RowBox[{"Show", "[", @@ -13681,11 +13682,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, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, Magnification:>0.8 Inherited, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"8af74bcb-cc50-f64a-8d83-c4bf7188d038" ] @@ -13701,137 +13702,137 @@ 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, 229, 5, 23, "Input",ExpressionUUID->"351bbc0d-9f60-fb44-a3dd-8326f7c1a9b1"], +Cell[808, 29, 149, 2, 26, "Output",ExpressionUUID->"2e7f3b17-b448-644d-bafd-ec5aa11fe78b"] }, 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[994, 36, 179, 4, 23, "Input",ExpressionUUID->"40a7803b-9334-ef42-a720-539edfcf67a8"], +Cell[1176, 42, 152, 2, 26, "Output",ExpressionUUID->"d21d7bec-caad-aa4f-9200-81feafc4acec"] }, 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[1365, 49, 147, 4, 23, "Input",ExpressionUUID->"410ced47-4e2a-4e45-9091-53970f892dbb"], +Cell[1515, 55, 152, 2, 26, "Output",ExpressionUUID->"a2a1281d-2cdd-5d4c-b7c6-d26236e66b80"] }, 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[1704, 62, 175, 3, 23, "Input",ExpressionUUID->"4c6dd23e-75ed-ae4a-acf9-56591f5025df"], +Cell[1882, 67, 152, 2, 26, "Output",ExpressionUUID->"4fa6d65b-1d5c-4f45-949a-d7045f28de30"] }, 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[2331, 83, 168, 2, 26, "Output",ExpressionUUID->"24d0db1b-9e75-3c46-9c8c-13704f881794"] }, 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[2536, 90, 131, 2, 23, "Input",ExpressionUUID->"4393e437-4418-924d-8d4c-7809bc31bb88"], +Cell[2670, 94, 154, 2, 26, "Output",ExpressionUUID->"d898610f-2407-1a40-9f24-5be2dcfa557e"] }, 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[2861, 101, 276, 6, 23, "Input",ExpressionUUID->"a5385d3b-a023-cd44-b749-4735260b7b95"], +Cell[3140, 109, 167, 2, 26, "Output",ExpressionUUID->"27ff60eb-7aa7-9949-984d-d71d79c10129"] }, 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[3344, 116, 257, 7, 23, "Input",ExpressionUUID->"0a74b7f9-6989-9540-ac07-501b8e8d8162"], +Cell[3604, 125, 167, 2, 26, "Output",ExpressionUUID->"2b4ba32a-ab7d-7140-a043-bb4487278822"] }, 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[3786, 130, 147, 4, 23, "Input",ExpressionUUID->"3b44378c-91de-5d4a-a244-b3f5cb1cffbb"], +Cell[3936, 136, 147, 4, 23, "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[4108, 144, 129, 2, 23, "Input",ExpressionUUID->"75d8f264-5e37-1044-a1c6-061fc9b997d0"], +Cell[4240, 148, 151, 2, 26, "Output",ExpressionUUID->"3d15ce67-15c8-f549-9c13-b8dddf0b6641"] }, 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[4428, 155, 129, 2, 23, "Input",ExpressionUUID->"8e1bd683-55de-244c-b403-3e685a9f8251"], +Cell[4560, 159, 151, 2, 26, "Output",ExpressionUUID->"8f7b3ab0-4d46-6e46-be1a-60df9a3dcebd"] }, 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[4748, 166, 557, 19, 69, "Input",ExpressionUUID->"cc598f43-7215-144d-8c66-c2ede0ad5bde"], +Cell[5308, 187, 169, 2, 26, "Output",ExpressionUUID->"d0cab83a-649b-b14c-b85b-84835124aa09"] }, 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[5514, 194, 557, 19, 69, "Input",ExpressionUUID->"5250e8ec-d471-e940-b083-114175ffd792"], +Cell[6074, 215, 168, 2, 26, "Output",ExpressionUUID->"81304ae5-6353-154d-8b14-59a2dc55038b"] }, 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[6279, 222, 1492, 48, 69, "Input",ExpressionUUID->"d47cc9a8-08a4-8645-9d02-c9ac151b001f"], +Cell[7774, 272, 167, 2, 26, "Output",ExpressionUUID->"bdbb5f17-757a-b84a-b3ac-6309844818bf"] }, 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[7978, 279, 1331, 44, 69, "Input",ExpressionUUID->"173d41f5-2f55-8540-9f84-3fa71a960dd9"], +Cell[9312, 325, 185, 3, 26, "Output",ExpressionUUID->"1dd72b7b-aeff-8747-91d0-6842e926f3b2"] }, 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[9534, 333, 1331, 44, 69, "Input",ExpressionUUID->"1a0365c8-da51-384e-a9af-9acfff34d31e"], +Cell[10868, 379, 187, 3, 26, "Output",ExpressionUUID->"d5bf6730-c400-e84f-827b-d40e35c83dad"] }, 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[11092, 387, 1492, 48, 69, "Input",ExpressionUUID->"c4f93205-e8b5-4545-b925-7a3667f2b8dc"], +Cell[12587, 437, 166, 2, 26, "Output",ExpressionUUID->"006d42df-1417-1c4e-b4d9-45c05dee6889"] }, 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[12790, 444, 131, 2, 23, "Input",ExpressionUUID->"1ed671ea-8189-3149-a8ce-72bd20eeb073"], +Cell[12924, 448, 151, 2, 26, "Output",ExpressionUUID->"64d193ee-3f72-404e-9ca7-d3c855ce1a3f"] }, 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[13112, 455, 133, 2, 23, "Input",ExpressionUUID->"70475143-92e0-6e44-8a83-18cdd4a8c535"], +Cell[13248, 459, 153, 2, 26, "Output",ExpressionUUID->"8d37ba34-6f64-7d40-86af-bfe10ed7ecf9"] }, 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[13438, 466, 134, 2, 23, "Input",ExpressionUUID->"2462dcb2-0cb8-e248-aa5d-f9a9cd16feb3"], +Cell[13575, 470, 155, 2, 26, "Output",ExpressionUUID->"cf6fd933-5c85-3c47-a2fa-a53bc24bd1de"] }, 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[13767, 477, 219, 4, 23, "Input",ExpressionUUID->"06c5a55e-2df6-ad42-b792-346d68f826dc"], +Cell[13989, 483, 168, 3, 26, "Output",ExpressionUUID->"68c660da-f0f0-ad47-93fc-5a731457088a"] }, 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[14194, 491, 134, 2, 23, "Input",ExpressionUUID->"7a73cda7-5988-ca4e-b1d4-9678ae3b25bc"], +Cell[14331, 495, 155, 2, 26, "Output",ExpressionUUID->"8f2a2cb7-00c0-6642-b771-a61c78864261"] }, 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[14523, 502, 248, 5, 23, "Input",ExpressionUUID->"50acb4f0-66e7-924a-841b-56c0ae53ef15"], +Cell[14774, 509, 152, 2, 26, "Output",ExpressionUUID->"55d6fafd-5f57-cf44-945d-c5c7fb1b087a"] }, 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[14963, 516, 228, 5, 23, "Input",ExpressionUUID->"4451fdbc-8b04-2c43-a6db-990caacde85d"], +Cell[15194, 523, 152, 2, 26, "Output",ExpressionUUID->"e4541cb8-be74-4140-af0a-812e02085534"] }, 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[15383, 530, 219, 4, 23, "Input",ExpressionUUID->"054b1b4f-0e8a-0845-baa0-2842a740e988"], +Cell[15605, 536, 151, 2, 26, "Output",ExpressionUUID->"41e65355-0d62-5849-876b-33938574e65a"] }, 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[16146, 555, 170, 2, 26, "Output",ExpressionUUID->"b6d3bf5f-35d3-5240-acc0-10ada08af661"] }, 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[16706, 574, 186, 3, 26, "Output",ExpressionUUID->"5d506fa3-f740-ff4f-9786-10c7e1e82f78"] }, 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[16929, 582, 975, 27, 42, "Input",ExpressionUUID->"957e37d7-d728-e448-9a63-f9d65131b81c"], +Cell[17907, 611, 169, 2, 26, "Output",ExpressionUUID->"02f8af82-a9df-4342-9d73-750f12d42e7b"] }, 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[18113, 618, 199, 3, 23, "Input",ExpressionUUID->"38330a7d-57e4-8f49-a9b3-c77bde88f24f"], +Cell[18315, 623, 151, 2, 26, "Output",ExpressionUUID->"1ee0020e-da30-7b46-8f5c-7602d78cb1cb"] }, 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[18481, 628, 250, 5, 23, "Input",ExpressionUUID->"477d69f3-81a2-6d40-bff8-58a9467eced9"], +Cell[18734, 635, 154, 3, 23, "Input",ExpressionUUID->"6a2dd87e-b2f5-1d41-b680-bb644ea0ddfa"], +Cell[18891, 640, 250, 5, 23, "Input",ExpressionUUID->"a9223860-e2cf-2047-9a01-b6480cd2846d"], +Cell[19144, 647, 154, 3, 23, "Input",ExpressionUUID->"d35f11fe-a53c-8943-ac4f-07cc8884f5b8"], +Cell[19301, 652, 251, 5, 23, "Input",ExpressionUUID->"afeba878-eb4d-ef43-8941-b46079e5a618"], +Cell[19555, 659, 154, 3, 23, "Input",ExpressionUUID->"12665172-e21c-4e44-b1fc-e81404b2a0db"], +Cell[19712, 664, 275, 5, 23, "Input",ExpressionUUID->"81b490c7-39d4-f348-8914-f54b23f74296"], +Cell[19990, 671, 152, 3, 23, "Input",ExpressionUUID->"78f54ff3-2505-5940-9b78-ccc2627a783c"], +Cell[20145, 676, 222, 5, 23, "Input",ExpressionUUID->"17c8b6b3-c729-7c42-8964-e70aa92597e4"], +Cell[20370, 683, 152, 3, 23, "Input",ExpressionUUID->"3908ad8b-9aa1-4d42-954c-a3b9eef1576d"], +Cell[20525, 688, 226, 5, 23, "Input",ExpressionUUID->"92080e53-e7ee-a444-8071-b94745a1c38a"], +Cell[20754, 695, 154, 3, 23, "Input",ExpressionUUID->"b1e9f36c-5bc2-0c4d-92a1-7d827c4ef6de"], +Cell[20911, 700, 229, 5, 23, "Input",ExpressionUUID->"d8094a6a-d67c-3d48-bcaa-264265a5c2d2"], +Cell[21143, 707, 153, 3, 23, "Input",ExpressionUUID->"cc794a1b-7691-8f4d-a4bc-01ae055dd38b"], +Cell[21299, 712, 198, 4, 23, "Input",ExpressionUUID->"0efd73e6-d1c0-4449-a060-0fd7b04115ca"], +Cell[21500, 718, 156, 3, 23, "Input",ExpressionUUID->"cc8697be-e0d9-6944-bb0c-e22b0839e976"], Cell[CellGroupData[{ -Cell[21681, 725, 19809, 485, 1553, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], +Cell[21681, 725, 19809, 485, 749, "Input",ExpressionUUID->"f88ffeec-96f4-c047-a5a9-6451a0605337"], Cell[41493, 1212, 167, 2, 25, "Output",ExpressionUUID->"6e3e2b1b-3430-b546-9dfc-ccd29250c9d7"] }, Open ]], Cell[CellGroupData[{ @@ -14039,286 +14040,286 @@ Cell[218633, 6070, 168, 2, 25, "Output",ExpressionUUID->"9deaa7ff-19fe-b345-ae65 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[221454, 6152, 556, 12, 32, "Message",ExpressionUUID->"2b170196-02e0-d544-a5a5-d90722dc10dc"], +Cell[222013, 6166, 559, 12, 32, "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[223030, 6192, 166, 2, 26, "Output",ExpressionUUID->"0790c690-9267-6441-bc9c-d353ab16b428"] }, 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[223233, 6199, 1938, 53, 59, "Input",ExpressionUUID->"1834f328-2171-004d-99c2-8b70b5354bda"], +Cell[225174, 6254, 20223, 378, 191, "Output",ExpressionUUID->"5d2ddb35-b7b8-514c-917f-fcc77dc8600c"] }, 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[245434, 6637, 2094, 60, 82, "Input",ExpressionUUID->"2a70f76a-58a3-cb47-ac3c-9aed2c391662"], +Cell[247531, 6699, 497, 11, 32, "Message",ExpressionUUID->"cb33453f-b5ca-e14d-a319-662822d35ed2"], +Cell[248031, 6712, 501, 11, 32, "Message",ExpressionUUID->"aa5fb574-aeea-7141-9d86-babfa2192485"], +Cell[248535, 6725, 503, 11, 32, "Message",ExpressionUUID->"dec65c86-5426-6949-9e38-c5bc3eb7722e"], +Cell[249041, 6738, 455, 10, 20, "Message",ExpressionUUID->"32a908f1-0097-2943-9511-bd82e083c1e0"], +Cell[249499, 6750, 43631, 762, 186, "Output",ExpressionUUID->"704b46fd-7ca5-4147-bbb4-19991a3778e5"] }, 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[293145, 7515, 298, 7, 36, "Input",ExpressionUUID->"d9d63445-4981-8f49-b88b-9e93d345c648"], +Cell[293446, 7524, 209, 5, 23, "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[293680, 7533, 212, 6, 39, "Input",ExpressionUUID->"90780efc-4769-7b47-9fbb-9166c67c2a66"], +Cell[293895, 7541, 168, 2, 26, "Output",ExpressionUUID->"1f95faab-1b52-5440-9bc8-bbd29c090294"] }, 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[294100, 7548, 1814, 53, 82, "Input",ExpressionUUID->"7116d4f3-8ab8-b741-8264-0a5eeac170a0"], +Cell[295917, 7603, 505, 11, 32, "Message",ExpressionUUID->"34609962-a5ff-c943-bd24-1be35ec9ac87"], +Cell[296425, 7616, 509, 11, 32, "Message",ExpressionUUID->"1fdfd709-87fa-2d47-912a-2bb16540a45a"], +Cell[296937, 7629, 508, 11, 32, "Message",ExpressionUUID->"02f7e2ed-ac22-9d4d-8071-ab116260ee28"], +Cell[297448, 7642, 455, 10, 20, "Message",ExpressionUUID->"7db76209-a5a6-1947-80c1-912d214b981c"], +Cell[297906, 7654, 22399, 414, 188, "Output",ExpressionUUID->"b5f713da-fcb5-f640-b2b9-a3f5b5d5c325"] }, 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[320342, 8073, 1612, 47, 59, "Input",ExpressionUUID->"5530f28a-0194-494d-ad73-c38d245a1f1d"], +Cell[321957, 8122, 581, 12, 32, "Message",ExpressionUUID->"e283daf4-b253-944e-a35b-b9d739b4810d"], +Cell[322541, 8136, 584, 12, 32, "Message",ExpressionUUID->"45f4fe27-f32a-9441-bd55-e0801ff04328"], +Cell[323128, 8150, 590, 12, 32, "Message",ExpressionUUID->"8fffabed-e171-5e42-9ba8-fd51ae8f5dd5"], +Cell[323721, 8164, 455, 10, 20, "Message",ExpressionUUID->"8b648472-e40f-a549-a057-c6eeb9f14028"], +Cell[324179, 8176, 169, 2, 26, "Output",ExpressionUUID->"c7b55151-fc31-d94c-8a4e-01b34fb0adaf"] }, 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[324385, 8183, 2249, 64, 51, "Input",ExpressionUUID->"18d0289f-01fd-a740-8fac-540622282b2c"], +Cell[326637, 8249, 557, 12, 32, "Message",ExpressionUUID->"3632efc4-f65f-2f41-a6ff-4f71c0ebce84"], +Cell[327197, 8263, 560, 12, 70, "Message",ExpressionUUID->"779c5516-83d5-5d41-8a7a-6b58e876b564"], +Cell[327760, 8277, 560, 12, 70, "Message",ExpressionUUID->"8e3711bd-8e48-2e4f-9802-ad11f73b56ef"], +Cell[328323, 8291, 455, 10, 70, "Message",ExpressionUUID->"f612a69b-4740-9240-9908-d284159fa285"], +Cell[328781, 8303, 169, 2, 70, "Output",ExpressionUUID->"bfa217e6-2060-bc4b-b710-35d6c4ca9627"] }, 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[328987, 8310, 2221, 64, 70, "Input",ExpressionUUID->"33f25e29-8e2f-5249-9603-4bb381db84df"], +Cell[331211, 8376, 554, 12, 70, "Message",ExpressionUUID->"3ebcf84a-7882-bd47-b9c8-0657501c09d4"], +Cell[331768, 8390, 560, 12, 70, "Message",ExpressionUUID->"5ba908af-818e-5d45-9b4d-c738ed936632"], +Cell[332331, 8404, 560, 12, 70, "Message",ExpressionUUID->"b25ed3b8-96c0-f246-8b73-bf5dca1bf3be"], +Cell[332894, 8418, 455, 10, 70, "Message",ExpressionUUID->"4d7ee3e1-e220-9e46-b1cc-01012021a276"], +Cell[333352, 8430, 169, 2, 70, "Output",ExpressionUUID->"f21819b7-4040-3a47-b212-dc05454fc812"] }, 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[333558, 8437, 2223, 64, 70, "Input",ExpressionUUID->"88e14da9-8532-e842-b722-1b0781de8eeb"], +Cell[335784, 8503, 555, 12, 70, "Message",ExpressionUUID->"abd6af2a-56b2-2644-a5c5-5aa91718971c"], +Cell[336342, 8517, 558, 12, 70, "Message",ExpressionUUID->"31d8f902-5be7-c54f-8e99-429decd85903"], +Cell[336903, 8531, 560, 12, 70, "Message",ExpressionUUID->"666728b2-41bd-114c-ad81-a56ae7cb85e9"], +Cell[337466, 8545, 453, 10, 70, "Message",ExpressionUUID->"7a1ee219-911f-6846-82f7-c389bec607c2"], +Cell[337922, 8557, 167, 2, 70, "Output",ExpressionUUID->"f40d5525-ccff-eb4c-a859-e6917373a7f1"] }, 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[338126, 8564, 213, 6, 70, "Input",ExpressionUUID->"fcd1131c-ba92-0b46-817b-e5f89f4ec38f"], +Cell[338342, 8572, 169, 2, 70, "Output",ExpressionUUID->"3749f94f-79b1-2342-af7e-bc4d815737fe"] }, Open ]], -Cell[338463, 8576, 247, 5, 70, "Input",ExpressionUUID->"c771f2bd-f081-e54a-b4e5-bf0dbc996ac3"], +Cell[338526, 8577, 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[338798, 8586, 554, 18, 70, "Input",ExpressionUUID->"e251726d-e169-d945-ab4a-5d2f25930fef"], +Cell[339355, 8606, 167, 2, 70, "Output",ExpressionUUID->"aad53d59-da78-9348-9ac4-1e0902e814d3"] }, Open ]], 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[339559, 8613, 166, 4, 70, "Input",ExpressionUUID->"327a1255-f251-984f-8923-c0274c3b49ff"], +Cell[339728, 8619, 169, 2, 70, "Output",ExpressionUUID->"4fef6a46-506a-e14c-9df4-f75ab9f6cdb2"] }, 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[339934, 8626, 181, 5, 70, "Input",ExpressionUUID->"34b5c282-9128-3243-a083-2a0ba15e1c1e"], +Cell[340118, 8633, 173, 3, 70, "Output",ExpressionUUID->"f46a3dc4-a4b4-034f-91be-6596e81ebf6d"] }, 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[340328, 8641, 6055, 185, 70, "Input",ExpressionUUID->"f3a277aa-056d-d149-8885-d2d3d2344155"], +Cell[346386, 8828, 172, 3, 70, "Output",ExpressionUUID->"ccd4df45-d425-704c-b4a9-648b41b92e77"] }, 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[346595, 8836, 368, 9, 70, "Input",ExpressionUUID->"0fa06165-8277-0942-9840-e7939e39e8bc"], +Cell[346966, 8847, 170, 3, 70, "Output",ExpressionUUID->"1ebb6633-805d-cf47-abbc-564ac9bf2374"] }, Open ]], 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[347173, 8855, 6122, 187, 70, "Input",ExpressionUUID->"1b1171a5-5779-4b4d-9d05-b0c2eafb2db5"], +Cell[353298, 9044, 175, 3, 70, "Output",ExpressionUUID->"a3a95ff2-cddf-6a4c-ac06-8cc3fd5707bc"] }, 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[353510, 9052, 368, 9, 70, "Input",ExpressionUUID->"6c245ddb-5918-924a-9203-1fedb54d4a87"], +Cell[353881, 9063, 169, 3, 70, "Output",ExpressionUUID->"53071608-cf53-7441-9033-6c9cf2e7fa8e"] }, 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[354087, 9071, 2663, 88, 70, "Input",ExpressionUUID->"653c5092-298f-db49-b06e-e3478aa9b1d6"], +Cell[356753, 9161, 173, 3, 70, "Output",ExpressionUUID->"547b87cc-d628-4d49-8e04-72542aa7650e"] }, 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[356963, 9169, 2603, 85, 70, "Input",ExpressionUUID->"14be274c-57f4-d247-984a-05fe7f5796d8"], +Cell[359569, 9256, 171, 3, 70, "Output",ExpressionUUID->"a8edf49c-9c61-9e4b-9fa8-4de409daba96"] }, 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[359777, 9264, 3712, 118, 70, "Input",ExpressionUUID->"b50305da-a32c-4d4f-98ec-1a42d89ff35c"], +Cell[363492, 9384, 171, 3, 70, "Output",ExpressionUUID->"3584cc50-41a2-ae4b-af54-859d095b0154"] }, 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[363700, 9392, 2052, 59, 70, "Input",ExpressionUUID->"ee2d2671-1677-5943-bf7a-6ffa36275fe8"], +Cell[365755, 9453, 572, 12, 70, "Message",ExpressionUUID->"d59869d2-8577-0547-8448-230bc5a4ac5e"], +Cell[366330, 9467, 573, 12, 70, "Message",ExpressionUUID->"844f4204-3100-6d45-b5d2-238cc22b8006"], +Cell[366906, 9481, 578, 12, 70, "Message",ExpressionUUID->"f91c55eb-7b3d-3340-b869-4269b99a071c"], +Cell[367487, 9495, 457, 10, 70, "Message",ExpressionUUID->"efd89e15-8a66-4047-aee7-4fb3607a30a7"], +Cell[367947, 9507, 172, 3, 70, "Output",ExpressionUUID->"e68f2098-b3f7-6745-819f-009e252dd442"] }, 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[368156, 9515, 2054, 59, 70, "Input",ExpressionUUID->"b0b1035a-0fdf-b146-a71f-1ab9142a9a90"], +Cell[370213, 9576, 572, 12, 70, "Message",ExpressionUUID->"feb3ed0a-8d45-dd4c-a945-407106f88295"], +Cell[370788, 9590, 575, 12, 70, "Message",ExpressionUUID->"d5a6c2e7-2143-1843-8d40-686107f6aa27"], +Cell[371366, 9604, 576, 12, 70, "Message",ExpressionUUID->"a15d89dd-0dfc-c845-aec3-fe7d60156e1f"], +Cell[371945, 9618, 457, 10, 70, "Message",ExpressionUUID->"0f9408e4-b654-4a40-9b38-655b18398efc"], +Cell[372405, 9630, 170, 3, 70, "Output",ExpressionUUID->"f72e3d82-4d19-7143-9513-38a15cee4d51"] }, Open ]], 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[372612, 9638, 2030, 55, 70, "Input",ExpressionUUID->"f6fa9d80-fa6d-8c4a-8fee-ff25938e6592"], +Cell[374645, 9695, 20377, 384, 70, "Output",ExpressionUUID->"02187549-f2f0-9c4d-81fc-d12919ea7802"] }, 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[395059, 10084, 2118, 60, 70, "Input",ExpressionUUID->"8faa67fd-f295-ea48-b116-d12d9d52c36b"], +Cell[397180, 10146, 499, 11, 70, "Message",ExpressionUUID->"75033ea5-32d5-4445-bfb0-a981507a2e9a"], +Cell[397682, 10159, 504, 11, 70, "Message",ExpressionUUID->"bc53c85b-e7c9-be4a-8ed4-30975f08af5c"], +Cell[398189, 10172, 507, 11, 70, "Message",ExpressionUUID->"e09d101b-c5d3-424f-aab9-c5788f3b9ef6"], +Cell[398699, 10185, 455, 10, 70, "Message",ExpressionUUID->"28f777a6-eb27-df49-a698-bd7806baa94c"], +Cell[399157, 10197, 22381, 415, 70, "Output",ExpressionUUID->"cd997d80-b342-8b4c-95c9-b33408882f73"] }, 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[421553, 10615, 174, 3, 70, "Input",ExpressionUUID->"c5eb8b00-da53-e74c-9781-4f98a6653ef7"], +Cell[421730, 10620, 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[421964, 10629, 1616, 48, 70, "Input",ExpressionUUID->"f695fa87-ec11-e544-beb4-27e0ec1d6164"], +Cell[423583, 10679, 594, 12, 70, "Message",ExpressionUUID->"96d01a47-7c9a-1944-8904-f1788b2f0a8a"], +Cell[424180, 10693, 594, 12, 70, "Message",ExpressionUUID->"fee09e7b-7835-394b-93fe-35ddd26f69d1"], +Cell[424777, 10707, 598, 12, 70, "Message",ExpressionUUID->"fc12fc14-afc1-0a48-8829-94d858477ec4"], +Cell[425378, 10721, 457, 10, 70, "Message",ExpressionUUID->"41b1346d-6d7d-5d4d-9b1a-88cde3361cf3"], +Cell[425838, 10733, 171, 3, 70, "Output",ExpressionUUID->"0bbffe2c-809c-1149-a08f-e3342cda31a0"] }, 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[426046, 10741, 2247, 64, 70, "Input",ExpressionUUID->"df92a918-12ed-ff47-a8a8-122296a3d634"], +Cell[428296, 10807, 572, 12, 70, "Message",ExpressionUUID->"922f5f31-888f-7340-96cd-65ecb8ea2e84"], +Cell[428871, 10821, 573, 12, 70, "Message",ExpressionUUID->"287b836d-7493-d44f-85b0-183d2793165c"], +Cell[429447, 10835, 578, 12, 70, "Message",ExpressionUUID->"962d88f7-2937-fe4b-ba97-3fe8099808d5"], +Cell[430028, 10849, 455, 10, 70, "Message",ExpressionUUID->"2ec951f6-2332-9241-84af-c7ac25232c2e"], +Cell[430486, 10861, 172, 3, 70, "Output",ExpressionUUID->"3eb28fb3-5fd6-4240-b231-e1f0fa53f4dc"] }, 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[430695, 10869, 2221, 64, 70, "Input",ExpressionUUID->"1990573a-00f1-b54c-9d39-9c68738afe07"], +Cell[432919, 10935, 570, 12, 70, "Message",ExpressionUUID->"8fc71a81-55ed-5940-a6a0-1fa4e0c6425a"], +Cell[433492, 10949, 573, 12, 70, "Message",ExpressionUUID->"001b2f06-491c-6c4f-881b-1d7c12c1b14f"], +Cell[434068, 10963, 578, 12, 70, "Message",ExpressionUUID->"865c0491-32b6-3549-83ec-bdf42c3a31aa"], +Cell[434649, 10977, 455, 10, 70, "Message",ExpressionUUID->"3566013f-7b44-504c-95a5-32d3ac2ece3d"], +Cell[435107, 10989, 172, 3, 70, "Output",ExpressionUUID->"9cc3c720-52c0-b040-a0b4-75ff2aab4396"] }, 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[435316, 10997, 2221, 64, 70, "Input",ExpressionUUID->"586f2005-dac7-8547-be11-766f96e6af5d"], +Cell[437540, 11063, 572, 12, 70, "Message",ExpressionUUID->"bc9996c1-a929-5b41-9541-f607e96932b8"], +Cell[438115, 11077, 575, 12, 70, "Message",ExpressionUUID->"eb28c83b-0aac-8d4e-a729-f978b41e689a"], +Cell[438693, 11091, 578, 12, 70, "Message",ExpressionUUID->"70b030cf-db8c-c440-8526-b10f71bb72b3"], +Cell[439274, 11105, 455, 10, 70, "Message",ExpressionUUID->"4d72b001-01d6-d944-9c97-6d0d7d2eccbb"], +Cell[439732, 11117, 173, 3, 70, "Output",ExpressionUUID->"c15d23fa-1bed-9640-940a-c33e3a830230"] }, 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[439942, 11125, 213, 6, 70, "Input",ExpressionUUID->"363f609f-6fd9-cc4c-924f-14ef82ef0962"], +Cell[440158, 11133, 172, 3, 70, "Output",ExpressionUUID->"2d0467ed-c049-384d-ae20-12fc79688cfb"] }, Open ]], -Cell[440282, 11138, 245, 5, 70, "Input",ExpressionUUID->"32c57f0b-017d-d340-92c6-0f56a212e9c3"], +Cell[440345, 11139, 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[440615, 11148, 558, 19, 70, "Input",ExpressionUUID->"23ef3b07-8332-a240-a444-e47c812f31a5"], +Cell[441176, 11169, 173, 3, 70, "Output",ExpressionUUID->"26c56722-6e97-cb4f-b35b-a00d42f1d8f6"] }, 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[441386, 11177, 170, 5, 70, "Input",ExpressionUUID->"f26a947c-19fb-f94f-8174-f7b0fc5540e9"], +Cell[441559, 11184, 171, 3, 70, "Output",ExpressionUUID->"7e7edb0d-1306-d742-8b32-e7c6dc694892"] }, 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[441767, 11192, 181, 5, 70, "Input",ExpressionUUID->"3a8bf436-5a5b-e94e-9ccf-34fc2d8727ed"], +Cell[441951, 11199, 173, 3, 70, "Output",ExpressionUUID->"e5353287-a717-554a-9c6b-1021438b30ff"] }, 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[442161, 11207, 6055, 185, 70, "Input",ExpressionUUID->"cd677593-fddd-ff4c-acc1-d2c088f83196"], +Cell[448219, 11394, 175, 3, 70, "Output",ExpressionUUID->"ed4bd4f3-e1cc-fa47-b5b5-475b6e581b1f"] }, 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[448431, 11402, 368, 9, 70, "Input",ExpressionUUID->"25feb7d7-e47e-c542-a706-b4e7f7c6867a"], +Cell[448802, 11413, 170, 3, 70, "Output",ExpressionUUID->"0c9f07a0-dfdf-6e41-964a-0bcdc0cbcb45"] }, 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[449009, 11421, 6122, 187, 70, "Input",ExpressionUUID->"af4d7b87-8410-9444-80c4-518657f4dbc4"], +Cell[455134, 11610, 175, 3, 70, "Output",ExpressionUUID->"579eace1-979d-7347-a36f-c1fefbf459f5"] }, 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[455346, 11618, 368, 9, 70, "Input",ExpressionUUID->"5585f354-37e2-3347-ab68-323b66c21230"], +Cell[455717, 11629, 172, 3, 70, "Output",ExpressionUUID->"0225baf1-4541-ed4d-8528-13926fef86cd"] }, Open ]], 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[455926, 11637, 2663, 88, 70, "Input",ExpressionUUID->"6fc082ae-2060-6449-a16f-e00d1080fd55"], +Cell[458592, 11727, 173, 3, 70, "Output",ExpressionUUID->"f7c789e7-838d-b443-a597-00e69e7c3611"] }, 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[458802, 11735, 2603, 85, 70, "Input",ExpressionUUID->"3fe1a7bc-c02a-f74a-84f9-d1c0141923f0"], +Cell[461408, 11822, 171, 3, 70, "Output",ExpressionUUID->"fc2bf760-d110-cb46-bd02-e934de9fd4f9"] }, 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[461616, 11830, 3712, 118, 70, "Input",ExpressionUUID->"56c6644a-7186-bc4d-adf7-2597c52fe0c9"], +Cell[465331, 11950, 171, 3, 70, "Output",ExpressionUUID->"4304216c-b250-ab48-915e-b844e71a70f1"] }, 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[465539, 11958, 2052, 59, 70, "Input",ExpressionUUID->"c3883d3a-8a99-644a-9175-a97b5c6c44f4"], +Cell[467594, 12019, 568, 12, 70, "Message",ExpressionUUID->"ef0dcda5-4eb3-fb4f-a7ba-cf9592c754fd"], +Cell[468165, 12033, 572, 12, 70, "Message",ExpressionUUID->"516128bc-41b4-3d49-8276-2fe73d5d437e"], +Cell[468740, 12047, 574, 12, 70, "Message",ExpressionUUID->"83555127-edb0-f34d-bade-abdcd60ad387"], +Cell[469317, 12061, 457, 10, 70, "Message",ExpressionUUID->"f8efe38f-0b83-4645-b574-b25c08902457"], +Cell[469777, 12073, 172, 3, 70, "Output",ExpressionUUID->"de5933f0-d736-3443-950a-4744d8abefe5"] }, 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[469986, 12081, 2054, 59, 70, "Input",ExpressionUUID->"e98b6a97-f2bb-1949-8aa2-bed1f30b804b"], +Cell[472043, 12142, 568, 12, 70, "Message",ExpressionUUID->"d0c389d2-1c6b-3a44-bd00-6e54df438015"], +Cell[472614, 12156, 572, 12, 70, "Message",ExpressionUUID->"3f819d0b-3458-d54e-bb8e-ed758b92949a"], +Cell[473189, 12170, 574, 12, 70, "Message",ExpressionUUID->"7403c575-bafd-2049-8d02-89293c73f7f1"], +Cell[473766, 12184, 457, 10, 70, "Message",ExpressionUUID->"29512b1b-8a2c-1740-986b-fb78e7d2ec89"], +Cell[474226, 12196, 171, 3, 70, "Output",ExpressionUUID->"686785b6-8c83-3e43-88fb-689383b13a2d"] }, Open ]], 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[474434, 12204, 2030, 55, 70, "Input",ExpressionUUID->"d5c5d0e8-862b-f245-8b21-eac61b5b75d3"], +Cell[476467, 12261, 19960, 375, 70, "Output",ExpressionUUID->"9eb47740-dc4f-3248-80e4-ef19d916a0ad"] }, 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[496464, 12641, 2118, 60, 70, "Input",ExpressionUUID->"201ddeed-58e9-7047-8ad4-c179c9adcae7"], +Cell[498585, 12703, 496, 11, 70, "Message",ExpressionUUID->"6bc1b8c6-3100-6640-9985-3abfd43de799"], +Cell[499084, 12716, 501, 11, 70, "Message",ExpressionUUID->"82e13dda-210b-a94d-9e1d-a821db42ab6b"], +Cell[499588, 12729, 505, 11, 70, "Message",ExpressionUUID->"9d37688a-c69d-ed49-bce7-cf0090e0ecb8"], +Cell[500096, 12742, 455, 10, 70, "Message",ExpressionUUID->"4e87d0d8-b47a-ef47-85af-16467b219f50"], +Cell[500554, 12754, 21721, 403, 70, "Output",ExpressionUUID->"6974e3c4-9b35-2f4b-97bf-745f60f533f8"] }, 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[522290, 13160, 181, 3, 70, "Input",ExpressionUUID->"d48877eb-e0f2-d842-b248-ea3fc2b4c4a8"], +Cell[522474, 13165, 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[522706, 13174, 1616, 48, 70, "Input",ExpressionUUID->"80872b10-ba88-3a42-8416-8287bf76d77e"], +Cell[524325, 13224, 589, 12, 70, "Message",ExpressionUUID->"8906bbab-e37b-4b4c-898f-52bfc96dde7b"], +Cell[524917, 13238, 588, 12, 70, "Message",ExpressionUUID->"6ae14bce-ec42-7f4d-9914-0630eea4cdf9"], +Cell[525508, 13252, 594, 12, 70, "Message",ExpressionUUID->"7e98a506-896d-0d47-8502-b83685d9a60c"], +Cell[526105, 13266, 455, 10, 70, "Message",ExpressionUUID->"400e66c2-06b5-814e-a2be-19c4c75ccbf0"], +Cell[526563, 13278, 173, 3, 70, "Output",ExpressionUUID->"f202ab02-e319-144b-97e8-ae603395b346"] }, 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[526773, 13286, 2246, 64, 70, "Input",ExpressionUUID->"a5e0631c-6c6c-a045-8418-22c641e38d86"], +Cell[529022, 13352, 566, 12, 70, "Message",ExpressionUUID->"2d7e67d1-8691-e348-9ca8-caa63b533102"], +Cell[529591, 13366, 570, 12, 70, "Message",ExpressionUUID->"f0eb6f1d-f621-8647-b6a6-8bf673e41ebb"], +Cell[530164, 13380, 574, 12, 70, "Message",ExpressionUUID->"64fda82a-0f74-2743-89a8-afd600de203a"], +Cell[530741, 13394, 456, 10, 70, "Message",ExpressionUUID->"971a319d-8ab4-464d-a08e-f97fe8d4c0e1"], +Cell[531200, 13406, 171, 3, 70, "Output",ExpressionUUID->"b3c37f48-9827-884f-94d9-1f76aed7bfaa"] }, 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[531408, 13414, 2221, 64, 70, "Input",ExpressionUUID->"4b6c44e4-d946-0c4d-9992-4f0fc7048689"], +Cell[533632, 13480, 569, 12, 70, "Message",ExpressionUUID->"1040ba10-c733-df44-b556-0998dc0163c9"], +Cell[534204, 13494, 571, 12, 70, "Message",ExpressionUUID->"e451b852-84c2-a941-b1d7-812ecad4750e"], +Cell[534778, 13508, 575, 12, 70, "Message",ExpressionUUID->"a15e0c9d-d634-6e47-94c5-2ce40fcb4d52"], +Cell[535356, 13522, 458, 10, 70, "Message",ExpressionUUID->"a3ddc92b-b5c9-5e46-be44-6165430ec35f"], +Cell[535817, 13534, 171, 3, 70, "Output",ExpressionUUID->"978bf39b-9d1f-a54f-a6de-a2e3d269e126"] }, 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[536025, 13542, 2223, 64, 70, "Input",ExpressionUUID->"b1f27f7a-2c76-6d46-97b3-32244819d42b"], +Cell[538251, 13608, 567, 12, 70, "Message",ExpressionUUID->"57c74c2a-63a6-9846-b3f7-1a08cebb8172"], +Cell[538821, 13622, 571, 12, 70, "Message",ExpressionUUID->"2e606101-b73e-f443-8324-5b1c64dcaa7f"], +Cell[539395, 13636, 573, 12, 70, "Message",ExpressionUUID->"4da9173d-4ced-1e49-83f6-426d72ec8cf3"], +Cell[539971, 13650, 456, 10, 70, "Message",ExpressionUUID->"a2dba8d9-69c9-cb46-bbb4-f7192fe3e138"], +Cell[540430, 13662, 173, 3, 70, "Output",ExpressionUUID->"12fa1803-dc21-9349-8d62-d5d5f0fa85c6"] }, 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[540640, 13670, 211, 6, 70, "Input",ExpressionUUID->"99da2760-e71e-1246-8cc9-f0a7464dc747"], +Cell[540854, 13678, 174, 3, 70, "Output",ExpressionUUID->"02a25981-0c7b-de47-b9f0-48bc3149aa69"] }, Open ]] } ] diff --git a/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt old mode 100755 new mode 100644 index 122f797..c4629fc --- a/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt +++ b/Pu240_798-811_TitovAA/коэффициенты_Pu240_2-24.txt @@ -1,7 +1,7 @@ Pu240 ----------------------------- 174-66_2-3 -d = +d = 1.8 v1 = 1.7300 n1 = 0.7600 vv1 = 2.4000 @@ -22,13 +22,134 @@ n2 = 0.5924 vv2 = 1.8880 nn2 = 0.6347 ----------------------------- -__ +152-88_6-7 d = -v1 = -n1 = -vv1 = -nn1 = -v2 = -n2 = +v1 =1.63 +n1 =0.856 +vv1 = 2.615 +nn1 = 1.23 +v2 = 2.22 +n2 = 0.559 +vv2 = 2.428 +nn2 = 0.738 +----------------------------- +154-86_8-9 +d = +v1 = 1.82 +n1 = 0.845 +vv1 = 2.34 +nn1 = 1.235 +v2 = 2.157 +n2 = 0.647 +vv2 = 1.76 +nn2 = 1.075 +----------------------------- +156-84_10-11 +d = +v1 = 1.635 +n1 = 0.855 +vv1 = 2.405 +nn1 = 1.225 +v2 = 1.63 +n2 = 0.5571 +vv2 = 1.82 +nn2 = 0.675 +----------------------------- +158-82_12-13 +d = +v1 = 2.1 +n1 = 0.825 +vv1 = 2.555 +nn1 = 1.245 +v2 = 1.573 +n2 = 0.559 +vv2 = 1.35 +nn2 = 0.735 +----------------------------- +160-80_14-15 +d = +v1 = 1.965 +n1 = 0.805 +vv1 = 2.575 +nn1 = 1.195 +v2 = 1.213 +n2 = 0.575 +vv2 = 1.35 +nn2 = 0.715 +----------------------------- +162-78_16-17 +d = +v1 = 1.925 +n1 = 0.805 +vv1 = 2.5 +nn1 = 1.165 +v2 = 1.213 +n2 = 0.57 +vv2 = 1.35 +nn2 = 0.695 +----------------------------- +164-76_18-19 +d = +v1 = 2 +n1 = 0.805 +vv1 = 2.65 +nn1 = 1.175 +v2 = 0.795 +n2 = 0.595 +vv2 = 1.47 +nn2 = 0.655 +----------------------------- +166-74_20-21 +d = +v1 = 2.185 +n1 = 0.755 +vv1 = 2.5 +nn1 = 1.165 +v2 = 1.055 +n2 = 0.575 +vv2 = 1.51 +nn2 = 0.635 +----------------------------- +168-72_22-23 +d = +v1 = 2.155 +n1 = 0.755 +vv1 = 2.62 +nn1 = 1.135 +v2 = 1.025 +n2 = 0.575 +vv2 = 1.44 +nn2 = 0.645 +----------------------------- +170-70_24-25 +d = +v1 = 1.895 +n1 = 0.785 +vv1 = 2.605 +nn1 = 1.125 +v2 = 1.145 +n2 = 0.565 +vv2 = 1.5 +nn2 = 0.635 +----------------------------- +172-68_26-27 +d = +v1 = 1.895 +n1 = 0.765 +vv1 = 2.605 +nn1 = 1.115 +v2 = 1.375 +n2 = 0.545 +vv2 = 1.35 +nn2 = 0.655 +----------------------------- +d = +v1 = +n1 = +vv1 = +nn1 = +v2 = +n2 = vv2 = -nn2 = +nn2 = + diff --git a/Titov.xlsx b/Titov.xlsx old mode 100755 new mode 100644 diff --git a/templates/heavy_case/h____gid_Qw1.nb b/templates/heavy_case/h____gid_Qw1.nb old mode 100755 new mode 100644 index 78f75b1..b66829d --- a/templates/heavy_case/h____gid_Qw1.nb +++ b/templates/heavy_case/h____gid_Qw1.nb @@ -10,35 +10,27 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 399390, 9355] -NotebookOptionsPosition[ 375168, 8989] -NotebookOutlinePosition[ 375597, 9006] -CellTagsIndexPosition[ 375554, 9003] +NotebookDataLength[ 399174, 9347] +NotebookOptionsPosition[ 375132, 8983] +NotebookOutlinePosition[ 375544, 9000] +CellTagsIndexPosition[ 375501, 8997] 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"], + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.991849227197853*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"c5bb4ac7-6666-c043-9d96-2dda1d801f63"], Cell[BoxData[ RowBox[{"f2", "="}]], "Input", - CellChangeTimes->{ - 3.9918492290557346`*^9},ExpressionUUID->"1dc76a14-b094-5f49-81bb-\ -fc37192f9bb8"], - -Cell[BoxData[""], "Input", - CellChangeTimes->{{3.991849229804535*^9, - 3.991849229809536*^9}},ExpressionUUID->"15fe72e6-19f0-9540-b29f-\ -3056e2e0b957"], + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{3.9918492290557346`*^9}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"1dc76a14-b094-5f49-81bb-fc37192f9bb8"], Cell[CellGroupData[{ @@ -1572,8 +1564,8 @@ WfOyBBJy3BbVKYt+SewXTCThaogfjbLRf3Zzi0kk5Mav0aH8P/6R9W4= "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[{ @@ -2904,9 +2896,10 @@ Cell[BoxData[ RowBox[{"xx", "=", RowBox[{"ListPlot", "[", RowBox[{"{", "}"}], "]"}]}]], "Input", - CellChangeTimes->{{3.991799458254999*^9, - 3.9917994623413925`*^9}},ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-\ -a8e133e7a081"], + CellFrame->{{0, 0}, {0, 0}}, + CellChangeTimes->{{3.991799458254999*^9, 3.9917994623413925`*^9}}, + Background->RGBColor[ + 0.87, 0.94, 1],ExpressionUUID->"2d9f4f9c-fc8b-b74d-9e49-a8e133e7a081"], Cell[BoxData[ RowBox[{"Show", "[", @@ -4087,6 +4080,7 @@ Cell[BoxData[ FractionBox[ RowBox[{"Il", "*", "Ih"}], RowBox[{"Il", "+", "Ih"}]]}]}]], "Input", + CellChangeTimes->{{3.99312673568116*^9, 3.993126746164192*^9}}, CellLabel-> "In[262]:=",ExpressionUUID->"00610596-56e0-594e-b937-45ba84f4314c"], @@ -8987,10 +8981,10 @@ Cell[BoxData["0.05576142449710889`"], "Output", "Out[312]=",ExpressionUUID->"14434839-d5cf-b844-b849-b3b3102df434"] }, Open ]] }, -WindowSize->{718.5, 729.75}, -WindowMargins->{{1.5, Automatic}, {Automatic, 8.25}}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, Automatic}}, CellContext->Notebook, -FrontEndVersion->"14.1 for Microsoft Windows (64-bit) (July 16, 2024)", +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"e3389233-59d2-de40-a8d1-08f2aab11400" ] @@ -9005,361 +8999,357 @@ 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[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[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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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"] +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[31449, 1047, 138, 3, 70, "Input",ExpressionUUID->"ba4a3eff-9e3b-5e47-a896-3a959bbbf44d"], +Cell[31269, 1039, 138, 3, 29, "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[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"] }, 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[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"] }, 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[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"] }, 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"] +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[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[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[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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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"] +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[179071, 4062, 245, 5, 70, "Input",ExpressionUUID->"6ecc7e8c-a7c5-354e-b168-749729cd7104"], +Cell[178970, 4055, 245, 5, 29, "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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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"] +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[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[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[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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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"] +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[256315, 6148, 249, 5, 70, "Input",ExpressionUUID->"770a9ed7-7938-9e48-be64-c31719ef3a6b"], +Cell[256279, 6142, 249, 5, 29, "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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, Open ]], -Cell[356545, 8470, 209, 5, 70, "Input",ExpressionUUID->"ea848967-083d-ea47-bce0-5c3b93725916"], +Cell[356509, 8464, 209, 5, 29, "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[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"] }, 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[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"] }, 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[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"] }, 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[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"] }, 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"] +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 ]] } ] *) -(* End of internal cache information *) - diff --git a/templates/heavy_case/h____gid_Qw2.nb b/templates/heavy_case/h____gid_Qw2.nb old mode 100755 new mode 100644 diff --git a/templates/heavy_case/h____osc_Qw1.nb b/templates/heavy_case/h____osc_Qw1.nb old mode 100755 new mode 100644 diff --git a/templates/heavy_case/h____osc_Qw2.nb b/templates/heavy_case/h____osc_Qw2.nb old mode 100755 new mode 100644 diff --git a/templates/heavy_case/h____pr_Qw1.nb b/templates/heavy_case/h____pr_Qw1.nb old mode 100755 new mode 100644 diff --git a/templates/heavy_case/h____pr_Qw2.nb b/templates/heavy_case/h____pr_Qw2.nb old mode 100755 new mode 100644 diff --git a/templates/heavy_case/h____фитирование.nb b/templates/heavy_case/h____фитирование.nb old mode 100755 new mode 100644 index ea258a0..a2293e9 --- a/templates/heavy_case/h____фитирование.nb +++ b/templates/heavy_case/h____фитирование.nb @@ -10,10 +10,10 @@ NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 154, 7] -NotebookDataLength[ 949085, 19496] -NotebookOptionsPosition[ 938717, 19312] -NotebookOutlinePosition[ 939139, 19329] -CellTagsIndexPosition[ 939096, 19326] +NotebookDataLength[ 241603, 5168] +NotebookOptionsPosition[ 230788, 4985] +NotebookOutlinePosition[ 231193, 5002] +CellTagsIndexPosition[ 231150, 4999] WindowFrame->Normal*) (* Beginning of Notebook Content *) @@ -1641,87 +1641,6 @@ Cell[BoxData[ 3.991965146253729*^9, 3.991965149824396*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "nlnum", - "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ -\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ -SuperscriptBox[\\\"2.718281828459045`\\\", \ -RowBox[{\\\"1.5384615384615383`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\ -\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], SuperscriptBox[RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ -\\\"-\\\", RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.8047337278106508`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ -RowBox[{\\\"0.4023668639053254`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ -\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[\\\"0.17`\\\", RowBox[{RowBox[{\\\"1.`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.04998713700356094`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ -RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ -RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \ -\\\", \\\"R1\\\"}], \\\"]\\\"}]}], \ -RowBox[{RowBox[{\\\"720.2371797638953`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\ -\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\ -\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"49\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \ -\\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{RowBox[{\\\"2.`\\\", \\\" \\\ -\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \ -SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"\[LeftSkeleton]\ -\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ -\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \ -\\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\\\"0.17`\\\", \ -RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \ -\\\" \\\", RowBox[{\\\"(\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\")\\\"}]}], \\\"+\\\", \ -FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", RowBox[{\\\"Sinh\\\", \ -\\\"[\\\", RowBox[{\\\"2.152402473559755`\\\", \\\" \\\", \\\"R1\\\"}], \\\"]\ -\\\"}]}], RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"11\\\", \\\"\[RightSkeleton]\\\"}]}]}], \ -\\\"}\\\"}]\\) is not a list of numbers with dimensions \ -\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ -\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \\\",\\\", \\\"b0\\\"}], \\\"}\ -\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.`\\\", \\\",\\\", \ -\\\"0.65`\\\"}], \\\"}\\\"}]\\).\"", 2, 20, 1, 24487566792016397019, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9917125179761257`*^9, 3.991964171446245*^9, - 3.9919651511804237`*^9}, - CellLabel-> - "During evaluation of \ -In[20]:=",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], - Cell[BoxData[ RowBox[{"{", RowBox[{ @@ -1794,71 +1713,6 @@ Cell[BoxData[ CellLabel-> "In[380]:=",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "nlnum", - "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ -\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{RowBox[{\\\"-\\\", \ -\\\"0.2800677099442378`\\\"}], \\\" \\\", \\\"R1\\\", \\\" \\\", \ -RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", \ -RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ -RowBox[{\\\"0.24285714285714288`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}]}], \\\"-\\\", RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", \ -SuperscriptBox[\\\"R1\\\", \\\"2\\\"], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{RowBox[{\\\"-\\\", \\\"1.0408163265306125`\\\"}], \\\" \\\", \ -RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Sinh\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}]}], \\\"+\\\", RowBox[{\\\"0.3469387755102042`\\\", \\\" \ -\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \ -RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ -RowBox[{\\\"0.6938775510204084`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}]}]}], \\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"-\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ -RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"1.4285714285714286`\\\", \\\" \\\ -\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"5391.436356051909`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}]}]]}], \\\"-\\\", RowBox[{\\\"1.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.2800677099442378`\\\", \\\" \\\", \\\"R1\\\", \\\" \ -\\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\ -\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"+\\\", \ -RowBox[{\\\"0.039218961076704854`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"3\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.17`\\\", \\\" \\\", \ -RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"2.2988729554791925`\\\", \\\" \\\ -\", \\\"R1\\\"}], \\\"]\\\"}]}], RowBox[{RowBox[{\\\"67848.64114184062`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}]}]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"35\\\", \\\"\[RightSkeleton]\\\"}]}], \\\",\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \\\"}\\\"}]\\) \ -is not a list of numbers with dimensions \\!\\(\\*RowBox[{\\\"{\\\", \ -\\\"2\\\", \\\"}\\\"}]\\) at \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"y\\\", \ -\\\",\\\", \\\"b0\\\"}], \\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", \ -RowBox[{\\\"1.`\\\", \\\",\\\", \\\"0.7`\\\"}], \\\"}\\\"}]\\).\"", 2, 380, - 164, 24485846962764810879, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9917125235776978`*^9}, - CellLabel-> - "During evaluation of \ -In[380]:=",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], - Cell[BoxData[ RowBox[{"{", RowBox[{ @@ -1900,8 +1754,6 @@ Cell[BoxData["0.605`"], "Output", CellLabel->"Out[22]=",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] }, Open ]], -Cell[CellGroupData[{ - Cell[BoxData[ RowBox[{"l2", "=", RowBox[{"Plot", "[", @@ -1967,5110 +1819,165 @@ Cell[BoxData[ 3.9917168703228035`*^9, {3.991964206647356*^9, 3.9919642192992706`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI -FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T -c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb -poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b -hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN -pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL -3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd -0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR -TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 -2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA -iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h -JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD -GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ -+FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF -cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs -53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw -jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR -XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX -6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB -XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA -4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 -DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 -Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd -EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH -tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 -MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS -nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z -8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K -4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv -9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ -HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t -xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ -+kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ -epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq -+6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw -MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ -odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 -IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe -OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ -7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx -p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH -PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 -PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY -Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 -dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ -Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 -pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn -x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 -zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 -h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR -EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR -2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI -PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS -lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI -jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U -rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM -FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X -71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W -xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 -lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw -f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm -yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc -YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv -NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg -6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K -gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu -GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst -i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ -if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om -TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye -2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V -uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx -f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 -S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q -Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP -Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG -FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 -oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe -/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL -xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K -SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 -l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC -3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ -qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg -pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr -Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 -gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk -I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d -2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO -b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc -YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY -Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P -PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ -oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl -XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c -7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 -XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv -6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo -nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC -1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 -YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 -1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J -2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN -dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y -aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT -HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC -pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG -y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m -6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV -5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw -lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t -bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 -pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 -qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F -2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq -MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP -g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ -BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS -OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W -4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F -6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t -JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d -fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 -HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta -CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy -fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj -l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD -PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 -zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf -gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk -QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i -X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf -BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG -suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe -J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 -9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt -c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR -P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw -WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA -3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle -WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw -7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 -lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK -84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi -t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi -ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA -e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf -n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi -s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l -sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 -R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj -r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 -28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg -3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz -8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn -F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs -otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW -/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H -1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 -2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX -Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu -JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr -X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE -xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX -b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz -9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 -Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 -PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY -qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY -lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX -fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH -x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 -kmnLTOSSOsM4cpjN+h9wgfLj - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ -JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ -DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz -RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD -Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT -icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd -KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT -iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX -SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs -ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP -KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC -knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ -qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii -l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik -B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV -ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 -HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ -9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj -f1iXUS3onbM8+P//9RzO/QdxUvrI - "], - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp -ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO -4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO -/8EvVhqqdA== - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI -FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T -c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb -poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b -hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN -pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL -3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd -0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR -TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 -2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA -iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h -JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD -GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ -+FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF -cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs -53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw -jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR -XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX -6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB -XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA -4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 -DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 -Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd -EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH -tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 -MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS -nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z -8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K -4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv -9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ -HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t -xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ -+kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ -epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq -+6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw -MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ -odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 -IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe -OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ -7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx -p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH -PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 -PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY -Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 -dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ -Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 -pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn -x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 -zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 -h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR -EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR -2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI -PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS -lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI -jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U -rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM -FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X -71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W -xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 -lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw -f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm -yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc -YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv -NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg -6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K -gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu -GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst -i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ -if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om -TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye -2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V -uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx -f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 -S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q -Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP -Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG -FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 -oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe -/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL -xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K -SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 -l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC -3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ -qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg -pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr -Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 -gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk -I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d -2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO -b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc -YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY -Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P -PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ -oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl -XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c -7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 -XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv -6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo -nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC -1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 -YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 -1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J -2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN -dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y -aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT -HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC -pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG -y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m -6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV -5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw -lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t -bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 -pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 -qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F -2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq -MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP -g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ -BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS -OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W -4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F -6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t -JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d -fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 -HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta -CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy -fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj -l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD -PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 -zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf -gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk -QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i -X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf -BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG -suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe -J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 -9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt -c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR -P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw -WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA -3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle -WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw -7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 -lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK -84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi -t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi -ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA -e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf -n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi -s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l -sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 -R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj -r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 -28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg -3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz -8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn -F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs -otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW -/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H -1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 -2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX -Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu -JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr -X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE -xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX -b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz -9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 -Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 -PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY -qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY -lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX -fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH -x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 -kmnLTOSSOsM4cpjN+h9wgfLj - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ -JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ -DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz -RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD -Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT -icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd -KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT -iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX -SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs -ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP -KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC -knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ -qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii -l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik -B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV -ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 -HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ -9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj -f1iXUS3onbM8+P//9RzO/QdxUvrI - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK -JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f -PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY -gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt -Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R -n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY -E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy -xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ -jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u -QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz -p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL -KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 -n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 -1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO -4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 -RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr -Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY -tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R -fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 -ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt -CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 -QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 -m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj -NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 -S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 -kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog -r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH -5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 -Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 -D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y -1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 -rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ -ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG -6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW -+DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD -pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO -BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 -y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu -RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN -3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 -jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk -ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS -cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl -YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol -kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG -RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH -bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ -uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc -nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 -WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 -06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z -QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk -vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 -9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 -9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 -fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj -ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC -8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k -AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p -sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP -myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL -WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW -SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ -qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI -i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl -AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ -eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf -joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H -35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC -ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn -DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm -gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r -29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw -xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H -/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd -E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 -bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR -UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE -wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 -iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 -viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr -8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y -/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX -mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l -7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 -H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW -cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD -3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s -eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g -r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc -V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT -F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba -XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN -nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf -XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 -lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo -LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM -0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 -G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae -q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg -KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 -0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ -P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB -QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF -k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk -oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj -HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V -VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g -hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 -M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 -qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R -Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI -Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m -Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ -8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR -bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj -vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI -jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F -Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo -wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ -Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c -pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s -uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl -chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 -MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b -N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq -8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 -G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm -RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM -V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK -fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN -4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 -BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G -2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO -LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 -Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm -hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 -POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v -k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG -XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt -HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC -blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh -hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj -p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez -g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK -C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S -hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M -3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 -6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO -2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY -oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY -WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz -UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu -ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv -GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD -DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 -x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI -DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK -VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ -31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y -6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP -/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl -O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ -2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D -uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET -R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq -mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z -7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR -XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO -KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be -foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 -Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL -L0t12az/AVUz8uM= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK -JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f -PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY -gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt -Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R -n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY -E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy -xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ -jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u -QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz -p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL -KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 -n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 -1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO -4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 -RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr -Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY -tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R -fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 -ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt -CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 -QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 -m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj -NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 -S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 -kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog -r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH -5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 -Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 -D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y -1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 -rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ -ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG -6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW -+DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD -pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO -BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 -y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu -RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN -3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 -jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk -ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS -cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl -YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol -kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG -RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH -bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ -uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc -nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 -WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 -06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z -QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk -vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 -9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 -9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 -fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj -ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC -8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k -AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p -sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP -myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL -WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW -SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ -qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI -i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl -AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ -eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf -joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H -35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC -ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn -DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm -gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r -29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw -xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H -/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd -E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 -bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR -UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE -wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 -iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 -viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr -8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y -/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX -mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l -7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 -H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW -cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD -3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s -eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g -r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc -V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT -F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba -XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN -nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf -XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 -lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo -LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM -0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 -G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae -q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg -KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 -0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ -P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB -QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF -k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk -oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj -HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V -VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g -hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 -M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 -qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R -Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI -Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m -Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ -8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR -bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj -vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI -jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F -Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo -wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ -Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c -pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s -uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl -chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 -MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b -N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq -8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 -G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm -RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM -V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK -fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN -4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 -BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G -2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO -LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 -Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm -hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 -POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v -k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG -XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt -HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC -blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh -hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj -p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez -g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK -C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S -hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M -3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 -6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO -2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY -oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY -WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz -UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu -ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv -GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD -DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 -x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI -DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK -VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ -31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y -6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP -/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl -O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ -2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D -uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET -R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq -mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z -7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR -XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO -KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be -foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 -Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL -L0t12az/AVUz8uM= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI -FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T -c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb -poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b -hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN -pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL -3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd -0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR -TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 -2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA -iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h -JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD -GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ -+FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF -cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs -53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw -jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR -XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX -6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB -XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA -4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 -DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 -Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd -EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH -tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 -MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS -nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z -8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K -4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv -9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ -HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t -xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ -+kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ -epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq -+6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw -MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ -odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 -IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe -OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ -7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx -p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH -PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 -PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY -Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 -dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ -Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 -pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn -x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 -zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 -h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR -EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR -2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI -PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS -lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI -jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U -rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM -FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X -71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W -xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 -lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw -f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm -yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc -YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv -NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg -6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K -gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu -GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst -i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ -if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om -TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye -2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V -uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx -f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 -S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q -Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP -Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG -FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 -oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe -/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL -xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K -SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 -l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC -3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ -qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg -pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr -Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 -gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk -I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d -2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO -b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc -YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY -Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P -PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ -oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl -XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c -7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 -XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv -6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo -nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC -1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 -YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 -1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J -2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN -dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y -aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT -HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC -pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG -y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m -6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV -5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw -lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t -bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 -pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 -qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F -2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq -MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP -g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ -BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS -OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W -4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F -6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t -JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d -fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 -HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta -CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy -fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj -l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD -PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 -zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf -gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk -QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i -X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf -BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG -suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe -J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 -9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt -c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR -P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw -WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA -3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle -WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw -7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 -lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK -84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi -t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi -ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA -e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf -n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi -s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l -sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 -R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj -r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 -28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg -3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz -8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn -F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs -otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW -/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H -1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 -2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX -Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu -JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr -X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE -xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX -b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz -9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 -Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 -PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY -qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY -lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX -fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH -x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 -kmnLTOSSOsM4cpjN+h9wgfLj - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ -JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ -DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz -RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD -Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT -icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd -KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT -iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX -SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs -ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP -KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC -knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ -qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii -l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik -B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV -ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 -HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ -9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj -f1iXUS3onbM8+P//9RzO/QdxUvrI - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK -JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f -PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY -gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt -Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R -n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY -E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy -xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ -jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u -QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz -p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL -KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 -n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 -1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO -4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 -RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr -Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY -tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R -fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 -ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt -CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 -QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 -m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj -NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 -S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 -kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog -r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH -5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 -Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 -D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y -1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 -rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ -ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG -6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW -+DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD -pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO -BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 -y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu -RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN -3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 -jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk -ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS -cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl -YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol -kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG -RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH -bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ -uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc -nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 -WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 -06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z -QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk -vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 -9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 -9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 -fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj -ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC -8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k -AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p -sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP -myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL -WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW -SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ -qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI -i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl -AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ -eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf -joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H -35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC -ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn -DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm -gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r -29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw -xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H -/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd -E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 -bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR -UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE -wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 -iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 -viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr -8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y -/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX -mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l -7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 -H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW -cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD -3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s -eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g -r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc -V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT -F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba -XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN -nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf -XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 -lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo -LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM -0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 -G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae -q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg -KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 -0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ -P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB -QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF -k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk -oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj -HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V -VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g -hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 -M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 -qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R -Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI -Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m -Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ -8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR -bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj -vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI -jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F -Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo -wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ -Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c -pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s -uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl -chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 -MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b -N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq -8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 -G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm -RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM -V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK -fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN -4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 -BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G -2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO -LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 -Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm -hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 -POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v -k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG -XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt -HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC -blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh -hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj -p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez -g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK -C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S -hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M -3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 -6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO -2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY -oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY -WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz -UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu -ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv -GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD -DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 -x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI -DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK -VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ -31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y -6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP -/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl -O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ -2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D -uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET -R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq -mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z -7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR -XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO -KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be -foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 -Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL -L0t12az/AVUz8uM= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{4.000000000000009, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{4, 12}, {0., 0.8911371422921853}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{ - 3.9917125835721416`*^9, {3.9919641980249367`*^9, 3.991964219779398*^9}, - 3.991965174909437*^9}, - CellLabel->"Out[23]=",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] -}, Open ]], - -Cell[CellGroupData[{ +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519988325634*^9, + 3.992519988329919*^9}},ExpressionUUID->"41956e1f-1f68-414f-abf8-\ +1d85f5f909bc"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"l1", ",", "l2"}], "]"}]], "Input", CellLabel->"In[24]:=",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925199899203997`*^9, + 3.9925199899251423`*^9}},ExpressionUUID->"6703284e-71ee-2b49-a42f-\ +e34e32f0c333"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "0.897", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "1.212", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "12.5", ",", "\"\\""}], "}"}], ",", "0", + ",", "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.99248888256117*^9, 3.992488882561576*^9}, { + 3.9924898030592337`*^9, 3.9924898048942127`*^9}}, + CellLabel->"In[1]:=",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], + Cell[BoxData[ - GraphicsBox[{ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI -sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY -WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I -mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 -HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W -QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 -doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s -EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 -XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm -l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo -cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I -T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig -lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E -WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 -hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq -+rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe -ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK -XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m -QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX -U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV -UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp -KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ -od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN -L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ -Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa -VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo -brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw -ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI -zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX -3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u -ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF -XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb -xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 -PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd -iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 -M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV -VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v -mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ -mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy -HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW -aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh -M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I -1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D -nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G -jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete -avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi -hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE -5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH -9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv -ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm -imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z -9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH -XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf -SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv -71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy -2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ -YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ -cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y -v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv -w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW -4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT -32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac -OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN -rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X -nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ -ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx -+N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz -UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM -XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg -3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA -ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ -AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj -BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei -OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u -EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 -ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB -fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh -0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX -L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P -e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ -f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs -x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW -2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 -ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj -E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 -m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf -rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz -hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm -vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai -hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN -TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f -MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h -hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z -Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o -5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 -xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt -S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk -GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 -TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ -8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ -/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS -CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q -kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl -4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 -JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 -kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M -fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu -5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G -1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p -q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s -8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT -u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx -WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 -M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm -w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ -sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC -Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w -1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ -uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA -fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E -O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO -AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC -90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 -5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC -gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm -kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod -Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV -YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O -FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR -qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ -SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ -lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e -HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 -Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz -P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm -eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F -q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk -LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G -xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw -6d9tC3dVGfgfYapo5w== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI -sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY -WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I -mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 -HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W -QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 -doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s -EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 -XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm -l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo -cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I -T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig -lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E -WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 -hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq -+rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe -ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK -XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m -QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX -U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV -UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp -KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ -od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN -L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ -Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa -VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo -brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw -ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI -zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX -3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u -ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF -XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb -xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 -PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd -iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 -M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV -VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v -mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ -mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy -HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW -aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh -M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I -1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D -nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G -jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete -avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi -hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE -5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH -9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv -ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm -imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z -9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH -XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf -SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv -71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy -2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ -YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ -cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y -v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv -w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW -4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT -32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac -OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN -rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X -nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ -ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx -+N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz -UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM -XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg -3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA -ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ -AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj -BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei -OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u -EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 -ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB -fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh -0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX -L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P -e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ -f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs -x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW -2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 -ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj -E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 -m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf -rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz -hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm -vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai -hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN -TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f -MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h -hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z -Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o -5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 -xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt -S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk -GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 -TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ -8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ -/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS -CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q -kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl -4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 -JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 -kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M -fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu -5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G -1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p -q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s -8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT -u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx -WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 -M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm -w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ -sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC -Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w -1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ -uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA -fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E -O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO -AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC -90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 -5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC -gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm -kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod -Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV -YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O -FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR -qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ -SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ -lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e -HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 -Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz -P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm -eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F -q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk -LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G -xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw -6d9tC3dVGfgfYapo5w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {3.0000000000000067`, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {3.0000000000000067`, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3c0Fu4XpyR7y369g0hGWRG5t4hQVkJCdpRkkyQyQkbISCo7I98yMkpI -sqKUnRBREu+rJSR+fn8953PuuZ/7+dzzPPeeh+R4wcxlCx0dXQY9Hd3/z7oY -WV46OiZkIyWIycfQoCnqY7ELAxMe+sowV3uNBm1Xb2q9YmLCVOW72gc3cX/I -mns6NxNWHorMNoumwaJXd7MshQn1Z/aOXIikgfRJD8+Tukyo0+cndjOMBpm7 -HnRWxjOhYtuNurAgGtzbaX9aMHmTb0zf5G8gDYoofL8vpzFhwqlJV/9NXC0W -QtS/y4TLLzo43AJo0Mt9NHDiIRNmbFPQ1POjAdPqNwm2PibM0fwvd/4CDQK7 -doe5CDFjEq+iRK8rDaa/B77YRWDG0y79S7Kb2EyolZFKZsYVllVCrAsNZN1s -EgJkmXG2hXwenGnwcVtC1jVgRtY6Tmq+Aw0MDlKrS1yYsSz9yldDGxoQ6h59 -XahgxjsHNsZ5TGlwfWJNtrKGGYevVrKcNKHBMqO+V8BTZly/YOZ/15gGfScm -l9ZbmfGJgjWDlBENYn5yM3ANM6PWFe9f8oY0+CHvS1BcZ8bM0h5vocM0eFmo -cjzAgAXlny64HFejAccRUv1XIxaU7o1aSdhHA4s5NnHb4yxY+aPvdbsqDb7I -T89p27DgH4lRDXUVGjDXpVzl9mRBUyE/Nl5FGhzrolU8SGZBQ5fV+dzdNBig -lnB9GmZBu/WIWinCpp/ktACLMRZ8VPdwp74YDVyVwj90TrJg3lhHs7soDf4E -WhU/mmNBKedWn2JhGgjRb8fQNRa0/dxWJyJAA1te5wtCRFbU2H2YPMJJg5l9 -hNfGZ1hRJ714qYSOBvFJpu8fnGPFLZoUxeoNKih/ifzM7MWKpzjqY56tU+Fq -+rf1F0GsWCckGtmzRgXi7zoFtThWLI7+emdqmQo2lceTieWs6BK8o/zjIhXe -ycaaf//BigsP0zJ2fqRCcGSDvdEfVoz7RCzjmaAC6QPNo+wvKx69Mdn0b4wK -XtctolwY2HDH3pyvvaNU4Jij1IzwsyHLDs2d54aooH+/UaBFjQ1Fd5pFeL6m -QjPp1/uUUDYMYzlfUvqUCq/zm24aRbChhxLvgvUTKoxKXjdiiWHDxA/3PjHX -U2FpF7klPJkNmxvrp51qqCCnaFLiVcCGvAFj/EwVVMg69CDQqIsN7yoVSHMV -UcHfyZmPZQc7wl396zuSqCBT2H8svJwd+ySO+zy2oQJvHsjMV7Bjm2KwheQp -KqzdLWW0rGHH1b6Ut6knN/VkhjXJNrEjZojHeFhQwSdedu9wLztKFqkMsZlQ -od43kk/hFzu+cBrb2K5NhSOHlEc/7OfA3Ie7vT9KUcFlItVNrYMDb0bqVwzN -L0A1Y8YP+h4OfHOs4eCTuQVgkM8KefWWA58qD/VmzS5AXkjODbtRDiwdKZg+ -Mb0A40LldZFUDgy6Nfy4anQBrMzbmN7yceIUj0s6W9cCGHQuF7s7cOKo8AWa -VOECKFTZfs1a5cTcE4KGxeab+UnFQkYbnChjSxBgMVsA3ZqVArotXOhXLZzo -brwAv1J0BqoYuVBEIiyAZLAAJkffqwhzcaHcSO1Wf1gApqZtfz6TubAgSKSw -ZNcCXCywuRh2hAulWh7cP7A2D9YXWEKrUrnQ1TKo+/GteRC/feX+dBoX/hBI -zShPn4fptl+9/Jmb/LpAn586D+cJE5SgbC6U/0Mqi06Yh7Ceqk7NQi70WFhX -3hs+D4W7bfnbarjwxHA3PY/bPCx+efhgeIQLFfxqsleU5iHa/sToP3FuPK4u -ekek9RuE5qafsiNzo9OA6Syp+RsETA2NNkpwY69VE4tkwzdwcbb+cGUXN3bF -XXtDqv4GOm6nx+iVuNGwaeve3/nfYKuX+8Q2XW48X2ouvCXiG4RdufyJ3YMb -xwzecZVpfYOLdwu/idVxo3fdEt2vsjkY2DdjTNblwfXcRolGv6/AcVnk8qm3 -PJg9cnrjCO8scHJa2p5140U71/ci/+w+Q9BaeLLtb14kJmZqptyehhLVyqCd -iXx4c+jy/Zr4KagTHZGWkODHwfDImgmvj6BgR5NlfMSPEk58bxbmPoDnPMv0 -M70dqOVtVLrryTDwD/LTTg7swEsZynu8mAcgkm1n+StPAbyq+avqi8NbeEuV -VfbZJojf/35RajjbDdGyFM5/yYLIVfLC1PlIOzwSPpVsd1MQy9OOH3yt1A7v -mVJ5m9MFsVqy4rSueDvIz2wRjLgtiEWFJILDUhsM3pkiMhcKImmObI6FbSDJ -mafIXyeIvNe/s+dva4PW70QLuXFB5JOzTJrqbYWttYQ7tjJCOFETPeRxowWy -HIsepcsK4X/fVLe7h7WAIod86xt5IeRq6Kry8moBR5cD3w4qCWHF2iOfPJMW -aOa1Ud+pKYTD8q84k7hbIMTr1gD1mBCWdkktx6Q933z/fBxh3kIYuj2e7mNh -M8xmM1/JqxPCpM7mHaTXz0CB8til94kQ+ny2LeSrfgYBJfZH1xuEsN9c659I -1jNgqKkVsn4uhLVSQZMurs+A+MalmrtLCP/cLTozs9EAJ+lbvoaNCqGWnn5D -nGoDdLkEm59eF0LvVCtz6conUCb/bZeojjD2vf350u9jLezscjxzUVcYrQ4G -jO/vrIUcl/cFg0eEUVDAE/kra+Fmdqd48jFhfGjyqowxshZCWIr5GS2Fsete -avl76Vow+uxMv+gujO22aR0aATWweGd8+EWSML5YLRyMEn8MKuzvrp0bFcbi -hMot1iWVIOp6yyJnbDNu7FGxPbMSGJrsJQcmhFHlZLtia3Ql9HvRWrSmhfGE -5VKEu3Ml+PWzrXMvCCNJg6blTKyEytt6fnXrwhjO+X0H9+0KkJd5Zr+NLIJH -9+f+orv9CKT1itXvuYlgbu8ec77octB+rHF66zkRZJU/fWfmTDnYUd5Enjkv -ghtBUlN9+uVwc+P3GwUfEVwzvb7OyFEOG7Xars2XRDCBcm6mNeMBDEpPpEwm -imDaz9WSuEdlEMWyY57yWASHS4qTspZKICeohDumVgQl/dpqx0ZL4MlnzX3z -9SK46Gz7c//zElhscbpa3SiCJ88YGmrHl4DNpQrBwx0i2JdjyR5LKQHl+aOH -XUdFkDr0J3TAohimeiLuFtOLoqAbcWXkTRE82KGRQc8gimm//7jk1xVB4Okf -SdaMosgzsMs6IrcI2L7bh7OxiqLCB/64aN8iUOHTcvbiE0UHb/JMhmARxFgv -71KTEsVjhTuyBlwLQf6Lx+P2o6LY0hQjpcZbAMF0Ft2fM0Sxz6IkJvt+LlQy -2loIZIlizhJqlqfnwhyb80e9bFE8OfY9qycqF6yFfH4V54jif0X8Egecc2G/ -YqLouRJRpDqWLg6QcmHVqc2D9kQU14wqvk3dy4HgdlX25TFR1ErCnUSje1DZ -cyBD+qMo3i3b0b+icA/m+nRIJ6dEcWKiKo/GfQ+sP5qpPPksirdCTqHC4F3Y -v+JpG0ITRZ2Un31/T9+FVZn75XT0Yji0N9TwcdAduJQoYMQsIYZi763TGRpv -w+eSOXn3nWLY7t9b8T3nNpi9fMbZKS2GL1OXz69F3AbpNae3MXJiGCXcaHHW -4Db0uz8yZ9onhhyXBvoKhrNA7rD+qe0GYngsv25HyOotmPgb7LbNa7Oe9SOT -32aZYCBgpO/iI4ac5pwKDuqZUKNIknnpJ4YjDcRjX8QzId69/VvkRTEMNJac -OriQAWpDvBcYIsTwSRNHiVxsBiRXPvDfmi6GjJJDDZ0v00HbffwqfYMYRoxN -rriZpoHoIfrfao2b+ipMmc9ppsEvYYkzXs1imPFg1DxcKg2Kut0NJ1o386/X -nJj7dxNY9vzmfdYjho7jystlZTehd4m1MGhCDBXyeZrHWG6CTaR6O20LAeU+ -ZPiEDqWAiq2NutQ2AgqFy7HOtKYAh+qVMrvtBHws7ltsW5kCTV9ak3pYCXjx -+N/yyIQUIBuaWJXxEbC7+xZPsU4KzHKf+eq6k4C09aNjKjXJ4HfvJuu4PgEz -UVruX+ENWDMbNWE5SsBbtoMdQ2k3IJKRnK5qRMDlI96vnkfdgLTzD4lJZgRM -XqrofuFyA2o0ulTwFAE5/aaUQ3fegOWhjdN5HgQMov8wHnYiCS5xnat2TSJg -3uEpyX0hCcDQWrGSkkzAsOv2n26cToD4wGWtplQCcklTORm1EyB7PKpTIJOA -ZxesTQ6xJEDDg5zxjhwCMj89UrpxKx7Wjwwy7a4k4LW2p7OBjdfhavhBW1o/ -AXvbBHZXC8eBloH5isEQAf86rzygbMTCCs+ZtKIRAppX5809/BQLXgXxPbbj -BByueSZBKI8F2/ahA91fCOh8W/es0cFYUGP3JJSsbtaXK9Sd8YyBhcysCUei -OGYHLMrLjEdDsUP5pUayOJZysdStvowGZ5lmAWFJcRTQo4+fLo+G909njN/u -EkfXP1C+NTQaOsb3NIOSONpLXN5+Xjwa8iTac0R1xTF4cj/doGsUWD366TB4 -ThxH/j7YeWJ7JISrWiQxe4pjdIzOx9ifEVDaUNeg6SWOz0aqlt9ORMBax2WB -fD9xpMHo39t1EZAzub3nwmVx/K1sosd/LgJmeUTVmJPE8VSsLEtC31UI9Nfh -0KwUx23xgzb8leGQ87dI40K1OK7qf1FJzQmHjnBm97wacfzYZalBTgoH4cTX -L5ieimN4pEqsr0c4NBZZXRx4IY6RxoYuk1LhwDjsMe05sOlvuPfnaG4YpO9P -e5K7LI6X5hPUG7SvwI+BF1oMf8WRcVpTTZZ8BYy9f7S4/hNHE2v+5Sa6K8DQ -f3+Gn56IabNnJM0aQ6GBZRv1/TYiRpd/khTTCAXZoKZ1Z04i/ratqZLTuAxs -x5WJF8lEPP9YXhHNL8GTHEPHUgoRmZ4NXZpSvQRuVMeCUQki5q43iBUIXYLW -2GRpLSkiyjJYfY6cCIaQZuqerbJErFqkLdV5BMOCXMnBBBUiDu5p//Q6/iK8 -ZiI45R4hIk1wjHFoKhCUVMbON+oTEesvxI90BUKmQ3bQqAERI5ctGX9VBoLj -E+FE/mNEtJSuCvKKCITf5wTqY02J6Ktq3B4pGQiib7g4fayJ+N/xmD5GzwA4 -m7b16SEPItZ/fOrYx+kPb563vDx9noh57nHmxat+oEwN7w3xJOKy4JBXyowf -rOvSfa7xIqLAvX0DhU/9IHl5jWu3PxHj9mRtb3fzg7pTS668oUR0G8mWnmzz -hW3krzzTSURMrhdg/ZrsAy0a+6/9vUHEv6fTm29d8YHQE9f/8qQQsYa1x9Pm -vA8sx8hNH7xJRPaMmAsC+j4wR/N+fC+TiN+9P4s60vvA62erlqdyiSj045ai -hr83ZJ5ku/OukojvevIXr7l7gbmvLfdcFRGzG2KFLU96AXfCf1H0j4kYzLpN -TlXfC+KaTTz31BLx1ERrD2WXF1zenHmJTzf7M9l9L6DvAjj+FpvSbyUiWU1f -MnvUE3YnK0g9HyCio0VGi+qW83D18WfdxUEipvpaDe365AHDI3dcxYeJ+I8h -hkWr1QMiyWxFl98TsSWEBTujPeBD1azE/gkimlWHCp9h94DEwVxy1SwRW79Z -Z+URz8GiCB+h8C8R98/qOO+xcwddfHWgf42IIQTyVkZtd8h2vmq7dZ2IJ55o -5i1LucOR8sVsBzoSxovsc1X+4Qa5Wj0ihG0kpDPOfbglxg3MHKKFMjhI6H77 -xNaPdWegumiZL5ZE2vwvqYy/lXeF5yWW//LJJCTuF9uXL+gKrx/UzDRSSHgt -S/lh3BZXmK30q/klScL0Ze3C24MuINq0aGkvQ8IvZ7v0Xlxxgcih2ax9SiTk -GJLK3zHoDMeZRoifdUi4FFA6pJHiBPasasz0uiRsHZHaVRzqBB4cGd9F9Ej4 -TGxsq/Q5J4jmO9Fiqk/Cny6u2x11nOAJ8a3Ts2OkzX1qJ/vsjyOQ1TuLblqQ -8JbPqMWGgyP8cK+X1XYjIctJZXVFHQfIDAxt9nff5LM6qx281wEgStu8+CwJ -/802JAwSHCA+p+cS+3kSSrVfv/5qxR52Dk12DXmTcPDco9cFj+zBWofF3eMS -CR2IBwboyfbQQjhVmJa4qddnO0+ZpB24yRLVO5JIKForw73KYAec+2e6V2+Q -kKTL6OsxbQs2Jy78Op1KwoBs97Yn+bawdD1CWyaThJVjdrErFFuQWSmbbMwl -4V2bR7RxGRtI7VsTm60moXmOWstRU2tIeX1chL+GhI/vJXHrqljDjc5SwUO1 -JPSuUJCzFbKG+CYr3ux6EgbVCBlOT56EqLJqJpNGEkbdD35s5ncSAiM8fta2 -kzB366RR2l0rOKX0oePaexLO5yd5f9xuCdbySm3VoyTc3dV13YpmAVa74l5M -fiBh2/idZ3ODFmAurtaoMUHCU2H+KzZFFnCM9WYV7RMJ356UeeevawHwyfCu -5QIJXSLfnHG4fgIoqU99pejIeChOZspNyhyGPZ6oIz15c34wz9nzmkOibv2G -1RYyBm937ffYOA7LKzXX4xjIGPBhlr556Dh021fmLzCRccg/5I5p7HHwky/p -q+Im43DISzruRTN42ZmuhBQycitZZl1+ZQrB+WkrVhJkLFX9ptZTbwp7Lt9s -8pYk459IHjf5YlPI2pNimC9FxhdNiYqSUabgmZHgxChLxr0VkmlTYAo7XCJT -u5XJyHQ59GFCnQmcofP5aaVLRtkRH5KThzHUTA86x+qR8f5r9XeRBsbA0Kkx -WH+EjM7tLH+7pI0hL3lbvbAhGZNq5ARbZ4zgA/lW6AdjMp46a3LQxcEITA83 -M9ufJOOjOvGxg6ePgUYcB/GMBxkvP6v9au9nCHGevskZ58loVhLY3GFhCMNm -w1s6PMlYf4wr0ETdEAJE8makvcmY+XV4tXHdAB49UCmb8ydj7SSliO+6AUi+ -sVH1vELGwS0/j0aV6AMnX9lR/xQyDsT1i95a0wO+odro5FQy+t5L+uE7rQfC -Wa3N5TfJ+I7zJfeZbj2QII4rf04nY0Ub5VVath7sl+UWs7xNxujigkgeLT1w -1QlcUCsgY4mNorpflC40+mknrj0mI2VU+4Gq5GFo3WfSIVhLRqIhy/4FzsPQ -uWqzRaWOjP4f1BTrV3WgPywg4PwTMsrT3rIm9+rAXHyJ3XgjGTfSmji0LusA -fyGnQnM7GT3NI2jB77XBY2D0TcQIGY/taNX4nn8IOqOCfbPek/GcUD9cTz4E -O1WFBCpGyXgiSvDsviuHYDLdwm58bFNPTfvXl9aHwMLq7bzaFBk1Rc0L63kO -AYy2MVPnyGgundQyH3UQeCYrtK3WyLj74nIty0WEC8kmXzz/kfGOwaRUhxtC -90FaXNQ6GcPbovPSrBCi82TfVdJRcKF3OMheDeGv03179m0U3JHvNnPmO8D0 -5+zLLewU9DtfJRu7rAW189dqZcUpmLMgya4ndgD+ux/PeIpIQfk3538KrWtC -gWPyiVgSBbeNa6lxTGhCynDWzxkKBW98nzayztUEj9ZyhXvSFHx6zu1diJQm -kLP77nMrUtAq1K6xW10DEg3FM5d0KMg5Lcz4wF8dohglvkjoUjC+icHVzVod -Qp5Lqx7Xo2Ce9unfB0Ed3Pcp9j/UpyDzrWLJo8zqoEM5zOVuREExrpyz9XfV -YHX1bMyoJQWD/8HUh9f7wLW0Jqj5LAVfLWX8DtJWBT4dpxvvz1GQ3iUxS01O -FZ6PcRb/8qDgy++DwRwCqiDK7T4kfYGCS49Kb67NqcC7QBHVZF8KqngefjmR -qgJwOOynQwgFZ95tEB9+VQbBj/qeWxMpCEom5uMFStB2cSlKLImCFMe2LZrJ -SuDLm39n3w0K9jBHGJdfVoLXumvd51IoyGYQ7d9loQSR5f/t7k/f9AO/+uaZ -lWAxmPdrwT0K7r92ReS5ryJ08o856VZQMGa/dK3kib0w57ffILySgnaxAf/e -HNwLLP0ZexqqKOhoPtiXJL8XDFLM/u2toSBv+PNeY6a90MXRkS72lILlVh+8 -Xjfsge7tVZ2/Wik4bMLZU7FrD7xeiVHIH6ag8X8tGdMS8kC1+sw/PkJBvrkz -P7W3ygNHnfaa4CgF68nHejsm5cAoYL0jcYyCxNMdrofuycGbH76OwVMU/GSm -eWVRRA56v9mlmc5v3gfvpXo+UVlYNGi4FL9AQcKv3l91a7uBq1TIsZ1KwY5F -q11hY7vBxK1f/sB3CmqpF3wKuLcb3k7rd0gvUbCYfoszveRu+KF9/z+nPxRk -LKDtrWfcDTz5DGl3lynoZWzcljIrs7nvmxz4/lLQQIxWVvpABnyaRY8Yr23G -xWwrZxNlIEU8WD7uHwUvRWV+1fOWgcrQIb6X6xTcR8mR7TguA+/GlP9ubFCw -6d9tC3dVGfgfYapo5w== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{3, 10}, {0., 0.9853735520528359}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {3.0000000000000067`, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI -FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T -c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb -poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b -hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN -pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL -3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd -0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR -TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 -2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA -iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h -JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD -GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ -+FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF -cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs -53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw -jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR -XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX -6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB -XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA -4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 -DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 -Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd -EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH -tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 -MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS -nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z -8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K -4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv -9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ -HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t -xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ -+kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ -epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq -+6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw -MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ -odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 -IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe -OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ -7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx -p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH -PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 -PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY -Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 -dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ -Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 -pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn -x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 -zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 -h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR -EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR -2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI -PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS -lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI -jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U -rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM -FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X -71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W -xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 -lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw -f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm -yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc -YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv -NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg -6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K -gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu -GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst -i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ -if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om -TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye -2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V -uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx -f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 -S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q -Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP -Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG -FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 -oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe -/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL -xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K -SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 -l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC -3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ -qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg -pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr -Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 -gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk -I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d -2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO -b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc -YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY -Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P -PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ -oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl -XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c -7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 -XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv -6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo -nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC -1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 -YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 -1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J -2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN -dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y -aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT -HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC -pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG -y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m -6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV -5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw -lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t -bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 -pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 -qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F -2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq -MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP -g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ -BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS -OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W -4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F -6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t -JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d -fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 -HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta -CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy -fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj -l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD -PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 -zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf -gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk -QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i -X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf -BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG -suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe -J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 -9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt -c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR -P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw -WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA -3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle -WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw -7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 -lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK -84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi -t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi -ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA -e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf -n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi -s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l -sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 -R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj -r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 -28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg -3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz -8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn -F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs -otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW -/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H -1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 -2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX -Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu -JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr -X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE -xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX -b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz -9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 -Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 -PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY -qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY -lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX -fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH -x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 -kmnLTOSSOsM4cpjN+h9wgfLj - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ -JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ -DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz -RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD -Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT -icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd -KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT -iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX -SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs -ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP -KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC -knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ -qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii -l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik -B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV -ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 -HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ -9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj -f1iXUS3onbM8+P//9RzO/QdxUvrI - "], - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJztyrEJgEAURMEvGtiGrWhgYmQJBsKBcODZu6kaCHZgMsnCY6db8ryeVURp -ImJK5Vjv+FT9VHvPPPZD3vKenj/FOziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO -4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO4ziO -/8EvVhqqdA== - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI -FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T -c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb -poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b -hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN -pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL -3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd -0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR -TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 -2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA -iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h -JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD -GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ -+FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF -cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs -53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw -jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR -XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX -6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB -XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA -4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 -DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 -Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd -EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH -tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 -MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS -nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z -8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K -4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv -9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ -HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t -xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ -+kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ -epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq -+6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw -MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ -odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 -IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe -OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ -7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx -p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH -PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 -PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY -Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 -dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ -Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 -pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn -x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 -zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 -h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR -EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR -2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI -PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS -lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI -jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U -rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM -FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X -71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W -xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 -lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw -f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm -yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc -YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv -NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg -6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K -gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu -GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst -i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ -if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om -TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye -2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V -uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx -f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 -S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q -Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP -Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG -FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 -oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe -/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL -xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K -SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 -l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC -3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ -qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg -pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr -Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 -gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk -I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d -2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO -b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc -YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY -Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P -PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ -oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl -XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c -7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 -XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv -6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo -nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC -1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 -YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 -1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J -2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN -dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y -aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT -HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC -pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG -y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m -6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV -5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw -lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t -bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 -pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 -qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F -2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq -MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP -g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ -BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS -OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W -4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F -6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t -JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d -fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 -HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta -CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy -fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj -l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD -PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 -zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf -gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk -QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i -X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf -BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG -suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe -J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 -9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt -c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR -P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw -WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA -3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle -WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw -7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 -lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK -84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi -t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi -ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA -e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf -n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi -s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l -sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 -R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj -r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 -28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg -3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz -8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn -F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs -otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW -/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H -1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 -2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX -Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu -JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr -X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE -xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX -b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz -9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 -Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 -PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY -qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY -lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX -fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH -x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 -kmnLTOSSOsM4cpjN+h9wgfLj - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ -JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ -DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz -RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD -Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT -icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd -KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT -iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX -SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs -ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP -KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC -knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ -qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii -l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik -B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV -ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 -HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ -9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj -f1iXUS3onbM8+P//9RzO/QdxUvrI - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK -JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f -PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY -gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt -Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R -n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY -E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy -xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ -jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u -QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz -p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL -KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 -n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 -1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO -4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 -RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr -Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY -tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R -fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 -ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt -CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 -QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 -m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj -NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 -S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 -kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog -r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH -5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 -Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 -D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y -1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 -rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ -ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG -6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW -+DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD -pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO -BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 -y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu -RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN -3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 -jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk -ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS -cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl -YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol -kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG -RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH -bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ -uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc -nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 -WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 -06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z -QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk -vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 -9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 -9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 -fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj -ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC -8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k -AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p -sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP -myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL -WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW -SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ -qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI -i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl -AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ -eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf -joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H -35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC -ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn -DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm -gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r -29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw -xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H -/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd -E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 -bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR -UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE -wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 -iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 -viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr -8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y -/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX -mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l -7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 -H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW -cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD -3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s -eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g -r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc -V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT -F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba -XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN -nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf -XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 -lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo -LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM -0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 -G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae -q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg -KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 -0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ -P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB -QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF -k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk -oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj -HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V -VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g -hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 -M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 -qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R -Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI -Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m -Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ -8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR -bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj -vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI -jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F -Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo -wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ -Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c -pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s -uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl -chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 -MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b -N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq -8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 -G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm -RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM -V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK -fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN -4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 -BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G -2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO -LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 -Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm -hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 -POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v -k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG -XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt -HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC -blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh -hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj -p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez -g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK -C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S -hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M -3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 -6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO -2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY -oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY -WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz -UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu -ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv -GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD -DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 -x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI -DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK -VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ -31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y -6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP -/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl -O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ -2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D -uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET -R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq -mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z -7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR -XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO -KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be -foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 -Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL -L0t12az/AVUz8uM= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK -JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f -PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY -gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt -Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R -n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY -E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy -xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ -jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u -QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz -p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL -KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 -n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 -1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO -4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 -RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr -Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY -tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R -fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 -ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt -CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 -QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 -m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj -NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 -S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 -kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog -r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH -5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 -Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 -D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y -1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 -rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ -ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG -6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW -+DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD -pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO -BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 -y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu -RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN -3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 -jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk -ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS -cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl -YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol -kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG -RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH -bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ -uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc -nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 -WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 -06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z -QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk -vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 -9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 -9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 -fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj -ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC -8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k -AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p -sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP -myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL -WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW -SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ -qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI -i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl -AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ -eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf -joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H -35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC -ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn -DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm -gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r -29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw -xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H -/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd -E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 -bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR -UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE -wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 -iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 -viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr -8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y -/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX -mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l -7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 -H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW -cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD -3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s -eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g -r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc -V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT -F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba -XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN -nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf -XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 -lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo -LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM -0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 -G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae -q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg -KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 -0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ -P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB -QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF -k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk -oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj -HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V -VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g -hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 -M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 -qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R -Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI -Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m -Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ -8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR -bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj -vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI -jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F -Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo -wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ -Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c -pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s -uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl -chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 -MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b -N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq -8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 -G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm -RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM -V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK -fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN -4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 -BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G -2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO -LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 -Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm -hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 -POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v -k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG -XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt -HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC -blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh -hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj -p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez -g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK -C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S -hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M -3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 -6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO -2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY -oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY -WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz -UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu -ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv -GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD -DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 -x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI -DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK -VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ -31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y -6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP -/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl -O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ -2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D -uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET -R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq -mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z -7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR -XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO -KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be -foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 -Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL -L0t12az/AVUz8uM= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVl2k0FVwbhlGGDHXMszOfgzKUFNJ5nohESYYUmWUsZQgVIkRKmZJChpAI -FUlCMoRCk4RU0ivDEYkkU5/v11577V97rXtd93WTnY+bH+Hi4OD4w8nB8f/T -c2CGn4ODgCVFe/g3RY3DzrTtu9uzCeji4B45xjUOqeLz/MR9wth2QeSKigEb -poitJ/+bEsb1Ua8ET+0ZA/oL+dDgRBFsP/5IZ5lzFF5pD/Mms0SxS/zVoy8b -hyFyS8M20oAomt3W74xjDEHpHGFa44oY3ryp3mlxZxDu2wwbSmwTx56NH/yN -pAagbvcrfe+P4njg78Cf5MCPsGNZucnwggS+4JNV3l7YDZ2Q9iNlvSQqvhlL -3Zb9FjaT48vvv5DEny033ewOdQKh9feiZZAUlgc3r+Ne1QqzC8cnvaSk8fLd -0Gt9xEYw/213hLdFGl8cyKYfv10LMZffBfn5yeA3SW1r/ZlKeF5ho2EmIosR -TeG7y//dhzPZVn4VT2XxtN3Sw/pLxaAj7Wxz0UkOp+MTTL6558Nx68HmEYI8 -2nGGS12EbAjVHOsQq5XHHzce1Zg9TYOr2avOltsp4KE1E83l65OB+iahvEeA -iGEqBGU3/nh4clkt8UQpEX8svDuU4nIexGeLotkMEsoGd1yTtY6AWN7g1c6h -JBwoPuVeanAawr90fBDuJOHry5NQvzMANt/4NB5FJ+Oqd/IXG6/5QBdto5nD -GTIumrkdqddwh78nhfj8X5KRe4+2deO4E/TeucVpTKEgq9p5c4CULbDyGvbZ -+FPwQd9U9eN+S7jiQx9/00DBsw2lCiJ0M0iX1XshKE3FN815n7P8jGDDleHF -cE8qdrfof0j/qAfBQ4a+VfVU/OV71iAtUBd2c6npKInQ8JlVkpXzoCbwTtrs -53SmoZfkPCNvVB3C67Aoo4qGT2DNxbPJShBmWWbtu4aO3DTt+g/lVNja8cFw -jRMdl9ghZGa5PPSL74zie0TH+rUvu+TDJYCHri2xg5eBx34+PzhtJwxsiZFR -XXsGDkT+OrWkww9Wr4gifmUMVNn/xfyk6mq4a50eu/YfA4lelFHi1n+suobX -6GPFxLG7xbppN/+wrGYu7+UtYKLVteS6g5q/WO1Xouf//WPi9PWlVyW6bNYB -XWllNzMC0p2vR6TvGocf3bJFv/8Q0OFr3THNu2xoknGqj8gWxmoPzfUzb8dA -4LffqdIdIjhgnyr+/MEozEeca+AeEcG/C3GFUcwRUKrqyjl0RRTvFPCv7df8 -DrkBOw6uIksh6VwQ3Y7vJawa3DT7pUUKo1cNW27xb4a8OTflx8el0UEq/G91 -Xz2MP0ubqJFbyWt9HSNethoKyNesnBpk0OqoechnqwrIVu4x5/KURZ0QRePd -EWXQ12/7PYsghwXzbn1xxoVgqUUh6DyWw+ytGs2Rt3Mh0PB727KbPGa8u+FH -tMuANexAhquQAvKkPgt82HoV+rWMpZ9XKCApb1S7sCwBJtUcc2l2RDTm/+S0 -MfwC+NXqdVKXiVhTHq/oVhEJnWHCzQxzEppe29fxVC0MoqYpE4/zSbjWbelS -nmgQ9NVYOb/8S8JTt3a11qX7QpRDjIKfGRm9K5qOZOZ5gdte4gbPW2TkPb+z -8bWrK4xe6Yn6PEtGy9OhsS+VHUCQWa741piCbfI5m5KeW4Pbmhl5iXQKWh7K -4dltYw7izRq2kz8oeKS7xPex1B5wfZ/yzXAHFROaBz81BhuAuY7kI7mrVIzv -9jjz2QlhYLr6/YlRKmqz/16C31pQONdkIK5DwxfXCteJbdeApu6OJdN4GrJ/ -HYys9lSBs2vmOHi/0tBcO/lchR8D+hL0923XpGOd7sEdX2XIEDcVP8R3iY5t -xZFn2nqlwTeT1UH7QkfTtDDC5SZRmMskcDzdxMCKPpKGstpaIE2vCvtwnoH+ -+kPtQly8EJ5stxc/MBB8vsX6PeUETaFKV5YyEz2Kcz5tZC6w4j6qtVSHMnEJ -epUXamZYBD3+vFXvmDiVUbIuKmyS5bg2RkZDkYDzL0PJjW7jkPbo7l/HdgKq -+6Tp2PeyQSWt5MjrIGEsT77wwWctG8LiMoPapEXwnsUY8wTXGBAYr4lPa0Rw -MnFWSTttBBbnPlnOuoniszviXEGV34FtPBzd91sS69+pWe263Q78VimnbmRJ -odnexDbb8uew9zRbUGSnNJbpmfpp/X4GWbYLSoNTK/x1Cpe17HoCEgcffve8 -IYMnixOOpaU/hPLj0vp3tsviPjcXMbEP96Co7uAG5RFZdOTrSuf5cgdaFPUe -OsfLIdU8J3lq4Rb8Mv2vZXqbPE57VLEjD98E/QT107pD8igVv16aqHUNqsYZ -7boXFDAuJj23bTARLoTPFYVtJqIFPS770ZaLIMF4rGbcTUSBYQl/Gc5o8NOx -p1/QJeFoMW9Mkko4nA/d+zc+kYTi934eDswKBpVO4cyJbyS0MrR7ZvafH/SH -PIhe0CFjbuwb+6ZLR0FeW5HleoWMSj0Oco/qj8AUl/9zxa9k9L+R+TOj0hH8 -PNaLX95CQdnml7fznQ7B2wMft2jFUDCOy6ZcO9EC3l6/e8uxh4JXWj5OtymY -Qngwu1tJhYovTdSFD44awlPXf72mZ6k4bCIVeT15B9wdD78l9p6K3kHVWeq3 -dSB46S8QGTS8I/BCuCtqM3x3TmEWBtHwqVg5uTVODThcM96/aafhh1bDAsFZ -Jtz1O2VhTaTjyXGVZ5m2FHD8skniQiAdU0f7Hzs9lIWCQ88KJV7S0bZhIH61 -pDic/UoT4JBnoO0p8blL6gTg4Z7ViPNj4I2c0TdciXzgdb9O7VAjA9ufMHmn -x7ngxIPCwAIxJsqfU7UWkF9i0fZxRKV4MjHzbplsO3mWtSm9PTi6hokRVN24 -zxM/WXu9irWvBxMwd/vxlz6McdCbjbOJowrjdwdx2bnTbLDJFJPVaFvJ6xs6 -h3vSGKQ5GJ1J9hTB94Lj2hZ2o7CFHdx0cEwGj0rc9tlIKYfLQ6nOtimy2OHR -EPEisAT4F+yzxbXlMN/4RvtERwEM7uLyFh6SwyNm4+3Knjkwv33k5ZokeXQR -2LmxNuwGvDKofXtRUwHVZTj3lBxPAY7oY277BhTwIONkbQf5Clh9abn+IpqI -PwkFlvxDMeCu7Fa5LEJC7Z3V7fSQc7C+scm1yZ2EWdFBWz2VQuCc59zg0GMS -lhT2PL6afRJiiq8zC9eRcQIjxY97noANeocfjRwh49W8vMXlfg+45yQh4/OI -jPe2lO/OVHCBr3Is/RRBCs7o86/zWmcH+UM6uhIOFPxErJI8bXAA5p8Ics+U -rvT1OrnmnC374eDPapGwVVTM7FWJ9dM0BqNNrJ8uVlQU6Nnod4C4E4bWqaWM -FVFxssvB+NUFFogtzPB2LFGxyJvxdMh+K/RMXzERMKWhRdNzredrNkGuMW/X -71watgyaywceWw/LpRYbdH/T8DX3gtEbXjrwlQmZUE1W8rRLa3zdABHKV41W -xObQ0WTu3KioghTofn0ytWmajnNR5+j7YkTAz2ZxJtSIgVzrq1zMqYKg81W4 -lZbOwFrFyCz3S9yQenLRi8lmIPeFMcrDPA6Yd2807wYm2vu0L1As/rJ+ujvw -f01kouCh3R25PtOsiZFdryJGmbieTT/zdvcPluuf2iRpMQKK5TkplZwchwnm -yZzUSgLaLVyPTZhgw2C3RVWQizAKNy5xOyqzQev9g9lubhHs5wutpyuOgcxc -YKfsbRF0j60ome8YAbfrzqVN5qKo1BD3rnvmOxC2VMsZDkiitkHF3GhoB8Sv -NXgSdFEKb/S0/dE+1AKUJyphLFVp5N4eanQmtgGCC++2BPRL4wG5/eJR1TVg -6r9Tzee8DFYIvDOKMKgEXRGdJ4tMWXRPNjgg5HkfktSs902+k8XjqhbW+Q+K -gIP8ljcoSA5vxg1pD5bmgbrFN0MfhjwuJd220ffMggFnoTzFN/IoW55ZeXvu -GhQYXqUH+ysgx5/A9T5RSdBduLNsPYmIO1LmN7bLXQIPmwBHuwYi7u2TaYst -i17x/Sir6o0k1Is2O/b8aTjENAwuB8WQ0Hb6l63y8VPQ3X1ch6OXhJ3prku+ -if4QK2Ckjepk1E2aPtwQfwzmSje0OEWTMbUgPgCC3OCkLg7v7SbjV8vYB/Om -TsC44C5wdAMFvaVVPYO1bSB2yVR/dygF6+9F3TDfbAnqq0d3Xe+goLiyh2ye -2j5Y+yLVTJZKxf2syPKXRbtg9pQ/2z2Aii7OAWFVm/VAZNQl7vsLKjaqjh2V -uLgNBs6KbafJ0fCTtVHLC3VNmC0Mquk6SsNrizsezVqqAyZOwKMGGi6Rbuxx -f6YIV11SrFzF6Mj/W9vw3moq7DkQrdrmTcePHXpRPWVy8OzRudR1z+i4LiN9 -S36rOOitKksgiTCw2Y6pkd5EgDmhycsuHgyMGUr8es55DTjiZPaRxwxUrC3Q -Il5cBWu5c8/2rWGiYUDtmSP0ZdZUrIdzhAMTfxFvZUp/mmU1tai4GN5nopJP -Iol+ZYplbjF4/6zrCv/+THUab13pazcLrnohYXQ5te8/Ugob1vVXH+urEMaG -FDEuq/IxMC+ym8+2EkFlrytlLbGj4MPDJ2TXLYMZOh/sux6Xg2Tso77SMFl8 -oflv3aegUvjlbdfYR5NDa7N36w9cuA2ymFRLfyWHn8tT+oq4c0FLb9g4KkQe -/ZlZsZOe6XBU6sZiEFkBqf7kd6elr8LE549P414oYBv9vcYb+QTI5RW7GeRL -xOq/bgF7y2IhoanRlG8NCVXXmXS8FI+ERRI75fdhEpo95PggoxgKkaXxI6/K -SHivgHNa3joQ1Cv+ND1eTUYNSw794X8noOf1lJeKLRkf+lRfGqjxhIsfZG55 -l5BRq5nYJPHUBY4cEHB9zEnB5oRFW1cpezjIE7RpxpKCidt5rn3lsoZ7zuHC -3PkUDJD0ekF8vh8qbf5UVs5R8JTFdclvFBPojhz1tDKhYm3f4MondoIc/Vb+ -qmwqBv/td2jMATj958PEzWkqfpSXD6lhaAEGFhkRdtLQZnh943T2JihPGPOg -pK34YErJKNN9A7D681PJbBoO59xM3VtNh6ksxb3qSEeyuETN63MkuHl6W0dr -Kh2jt2b4i89JwQEI/bJ+lI5q0dQAO6ooaIacP31zOwODPp+ryKcJgcoYP3U5 -gYGc37Q2rN/JAxdXq/RrfGVgqr9ESqcaJ6RV19jya67wLux6gIT2PKs2p2Wk -I4aJ3K1GspKiM6yz4nce631m4inWhImAwwTLrub7f/UzTOw8orsuhDXO+u7d -2ynIT8C3ER4VCyHjIO146OT94hU+Xhop+DDHBt3ZAieTQ8IoyPUtamwrG1JO -b6/8tCCMA41bDM7ojAHJ6QXdOEMEZ89O4+aREbgxSvtYbCSKPDv21JwXHYbc -YurImfeSuCUo1XQNuwNMveUPu0VIIbmsQS2npAUufeystKRKozXlsHrBuwYY -Mo2WqHsjjYmGO3uI6rUwxnHJ4kSIDOY8S7cyyKiECBfjIIa8LB4NksxvLb8P -PB7dA2/aVu5Rj5MHFIpBXl5mY8RRORz+fP5uJn8+mL13Pl8sK4/RJmM13NNZ -oNq+UKXQIo/qVu0amrZpcNN/z9urHgr4hBD17tCHJFis8drIJUHEa013HuQl -XYKkmTdzblVEvBenJdPDdx42tFz7Yb6BhKVN3AIv+COA70gJ57FzJBRdJg5c -7j0F6z8qrLnwjoRFxlFrzMb84fNbkeRBZTI2JfWnZgr7wPfR0ouO4WRs9Mh4 -XtvlBlt7C4IGXpNxSgKyVTOdIPx6NI8tk4ICk/k+QoU28O11bNv+YAqe5LMv -6o2xBEdt3huarRTcn1ElUPRkH3T5HRUSU6CicLOB23chI0iMUgmY8aGiuHOo -nU+MHhi4vw991UzFHczQri//toHYs5wnDEkaSmpg3JdYTVg2GeXxdqchj2uC -1u2b6jBwW/L3nVoanigjbExTUgL+/pzusbV09D55+WeoLRUaEkt1PN3o+L47 -YsxBXR463VyEBGvoyBHCCr1FlQCaWMC7e4IM1KaKC6UThMEvyVvXzIWBScE7 -1D91rIG+mJhe7woG+hletKf0rwK7UoWogNVMLNwq6Clcsszqyc94E2TDRK1J -2/h12/+wBO3tewqKmbjvr3dv6NcpVlfL0g8/GwKmCI39iIRxaLi5tbuPSxiN -dgzX7clmg9eCkGRpkTAano97t7dxDEr3jTy+bSKCv4m1x39njgJ/yr6NDu0y -aOpPeGnMWwGHe1tSe/xl8X1Lg0LUQim45fVb1srIIenqau3No7dBS7fvu1qT -HGZmfT49apUL1k1ucc985dFo6Udp5GA6VEfECvtIKqDnxfO97ieuwpBA8tHC -pwr44MuhU3JuCdAqq0MydSeiqazWr2GJC5CX+EtGaDUJEzp6p4JcI2Fo3/KG -y9YkfHvl02JbUSis3n+Q3VREQo2wHrubFYEQXVWQrPePhGFKfyVpe31BNa2m -6ZUVGbuiw3SeqnlBsEimu1chGVWS/ywZCbsCc9p3xmRx5V21cO2RbHt4IHFV -5ds+CjLHBYN+uFiDwJbqa0LZFFRa/pSesc4cvl8RX2MxTcFcR+H+mgwTyNzw -lGFqSMUcu/A3JiQDeKRmp5pwg4qUn8KjNVIIJSd3D8ZMUFEzVeA3LV4LAh5t -bREBGnK/4+FymdgENRqHy6uSaMgVvIlsNrwBPv/qNBH7TsOHRuey6sUZ4Ca1 -pbNSh468Bdt4VTpJIFbp2uuRSMcat72fZtylwXXC7oDif3QsScIOU39RkIg3 -qVXVYmDpwtTNmkIhKPCJeT12kYHFk0wnq1we4NnTLKbTz0DTI4zvgkGc8N1F -2zFPjYkxilXXZcrmWXl1C9ZN55hosKna4qD7DKu1uFf1Vs+KLxZbV5z6McEq -MJe0IU8ycf/mp2U/G8ZZYozK447zTPy2iveYZw2bpcgYPsrDTcCg59Lvr4eP -g2qIyRdWAQF/dfiHDy+xYTTabIumpTBaPuD+msJig14Hl8TXWWG8KZwtEq0/ -BrniAfu/poqgwbmYjczfI1AhfN43S18Ujdn/lOoow+Dt1tMh8VoSj+U3VgtS -OqHs+oW7diFSuMv1TIBGTws88ya++yIvjVIdemuz/jaAXO5UrXO7NFYN7X2W -4F0LVS1lR3yDZPCTPe8nudZKoF0yt3oiKYtlPSFt13rvA65OVWpsksXUy37F -6VbFsEG2zoDHXQ7vntnVtVY7HxxTKQxjCXn0Da945SSXDd0c/o3SDfJIFI/t -JsSngQx/YSHNRQErLlTnHORMBkJLqN8PAhHBUaprV+clKHjG0exdTkRrS74d -fFvOQ7Z9jnaWEgkrpa2rWtUjwKhSJHL47Iofbvv4xm3daThgF3ii4zUJd1O3 -HbeSDIALW+aeaiiSsT7YJ83N0gfseH/++BJKxtdL2YprV7tDGrPvqVInGQta -CeHtTU5wN0cs6i2NgsMvR4k8AzaQUJ0v2H2Sgl//btRReGAJcxYSjZHNFBQy -fzlrwmkGWrs+eCfIUvHEIt/ntWgEny/EVekcpWJ42tZaq/t6YM+4/Ee/kYpj -l+PvLOnoQqnTyPxtMRoGVXi99nuoCefkKRsqXWl4/LRQ80KjOqhr3N1HfUJD -PqmWDEt7pRU/VpRUFaRjgGv4t+AYKoSoNeJjFzou8dSzT/vKg1XdO6O4x3S8 -zb236d5+Cbia0T0zt4aB0o0vGmW3CkNpl1Lyc0cGnog4o7B5NT+kFb/7PXGf -gR4Wx2PJ3Kth9Sq78884mbj6EuXuy6lllknFljXT1kys3SFMyzn2h6V+Z1bk -QyETR6QEU3UEfrHEzwlcOmpFwINOP7qS9cehp1oJPZYIGPs50m53ARskLz5i -X8sXxvpuC531L8fgcG6JdLGhCGYuXLL3LByFHht/fccWGbxfI9d4QrUCljlf -BxzzkcX5stsBFFYZZGNGZqm4HPLxmVPuSReCoU7YQkWdHKaxL72NC8sFt2iG -suNReTTnGpBMIGaAc+U/WU8RBTR/wwLnjKvgmDuht7VaAfecpM48jkuAfvpe -J21nIur8CrI/YHIBVOfWRFzhJOEHTuZpw0uRYDPMe6rPkoS5k/QTC+OhsDO3 -9igUkvCz77ODP78Fwj2d5fnziyT8gWPmBgG+0LuQM0WyIOPsvqJ3Pzy9YFLt -c9toPhmFwiw/fNVxhdgd+bpX/5Lxlz5j2HjIHr4o0Ipt9q7wMDLTVPCqNVQR -P/QlZlKQ59TuhPbN5hBWRNuU85OCqwIubg7sMwEOTuXoF/orfer29sehPQaw -WrPar/saFTfKkS/StiM838x1eJFNxfblwbiFei1YezCMJ0WXhvSkXwtJ4hqA -3Fd7ViXQsC2B31tXUQVUw1wK4r/RUISiLsy/kwHZXTVr57fSceLcQpPtDAle -WZz6UnWZjmzh4/NZ2dIwZtCZWPB1JU8hf22a0kUhRrz0c6AmA0Un7di32ULw -7Z4B0+kCAy98Snb/94YHGo8Lb6ztZeAQxTVCJp0TLlcFOU9tYOJAq5f+t7F5 -lmTH1SsQzsR3PPpqS4kzrPFZX89375l4x3dzTpHmJOtFZlnK/nEmnojR3ybK -84Ol5WtalPCHiYkEOTXmEpv1s09eU32Jias++HnvCGGzjFZNbIvkIuCdasFi -t3PjoB23MyX6FgErtjOve3GMQ/3efFLRfmEszun1+raDDTcCh5qdZ4RRaMCi -ldNoDP6bNBrekCKCnS18GqkLI9CQX6krvUMUYweIZfuVh+F14wN07ZDEJeqA -e/H2Thi499Sy95QUFjddtkz50QL95buc6LLSqPisIbhCsBEevbwt/LBNGuOf -n9Pxu1ALpOJnE1MBK/0v4LWZ8bkSTmYfaOIWl8Vnyzd/p4/fB/u3vzu2Nchi -s2X1d5JvMWjIEF4bucrhVonc60fN8mEkkCvwuqg8Nv5qIv5QyQbl9FKja0/l -sdZWQpNWkAYH378XPeqogNb9rRmnJZJBZg+vqMtaIr4+tBC7a/wSqCtKrZ+4 -R0S1rIeNDXvOg41ygYOBIgkDXMxTh/UjYMS+uTEvjITHEr5dD1E+Dd4KlLzj -r1Z8YUFUblklAOxHvA70M8gofMviLFegD0ilErKyQsg4oir3r0/WHVo7p106 -28m4d2h/fU2PEzTQ+/UuUyk4V+/ro7poA+5qm1XTAiio99FS2KnFEnZ+zfyg -3ETBpNv9UnRRM/C6L5huKkPFhd13wfiQEUQLPu775EXFNbpZQ0ef6wE72mvz -8jMqSnPtNH1yUBcW71+84SFKw1XK2/59fqkJO8/X1dm60JAamXG8uVsdeoJn -F788pqHUayXN/mAlcJr1fvSKn44veSOep2dSwSasQ9/JmY4V9wZfspLkQWrs -otvuKjpqeswYfvSQgM6BGO5MPgau7jIuCDEWhvbfsXURDgz8sunS8TgiPwTW -/o28d4+BRgfLO+ulV8NBlRBeDw4m6kqPnHQW+8eKerIq/94BJiqwR3+tO/+H -1dCpp378NhOH+O74bCf9Ym1xELEdNSegWr/AvTSDcRhspfwunSfg5Jc8/x13 -2DBhLtgteEsYYf8US+TVGFSYJLRt2CmC8/2E7BslowCs6PaBJhkMibqcraBX -Afskur498pbFxJCPT/McyqB27eIOpqgcGlj1XRfeVAh7tV9H/3mysk8aPfYu -JuXCxBGe02We8rikpndgFysDKs225Xxfp4BqZ2Yehj+4CjePyZWGPVLATMbr -X4zMBPhe1M1Z5kBEVlAkVB65AAHF4hVmHCSk/jxK2ZMdCWLlglnhFiQcPnpE -xWRtGPxnfKJksYCE3lMyxLqFQGheuKOqtEBCI9v5v7MxvlBaIrYyMMh4YOsX -b80YLyiqWz59J4+MfxTYZzv3uULVSN2A9hwZhyXl2v7wOsBsLttTYg8FMwqz -9jeUWMOVlCOLFhkU9Pt5dGPELnN4sfWuodEkBc3KDkee/2sCm7wdKmL1qJh0 -Ntgh0tkAih+NpJxKXdknsSMqQfsQLFI+p1WOUbFXf/XrdR+1wLaQXGC5jYa2 -PKSDu5U0gMtno/edyzQ0P7msOGqkAt2NJRbGgzSs8dwhb2HLgNpNHGXpW+iY -qkLISuYlw93cyEHHeDp+mWf302qlodT3fNmRATpapvflK9wThfpDDpMymxlY -lZkhc0BoLXC9zTOXi2Vg/OPNnPOjPJAbsfVpWA8DkwlrVLeXcMLgYOq3a+tX -fNKs6elfvgWWWZfz+qUwJsbv8106cXuGFSZXd967i4kqA7VqXDaTrMONC/dH -x5jofm1A5QvzB+tF6o0WxVkmHnLxy6+TH2ed4/Ayb11Y2TMdQ216GWyW/cM3 -kmnLTOSSOsM4cpjN+h9wgfLj - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1VOQ4FgYgNGxbdu2bdueHrPHtm3bnh3btm3b2lnvnq59OLn3+5NUqvKQ -JA8IrNE5eLBgwX46BK0rHKrzr/0vNCEnl8wGkIE7eiwhWKlrBN3IJktTcnFZ -DyQjd/U4QrJK1wx6Fpt1M3JzRQ8iE/f0eEKxWtciBFt0c/JwVQ8mM/f1BEKz -RtcmJFt1AHkJw1qzOoRim25BPsISjvBEICKRiMw619YlNNt1S/IThfVm9QjD -Dt2KAkRlg1l9wrJTt6Yg0dho1oBw7NJtKET0oHdu1pDw7NZtKcw1PYQsPNAT -icEm3YgI7NHtKMJ1PZSsPNSTiMlm3ZiI7NXtKcoNPYxsPNKTicUW3YRI7NMd -KMZNPZzsPNZTiM1W3ZTI7NcdKc4tPYIcPNFTicM23YwoHNCdKMFtPZKcPNXT -iMt23ZyoHNSdKckdPYpcPNPTiccOHUA0DulASnFXjyY3z/UM4rNTtyA6h3UX -SnNPjyEPL/RMErBLtyQGR3RXynBfjyUvL/UsErJbtyImR3U3yvJAjyMfr/Rs -ErFHtyYWx3R3yvFQjyc/r/UcErNXtyE2x3UPyvNIT6AAb/RckrBPtyUOJ3RP -KvBYT6Qgb/U8krJftyMuJ3UvKvJET6IQ7/R8knFAtycep3RvKvFUT6Yw7/UC -knNQdyA+p3UfKvNMT6EIH/RCUnBIdyQBZ3RfqvBcT6UoH/UiUnJYdyIhZ3U/ -qvJCT6MYn/RiUnFEB30gE3FO96caL/V0ivNZLyE1R3UgiTmvB1CdV3oGJfii -l5KGY7oLSbigB1KD13omJfmql5GW47orSbmoB1GTN3oWpfiml5OOE7obybik -B1OLt3o2pfmuV5Cek7o7ybmsh1Cbd3oOZfihV5KBU7oHKbiih1KH93ouZflV -ryIjp3VPUnJVD6MuH/Q8yvFTryYTZ3QvUnFND6ceH/V8yvObXkNmzurepOa6 -HkF9PukFVOB3vZYsnNN9SMMNPZIGfNYLqcgfeh1ZOa/7kpabehQN+aIXUYk/ -9XqycUH3Ix239Gga8VUvpjJ/6Q1k56LuT3pu6zE05pteQhX+1hv5br+Uqvyj -f1iXUS3onbM8+P//9RzO/QdxUvrI - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 12}, {0., 0.8911371422921853}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0FV4XRRky1DPP3vweylBSSO+ciERJhhSZZSwyhAoRIqVMSSFDSISK -JCEZQqFJQirpJ8OTEkmmPt9fd511ztl373PvumtfsrOv+REuDg6OP5wcHP9f -PQdn+Dk4CFhavId/U/QEGK2a3BbFRcDbNYIlbmcnQJExcpSHm4DBz6TfXYuY -gG/efV2C/AR8E+lRuRA6Aa5/6pKlxQgolu+kVHpiAhzXxspoKBJw/kUYuclt -Ag7oSiu7mRGQ7nwtMmPXBGxxELEdMyeg2oDA3XSDCRA/K3DxqBUBDzp9707R -n4Du1qXv/jYETBUa/x4FE2BuMXTvjCsB8/5MdRlvnYC9XiXa10JW4u2+L3wY -E7AzffvujhwCuji4R41zTYB2/M7UmJsErNzOvObFMQGqoSafWYUE/NUZEDGy -xAZpx0Mn7pWs8L04Wvh+jg2TzBO5aVUEtFu4Fpc4yYb0h3f+OnYQUN0nXce+ -jw3fe2SLf/8hoMOX+mOad9gw1Eb5XTZPwB+f8wN23GZDb40SeiwRMO5TlN3u -QjY03tja088ljEY7Rur35KzguVlwNQgJo8vJff+RUtmgNxtvE08Vxm8O4rJz -p9iQJj7PT9wnjO3nRS6rGLChYW8BqXi/MJbk9nl93cGGsRizLZqWwmh5n/tL -KosNurOFTiaHhFGQ62v0+NYVPj0W1cEuwijctMTtqMwGlfTSI6+ChbEi5fx7 -n7VsaJZxaojMEcYaD831M2/GYdJcsEfwpjDC/imWyMtxkLzwkH21QBgbeix0 -1r8YB68FIcmyYmE0PBf/dm/TOKwbqDnWXymMjaliXFYV42CTJSar0b6C/5rO -4Z48DlPEthP/TQnj+uiXgif3jMP1oOEW5xlhFBq0aOM0Gge9Ti6JL7PCeEM4 -RyRGfxxST22v+rggjINNWwxO64yD1rv7sz3cIjjAF9ZAVxyH8Pis4HZpEbxr -Mc48zjUOAr/9T5btEMFB+zTxZ/fHoNIksX3DThGcHyDkXC8dg8N5pdIlhiKY -tXDR3rNoDMr2jT66ZSKCv4l1vr+zxsC82G4+x0oElb0ul7fGjUG6g9HpFE8R -fCc4oW1hNwb05/JhIUki2OH7UGeZcwz++2E0siFVBLta+TTSFkYhTzxw/5c0 -ETQ4G7uR+XsUSE7P6caZIjh7Zho3j46CzFxQl+wtEXSPqyyd7xwFAuMV8Umt -CP5ImlXSTh+F+cizjdyjIvh3Ib4omjkKL7VHeFNYotgt/vLh540j0FhQpSu9 -QxTjBonl+5VHoFL4nF+2vigas/8p1VNG4PoY7UOJkSjy7NhTe050BNyuOZc1 -m4uiUmP8256Zb7A499Fy1k0Un94W5wqu+gZK1d25hy6L4u1C/rUDmt8gakvj -NtKgKJrd0u+KZwxD2RxhWuOyGN64od5lcXsI7tmMGEpsE8feje8DjKQGoX73 -S33vD+J44O/gn5SgD7BjWbnZ8LwEPueTVd5e1ANdkP49db0kKr4eT9uW8wY2 -kxMq7j2XxJ+tN9zsDnXBq6b76NopiUvUQfeS7V3g7dbbKfFKEo8VNNUIUrog -r4Q6evqdJG4JTjNdw+4EwpYaOcNBSdQ2qJwbC+sEtvFITP9vSWx4q2a161YH -5AXuOLiKLIWks8F0O74XQGj7vWgZLIUVIS3ruFe1weDdJ5Z9J6WwpPmSZer3 -Vii/dv6OXagU7nI9HajR2wqm3vKH3SKlkFzeqJZb2goJaw0eB1+Qwuu97X+0 -D7UCv1XqyevZUmi2N6ndtuIZrBraNPu5VQpjVo1YbglogdkF3x9eUtJ46U7Y -1X5iEwxU7HKiy0qj4tPGkErBJnjqTXz7WV4apTr11mb/bYSLH7qqLKnSaE05 -rF74thEoj1XCWarSyL09zOh0XCPsPcUWFNkpjeV6pv5av59C/pyb8iNfaXSQ -ivhb098A5r/tjvC2SuPzAzl031t18PDFLeEH7dKY8Oysjv/5OpDLm6pz7pDG -6uG9TxO962DYNEai/rU0Jhnu7CWq10FI0Z3WwAFpPCC3Xzy6phaybReUhqZW -+DtFyFp2P4aJp+mTtXIy+LWhnpEgWwOxl94G+/uvxJLa1vozVUAqeTo5FSiD -pgJemxmfqqC6tfyIX7AMfrTn/SjXVgXjHBctjofKYO7TDCuDzCowDdip5nNO -BisF3hpFGlSBxMEH3zyvy+CJksRj6RkPoJB81cqpUQatjpqHfrKqBGDFdAw2 -y2Bo9KUcBb1K6LUJ0HdslcF7tXJNx1UrgT9130aHjpX9AwgvjHkrwYeHT8iu -RwYzdd7bdz+qgC3skOaD4zJ4VOKWz0ZKBTyrtNEwE5HFyOaI3RX/7sGJnAPN -3OKy+HT5xu+MiXtAu2hu9VhSFst7Q9uv9t2DSBfjYIa8LB4Nlixoq7gHuiI6 -jxeZsuieYnBAyPMeVPhK69/eLov73FzExN7fhRzlXnMuT1nUCVU03h1ZDvsk -ur8+9JbFpNAPT/IdymGZ81XgMR9ZnC+/FUhhlcPhvta03gBZfNfaqBC9UAaS -cQ/7y8Jl8bnmv3Ufg8vg0nCas22qLHZ6NEY+DyqF0zlW/pVPZPGU3dKDhosl -YP/md+e2Rllssaz5RvIrAVydptTULItpl/xLMqxKgMejZ/B1+wr/6Ecpgwol -kKxmve/HW1n0VbWwLrhfDMX1Bzcoj8qiI193Bs/n29A/YPstmyCHhfNu/fHG -RVC3dnEHU1QODaz6rwlvKoIczMwqE5dDPj5zyl3pInDLH7Csk5FD0pXV2pvH -bsEvb7umfpocWpu9XX/g/C3gX7DPEdeWwwLj6x2TnYWgI+1sc8FJDqcTEk2+ -uheAhgzhlZGrHG6VyLt21KwANsjWG/C4y+Gd07u612oXgLy8zMbIo3I48unc -nSz+AuAgv+ENDpbDG/HD2kNl+dCqqPfAOUEOqea5KVMLN8FSi0LQeSSHOVs1 -WqJu5cFe7Vcxfx6v9Dd57F1MzgNDnfCFyno5TGdffBMfngdauv3f1JrlMCv7 -06kxqzyQxeQ6+ks5/FSR2l/MnQdDu7i8hYfl8IjZRIeyZy74Wg+1jBLk0Y4z -QuoC5MBoEFfQNVF5bPrVTPyukgOOaRSGsYQ8+kVUvnSSywGzd87nSmTlMcZk -vJZ7OhvULb4a+jDkcSn5lo2+Zzb8Mv2vdXqbPE57VLOjDt+AIMNv7ctu8pj5 -9ro/0S4TJo/wnCr3XKlX0zuwi5UJbjEMZcej8mjONSiZSMwE62a3+Kd+8mi0 -9L0saigDtPRGjKND5TGAmR33wzMD5rePvliTLI8uAjs31oVfhzDN8U6xOnn8 -fv1hrdmTdFDOKDO6+kQe62wlNGmF6dDDEdAk3SiPRPG4HkJCOqh2LFQrtMqj -ulWHhqZtOgw6C+UrvpZH2YqsqltzV0E/Uf2U7rA8SiWslyZqXYU17CCGq5AC -8qQ9DXrQdgWqzLblflungGqnZx5E3L8CzlX/ZD1FFND8NQucM69ATWScsI+k -AnpeONfnfvwKHJW6vhhMVkBqAPntKekr8NKg7s0FTQVUl+HcU+qbCldyVp2p -sFPAQ2smWyrWp8DBd+9EjzoqoPVAW+YpiRSQ4S8qorkoYOX5mtyDnClwI2DP -myseCviYEP320PtkKDS8Qg8JUECOP0HrfaKToXqC0aF7XgHjYzPy2oeSYEDL -WPpZpQKS8se0i8oT4cYxubLwhwqYxXj1i5GVCI55k3pbaxRwzwnqzKP4RBgW -SDla9EQB738+dFLOLREmP314Ev9cAdvp7zReyycCR8wxt32DCniQcaKuk3wZ -qK8TK3oFiBiuQlB2408AmT28oi5rifjq0ELcromLQGgN8/9OICI4SnXv6roI -i7VeG7kkiHi1+fb9/OSL0FO0s3w9iYg7Uuc3dshdhPMRc8Xhm4loQY/Pebjl -AvxQc8yj2RHRmP+j08aI8/CtuIez3IGIrOAoqDpyHgboe520nYmo8yvY/oDJ -eWiT1SGZuhPRVFbr14jEecjjFbsR7EfEmr9ugXvL48Dqc+u15zFE/EkotOQf -joXHl9SSjpcR8fvC20OpLudAXVFq/eRdIqplP2hq3HMOCp9ytHhXENHakm8H -35ZzkDzzes6tmoh347VkevnOgYdNoKNdIxH39su0x5XHgATjkZpxDxEFRiQC -ZDhjwL9Or4u6TMTaigRFt8ooCCwRrzTjICH151HKnpwoUJ1bE3mZk4TvOZmn -DC9GQX7SLxmh1SRM7OybCnaNgsTmJlO+NSRUXWfS+UI8CtyV3aqWRUiovbOm -gx56FsRni2PYDBLKhnRelbWOBBvlQgcDRRIGupinjehHQo59rna2EgmrpK2r -29QjYUPr1e/mG0hY1swt8Jw/cuX/EG1Vs5GEejFmx549iQB/HXv6eV0SjpXw -xiarREBXuHALw5yEplf3dT5RCwexCsHsCAsSjhw9omKyNhxsRnhP9luSMO8H -/fjCRBgM71vecMmahG8uf1xsLw6DRRI79fdhEpo94HgvoxgG65uaXZvdSZgd -E7zVUykU4nhDVjuHkXCw5KR7mcEpGLVvacoPJ+GxxK/XQpVPgVGVSNTIGRJ2 -bfvw2m3dKeA7Usp57CwJRZeJg5f6TkJs49BycCwJbad/2Sr7noRzYXv/JiSR -UPzuz8NB2SEQPU2ZfFRAwrVuSxfzRYPhP+PjpYuFJPSekiHWLwTBzry6o1BE -wk9+Tw/+/BoEq/cfZDcXk1AjvNfuRmUQRJUljL4sJ+HdQs5peesgOOs5NzT8 -iISlRb2PruScgIjPne+Fu0j46tIPaNgZCN4KlHzflyvntyAqt6wSCAfsgo53 -viLhbuo2XyvJQFj/QWHN+bckLDaOXmM2HgA9Pb46HH0r+jJcl/ySAkClSzhr -8isJrQztnpr95w/9tVbOL/6S8OTNXW31GX7QsnBbVWmBhEa2839nY/3grs7y -/LlFEn7HcXODQD+IqS5M0ftHwnClv5K0vX6gXvmn+dFqMmpYcuiP/DsOsSXX -mEXryDiJUeK+nsdh8/WPE9F0Mq56K3+h6aoP2I96HRhgkFH4psUZriAfOL9l -7omGIhkbQnzS3Sx94NMbkZQhZTI2Jw+kZQn7QJyAkTaqk1E3efpwY8IxGAi9 -H7OgQ8a8uNf2zRePQrRDrIK/GRm9K5uPZOV7QVmpWFz7fjIe2PrZWzPWC/oW -cqdIFmSc3Vf89runF6im1za/tCJjd0y4zhM1L+h9NeWlYkvGBz41FwdrPWGD -3uGHo0fIeCU/f3F5wAO6aRvNHE6TcdHM7UiDhjtIpRGys0PJOKoq969f1h3s -eH9+/xxGxldLOYprV7vDt7GyC44RZGzyyHxW1+0Gc2UbWp1iyJhWmBAIwW4g -r63Icr1MRqVeB7mHDUfAbS9xg+dNMvKe29n0ytV1xV8sn7qdT8Y/CuwzXftc -V96nT+1jBWQUCrd8/0XHFUJEsty9isiokvJnyUjYFS68l7npXUpGrRZis8QT -F7jrJCHj85CMd7dU7M5ScIG/J4T4Al6QkXuPtnXThBO0dU27dHWQce/w/oba -XidIZ/Y/UeoiY2EbIaKj2Qm29hUGD74i45QE5KhmOcEJXRzZ20PGL5Zx9+dN -nWCKK+CZ4hcyBlzP+plZ5Qhjl3ujP82S0fJUWNwLZQeoHq0f1J4j44ikXPsf -XgeI21Gge+UvGX/pM0aMh+2BOe03Y7K4Mn/VorVHcuzhyAEB10ecFGxJXLR1 -lbKHL3Is/VRBCs7o86/zWmcHfbdvchpTKMiqcd4cKGULjfQBvUtUCs41+Pmo -LtrAnVyx6Dc0Co68GCPyDNpAxLUYHlsmBQV+FPgIFdkA47y7wNENFPSWVvUM -0bYBf4/14pe2UFC25cWtAqdDIMisUHxjTMF2+dxNyc+sYTaP7Smxh4KZRdn7 -G0ut4bMCrcRmLwWVorJMBa9Yw32JKypf91GQOSEY/N3FGg7yBG+asaRg0nae -q1+4rKFgWEdXwoGCH4nVkqcMDgArv3GfTQAF7/dP1TwasAR3tc2q6YEU1Ptg -KezUagmJNQWCPSco+OXvRh2F+5bw9dXK9Q2h4Ak+++K+WEuIWzLV3x1GwYa7 -0dfNN1vCmwMftmjFUjCey6ZCO8kC3NbMyEtkUNDyUC7PbhtzuJx6ZNEik4L+ -P49ujNxlDtXE9/1JWRTkObk7sWOzOQhsqbkqlLOiZ/ljRuY6c7jrHCHMXUDB -QEmv58Rn+2H+sSD3TBkFz6yTa8ndsh8u+9AnXjeuxI1lCiJ0M9j5Jeu9cjMF -k28NSNFFzWDOQqIpqoWCQuYvZk04zcBRm/e6ZhsF92dWCxQ/3gfqq8d2Xeuk -oLiyh2y+2j54c+3OTcdeCl5u/TDdrmAK4i0atj++U/BIT6nfI6k98HzrHUOj -HxQ0Kz8cde6vCYQX0zbl/qTgqsALm4P6TeDbZfE1FtMUzHMUHqjNNIEqmz9V -VXMUPGlxTfIrxQQO/qwRCV9Fxaw+lTh/TWPIkNV7LihNxdct+Z+y/Y3A655g -hqkMFRd23wHjQ0agteu9d6IsFY8v8n1ai0bQ7X9USEyBisItBm7fhIxg7fM0 -M1kqFfezoipeFO+CiBB2j5IKFV+YqAsfHDME13epXw13UDGxZehjU4gBbPJ2 -qIzTo2LymRCHKGcD4OBUjnmuT8Udbm++H9pjAFkbnjBMDamYaxfx2oRkAD1R -Y55WJlSs6x9aMUE7wWgT66eLFRUFejf6HyDuhA2XRxYjPKnY06r/PuODHsQI -Pur/6EXFNbrZw0ef6cGn8/HVOkepGJG+tc7qnh4kRasEzvhQUdw5zM4nVg9m -Twaw3QOp6OIcGF69WQ+euP7rMz1DxRETqahrKTvAXEfyodwVKib0eJz+5IRQ -8nA09WTaSn/cqErwPoTVmjX+PVepuFGOfIG2HeGhmp1q4nUqUn4Kj9VKIcjR -bxasyqFiyN8Bh6ZcgOF1aqnjxVT80e1g/PI8C0KGDf2qG6j4y++MQXqQLrBj -vDYvP6WiNNdO08cHdcGecemPfhMVxy8l3F7S0QUD93dhL1tW5sUM6/78bxuI -jLnEf3tOxSbV8aMSF7bBnYmIm2LvqOgdXJOtfksHBqdr3h0fo6I2++9F+K0F -Fqmf0qvGqdinv/rVug9a8Gwz1+FFNhU7lofiFxq0oPTE7qHYSSpqpgn8piVo -wak/7ydvTFPxg7x8aC1DC8QWZng7l6hY7M14Mmy/FXZzqekoidDwqVWylfOQ -Jizeu3DdQ5SGq5S3/fv0QhPKnEbnb4nRMLjS65X/A00Qe5r7mCFJQ0kNjP8c -pwmDZ8S20+Ro+NHaqPW5uiaELP0FIoOGtwWeC3dHb4aiuWYDcR0aPr9atE5s -uwbYFpELLbfR0JaHdHC3kgasPRjOk6pLQ3ryr4VkcQ0IfLi1VQRoyP2Wh8tl -chNgULERYScNbUbWN03nbILe6csmAqY0tGh+pvVszSbg/WGzn9OZhl6S84z8 -MXXYea6+3taFhtSoTN+WHnU4K0/ZUOVKQ99TQi0LTeqwbDLG4+1OQx7XRK1b -N9Rhtii4tvsoDa8u7ng4a6kO35xTmUXBNHwiVkFui1eD5p7OJdMEGrJ/HYyq -8VQBLp+N3rcv0dD8xLLimJEKIPeV3lWJNGxP5PfWVVSBWo3DFdXJNOQK2UQ2 -G9kAFYnjHpT0Ff2ppWNM9w2QZ8zb/TuPhq1D5vJBx9ZDRD0WZ1bT8DGsuXAm -RQl6Q2YXPz+iodQrJc2BECVQ17izj/qYhnxSrZmW9koweEvy9+06Gh4vJ2xM -V1ICTJqEh400XCJd3+P+VBE4XDPfve6g4fs2w0LBWSacWTPHwftlha92ytlK -fwb0NJVaGA/RsNZzh7yFLQNUw10KE77SUISiLsy/kwGffnWZiH2j4QOjs9kN -4gxgDRSkkdk0HMm9kba3hg7LZRYbdH/T8BX3gtFrXjqEW5Zb+62hIzdNu+F9 -BRWcZr0fvuSn4wveyGcZWdQVf6woqSpIx0DXiK8hsVTgH8jtGV9LR+8Tl36G -2VLhikuqlasYHfl/axveXU2FO/4nLayJdDwxofI0y5YC/Yn6+7Zr0rFe9+CO -LzJkqNvEUZ6xhY5pKoTsFF4y5HTXrp3fSsfJswvNtjMkcJPa0lWlQ0fewm28 -Kl0kmMpW3KuOdCSLS9S+OksCvnIhE6rJCv4urYl1g0TY2vnecI0THZfYoWRm -hTzYhHfqOznTsfLu0AtWsjyEqjXhI5eVPE8D+5SfPDQmlel4utHxXU/kuIO6 -POw5EKPa7k3HD5160b3lcuD4eZPE+aAVfmMDj5weyEL8VMIw30U6tpdEnW7v -k4Y7eVFDjgl0/DzPHqDVScNLi5Ofqy/RkS3sO5+dIw1iVa59Hkl0rHXb+3HG -XRpunNrW2ZZGx5itmQHic1JQsWqsMi6XjiZzZ8dEFaRgQHxnNN9DOjasfdEt -HyEBUuMX3HZX01HTY8bwg4cEWNW/NYp/RMdb3Hub7+6XgC43FyHBWjpyhLLC -blIl4OnDs2nrntJxXWbGloI2cSg89LRI4gUdbRsHE1ZLioNfFquT9pmOpunh -hEvNolDmd678yCAdLTP6CxTuisK4QVdS4ZcV/NC/Ns0ZouA6aXdA8T86liZj -p2mAKByAsM/rx+ioFkMNtKOKgu6Xx1Obpuk4F32Wvi9WBHjo2hI7eBl47Oez -g9N2wtA1GMudxcfA1d3GhaHGwnAls2dmbg0DpZueN8luFQaaWODbu4IM1KaK -C2UQhEFvVXkiSYSBLXZMjYxmApz5QhPgkGeg7UnxuYvqBJjLInA82cTAyn6S -hrLaWmg45PBDZjMDq7MyZQ4IrYVY8bJPQZoMFP1hx77FFgKJBJM6VS0Gli1M -3agtEgLN0HOnbmxnYPCns5UFNCHwt1mcCTNiINf6ahdzqiCwJUbHdO0ZOBj1 -6+SSDj90/I6rj3Rg4OdNF33jifxQ1q2U8syRgccjTytsXs0P/sneumYuDEwO -2aH+sXMNzAn9uOTiwcDY4aQvZ53XAA/3rEa8PwOv54695kriA9L0qvD35xgY -oD/cIcTFC1xv8s3l4hiY8Ggz5/wYD3y9a8B0Os/A8x9T3P+95oFCn9hX4xcY -WPKD6WSVxwMq4/zU5UQGcn7V2rB+Jw/ofBFuo2UwsE4xKtv9IjdYvSSK+Jcz -UGX/Z/MTqqshqO5v1N27DDQ6WNHVIL0a0kve/p68x0APC984Mvdq6I+N7fOu -ZKC/4QV7ysAqcMQfOUceMVCxrlCLeGHViv+oVzvUxMCOx0ze6QkuiEix24vv -GQg+X+P8n3BCXuTWJ+G9DEwhrFHdXsoJTb7CG+v6GDhMcY2UyeAEnj0tYjoD -DDQ9wvgmGMwJF1arDGh8YWBagERqlxonpJ1Y9GKyGch9fpzyIJ8D7lhnxK39 -x0CiF2WMuPUf66BKKK8HBxN1pUdPOIv9Y61eZXfuKScTV1+k3HkxtcyyK1OI -DlzNxKKtgp7Cpcustdx5Z/rXMNEwsO70Efoy6/j9oqBCMSbKn1W1FpBfYmkK -VbmylJnoUZL7cSNzgTU0lPb16nomxpo1P/nLt8C6VB3sPLWBiYNtXvpfx+dZ -31y0HfPVVvKK1ddkyudZ6TW1tvyaTBQMvxYooT3PmndvMu8BJtr7dCxQLP6y -6htfoY8VE8fvlOim3/jDin68quDuASYqsMd+rTv3h2VSuWXNtDUT63YI03KP -/WH1FmS+DrZhotYP24R12/+wpuI8nCMdmPiLeDNL+uMsi7aPIzrVk4lZd8pl -O8izrPgPaq01YUxcgj7lhdoZllm38/qlcCYm7PNbOn5rhiXZeeUyRDDxLY++ -2lLSDCu/fsG6+SwTDTbVWBx0n2HV5baOdsYykbvNSFZSdIb1092B/0vSip5D -uzvzfKZZVjOX9vIWMtHqakr9Qc1frMYuPXXfW0wc5rvts530i6V+e1bkfRET -R6UE03QEfrEE7e17C0uYuO+vd1/YlylWc6uKi+E9Jir5JJHol6dYmzI6QmJq -mRhJ1Y3/NPmTRdDjz1/1lolTmaXrosN/sMLl6s95dzNRZbBOjcvmB2ti1s/z -7Tsm3vbbnFus+YPVVtKnerN3Zb4l1pUnv0+yzojffqT3iYknWZMmAg6TrMnR -XS8jx5i4nk0//Wb3d9bhpoV7Y+NMdL86qPKZ+Z31PKs8df8EE4/H6m8T5fnO -KjSXtCH/YOL+zU/KfzZOsOxqv/3XMMPEriO660JZE6znaddbFWeZeMjFv6Be -foKl5WdanPiHiUkEOTXmEpslxqjydZxn4tdVvMc8a9mssxxe5m0LK/o7h9v1 -Mtmsn/3ymupLTFz13t97RyibZf/gtWT6MhO5pE4zjhxmszoux8z/+8fE6WtL -L0t12az/AVUz8uM= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{3.0000000000000067`, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{3, 10}, {0., 0.9853735520528359}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{{3.9919642011989346`*^9, 3.9919642226365395`*^9}, - 3.991965177487829*^9}, - CellLabel->"Out[24]=",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 0.897, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 1.212, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 12.5, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 397.16015625, {21.48154410072551, 27.10654410072551}}, Typeset`update$$ = + 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 1.212, $CellContext`xmax$$ = + 12.5, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 0.897}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 0.897, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 1.212, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 12.5, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{ + 442.26015625, {110.39716910072552`, 116.02216910072552`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488885528324*^9, 3.992489807907427*^9}, + CellLabel->"Out[2]=",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] }, Open ]], Cell[CellGroupData[{ @@ -7969,87 +2876,6 @@ Cell[BoxData[ 3.991965198532404*^9, 3.991965201015888*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "nlnum", - "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ -\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ -SuperscriptBox[\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ -RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R1\\\"}], \ -SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ -\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ -\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ -RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ -RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R1\\\", \\\"2\\\"]}]}], \ -\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ -\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", \\\"R1\\\"}], \\\"+\\\", \ -RowBox[{\\\"0.018264820212904775`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ -\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ -RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ -SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"720.2371797638953`\\\", \ -\\\"\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\ -\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"39\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ -RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\")\ -\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", FractionBox[\ -\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ -\\\"-\\\", RowBox[{\\\"1.2`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.01104715727778697`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\" \\\", \\\"R1\ -\\\"}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\ -\[RightSkeleton]\\\"}]}], \\\")\\\"}]}], \\\"+\\\", \ -FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \\\" \\\", \ -SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\ -\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ -SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"\[LeftSkeleton]\\\", \\\ -\"21\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", RowBox[{\\\"Cosh\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \\\")\\\"}]}]}], \\\",\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ -\\\"}\\\"}]\\) is not a list of numbers with dimensions \ -\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ -\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ -\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"1.2`\\\", \\\",\\\", \ -\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 27, 2, 24487566792016397019, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.991964272641367*^9, 3.991965207078659*^9}, - CellLabel-> - "During evaluation of \ -In[27]:=",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], - Cell[BoxData[ RowBox[{"{", RowBox[{ @@ -8085,8 +2911,6 @@ Cell[BoxData["0.68`"], "Output", CellLabel->"Out[29]=",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] }, Open ]], -Cell[CellGroupData[{ - Cell[BoxData[ RowBox[{"l22", "=", RowBox[{"Plot", "[", @@ -8115,5525 +2939,166 @@ Cell[BoxData[ 3.9917168848265095`*^9, {3.9919642917670784`*^9, 3.991964315141735*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk -h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx -CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ -rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC -kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel -ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb -vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ -/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe -iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c -opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of -0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA -inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH -uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC -zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO -zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 -vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j -6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf -cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT -vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 -104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ -59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi -BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m -bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG -/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC -pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE -+EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi -/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG -N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm -xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy -84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o -j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 -N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ -3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm -x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA -ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST -wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB -SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk -iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL -fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR -7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u -9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el -6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf -rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I -Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt -X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy -W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz -swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX -Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb -T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO -3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl -86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ -ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG -W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu -knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu -olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v -3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 -WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs -kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf -RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk -tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu -5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl -Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j -1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X -maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw -Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg -xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS -QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W -ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt -E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD -heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs -cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm -IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// -8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 -F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j -ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv -SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl -moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv -cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL -4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq -zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD -+q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn -+dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs -S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF -ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN -mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 -hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje -q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY -5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 -cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz -Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N -8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e -2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav -uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 -r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh -o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI -hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI -hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 -vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS -0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 -W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 -cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T -p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 -teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o -usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 -0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn -Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP -RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S -+m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 -IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN -X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 -wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE -l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp -IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo -AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T -XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H -24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD -bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 -4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd -lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD -kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 -O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od -zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy -TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP -xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D -5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE -terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J -oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l -KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob -o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh -RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ -QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z -tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB -247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv -KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI -t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ -9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ -nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa -vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii -ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 -/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 -2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc -gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np -8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 -VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff -1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe -IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y -VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 -WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn -9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 -a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih -ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M -5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 -4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r -y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH -1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT -jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ -eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh -dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG -2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS -FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 -/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca -DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ -mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d -BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB -3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ -vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o -qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w -8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF -X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY -a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x -1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw -CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p -2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn -u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt -Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 -kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm -2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ -OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl -wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz -hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra -1/7l74hBvB6bHfofbUKTUg== - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v -m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE -ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX -iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq -ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH -jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL -t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR -nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x -2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF -ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I -xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR -ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS -nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT -no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR -hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ -hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 -qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd -eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 -/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx -f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= - "], - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO -OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH -cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH -cRzH8Z/4BZdCRh0= - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk -h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx -CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ -rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC -kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel -ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb -vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ -/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe -iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c -opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of -0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA -inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH -uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC -zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO -zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 -vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j -6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf -cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT -vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 -104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ -59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi -BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m -bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG -/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC -pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE -+EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi -/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG -N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm -xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy -84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o -j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 -N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ -3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm -x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA -ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST -wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB -SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk -iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL -fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR -7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u -9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el -6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf -rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I -Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt -X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy -W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz -swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX -Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb -T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO -3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl -86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ -ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG -W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu -knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu -olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v -3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 -WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs -kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf -RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk -tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu -5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl -Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j -1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X -maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw -Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg -xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS -QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W -ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt -E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD -heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs -cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm -IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// -8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 -F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j -ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv -SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl -moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv -cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL -4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq -zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD -+q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn -+dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs -S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF -ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN -mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 -hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje -q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY -5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 -cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz -Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N -8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e -2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav -uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 -r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh -o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI -hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI -hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 -vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS -0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 -W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 -cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T -p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 -teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o -usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 -0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn -Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP -RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S -+m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 -IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN -X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 -wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE -l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp -IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo -AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T -XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H -24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD -bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 -4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd -lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD -kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 -O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od -zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy -TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP -xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D -5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE -terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J -oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l -KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob -o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh -RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ -QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z -tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB -247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv -KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI -t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ -9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ -nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa -vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii -ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 -/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 -2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc -gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np -8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 -VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff -1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe -IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y -VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 -WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn -9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 -a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih -ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M -5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 -4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r -y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH -1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT -jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ -eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh -dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG -2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS -FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 -/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca -DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ -mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d -BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB -3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ -vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o -qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w -8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF -X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY -a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x -1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw -CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p -2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn -u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt -Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 -kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm -2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ -OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl -wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz -hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra -1/7l74hBvB6bHfofbUKTUg== - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v -m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE -ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX -iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq -ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH -jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL -t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR -nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x -2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF -ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I -xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR -ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS -nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT -no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR -hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ -hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 -qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd -eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 -/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx -f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy -h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST -N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F -a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h -/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh -XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd -k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G -i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM -JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb -xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f -m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw -bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp -IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO -xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP -j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA -Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq -CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o -wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j -VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 -P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc -nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW -d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK -2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto -xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 -rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O -2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f -0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW -lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd -vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM -FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V -hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV -sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 -iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj -t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ -Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx -8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW -4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh -AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 -LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x -nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU -5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj -mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL -yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 -zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 -XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ -6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 -lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ -vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X -BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO -MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce -64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L -TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx -M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye -T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj -Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL -OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt -41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW -2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh -P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo -rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi -4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q -h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 -TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX -+zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I -7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO -b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 -xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 -s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb -rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ -6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p -5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 -TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J -pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede -kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 -cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p -31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb -voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ -Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc -N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH -cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g -Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 -XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu -HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 -cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s -ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q -2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV -b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd -Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK -wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe -KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF -VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil -ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 -lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 -qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK -HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM -WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ -wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V -N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI -WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm -jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf -iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S -KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI -R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T -S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW -52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH -VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI -frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS -QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS -VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO -qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG -mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc -I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU -+YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea -p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF -lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH -n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X -zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws -PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW -nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA -jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f -xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN -wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 -mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD -a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 -NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo -6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu -PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX -CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 -88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ -eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F -jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 -FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu -f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa -gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn -92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD -7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 -qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt -eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu -O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm -Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 -oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy -ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH -Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ -DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT -Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 -RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf -GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm -w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p -zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ -V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt -HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu -b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD -nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD -qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y -vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 -aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn -fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 -CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol -+TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx -q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD -yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ -cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 -y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 -0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa -cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom -HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp -b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o -6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q -nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 -0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 -vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv -UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG -LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 -hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj -VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk -ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa -rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ -Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh -fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w -gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y -YNzbPN43ZoP+B/eck1I= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy -h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST -N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F -a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h -/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh -XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd -k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G -i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM -JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb -xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f -m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw -bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp -IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO -xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP -j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA -Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq -CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o -wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j -VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 -P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc -nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW -d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK -2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto -xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 -rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O -2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f -0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW -lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd -vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM -FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V -hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV -sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 -iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj -t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ -Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx -8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW -4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh -AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 -LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x -nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU -5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj -mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL -yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 -zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 -XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ -6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 -lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ -vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X -BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO -MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce -64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L -TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx -M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye -T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj -Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL -OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt -41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW -2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh -P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo -rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi -4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q -h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 -TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX -+zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I -7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO -b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 -xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 -s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb -rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ -6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p -5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 -TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J -pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede -kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 -cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p -31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb -voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ -Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc -N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH -cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g -Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 -XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu -HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 -cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s -ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q -2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV -b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd -Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK -wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe -KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF -VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil -ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 -lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 -qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK -HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM -WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ -wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V -N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI -WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm -jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf -iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S -KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI -R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T -S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW -52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH -VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI -frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS -QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS -VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO -qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG -mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc -I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU -+YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea -p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF -lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH -n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X -zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws -PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW -nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA -jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f -xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN -wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 -mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD -a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 -NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo -6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu -PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX -CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 -88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ -eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F -jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 -FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu -f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa -gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn -92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD -7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 -qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt -eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu -O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm -Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 -oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy -ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH -Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ -DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT -Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 -RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf -GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm -w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p -zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ -V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt -HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu -b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD -nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD -qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y -vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 -aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn -fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 -CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol -+TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx -q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD -yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ -cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 -y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 -0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa -cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom -HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp -b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o -6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q -nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 -0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 -vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv -UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG -LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 -hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj -VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk -ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa -rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ -Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh -fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w -gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y -YNzbPN43ZoP+B/eck1I= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk -h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx -CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ -rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC -kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel -ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb -vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ -/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe -iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c -opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of -0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA -inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH -uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC -zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO -zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 -vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j -6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf -cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT -vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 -104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ -59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi -BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m -bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG -/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC -pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE -+EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi -/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG -N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm -xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy -84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o -j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 -N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ -3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm -x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA -ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST -wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB -SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk -iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL -fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR -7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u -9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el -6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf -rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I -Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt -X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy -W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz -swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX -Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb -T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO -3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl -86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ -ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG -W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu -knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu -olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v -3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 -WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs -kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf -RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk -tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu -5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl -Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j -1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X -maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw -Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg -xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS -QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W -ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt -E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD -heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs -cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm -IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// -8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 -F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j -ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv -SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl -moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv -cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL -4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq -zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD -+q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn -+dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs -S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF -ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN -mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 -hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje -q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY -5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 -cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz -Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N -8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e -2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav -uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 -r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh -o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI -hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI -hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 -vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS -0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 -W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 -cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T -p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 -teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o -usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 -0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn -Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP -RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S -+m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 -IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN -X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 -wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE -l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp -IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo -AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T -XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H -24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD -bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 -4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd -lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD -kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 -O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od -zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy -TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP -xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D -5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE -terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J -oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l -KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob -o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh -RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ -QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z -tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB -247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv -KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI -t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ -9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ -nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa -vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii -ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 -/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 -2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc -gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np -8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 -VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff -1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe -IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y -VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 -WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn -9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 -a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih -ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M -5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 -4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r -y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH -1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT -jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ -eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh -dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG -2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS -FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 -/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca -DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ -mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d -BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB -3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ -vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o -qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w -8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF -X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY -a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x -1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw -CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p -2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn -u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt -Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 -kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm -2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ -OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl -wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz -hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra -1/7l74hBvB6bHfofbUKTUg== - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v -m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE -ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX -iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq -ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH -jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL -t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR -nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x -2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF -ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I -xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR -ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS -nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT -no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR -hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ -hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 -qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd -eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 -/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx -f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy -h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST -N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F -a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h -/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh -XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd -k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G -i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM -JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb -xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f -m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw -bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp -IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO -xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP -j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA -Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq -CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o -wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j -VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 -P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc -nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW -d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK -2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto -xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 -rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O -2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f -0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW -lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd -vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM -FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V -hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV -sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 -iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj -t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ -Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx -8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW -4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh -AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 -LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x -nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU -5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj -mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL -yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 -zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 -XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ -6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 -lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ -vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X -BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO -MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce -64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L -TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx -M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye -T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj -Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL -OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt -41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW -2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh -P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo -rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi -4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q -h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 -TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX -+zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I -7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO -b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 -xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 -s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb -rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ -6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p -5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 -TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J -pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede -kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 -cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p -31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb -voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ -Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc -N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH -cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g -Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 -XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu -HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 -cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s -ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q -2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV -b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd -Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK -wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe -KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF -VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil -ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 -lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 -qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK -HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM -WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ -wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V -N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI -WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm -jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf -iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S -KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI -R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T -S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW -52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH -VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI -frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS -QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS -VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO -qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG -mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc -I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU -+YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea -p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF -lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH -n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X -zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws -PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW -nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA -jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f -xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN -wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 -mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD -a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 -NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo -6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu -PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX -CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 -88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ -eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F -jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 -FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu -f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa -gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn -92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD -7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 -qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt -eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu -O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm -Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 -oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy -ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH -Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ -DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT -Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 -RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf -GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm -w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p -zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ -V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt -HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu -b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD -nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD -qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y -vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 -aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn -fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 -CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol -+TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx -q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD -yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ -cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 -y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 -0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa -cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom -HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp -b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o -6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q -nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 -0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 -vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv -UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG -LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 -hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj -VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk -ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa -rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ -Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh -fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w -gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y -YNzbPN43ZoP+B/eck1I= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{4.000000000000009, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{4, 11}, {0., 0.8332573817712089}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{{3.9919642877358036`*^9, 3.9919643155562134`*^9}, - 3.9919652220078144`*^9}, - CellLabel->"Out[30]=",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] -}, Open ]], - -Cell[CellGroupData[{ +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519993740715*^9, + 3.99251999374522*^9}},ExpressionUUID->"cd317bc8-762f-b249-ba4b-\ +f05e39e52441"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"l11", ",", "l22"}], "]"}]], "Input", CellLabel->"In[31]:=",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519995212555*^9, + 3.992519995216996*^9}},ExpressionUUID->"9e14947f-42bc-8641-8034-\ +f5e698425a9d"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l11", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R1", ",", "x1", ",", "r", ",", "b1"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R1", "->", "R01"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x1", "->", "0"}]}], "/.", " ", + RowBox[{"b1", "->", "b1"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.028", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "0.683", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "4", ",", "\"\\""}], "}"}], ",", "0", ",", + "13", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "11", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.07", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488906299654*^9, 3.9924889063002577`*^9}, + 3.992489846647581*^9}, + CellLabel->"In[3]:=",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], + Cell[BoxData[ - GraphicsBox[{ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk -sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys -oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq -wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr -T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz -PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp -+D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV -XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D -Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz -OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 -vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm -c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd -nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS -cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV -TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl -6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 -9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT -AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy -QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 -LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ -FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc -xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su -tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM -5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX -flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN -xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW -afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue -bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ -p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu -PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 -HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 -8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ -urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO -H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps -fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b -BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n -6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E -b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl -GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E -nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI -m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O -8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw -6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY -XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH -hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy -dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux -PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm -GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT -e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC -qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi -zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT -NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE -66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk -b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn -WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 -67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 -lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB -lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF -4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv -icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq -Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ -KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s -Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO -rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g -fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ -27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV -rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC -px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s -e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA -58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE -wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD -HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs -FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 -drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP -5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ -pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO -+PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id -9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 -Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg -UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv -KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC -1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 -P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX -j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA -sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE -SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n -ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa -SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO -DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ -iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm -2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ -GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz -W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj -oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C -hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N -FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb -qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur -qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 -Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq -VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J -2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM -kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG -92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT -vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl -XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs -bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 -35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x -6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC -U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe -mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog -9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn -w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 -dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 -kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 -oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W -0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY -t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 -ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj -PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI -+RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ -SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf -ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg -5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs -3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc -GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 -FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i -NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e -Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT -SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M -MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX -MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M -Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam -ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef -PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw -8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk -mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT -4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i -QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G -N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq -3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ -6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 -WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ -ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR -wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 -ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl -Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ -twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o -11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs -pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 -5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 -2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa -U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD -gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF -fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK -9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX -KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G -ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV -lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL -L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa -Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss -JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag -hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa -KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz -EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP -IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 -7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ -9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q -zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb -gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab -sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em -1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q -yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T -Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P -pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo -ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 -vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 -LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G -94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC -88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E -1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN -hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB -mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF -vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN -WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj -jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ -hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi -Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 -iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF -LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w -7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 -D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg -3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C -BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ -82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof -Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF -VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ -5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ -Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo -2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f -yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu -l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 -0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs -RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ -7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq -rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 -vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz -KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO -WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr -zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A -XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 -5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM -TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh -ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 -431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ -ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p -YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= - - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk -sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys -oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq -wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr -T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz -PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp -+D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV -XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D -Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz -OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 -vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm -c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd -nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS -cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV -TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl -6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 -9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT -AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy -QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 -LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ -FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc -xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su -tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM -5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX -flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN -xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW -afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue -bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ -p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu -PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 -HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 -8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ -urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO -H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps -fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b -BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n -6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E -b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl -GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E -nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI -m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O -8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw -6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY -XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH -hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy -dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux -PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm -GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT -e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC -qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi -zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT -NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE -66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk -b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn -WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 -67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 -lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB -lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF -4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv -icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq -Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ -KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s -Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO -rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g -fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ -27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV -rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC -px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s -e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA -58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE -wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD -HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs -FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 -drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP -5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ -pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO -+PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id -9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 -Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg -UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv -KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC -1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 -P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX -j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA -sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE -SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n -ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa -SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO -DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ -iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm -2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ -GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz -W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj -oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C -hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N -FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb -qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur -qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 -Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq -VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J -2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM -kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG -92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT -vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl -XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs -bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 -35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x -6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC -U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe -mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog -9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn -w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 -dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 -kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 -oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W -0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY -t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 -ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj -PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI -+RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ -SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf -ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg -5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs -3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc -GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 -FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i -NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e -Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT -SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M -MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX -MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M -Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam -ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef -PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw -8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk -mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT -4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i -QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G -N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq -3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ -6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 -WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ -ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR -wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 -ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl -Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ -twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o -11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs -pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 -5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 -2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa -U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD -gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF -fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK -9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX -KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G -ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV -lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL -L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa -Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss -JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag -hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa -KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz -EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP -IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 -7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ -9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q -zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb -gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab -sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em -1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q -yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T -Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P -pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo -ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 -vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 -LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G -94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC -88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E -1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN -hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB -mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF -vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN -WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj -jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ -hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi -Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 -iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF -LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w -7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 -D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg -3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C -BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ -82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof -Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF -VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ -5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ -Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo -2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f -yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu -l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 -0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs -RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ -7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq -rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 -vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz -KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO -WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr -zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A -XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 -5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM -TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh -ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 -431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ -ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p -YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= - - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {3.0000000000000067`, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {3.0000000000000067`, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVVnc4F84fV8ge2ePDZ4skEg3q7k0ys6mIkoTMMqKUVHZRSkjZRJnZW1Yk -sjJCpUE2ZeQr5ef3z91zz9293q/xfp47sq27yfmtDAwM3pvD/+eeV5OCDAys -oHhobpTAN4+jto34bGNmhbPG+bF82+ex0bF3HzjZWWGPuZgsC+88fjdQmCAq -wApDMvLfZrjm8Zs5P/peaVYY1vl4+QXbPH5F4Fa2N2KFDp95wizDPM7zVTRr -T2aFG86tuSFzc9i1llbak8EKIzSRuOOzc3gXk7DIhxesUGW6uI82M4df3Psz -PFbMCn8a1u5WTc7hjGdN5zZaWWGXQo/X0Pc5/PT9cU/Fn6wgd3mQcXBoDocp -+D2IU2OD3BaDs63Nc9hLIEyaQ4sNRFBtg37THD69GlN7/Rgb8NxtuNDdMIeV -XhVO2Z5gg7NRawG9dXP4k+GUupwrG9iVjCQ2VMxhRXeLxfo4NjCM0p3QzZ3D -Q7n7zabn2eBUfm3v8oM53BR1dMp6mQ1umVIkIGoO53ubBnStscEJZTWX0Htz -OPCwe04JMzv8GD/Ez393Du/ueMYUIM4OmmJPtHmD5vDtGcESAS12kLVzcMu6 -vKlfdkkQJbJDPibvgZNz+MYTXTWzNHao0F+57Xh8DvdwpLg4ZbHDv5ygz5Fm -c9h3Rr8xppAdItb3PO8zmsONuZkX519vrmdZjPV05rClwqm3yfPsYPbpEPQd -nMOhyg0BjGocoDW2r85cdA4PZ4jkiGpyQLmqt5Wq8CY/IfcBeT0O2BP0skFS -cA6/XxHfbWXOAUGH3335xDuHieXew8UXOCD44i95DdY5XKois8/+AQe88pBV -TFmZxd/w/enWbxxQ5Her/FH3LFaabbvTPMEBRP6zNoc6Z3FwPPOuhtlNvNsl -6aPts3jn8lWXqt8c0PxdbY3cOosvvjg/m8vBCWGrigkhtbP4r4Dq/IO9nLD8 -9/PoyItZLDw19svqNicsKtwUTL45ix1jSQ8tQjlhqLhTZMV/FldqnNp7PIIT -AinOHjrXZvHppC5Pw1hO8F71JU5cnsXpZlVLatmckJakRWZ2mcV76u6vSPVy -QkkeR2OV+SzWi1ZdW6BwgbqQtybHjlnc+jnqnYU0FxjIJPG9ps5iTdmJ1AY5 -LmC5+83uOmkWQ0O0XvQBLljWvn/vi+gs3rcw+3S/ARdwPubJusE5i0nHkrH/ -FS641TG+j/fnDF5hZA7i6OICwQhzmmvZDPY0PGXh1ccF4soq1YVFM3gh/qXc -xyEuaHjI77OUP4On95zuzxvjAtM5Th2XrBk8eqZsh8kfLiAqDzLLPZ7Bb6su -tMVJcQNLjiZx4coMTvZ8xyN1nRuiB7Zl2B+YwcF6rlcUb3GDRQzbbw+lGexM -5fyGQrhBUDr8oZ/CDN7Xq1N6IoobSHWlKTelZ3CHYrNVWAY3nH6Y2WYjMoPX -flY9n+nghjwLKs+F39PY7OLzI0WSPFAwZXP1XuE0ZnUN9IFXPFBlP7/4jDCN -xb4hwYpmHsiMEr2tJTyNZS3+K9zzlgcoe2/9+bp9GhscdZuj9POAZIr8U3aW -afxQ4uR55hkeUDO5rEv4OYV5fjySGePghai+wU7NpikcH3tB+MV+XmiRf9ue -bj+F81d5F/fe44W0bumkxfhJfMDE5tq3KF6wTDpbezJ6Er/Kzmd+GM0LozuJ -p8ojJnHXaQORX495wVtIYJtDwCReaLpzuCCdF2KPPPt58/wkVojaFrqrkhdu -PWx5mbN7EhfIrBPoY7ywdWtsw9vqCVxo+UNTSHU7HDIKff275Qeu0+k84jy8 -HTiwsf+5hjGs/m9nk2YYHzy8nuRcePgb7sRxs9Gy/JAnZ7is+2wUK5Mjil62 -8UMC7ycesbVhvL11ed3MRwB2rO5Smjjcj3//cZ93EhEEd6ctVt2HuvFIkdZZ -urggvIk2V9GU7sYNzsTezxKCUOL47fJr/m58d/hdqRlVEOb8Uw0np7owpUrO -H+0WBHXxMsvKx13Y4Oo0J5+GILw+s9dTYbETZ6za76xwF4SIrhVR66AObLps -fZ6lRRBWQpn/wlorLn+bub3kjSD4ZAbsOjXYigmpP2ts2wVhIsTLIKq0FY8b -BAnVdgtCMZ5INvZsxVezclq8RgQh71PvAnWuBSef+iPz9acgyPXfbhSdfI3n -6uPmqglCsDX7VWjkUhM2jfsa70QUgoHX1QyH+ptwudsuLRGKEAxPt93fVt6E -b4q/SvLcIQQfTy2wLfo1YQHvH0Y7FYWA4MjyWoa5CatK7yuK1RKCxO0303gl -GnFoZK+Ph4cQCCeYHWuxrcfk7Pq5n15CMDqCx8Z06nFlS/75Sz5C4P8y4q3E -nno8w3DX9OI1IXjaOXHpw8YrbOSpIe8WLARMtSqlNxJfYZGTJeMX4oWgKtiI -m7W+DmeRY83PNgiBy8qd8Ntz1VgNBbWPNglB7SUW3Y2Gajxk6XnEpkUI7G0O -8ebEVmPOaMM9Z9qFoHle1jFOrRpf3MbKZd0vBGdyag5UxlbhA9O+TSenhODw -6Zk/vPqVuKXYcq8RnzDU1JncvjRchi8nH29iFhSGA75BnpWFZZh218S8SlgY -XtOqGw6Gl+Fb53R9pCSEQfBr+MrQwTKM+FSq1ncIQ97TY7NpT0pxsbvokeeH -hYHfT3tJ4UIJTt05aLL1gjAMv6U+VpAtwsZC77+VOW+eL5S684+1CDNs7fJy -dRMGpc6vkv/GC7H1h5aYQU9h+L5VJCgqrRCLhJYN5fkLQ5NsUQkTsRDfG4ux -PRUtDB653hd+S77E15LNPYrrhMEudS2r4nYePtOz3KHaIAzXuC5rDhnkYXWm -GJnGpk284bZhLbE8zOrYP9r9RhjkjhBfsxbm4mj5E4bzvcJQvu3DNdGxHJxT -e3LXzglhOPz5p5ayRTYeGTk1nsQrAsyyvoy6Plm4jntdbQe/CBwaNlvz1cvC -qfA0IU9QBG643oqYJmZhx/QRsxoxEajSM7WKf5OJl5ytG4doIkCJ4bQXImVi -zj+nkwUPikCAK2ui5ocMrCpqa3nnrAgk9h6+6H81DSuJ8XZp24nAGrOSzgPT -NLxLvPboNgcR+G+1Jm5qVxqWlBDbc9NFBPxjy2UcRlPxVnIPi4+PCAiJijEE -66biVmn1EtsIEfiVuOUGu2wKPn6AwqtSIQK89auzHsqJ2PBgV9DvKhEo/jKk -b/E7AWur+P8prhUB7cw49cKKBHzw0NC4fJMI2Bb2oAqcgAnwoIbeKQI6Z+dn -WI2f4m9aW523j4nAgQx/FUJoPL544mvzBK8onOfqW4g7EosnLm+9/JhfFIT3 -67zx4o/FNjEUKV0hUaB2jAdmf4vBxn22wdniolDGiux2BMVgRdNvmm5SolB7 -lVVMp/0RXjL43rKoKgpfp2c2yp2isYsbk286EoW9u7UeMUA0/h5BkzZXE4WB -lR69eMFo3NduF1qqKQo/GJ8yNNQ/xKW6Y9pXjEUBjfD/6JV4iH00x9/8sxeF -4wKHIyO/R+GF89uu5l8QhQB3g92VtVHYMUhqp42LKFSrGTbLP47CJ5vsw+sv -icKH02FfVwyi8AH1H7qB10RBUtlB40fNfbx2eOIt2wNR2HVB6/tb43vYX3mq -Q6Bmk++et9d0bO7gnU/ytGPrREEusdcfZO7gAQbPRtEGUQhR7vqX+CscK7T/ -KZdsEQVywIHme8Hh+IstV7p096Y/P9lL5IrCsMZ9hauHxkTBmcFMp1UyFC8s -Ly3V/hCFBpvhxR+zITjhVIW72pQoZMRNFtnVhOAVKfXzmvOicPRQ2aqHdQjO -rDE1MvpPFMyUr5ztTgnG7NOXpey4xCAkZqCfWzUIlxqppozziMFI0geBMp4g -fK50Q/wCnxikJHkPFX4PxNU3Q7e7CYuBZjVraeq9QOwqEr/uQxaD/EbGedPJ -27jraE3PHWUxkHVn5L2ZfQvHJDPeKLIWg6SopEozhwB8sq+P38VGDE4c+yIV -rh6AxdizsmjnxMCoHgtzSwbgJM9jPY8cxeDci9cH/2XfwFmaj+i+nmLQY9KC -px7448oZqfZDYWLw443Ym9PXruFr5P9slu+IgaHiFkbuQ9cwOv52OTdSDD6s -e89prfvhxjp3IjFaDA7FN4Wc8PfD7Q/KPbYkicGd5KszLaFX8ccDuqKvi8XA -58psK1OpL052JeT5l4lBVZCN9pfrvtg2dU59f6UY2E2mMx3Q9MXjHA9dsurE -wIk2aGY06IPnPg3Xhbdt6onreLp9qw9mCHK1NxwVg8xi2eRtzt6Y1n2/aJBD -HHysj4veu+uBxY6x8J/jFodyvwXHRjsPvL3luscsrziUOIxx6x72wP+qnfZs -FRIHTq5nI3rzl/BAlka+LEkcqu31lXhPXMLhAasv/JXE4c36l62CyhdxwB83 -drb94nCXybuLzncR+1weu/DwoDgYEL8O/Pvkju1ceqSzkDhEqC0kCB53x4dP -5jzr1hYHP+mDT8Z03fCCvE0qzVoc1CbnTSQNXPD4i/4t+WfEwVBXWn+A1wV/ -pOufPWgrDmwFq4O8751xm7gKycBBHF7ZHM7YYuWM01gEEn0uiYOp+Unv2ktO -+PjnlsdtQeKgvxi22lHkiKsj5aMu5olD5pschh93zmNFaRHZuQJxGDkY8/id -9XmcVc/Q7FwkDuxRbXJCCufxw6XuVftycfit0KzX0GeHnSy9bKwbxIH6iLH5 -Ct0Oi0hVyOv2iwOhuN+kuc8WR9alvGkZFAdbWfNP5rm2mMki/NzRYXEopPzg -UQ2yxfN3TsXCqDiQFb1rGPbZ4tc///7bNyUOpGz6T/snZ7FXjfo76j9xaKUv -KvB62+Cp47KOKQwEmLjS8yfB2AbbLPBvJTISoNRCwfLybhusRx1TFmMlAJfC -1WnWnjOYEhaSwMtHgIP/drRxNJ7GXWbtLn/pBHBeuaaN6qyw3Iw5x4A+ARy7 -P4ePiFjgcrNjdeFGBAjrsBz7/vEk1qhR90SmBGCjPWP0TjuJrSLlhzNOEoDX -j6l3h8JJHK7Alu11jgCcRBfVMsMTeNyrWpfvCgHEojklbj4zxx4fC/81+xGA -sMoped3THP89+rzwij8BfOqPi8yDORYQjhH7cpsAr+x0BhQ+muEjFe5T+ZEE -SIk8y8MjboaT/1LC9dMJsG2VddUi2wTvshdFWzIJ8LayTQTdMMFl73h+FT8n -ANP7++mhpib4XdK6BSGfABn3dM7q/zXGf9X6ZaYrCPCMaTXumrkxtgwOexPa -SYDEZovbL4WNsADPAmvTGgH8oHAmqUoPv68JD9H5S4BvLN5vd/rr4WgX+rbO -DQIwDHEPqqrpYf42S8YhJgkIDtnCNNOqi/mCmv/Oc0vArgOaP85/0sG8f+J/ -iVMlQImaJNdN0sZdz5UvpdAlIDtQPfXwtBa+f7JrXkpaAu60fHYilmphnlLm -2T1yEsCyIMiJ9bUw96WLP7T2S0DT1Pyd3gBNzPnj6IinngTUnl3+fmNdA7c/ -GrX8T18CPvS94urq0MB3Nfw++BtJgIC9aW1wkgbmSC3oDzPf5LMj8yhNQwOz -W4t3J52RgI9JCwdYHxzBrL0LzW89JeBK9EZLFVbHzHVP8qlPJaCMyaC0pxLj -oUMa2p8TJUC3X49V2A3jgsqZ0fgUCXg3azPCR8HYqvQwH1+mBExu22a88y7C -hbmfvRgKJcDCqFfuheNhfPopVeVjiwR4d3n8DlFT3fwPtPfEtUmAJaO2/a0N -FcwW5+Vs1iEB1UOOEuK1Krj4YfPTtz0ScFrpfRT5sArmuOOwUfFRAs7I1IVb -qh/E5Veym2IWJaB+2lpUy3E/jvxtam2yIgENOq/E/eX343Pe68tc/0mA+mur -qMO/9236p78j6J8EKL7ObjcK3YfPO86HebJJQmlwzteMAmXMd2KvoRFREl50 -Pm/4J6KEXZSqPrDpSYKsTgv1MezB9V19OeX6ksD6jO+HnfAeLOS6cMPBSBJq -VXk0H8wp4FcZdKlmc0lwES/W4k5U2Ozf+x4BNpJwT87vs8cWBVz9nx3Hb29J -2CHawmdbKIe3x9z4lOErCadr0nPPOMthe8X4l2Z+kiD4ZHc7M10O8zp3nigM -kIT/XIOdjsbvwnYjB9Nd70hC2nhUh8NdWcxZx334e7IkJLz/z/dnhAw+e0qG -92GaJNi4595vNpLBpb+PfFN7JgmPZcZ4ZQVksI3ClbCkbElI1+NYSX8qjYtT -vvVZlkpC3u7JHPniHdgqsNyt+60k+NZetglap+McHdvk2hVJIK5o3J+apGDl -XWSE/5OErsB6zdg6Cq7lHh2u+yMJf4P4qamPKLir11q4noEIDQaTvJ3qFLxs -bRHZyE6EcDrPdfcUMkYeRtdaJYnwoEqAXdKdhFvMeMR0yEQQP2AVZ6hLwkb7 -35W9oRIhYTaV2Esn4XPreott0kTQDNaJiK8i4tBgLacORSIkf0wTWE6VxN3x -6GSPJhGe+Fr0aEQSsOX1v8smOkRYLLg9dcSAgL+fqX7Yq0eEK1HzZd3cBLxC -U+l8b0SEv7N+wdFR4lgsX1lzwJII+7qT+B8liGG7xl1KI25EGCm4ftPvnQhe -mRbjHY8hgtfPzL+ydwXxo4QfLU8fE4EyuJ5Ze0IQKxkW3zB9SgTuNUuDLqog -9ijUn3+VQgQnPkq7c40AnvMNePckhwhuB1jf267w43Hm8bvGDUQIEBozMPPn -w0FlhRqszURwraRE6RvzYdqFG+u1LUSIfhL2r4jGh23bRVx2dRDBeZ+yWlP7 -dvzpgZ4eyyARwpKrVPrJ23E/8SVbzSwRqhztGttreLB39/V6zwUi2JXcvuV7 -kQcL3Na9snORCIRj+tOfqTzYZPzbROwqEWys2bKH7nJjh+McdhVbSOBwaeW8 -oQMX/kZAR6I5SWAiv3Sw7hAHHn6etkWXQoI4luPZHadZcBN9RD2SSoLLy14W -0TIsOC9FILCHRgKDvXIDvUvb8K3HQdtO7SDBn0Rbhoq727B0mAOHyy4SsKQY -t/yrZ8ZejrKCkftIwHvhe8ojNSZ8+vu54z37SSCgst3XjZ8Ja9k8jRU6SII1 -ciy1YIwRi53kEktSJcF4UKG20x1GXK81L1kAJHjz+LlN8vBWzL2jSLpHlwRj -PiQWw8gteDV1+oLQsc16vt2BuvZb8BdJWralPgl2Din9TkZbcLHQI7lvhiTI -+RoUeGqBAVtu81FcMiPBFaue3T9PMODMMZVDQmc29a+daf/h+g9BeoOhpScJ -SoNYvXNPr6EL8kq747xIoHyDraWIuoYeVGZw9nuToCoy4sXhyf/QWFfoG2Nf -ErxwW40Z8P4Phf81OKJznQSif7wymR6tovfHh/cdCCHBsE54idHUCvr75Zjg -5VASVIsmunCWrSAp19rFojASNLs/j1IJXEFXbqcUyN8lgVhro9wUcQVJFjjs -3BFFAsOSZRs/q2XkyLYkIfSEBGlRh9QeTC6iqOjz66ZPSSDXcXH/1ppFVEkc -GIpKIMGjwZWCvvuLiGtfZSxXMgkuvflSkXZwERXaBmxnziDBKdd1m6Z7v9B6 -FSfzUh4J3NNOM9ro/0RRbvSZ7gYSvDN+c/Dg9jmk+SVhYGcTCXQX14v3tM6i -NVOhxtvNJFgZYzw0fGMW2R5kiVduJcHolvB6lZ8zSJFpUutxBwmKdhb3/R2e -Ru8f56TZDJJA/I2gvGLXJArlpN+r+EACxOBm7Bc1iQ7dSLjKN0wC8qWNCCvT -SZRhF2nc9JEE7RtBj78MTqDL8hc3dnzb5LeiE/1u6gcSbt57an6WBKqzA/2M -MuOofX+Opvb8Zr868fnLLI6hgBc0xZQFEmw5ePNdd80YmrgnyGa6SIIjUUvX -MszGULnl79LSVRJY7tfauz/0O7JcqOTzZyTDgIdG4D/mbyhBXL2NU5QMft0M -Cf5mo8jlJecTAzEyhNBcr16UH0UqWgPO98XJIBcZaFjKPor6PVy4BCTJcLam -ps878DPibYsxEqeSYYedp8AOp0/olu90v4wcGXbycr94YzKCjLhLM513k+Ef -PuJ1k28ESaYH+ObKk2FvN99iW88wquoUFNujSIYA4fEpLvNhtCQF1gf2k+Gw -8ilnBZshZN8X/U1TjQw5e/+T7L83iJSczxSHqpOh4WXSiMDJQbR1y86gtiNk -mHoWwNhDGkRJu+qkDDTJwM0mKtxYNIAGb09eMNfb5L+7Muvs536kq4gWzpmT -4ZpLFGvasT60+96P9YALZHiy5/pBDd8eFMJZMfTRiQxk9piYbt0eNBoWXq7i -QobPyR9evJPoQQ8D5byW3MhgDK8L+Zu70eoVz2kHLzIEVi+MZ4t0o3q7jQ8G -N8hAXSotsXvWicS+dpVlB5CB+W3fhYCTncjrTOoj1ltk+Hq6NPkURyeSsjxq -3BBIBkV2f3Udz3co3PBOq3I4Gdrcmbd26nUgMxXhMsIjMnClkTc2JN6i3LKJ -6CsxZGAatWdSG25D25QrPfpjyfB0QnC31OM2VCFvvft+PBl8p3me9Qu1IUl6 -WgZjMhls4olbM0TfoB888tFTL8hgOPza9oVqC7o6pnmp/BUZKh2sBTJ/NKLZ -ICelf/VkeLNT8tFoRSOykYr8faRxMz99D83bdxuRlkPf9c7mTT7lyj4MexuR -wOS58PE2MhTXN8i/CmxAeTMBaQJ9ZNjma/r6rko9Ikek21v2k0H8d27lDF89 -ipZrlUkeIIMdn3F95vQr5OfGUyA7RAbXL0sNsomvkPZCQrX6ZzKc1Ny325zl -Ffq6WNl3cXLTf/PVYIbeGmQe/SmudIoMEpL3s+wja1Cr0lar9WkyTO/6e9VJ -twble+t8DZkjg4aGWMTRpmp07ffAXOIiGfbVVz2i1FUhoT9LLB1/yZAsmb+o -11WB9LbKq8jwUSBR69xS9IlS9O/lnXhHfgoc+dpmIU8vRQVnJ9YyBSgQkJhs -pbpYgoTqU6qkhCkw+mvX4fT7JejrDYHDNAIFsvWrVxO6itHVv/9hohQFjhK4 -5qzsipBc7vHk0zsoYNVVvJ5woAiNWhUxJEpTgOB1NFeNqwhpVrvUE2Qp8O+3 -2vXcskLE5/dZXUyBAusFK0wbvIXoxWrTUUEVCniqCxzpfl+ArLPIz8xUKZBa -U+Y2mFeAeE/6b4s+RAFT7a0qymEF6HLZ/hY+TAEN16DcGVSA1C+/0ObVoIDD -gHfBNat8NLR4T4/DgALDYW2Kj/fnIrZ5S+MtthR4vXuQqe3Uc6QZXFt76hwF -fh/uLq2TeI4CJSi7Su026wmGkfRHsxDDscltzg4UcEVPTWUcstBqlk/1excK -9PXohNT5ZaIJ2+gdWT4UkPZ+3KBQl4Gk1n5Hb71CAcHpr6l/wjKQXdSprdZX -KWB+3yNd2zwDjdZRPm6/vunHfzQhu9l0NEB4+cDvFgUyvzhk+lPT0ev+jr8G -ERRI16jNU32Wipjc9jg/j6SAxLmctce+qUid+dEg430KZLnt+Oagl4pq91oV -lT+gwErchrbBrxRUcn/KkRJHAebiw3ulj6agdF2W98upFLC+uEfy9HoSulUL -L56WU+DYlmq1X65P0JDvyvrnCgrU9dwc1pJ/ghT35hhSqyiQoW8cvetnPPqa -Kbz8vIYCUb+F9BIvxyP1qDlc1rDJ95pIy0bIY7TV7mlfdzsF3v1J/5PdGIss -JU2kBd9R4HQTw32biFhUOMjid7KTAuSHm8/ciVhkq+9J+txNgUvSvxbPzsag -hn26zjP9FNj/LzU3TTIG3WRbZWD5snk/e7ijOiYaDTbmmup+3fTLLly50CEa -KfifexbxjQLhRzN5+Q9Go9Ff7/QEximw1LDVgP/jQwQjGTHkaQrcMrkdtyjz -EDHkm+46tEwBVkZYcOiPQgFm+ScusVFhez7f/MmJSHRuxbmsk50KBTyBMoNP -IpFmnLTwbk4q2CSwlQgYRSLOkZT+KW4q6J+661FbGYFiz0Wb2wlQIWts0jE1 -7i7K87hieoJIhUjK8Xsy3uEoSmBfUQmJCsGf705n7w1HXqW/+AQoVAj/XmvZ -9SsMqaw593TRqPDZT1TxP48w1HzztLHuTirs1YgdTroaikbuHzE8rEwFye9q -zCsZwahOkSH/yT4qcJZP9I65BqPU99Xca/upoEmPsbXZF4wcRfa9K1WhwpCb -gv1CaxBaTJLWVwAqnKgN0DmxFIjY87n0qHpUsGC5zkk/dxsd7BjQZDtLBdab -sS634gKQlX/HkbO2VPiWMT4qezEA+cs3QsU5KijIfbDarx2AmqLyVC7YU6Em -1sfpy68byOB40O43zlQIoGd3PXvlj2w/KwqFXaZCRbXL8g7/ayjwvjT/Fx8q -yKb3E8cPXEOZapK8B69QIaOW98mxJT80k8bGPulHBd0UBhqnqx/ycRz9q32T -Ck16J8tk7K+iuz8jxljvbuoNwCN3vX1RXurtrzYRVIhtXXgiouKLuk2vfC6P -pMK6TMWQ0oYPEiq1++AYtYmXeMVK9I4PSr6q2tEaQwVy+NwHl+eXUQnjZHFo -ChUG06+HiG94oU+CGoGsZVRw6VCMoG3zQGJTd+x1yqlwPyNOXf3jJXSitlc7 -vIIKUh/KXlYXX0Jd9ue4OKupUPbnp3eT3SXUWHYrhqeeCgbMVhxsby6iLIv6 -LKG3VIiKcJhyP+KOxuTY7pxop4Il08KJoHU3RNlq7BrXsZknuCeolrqhJy9G -94h1UYEaGMMQJOuGIv9sVEr0beYV+JLTTsIVeSagDtpnKuTuyHhCk3BGBZeC -88+PUsHR/7Fr2mcnNHP0XdSzL5t4x0rrclOdkP2c9XHp71Twz2xfPrPTCZ3E -1z/LTlIhmzGzVgQuIPSl6qfiIhXiNXy0+247IFb6QSE1Fhrc/XAtvt3ODnWN -hjAnsNKgAoV8z1S0Q7FP+5dW2WhgSfrP+x+DHZIS8Oot4KTBsFhPiUjSOaTB -mH+fxEeDjx9nDn4ZtUU3v9A4GCRo8K7kOWPrlbNIO8Fz7ZQkDYJWG752GpxF -vBYNk2VEGijx3rNXo51FyV1nWt0pNMiRWzS07rJBtXXxQZ930KBMUeKTlZwN -WkvgZahTpIHayZNt2ovWqMHizLyYEg3chfJU0p9bozDBvE+XlWngs+FbWWxj -jUQi9Gp2H6CBzTHt1dkuK7T/WvDVxMM0sFBoa42qOIW8LNeXrmvTYCNRVVD+ -hQWaFZqYPHSaBuFdwarc/8zRu+XQ2ptnaJBYRMmPeGuOCt7LPHxtQ4MXplyi -Nx+bI68HzoeMztGgilvled0+c7TGNR95zpEGPV9t9ty4bIZYmVf2hnvQwJa9 -iijLboqmvsWwdnrSgHCPFXl8MkFvG/Z/5PemgUNbQr1EkQmKDLgSnOBDA8bF -LJtEaxMkuL4+WHCNBqGlh3XkyowRZZHRfyCYBhd7XdMb/IwQU0+6CSGUBo4w -7DZhboTGCo7uOBtGA/NmR9p5BSOU5RbSNXWHBg9Yux1ftRsi+Sl26r/7NKB2 -D7HcyzFAh75sb6U9oYGGeW+XU/gxdKKTyOeRT4PgnRpHLpZoI9+a/24XFNDg -3n/fn7+7ro3is3uX517SQC83wPCFpjYaCQn54FxMgyczZr/ef9BCtjCffL6C -BkwHGi0/MGtt/p9r5S0aafA6Squg2PMoikyKS4ltosGtQ4NkxyNHUX6EB39/ -82b91jajUP6j6NcFqd8mrTS4b94uyFGigXwokbXHOmjQXH5tfWP9CLr10Fof -Bmigo7rOOZKkjtJv7q/zH6TBSliO9Ky3Omp2376n5sNm/+Wv51gdU0esx5oF -VEZoMEJVSjJdU0MRTHIje7/QIDus4Uy4pRqK81532jFNg/MZjhNOsoDyTjwJ -5d6gwfSt4ean/IeQpdw1FkcGOjTn6nlwdaqibYzWwfVb6BA8bhlCv6OKzuRJ -Bnox0YGAVO4eZVZFvMypN4bY6LBn4CIW3aKCPAqzLj8ToEPihdNhNYIHkGRo -2PKGIB1ct1k4zQ7tR23WTl4WwnQon7j1Iyd5P6Ky7fLgFKPDjz4q7pPbj96f -yXf1INJByc5sKMNgH9rPVWqHdtJhRk1sC/25Evr+NeZbrCwdqnYTz7y8rITu -l/vY/txFh09HpufKNZTQxLmDNunydDgZfGNR6eteFF9ZfYpdmQ69y1rWryh7 -0bpDo0k/psPKFQHaroo96FVDF7iZ00Ho1vjcPsfdKLiKMaPgOB1u+FQP/qDs -RvrF+9gWT9DhZ4999b5Pcmgo42m3jyUdHGX2vM86LocWQx1tb56hgy4Y55QZ -7EJShgyB0RfowDu+97i55U40o7V3ot+JDjpjPuNHJHeiIrA/JupCh/b5Opuq -rzIIFNsFEt3owHZmQhlcZZCFYFxGpicd7hanzt0IlUZ3h+VbKq/TgbWBpeF9 -vxQyeW8r+9efDidMzR82p0oh0Y5H93AAHWYfP+OSc5dCz2r/nGi6RQdixFTz -KTYpVJfSMtERspmHQbmm+BE6+uVwhv1LFB2u8bftVX9LRSeWIvVZntEh4EGO -WfIOMmp6p67gnkkH6mW1rI0/JKT4fIVvIIsOTzdE5zu6SIj79OnBZ9l0eHDr -zUKhHwm9bpE7p/lyc9/8i9yWXCJSetLuG1RNB3GWgdzbSAKlegecmq3ZzE/A -XpS2REC8RkrIvI4OBW6Sz2++IKAZpqeM9AY6XKzuK3ERJaA0N+fIphY6ZA69 -5+vcEEN86uzpjL10kEgzPHlgVgQFEGqDnd/TYWshPa83VwTNrVy60NtHh5CM -TlVedxH0JvvD7rRBOhj2V8fbLwqjAMHnFeqf6NAT9CTCilEYzU9odd6cpEMh -ztYXx4LIqvHPy8kpOoRqdTzgYxNEbQn50cYzdAhyK1F/2CuAnpkIW5LnN/N6 -431R1kkAna4e//5qiQ4fRgPSohL4UXtMfIv0Ch0ayYPNec78SOWSwYv7v+nQ -ZR/+WleFHwlKlbrbrNEhcvuzU2uDfOgWg5NJ6x869Idae3E850MLQxLKCn/p -YDb/xzPmCh86XdItHPePDt1//Gnxunyo/V7Q2sYGHRzqVk0ECXzof1AedRY= - - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{3, 11}, {0., 0.9709610360313319}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {3.0000000000000067`, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk -h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx -CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ -rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC -kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel -ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb -vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ -/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe -iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c -opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of -0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA -inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH -uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC -zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO -zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 -vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j -6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf -cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT -vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 -104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ -59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi -BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m -bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG -/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC -pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE -+EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi -/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG -N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm -xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy -84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o -j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 -N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ -3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm -x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA -ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST -wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB -SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk -iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL -fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR -7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u -9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el -6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf -rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I -Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt -X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy -W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz -swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX -Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb -T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO -3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl -86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ -ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG -W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu -knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu -olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v -3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 -WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs -kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf -RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk -tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu -5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl -Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j -1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X -maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw -Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg -xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS -QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W -ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt -E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD -heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs -cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm -IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// -8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 -F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j -ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv -SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl -moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv -cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL -4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq -zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD -+q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn -+dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs -S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF -ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN -mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 -hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje -q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY -5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 -cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz -Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N -8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e -2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav -uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 -r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh -o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI -hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI -hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 -vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS -0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 -W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 -cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T -p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 -teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o -usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 -0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn -Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP -RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S -+m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 -IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN -X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 -wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE -l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp -IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo -AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T -XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H -24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD -bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 -4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd -lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD -kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 -O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od -zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy -TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP -xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D -5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE -terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J -oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l -KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob -o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh -RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ -QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z -tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB -247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv -KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI -t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ -9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ -nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa -vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii -ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 -/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 -2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc -gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np -8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 -VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff -1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe -IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y -VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 -WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn -9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 -a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih -ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M -5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 -4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r -y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH -1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT -jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ -eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh -dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG -2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS -FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 -/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca -DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ -mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d -BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB -3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ -vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o -qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w -8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF -X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY -a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x -1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw -CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p -2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn -u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt -Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 -kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm -2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ -OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl -wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz -hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra -1/7l74hBvB6bHfofbUKTUg== - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v -m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE -ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX -iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq -ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH -jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL -t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR -nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x -2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF -ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I -xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR -ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS -nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT -no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR -hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ -hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 -qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd -eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 -/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx -f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= - "], - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJztyrsJgFAURMHrJzCwCVvRwMTIEgyEB8IDtX/UQLAAw0kWDjvdkue1LSOO -OiKmdJxrEd+qnmrumcd+yFve0/OneAfHcRzHcRzHcRzHcRzHcRzHcRzHcRzH -cRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzHcRzH -cRzH8Z/4BZdCRh0= - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk -h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx -CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ -rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC -kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel -ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb -vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ -/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe -iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c -opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of -0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA -inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH -uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC -zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO -zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 -vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j -6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf -cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT -vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 -104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ -59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi -BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m -bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG -/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC -pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE -+EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi -/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG -N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm -xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy -84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o -j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 -N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ -3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm -x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA -ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST -wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB -SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk -iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL -fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR -7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u -9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el -6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf -rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I -Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt -X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy -W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz -swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX -Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb -T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO -3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl -86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ -ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG -W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu -knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu -olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v -3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 -WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs -kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf -RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk -tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu -5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl -Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j -1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X -maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw -Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg -xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS -QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W -ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt -E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD -heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs -cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm -IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// -8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 -F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j -ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv -SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl -moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv -cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL -4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq -zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD -+q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn -+dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs -S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF -ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN -mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 -hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje -q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY -5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 -cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz -Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N -8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e -2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav -uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 -r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh -o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI -hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI -hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 -vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS -0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 -W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 -cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T -p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 -teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o -usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 -0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn -Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP -RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S -+m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 -IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN -X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 -wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE -l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp -IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo -AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T -XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H -24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD -bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 -4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd -lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD -kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 -O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od -zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy -TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP -xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D -5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE -terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J -oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l -KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob -o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh -RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ -QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z -tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB -247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv -KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI -t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ -9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ -nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa -vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii -ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 -/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 -2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc -gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np -8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 -VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff -1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe -IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y -VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 -WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn -9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 -a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih -ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M -5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 -4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r -y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH -1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT -jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ -eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh -dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG -2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS -FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 -/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca -DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ -mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d -BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB -3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ -vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o -qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w -8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF -X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY -a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x -1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw -CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p -2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn -u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt -Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 -kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm -2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ -OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl -wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz -hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra -1/7l74hBvB6bHfofbUKTUg== - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v -m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE -ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX -iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq -ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH -jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL -t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR -nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x -2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF -ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I -xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR -ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS -nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT -no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR -hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ -hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 -qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd -eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 -/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx -f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy -h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST -N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F -a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h -/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh -XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd -k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G -i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM -JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb -xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f -m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw -bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp -IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO -xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP -j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA -Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq -CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o -wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j -VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 -P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc -nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW -d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK -2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto -xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 -rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O -2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f -0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW -lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd -vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM -FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V -hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV -sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 -iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj -t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ -Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx -8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW -4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh -AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 -LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x -nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU -5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj -mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL -yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 -zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 -XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ -6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 -lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ -vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X -BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO -MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce -64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L -TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx -M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye -T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj -Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL -OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt -41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW -2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh -P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo -rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi -4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q -h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 -TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX -+zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I -7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO -b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 -xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 -s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb -rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ -6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p -5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 -TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J -pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede -kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 -cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p -31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb -voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ -Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc -N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH -cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g -Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 -XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu -HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 -cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s -ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q -2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV -b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd -Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK -wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe -KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF -VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil -ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 -lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 -qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK -HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM -WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ -wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V -N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI -WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm -jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf -iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S -KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI -R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T -S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW -52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH -VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI -frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS -QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS -VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO -qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG -mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc -I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU -+YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea -p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF -lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH -n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X -zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws -PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW -nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA -jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f -xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN -wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 -mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD -a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 -NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo -6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu -PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX -CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 -88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ -eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F -jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 -FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu -f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa -gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn -92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD -7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 -qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt -eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu -O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm -Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 -oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy -ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH -Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ -DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT -Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 -RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf -GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm -w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p -zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ -V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt -HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu -b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD -nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD -qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y -vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 -aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn -fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 -CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol -+TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx -q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD -yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ -cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 -y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 -0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa -cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom -HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp -b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o -6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q -nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 -0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 -vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv -UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG -LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 -hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj -VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk -ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa -rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ -Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh -fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w -gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y -YNzbPN43ZoP+B/eck1I= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy -h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST -N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F -a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h -/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh -XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd -k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G -i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM -JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb -xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f -m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw -bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp -IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO -xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP -j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA -Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq -CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o -wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j -VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 -P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc -nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW -d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK -2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto -xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 -rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O -2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f -0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW -lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd -vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM -FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V -hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV -sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 -iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj -t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ -Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx -8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW -4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh -AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 -LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x -nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU -5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj -mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL -yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 -zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 -XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ -6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 -lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ -vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X -BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO -MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce -64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L -TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx -M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye -T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj -Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL -OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt -41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW -2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh -P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo -rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi -4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q -h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 -TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX -+zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I -7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO -b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 -xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 -s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb -rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ -6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p -5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 -TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J -pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede -kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 -cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p -31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb -voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ -Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc -N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH -cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g -Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 -XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu -HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 -cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s -ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q -2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV -b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd -Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK -wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe -KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF -VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil -ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 -lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 -qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK -HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM -WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ -wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V -N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI -WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm -jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf -iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S -KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI -R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T -S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW -52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH -VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI -frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS -QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS -VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO -qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG -mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc -I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU -+YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea -p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF -lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH -n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X -zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws -PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW -nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA -jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f -xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN -wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 -mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD -a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 -NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo -6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu -PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX -CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 -88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ -eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F -jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 -FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu -f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa -gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn -92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD -7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 -qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt -eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu -O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm -Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 -oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy -ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH -Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ -DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT -Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 -RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf -GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm -w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p -zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ -V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt -HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu -b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD -nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD -qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y -vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 -aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn -fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 -CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol -+TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx -q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD -yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ -cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 -y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 -0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa -cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom -HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp -b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o -6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q -nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 -0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 -vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv -UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG -LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 -hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj -VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk -ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa -rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ -Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh -fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w -gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y -YNzbPN43ZoP+B/eck1I= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVl/cjFW4bxhGSrzj2OQfHmZlRdut5biUjRVFGSkZEZIushArJLCqys4pk -h5AIJVTIihJChaJSobf3l/v+B67xuWh27iYOHGxsbHz/zv//MZ3kDWxsBJDx -CbT7r2gW75wUbSqLIUD03/c/jj+YwROvbsntYAnCkEOcyEu9abwkIfAxv1wQ -rk0Ix3QnT+FxQsAZAywEDfxTBWY3JnCKyWxeU78QiGReDIunjePKeQM1yZPC -kOmRe+rs4TGcOljic2BVGNRaaDfPzQ9ia3fekPIkEehZHZyNmOzF0TZHhlel -ReHEQ2FaYW4PDk6/80mqRhQELk3PvTHtwIOak8Z0XTHge+Zga6/8BAsFSwRb -vRSDob3ZKPVePRYWMD9+2kkc9l9Rzd4bUYGDVi4kHP8uDotJO/oWE4pxsUaZ -/6ZYIkhnB5hv88jF9ZKDskwmCZStuUvKSWlY1XpekbuUBK6lketzs5Kw12fe -iUd6ZLC/ID9RbR+NSf2i85Z9ZPgVdDpclxiGI/k2FT93kwDX5+FmwR/9cN+c -opoXlySYvFw+y17kjqMVGQKrCZJwrkZ9OC3QAa+vptw+Li8F6z39X49JH8Of -0zacz66RAq1wR8WzH0zwfaVPcpI6FFBs9Ohpv2iAt218ddllmAJI/8Gu6DzA -inoF2zKcpKFD7O1tCVMNvDilbdzLRgWJC9ZZYTOKGLMpOC4aUoGYEe5kMUTH -uO2/fM5EKpiO9vRdMiDhHDX3x2yjVLBbS8h/Y0fAdcbPuOaZNJD3XHQSGeTC -zU2ZJX6naWB5MGpz6NFVpDjwa8unShocXPfmozX/IjK8ve/twRUaNPmxMezO -zqAuHop9lj4dVGTme9s83iEu+ozQRBwd0C+NE6ODfUghQVnmcR8diiUbmzL3 -vkAVecsiUTQGbGh19lRfbEbfnB8q7nFiwJMzQ1022g9R0usVqekKBnDa7Q1j -6JQiRlKdtwwbE8rebXvWTbmDTrF5LVroMsEl0X9r8fY0JCByd79vIhOKw1Xf -cO1MRK59w93hg0x4l78h9CuORNWfL1crSrNAZFz3hYh2KHIsqvJvOs2CS2qT -vZUCvqhD9K297gMWJDmYbV4Qd0Wv3qr9+fuXBSa9zeN9Y7aoU6T/pKUuAYw2 -104uacxiwrGBpR8DBJDwGV313TCDXX8ejvR0FYS52kO2XwI+YpdknSL/X4IQ -59eaGZA1iSPOB3/Y6CoKrx4MLeTTXmAFl1Yp6l9RGL1TF1FHeorPHg2dargi -BuL6LxQYGU1YSHfbl3FJceApC5O2M67B7Rddf34oEYdb6pI39no9wNdIZK5m -bSKovWqpVckswBWFrQdZg0SwHK0Koy1nYv9dE/Kip0kQxOP2sD0sBZuwgnnG -/5CgI/2AM5aMx7q28TNXYskgPWDwVmr0Ij74VapLiC4Bc7YJFxrdgnFJcOEC -pVYCom3icj+c9calGwuyqg0lYe++ugJH8dO4/SvVbPOoJKwtuq1utrfFv+VE -+EM9pcDishz7j43muMsh4PCJNSnYzpg5W8dvjJdujw48iaOA7Op+bpd0Hawi -/8iGiy4Nkz3fvovt3YGjeMU+Myqlgee7+oW4n1vxTe+qIftNVLjK03/Fw1IG -N9qncq+4UeHC1FCM73sK/hq8q4KjhgoJ1n0nfK1EsHJz2gc/dhpcCh2r9Wvm -xShS/Wi5Hg108vULLKfZsd/+F+5b42kg8yn2+nDeT1S/nb6eMkiDC8XLoQIy -84jPVI16jk4Hc5+NEZ99J9Dp6+vqdrvSgfPA315S1xC6Ycl3+1UZHYb0bE8o -j79ECxIilDt/6JBNGXX2uNqGTHkGqVM6DJi02r1n30IDaqZY3bkey4Dv6732 -N+tUICvVkfbLQwy44+lX7qlRhFo7klWBwYTOs41X+XSy0I5ofuopVyYc0PEJ -3FSajBp89sSuVDKBg9hrw/noKhJ6/2CPxQoTnkdxyIcNhaNYQ+kbP3RYcLBm -x5Ek+QBEfGfgti6WBSmvA2N3qnqirl+RyjkDLAga6j1V4OSIrilqVCsyCEDA -ctdKvGZxHtVvqLeMALKcUqFRNjNYdvKnRb++IFwfTBfbP/ERbxks1I/vF4ST -wk2mDZQpvN7DeYxLVxSIAT/3X5Dvxr0RlZwZw6LAMWYa1nivDct2qKQuOImB -SKTSS4nRxzjRVl5d+qcYJE0sbZs/XYvdntnK518RB062kvshX8owz39Gz+Mk -iMDmI1On+bcIb1mom7hTToSwQw89d2dlY3LxaKGkHgnsWvbu66y8iZu1q8hL -fSTo87Vbe9uRgEfyXkwxXcgwI7/oNc4diSs+3LSu+kMG3zCnJ9omoVii9aOR -7zUJ8NLJlepO9MW7Q2Znr8lKgsrS6KelBlcsJ5CtIlojCT+erfJuOWyPQz1u -9s0dkIK5UK17LD9LfJy9eSZ0WAq6dM/RblMPYZOpk+wLzhRQem4c9GNBF1el -6vnUrFHgRMX2ojd0hIdkxxLfx0qDSFu6pc56Nay7eUUkTZgKObwGqgV/5PDf -rfZVfsepwKcxPNonQMM3snOL192hgpvLPh/XUjHs/OeiSf08FRSOrAZo3N6I -Vz79VT6kQYNGo3jeqrZ1OI1bM+5wMA0Kt+2i2lr+Rj4b+NMi2mjA+/H2hpjt -X5Gif+PaSQE66JctSmx7PYUkuwkCXkfp0CF6JHRz6VvU9ei3uVUWHWh3NNoy -W16j2P4sevk0HcIScyq7tJ+hiDfTtzRVGYAxQZMs/Rgd1eF1dg1kgGZRI4kz -swr5hbsuVrcxIChqpb5etRj5KBW+LhdkguYv0u5bxBx0aG/TBhtLJuhNcOZX -Gd1Ejjp+X7RymTBSmr/9kF88wsNPN8zNMqEh8gpL6utFRE97nS+owoKSwVeb -T8gHI7w3dNE2iAW/GiU1zvF4o8715R1LLSzgnyK3aIo7I85VX6FLzgQQ8mHO -3PwxgwNStgmQ/hKAN8esd/7uNG759GLr1RIxuMhxrEZwogEnyuvfydstDqyl -86snLKowXduvhfpKHK7X5ohvEyzFVNkptHSKCFuEQ5dueOZhLfvu+tw1IqyZ -ajyymEjH/S9m7m68SoKSlP/k5IOv43EenR/dNDK4Pas3z5G/ikslTD9/e0CG -W3tUSjQmw/Hntaxd7voScIcq8tvncgDereGS2D4mAWZed49HxXpiqdsOFkNu -knDEeDP1TPEp7NSbcW4vpxQI3CZTynRPYO8PsbqC16VgcrSr7fzoYYyeqTTu -olHgyL5xy/cy+3HyEYvSlEoKlLhK/b1+eTe+X6NywGSvNHj51Ffeu6eFtT7v -3+s4LA3qA4pr41Jb8OeHHpkK26hgKZu5Q+8PE5+//tosNPQfDwQWpL//KoH3 -WfbXsj+nAg67RCvZI4S/R5b7qArTQMn7ehqbEg8OZbpEiFr+y8saBQMDDTZs -kmh/kD+HBgINlyc/bf+OOF01vKpnadB7QnJCSP4z+rK5UPuqOh1edI9c1jEf -RzVWPxyFQ+hQue+44h3VAWT3XWrcoIUO/O9q4is29yAT20ukFH4GZJZzP7Sk -tiL6to68a2YMgDIaXl6sQ/K/7r5vyGJA+kmv98ayZQh/MEw3/8KArSrPKOcu -5yMxh4ikTjUmOKWb8z3TykCs7mMabueZYFT1rO+32TUkekdAuamNCRSZ3Nsl -Q9FoYiotuHkjC9RDVSTbflxAv3+fjhw2ZwHTzUyh9pwfWggQnsnNYIHrtq/j -1mLuqOeT9fVDn1nQYfvSOGDdSeSv5WiTLEiACaFCuYnYWfw1TPfFkwwCLF+X -maqOmsHcxwwe82gKws616McdYtM4MWBEXLJVEB4t0855WE1hfacTb9lVRcEw -Wf/pLYkeXJCw2X+0QxSe669EtAe341C2GN8oczF4GTZs5h7RjE3m6Za7JsRg -xZL6fvpSHW5yHXnCE/BPz2bp5kcry3HzOqeSszxEWAnYrzGjfQ+7CVcrTWUS -QWZvF34TnoM/TVg5Z6qToDCY+6bz+1v4d/crxmozCTL4/irtLk3E+QauDp6W -ZNj7orgmQikKT4282RQ5TYYpesb6dOUL+NU0d0jmBQnI/UASq6o8i2OqrsSt -E5cEYujmtHwFNzx0e5y64Y4kMJZCRJtsTuIW4WPbNu2UgtL8W+NKT45iZrdD -heAzKaBYJ59JXjmEQ3kLRLnN/+VlnvN8noo+9u/lWxP8QgFWUIfyl2KM19Xs -cWwKlAYf8xcBe1jqWJJXWkWLlwokUnFVhpMClibpxVYepoKOokrdyXka/qxm -IR+RSgXaKLf72qI45r7xO2p0igomr+++2ykjgEekJsmZm2lQeW91rLeDE9// -8Iky5U0D33Nufte6/6CehfCp6gYaeLOR6xMp31A9L9fcEBcdwlVGYpMlptF3 -F/GHUYfoUF/Y8NoTjaHZec/KjBt0ODWW2pbU3otGyqeZ28focPn5IZ9dD58j -ycYFcxt5BtyKGZvXWteMNr15/+yNJwPOtHBs8fpYjS7ereA52MAApcZ68wuv -SlCnTVnOFx4m9LCZCSiL5qIR+s2QEWMm1MS1iATV3kLbFQWlzFOZUJ7EZzpl -moDMLF5+1hpnQj3lnQRL8DJybSlWzpBlQc5e6xeFz0LQKz8JjQRvFmjvxJcv -cvmgZ/ztyVJ1LLjnYqteE3MaTfPk1c2bE4CponzvhPgsbv3Fw8HzmQD10wOL -4cPTWIohw7fpthikPn0yYsvdhE1qoKNFWRwGin6nOBtXY98PX4+HNf3LT/mq -zriGUjxEZaMPHyaCJp/0Zr7wfHz20jPuyU9EkAoJezW7JRPnc51ySQgkwYFD -+q1hAcmYnGLzd4CfDAaJZ7qNCmJxYMPX0ziTDLK9E01zwxGYsjzGpa0uAUWn -+dUffw3Ey5bRjxc7JcBRQ2IyMcgLO/Zxr+oflwRP++BhwrATJtq/O7XtqySs -S6M0uQbb4KpLh4r0w6Vg1X5zgNX8kX966I/qEqDApsaBYcPEA7j1XGpLcTYF -ooTEFD5f2YM9vv7sv6sqDV075DKyF7Zhm8AHxL3t0iC68WSkKedW3Jyc9KhN -mQpZpsQMQ/omnBFUrdTgR4X241w7TWykcPqnKM2wx//6/cr9GlN9YZzIkr13 -hJcGMy13BD64b8AnzA66nzxIg2jTjOdzG9jxSXfiu4ybNGhPuN8X6fQD2Zje -q599T4N9usLWC+lfUFDT3JZ1inS4Wr//sfKJDyhheYWg4EsHHbZj89b+gyhY -5jqOraODYrDjk0COlygLvZCgcDHAsviJ+lmjp6iW+tL+0YF/e6nfecTD6RH6 -cSV8j/wNBjAeTG2UVC5HB/67Vj7/gQEyFhFBpX0FyC3lqj23IhPCCSy3D6cz -Uek99buzvkx49eVngVXgdTQbU2g92vBvTx1spXvsjkF/7PNtNnKxwKte4e+N -8TCkw9hLcDZiwalL5XHd7f4oorhEoTeZBSdUTY0HLD1Q9zdvu4BxFtTU2q2e -2uyAXk4YtMv+YIECU7vi04wdOo3W1J7zEKC7WZb9ZtosFlMr0d2RTAANBvav -uz2DfcW9vtOUBOHPqoJckPI03vPc969tvSCcO9DVtO/cFHY+eXTkvJwoDF99 -r9R5ogcL3ZjZutYkCo+4ZbyVp9uxYlrNeJ+RGAgJBMYeHmzGKhrSLp1DYqDh -o7l6mViPZx/djN/mKQ4ltXx6nyQqsDTbd+nZNXHwFYi5sXP6Hua/U2F6KYUI -hlE8vB3LObg3lGwwrkiCjYlrmV8DU7GYuG3BhYck+HazZ+GKTBLmS63LTTlI -hrLlRop9WxQOHfzB+3WUDJ9mt2qGZl/AxQHJohr+EtCya6Nu2X4/XGoy8n47 -vyQoD219kDjthlUmOYjhqZLgt/uxruXnk9jRYdcnbVUpIIWJJji4W2GeqmrS -0cdS8POmmXyWmwm+kdYhnXCAAtU5p0T/DOrjAY/5ZjRBAYfGhw5+uwDf+Pu9 -W9lLGuZvrnZsqlXHkf6lcImLCsnVbr1hmxTxfb5tAYcPUoH8H8+0kz0di609 -cGpJpoJ/aZCeTxoRH56quOM+TgWG81PegUUB3FllHq8nR4PPW7kknhpzYS2T -p1NK7jSQ9U41s01cQSETDVcO1f7T/xbB9B/XviHO3vxJUXY6EDcMOKQ/nUZ2 -teRY0QN0cCiv21bE/Q4tR26e0L5GB4nGU/bhxn0ogs6XFzxEB+usb5oNQZ1o -usynaonFAN4AtY4H55pRTOaLwI1nGHDo8Sj/hsQaFNNoIZz2kAElwVr8HkX3 -0fKvqivRnExYHmA/ZnojF2UncD0kGzLBRTJa87tfKmJSR9Wmkv/xaOFpo8Cn -Ceh9spn16FsmBC6Mvs3Lu4wSB24tTjJY8HjtaptbznkkKej8RtadBd2fvvjP -RfqgfYkmq1urWDC+mh8QZeyChvhRPNOYACnfxgaNZWbxbJFH4PlxArSaX/5S -+m0aP2swPed1TQxGG8nBaiZNWOXvzmHTTeKQPiRWo9NVjdPV7suXV4tDzpQ8 -IU38AdaUuppkZEgE43UfsumEAixKbFe4OE4Ei6JTfF5JmTg+i2X42osEgQQN -X+3VZKwxOhd+nIsMAXaHjTa4xeF3AtpFDilk2NBQcCPO6iKuXlqbKVSQgB99 -wbXDxUH49SeSZdQTCdgY8OWV7LIXvuJpbhx6WBL2qH5MPernjD2K2E6Uf5QE -l1kipWvOBlsMqBw7GSAFsCCycyrIDM+GyM6LradA9utHSupGRnjkv0ddWjcp -IL3J/cZRYR388upQ6oD8P/4cufK18cZ2vNRsH1bRIA25yh18B4K2YiUuVqeo -AhUGKR8MOus2YWWPQvJxbyoYTvsVhFAouL3ig29zPRWiz9QG8PQI43fe421T -XDR44vIncYM4Lzaab574bz8NGB+HfzX7seO5t9/yp6/R4O0XPfarXD8Rv95H -24i3NBDTr2ZF2syhlqgEWSRDB477mZ/zpj+gNV22qSoPOnj4/9Lnpw2h6KaD -bluq6aDH/0hr3uMl0i9eSLNlY4A2aXaw/dNTdEnkSPMhAwZseR2d916uAR07 -4r50IokBNXkVrdw15eiwtFbDjjEGyFtxNd0PL0S3tiQa5sgw4XewFzu5PxOd -lcielPVkwsHfhnZ3hJNRb+jZs2dqmZCo23L24GoMupSt+KqMjQUOJoELbMfD -kbOmSu99AxZYrXtpauh3DnXprnS6JLLgzs+UPfKtHsjo7Fp77FsW1HOIiXa1 -O6CDTr1Ku76yYKze/FWlj/0/nm60FfnDgq2WpOS/dnbIXntfhgMnAYoe27od -zZnFhXx26/wSCEC2Nei4kT+DFX0vxZXICcKOE6L7y3ZM4zTv3YucNYLQydHy -TjxyCgeMvxluYIoC2TD+ICusB+untvHH1otCBL33wrBUB+aYNSIF7ROD4qHP -xRqcT3C2pdSScL8YOH9k1e22q8chjss/XrqKA+OoxPyocQU2CqkbYPwWB09D -5/dFO4vx6BlVx/5EIpDnbt3dopaL27t+aYXLkmDRdeTs6WepOHd7weyTChLE -terjXSeTcOMe+xb5/WTIu3A9Vko0GneacwezhsggXdr4hOvtBXxrj/X7UG8J -oLpph6Td9MPNmZxX+jdIwszNjp/V+u54lCdJuClZ8l/f+RpEqDpgDX6llm4l -KSA8o98mtlnhgEKb/Wv1UmCk1GzyoMAE5zoM5fbrU6BidMf4QWUDzNNow+ob -o4DZXbbYYk/AdozuiFNnpMFNaFlHilsDNyj/0tu8jgpRCvjPscuK2I9bZYFh -RIXqR6miYel0XDQ+evnkNSqIM2N+n/pGxEEbE1W13v3zw3lt7o1KBKyzTtBQ -QoYGxFPs+9iuceHgqPJ9r11pYBWToNnyfQUdsT5mTamhQdD7u2v6L7+hAq1z -tuVrNOgTsauckppBN2zT/If30SGXQHa02/EOhRy58kcokQ67Oyliu6/1oYHB -247SA3Rgz771KfRdJ+q6VzXZwGCAXkMTt2BVM8IX9xwuOM2Ax2aUWvJMDYrv -KCLurmbAahD8OsBXimJ1H/614GDCkzP/qbOGcxFnx47+h/pMmBoT2Zg/kIrI -t1qaiq8xoale8e47tkS0SYMk/mCYCZfv7o19+e0yyrVLOBJFY4GRSLcb14ZQ -9PitQMGSKwuSjQz/TDz3Qby9KVvqy1nQYNB/e325C3otGP27YR8Bbj+oLFdQ -nsXB4UyturcE+EA44kRdm8aZfLP3ifFiQBF+pBrp34Sz6TtOptLEYZp3sDaa -vwarvt2YYFguDnkvA1/X6zzAjqmm+yN1idDTpHHvmXkBnnini/reEiG7x1Ii -ojUTR8xz7vBxI4G7pKzSXZyCW9g1nmawkaG2aYX37qs4nFQz3bGcSIajhdf5 -/dMuYk5v/mOjmyRg+9mtWWUbg3FTxXtmb4MExI0NnaJqeuP0xvPLEgclwSb7 -2vepp85Ysiv+6MK4JMTYMbhuy9piuQsM9W++UrDd+Bh9pcUMH/N6SavjoICc -gsLCeLERnu59YRpyjQIXi09vOGOhgzlGDNfcNkmDRbxqkt3cdtwwtVPz80Np -8Jc73xj+cCs+WX/mdb0sFS6yYjSIvDL4p3N2vKInFVw9Syasz1PwsZuE63a1 -VPhdHnxAV1QE86Q2Hrm/jgZyX+1/qrvy4qc7gjLGDGjwKCJ4uuI+O1YRffff -1UQayI+SmIVHfqLJpgi1Q8M0MI81+qDwZA45zdnlDjPpwBm3A7qUJpDa3IWe -IDc6uBwVauL2G0KCV0suslfSYZakm6xW+BKlnQw7vm6NDjbFujTCzjbkyp/y -VUKPAT3iBt99YhqQwPbJzt/xDMjNs2uaXi1HFnLRT96PMOAn/aPp2ZFCtCX4 -WqMniwl1FnnFtXxZaMBkgKPdjQlbpJ/JHbdNRh2/j3Go1zAhdtX779VjV1Gn -9nz0xTUmrKP+Zh1PDUdBj2U1TPX+6StPqMq05xzyFs65rRnPguEqERj644H4 -a/asEIdZ0C/+9IE80RERikh2bXMsuLyT9jO5zh4J5XBeT1/+xwfySjl/7tih -ROkApehVFqxK5lGXqHbo3W6PXhUOAgSlGHyvyJvF35br3ovEESBvxd4u5N4M -5smNH/GREYQAOcPUFu1p3N4me6a/UhDi2Iwcz8ZN4bCsZCtruih4CulP2Sb1 -4PE0jdUjtaLwIGD1XrdWB54j3FIz1hcDL27HsiekJ/ioS1pN9et/e+3VRS2r -y/W4vVZGPv20OPRivZF1pyuwwyNKZdNPcZDuuj2reqoY677ycg+JJ0KgfmwH -1SQXN/vOlJpuIsFECnl66Wsqdu18/p9DGQmS2Ir7BsOSMJGoeXjJgAwirudT -jHZG429i/FWNb8gQZk29Ffv7AhaU3a23yVMC1l90/3imyQ93tt04kbteEki/ -eP5onnPHFWSrBOtrkvBaIL7Uy9wBp9vllSYrSkGfmWyI5aIVVmVUOvTUSsFh -dvH1q60mWP6Z3alzuhSI+/jIwumoAaY63jTLfEsBwWjdJe4YwHqVO06sc5EG -2tmduwIVNbDFldvP2Tio0KJsR9StUcRW4Up3/ztAhWv1yz5H6ul46bBviloS -FQiqj5pfSpEwISs0QHKMClvfFLId1yfg0MIzslybaPBg4dCCWxUXprKKgu64 -/OMJnYzWHzKrCCTutnFW0yBHYeBo3fw39HvWVjps9Z9f7lu1rhrMIFX1t2ca -DOhQ3fXm0N8j71Dzju2X/8TTwa8w2Gqpqg+FVU7pLvTTgbtfdGpC6AV6XGi+ -mkNnwLGe027Rvc3ohl9Ik68zA6Dk9KKY6EOU2GUqIVrFAKvQoCyqbCkacK3d -BuxM2FV/aufYSi6qmug/GaXHBAPyr33nN6QhkTfVlxKSmPB4hUS1oiSijosB -3reGmKASNFq8mxSJSvJjuK2oLIhl3exYYoYiER37+CEXFty7MrPw4IsPmvXZ -vu9CGQvq0J+9RpMu6KBwqXKMPgFq3HIyhFRn8VP3EDHLYQLYL55061o3g6+o -qj//dFUMstyePum80oSPqtXKYmlx2M6/ojqhVINDtu5qEX8gDmmDafI+Vg9w -8FCVLEuHCI6sxRtTgQV4/95LesHDRFj+oG/8eDQThyQvlem4kuB3Rqg1wzYF -X0my/AhrJPDhVNtZzRGPP8fUWzbHk2EjqU5e9dFFLK8idt2fKQF2CzziQigY -a95sjT5X/6/vuz87T5t54/wp4RczByRhv+4mTZ55Z/xtzGIg9p0kSFzPF3+x -1xYn9qXSHnpLwbmRFsdjM2ZY9DNrx1U2CvTWdmbJjRpht21mYrRECqzcEnMw -CtTB5PAI5e1MabDcn2x2i7QD5/oXCkZWS0OBdUuP28BWvCYuZB4vQ4Xy6H2p -2Vtl8PBUuqGIBxUqkho27yml4Lz/8nNVHlJB8fz9AKwlgtOUStKSOGgwfkXn -u2oKL+YYHwjq0KfBAMfzZwvP2XFvaf+uEwk0uM/LbS4d8hP1BL++rTlEgyjt -Ot/vS3OoNtPQrohBh8mrMkbIZAJ1P25uPXGGDm8SxB+5Zg+hw97HBWfL6fC1 -kEcutfUl0oXnu3pX6NCTYTSddrIN2fyntYFdlwE0iVWyZkMDclKkbmuPY0Bm -2aPjGrQKdFRJ9WnFMAMEXc7KHNhQhAJyrv+yYDKh7Zef6QHZLBTt5p2QcoYJ -OR9CHTIik1GL5sF2YjUTKnQ39WXFXEXuCQc/uq0ywbTmu0N/bTi6yM38yNRl -wan9Dkf3r55DT8/9uCgVx4Is6ffLPuKeaM5iSnR0kAXbk+Rl94IjWthXHxjz -hQW6WhF0pzF79G1Pfon9TxaUL35f7G2zQ15NkvrGKyzgGatcG9a2Q2Uhb0Ra -1/7l74hBvB6bHfofbUKTUg== - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwl1mOQnmcAhtHd2LbNxnZj221s23Ybm21sO2ls22Yb2056tv1x9n2ue57v -m9mZnXk3aaP2VdoFBgQERAgWEBD03OhHPcKwXtcnG3f0CLJzS4/ERwI26fqE -ZYNuQHbu6pHk4LYeRXA26waEY6NuSA5C8JetIeHZpBuRk5CEIjRhCEs4trjX -iAhs1o3JRXi22hoTkb90E3IH/Z5sszUhElt0U/Lwtx5FTu7o0URku25KZLbq -ZuTlHz2aXNzVY4jEDt2MKGzTzcnHPT2G3PytxxKZnbo5UdmuW5Cf+3osefhH -jyMKu3QLorFDt6QAD/Q48nJPjycqu3VLorNTt6IgD/V48nFfTyAae3QrYrBL -t6YQj/QE8vNATyQ6e3VrYrJbt+FnHuuJFOChnkQM9uk2xGKPbkthnuhJFOSR -nkxM9uu2xGavbkcRnurJFOKxnkIsDuigP+o47NPtKcozPYWfeaKnEpuDuj1x -2a87UIzneiqFeaqnEYdDugPxOKA7UpwXehpFeKanE5fDuiPxOag7UYKXejpF -ea5nEI8juhMJOKQ7U5JXegbFeKH/ID5HdWcSclh3oRSv9R8U56X+kwQc011I -xBHdldK80X9Sgld6Jgk5rruSmKO6G2V4q2dSktd6Fok4obuRhGO6O2V5p2dR -ijd6Nok5qbuTlOO6B+V4r2dTmrd6Dkk4pXuQjBO6J+X5oOdQhnd6Lkk5rXuS -nJO6FxX4qOdSlvd6Hsk4o3uRglO6NxX5pOdRjg96Psk5q3uTktO6D5X4rOdT -no96ASk4p/uQijO6L5X5ohdQgU96ISk5r/uSmrO6H1X4qhdSkc96Eam4oPuR -hnO6P1X5phdRiS96Mam5qPuTlvN6ANX4rhdTma96CWm4pAeQjgt6INX5oZdQ -hW96KWm5rAeSnot6EDUIeoEstVXlu1xGOq7oQfzEJT2YmgS6v8xWjR96Oem5 -qgeTgct6CLWCvt795bbqgQH/vdxWePzENechZOSKHkptgru/wlaDQFbaMnDd -eSiZuKqH8Qsh3F9pq0kwVtkycsN5GJm5pn/jV0K6v8pWi+CstmXipvNvZOG6 -/p06hHJ/ta02IVhjy8wt59/Jyg09nLqEdn+N7RdCstaWhdvOw8nGTT2CeoRx -f63tV0KxzhbWts65DqEJp9d71iW884bA//9XyOruvxWLAjk= - "], VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{4, 11}, {0., 0.8332573817712089}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {4.000000000000009, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3k0Fd4TR0i+4tnfszxvzRplb7t3lCwpirKkZImI7LJLqJCsRUX2bEWy -h5AIJVTIFiWECkWlQj+/f+6cOTNn5vOZz5x7z6Xauhnbs7GwsPCsH/+3J7ST -N7GwEEDaO9D2v6JZ/H6ve68yGwGCUvR/VOTNYjutAxn27AQoemLjejxnFp9F -a6ovuAjQ3SzDeittFvtpOlgn8xNgQqBQdiJ2Fl9XUK9WoBOAgGWvl3jO4k6h -/tMWOgQw3Fo7uaQ+iw8LlirF6BGgxjUnQ0BlFr/hj/7TcIAAdx5WlssrzeIh -XhTPMCJAyvexQSPpWTzNlVc3b0YAhrLS/VOis5h91UfgshMBBLwZM7d+zuDd -k8JNZTEEiP734efJhzP4+3LdB6E4AuSt2NmG3J/BhTy2G3wTCCBmo99xM38G -i6iW6OxKJoA6HfvV3ZnB38J0Xj7NIMDyDemp6qgZnEfxHeotI4AMu2RolPUM -JpwYWPo5QABx79FVn00z+JlbiIjFMAHsFk+7dm2YwcHhDM26dwT4SDjmSFmb -xrNF7oEXxgnQanbla+n3adz6m4uN6wsB6qcHFsOHp3FAyg4+0j8CcOeY9s7f -m8YTr2/L7mLyw5B9nNAr3WnMlRs/4i3NDwGyBqktWtNYwedyXIksP+w6JXyw -bNc09hH1/EFV5Ie/q/KyQUrTmPOE/hMuDX7YvRb9pENkGstM/jLv1+OHG4Pp -IgcnPmGXX0cjPVz4Ya72iM3XgE94SZzvU345P1yfEIzpTp7C7W0y5/or+SGO -xdDhfNwUTvPau8heww+dbC3vRSOn8L4XPv9s6vnB/1BX0wH/KZwYMCIq0coP -j5ep/u6WU3jbYKFefD8/nBZsMmkgT2HnZO0iv9/r9XxbMwOyJvE4IeCcPhaA -Bt6pAtObEzjFeDavqV8AhDIvhcVTx3HlvL6qxGlByHTPPXP+6BhOHSzxPrQq -CKot1Fv+84PYyo07pDxJCHpWB2cjJntxtPWx4VUpYTj1SJBamNuDw7KSLa1o -wuAhoDdlk9SDA8bfDjcwhEHMIP4wM6wHO50+PnJBVhiGr31Q7DzVg/UcT71j -VREGg2S9Z7fFe/BGd6cxDh1hIAb8OnhRrhtHXAj+uNlFGF4/HFrIp77Ewel3 -P0vWCAPf5em5tyYdeDxNffVYrTA8DFi9363ZgfVS23hj64UhgtZ7cViyAwvc -nNm+1iQMjzmlvZSm23FBwla/0Q5heKG3EtEe3I57IyrZM4aFgW3MJKzxfhuW -d26VpPwThtG7dRF1pGd4UGPSiKYjAjzP7W3slJ7iOcJtVSM9EfDkdCh7SnqK -2WYNSUEHRKB46EuxOvtTrJBWM95nKAICfIGxRwebcShLjE+UmQi8Chs2dYto -xjIdyqkLjiIgFKn4Snz0CT5/PHSq4aoIiOq9lKdnNOGrKmovPl8TgSzXZ087 -rzbhTJ7ZB8R4ESALPlaJ9GvCzxtM/D2vi8Boo1iwqnETlqRL82y5IwKpz56O -2HA24ZbPL7dfKxGBS2wnavgnGrBAsHiw5SsRGNqfjVLv1+Pjzmk11W/W819f -0rS8Uo+zLSSXBPtFwOkTs26vbT1WVpdy7hwSAXVvjdUrxHpsPE+z2DMhAisW -lA/Tl+twoo2cmtQvEUiaWNoxf7YWC+js+DouIQpcZWFStkY1+LhqrQyWEoWd -vCsqE4o1OJu263QqVRSmuQdro3lrsPK/3cMmW0QhfUikRrurGhvXQEeLkigM -FP1JcTKqxolyenfz9ooCc+nC6inzKizIZ3byrKMoHLyqkr0/ogK310rLpZ8V -hV6sO7LhbAUOcVj++cpFFOjHxedHjSrw7ONb8Ts8RKGklkf3s3gFbnIZecoV -sF7PNN3seGU5dn1uI5d/VRTYWUoehHwtw+2XXH59LBGF22oSN/d7PsQh2/e0 -iD4UhbTBNDlvy4dY5d3mBINyUch7FfimXvshTld9IFdeLQo5U3KENNGH2Ofj -t5NhTaJwQ66qM66hFNO0fFsor9f92hzRHfylOGjlYsLJH6KwmLSrbzGhGNs/ -Jlc2/RIFqa47sypnirFhSN0A/Y8oeBg4fSjaXYylWH5Iza6Jgg9fzM3d0/dx -8wbHkvNcRFgJOKg+o3Ufc/1n+CJOnAgs3tJ1Gv+K8HWSGEezFhFUX7fUKmcW -4OChKhmmNhEcmIs3pwILsEOqycFIHSL0NKnff25WgDUkryUZGhDBaMPHbBqh -AA9RWGjDR4mgwSO1lSc8H1NkptDSGSJsEwxduumRh4vVy/y2xBJBKjvAbId7 -LtZ57ekWEk+EQL3YDopxLh49p+LQn0gEsbnb97ap5mLeuxUml1OIYBDFxd2x -nINdBasVpzKJIL2/C78Nz8HbFuom7pYTIezII4+9Wdm4orD1MHOQCBajVWHU -5Ux8cP9l3eBhIix/1DN6MpqJJ97roL53RMjusRCPaM3EwsR2+UvjRDAvOsPj -mZSJz19+zjn5mQiSIWGvZ7dlYk277vrcNSKsmag/Np9Ix/USgzIMBgmUrDhL -yklpuNlnptRkCwkmUsSml76l4vau35rhMiRYdBk5f/Z5Ku4NFdMfVyDB5sS1 -zG+BqfjzhKVTphoJCoM5bzl9uI3FikcLJXRJYNuy/0Bn5S3st2dCTvgsCYK4 -XB+1h6XgkOSlMm0XEvzJCLWi26TgiHn2Xd6uJHCTkFG8h1NwfBbT4I0nCQIJ -6j5aq8k4n+OMc0IgCQ4d0WsNC0jG/S9n7m2+RoKSlP9k5YJvYBWreQXOUhK4 -lEZuzM1Kwi6dL/6zLyNBEktx32BYEs7dWTD7tIIEca16eM/pJCwialNw8REJ -vt/qWbgqnYT/dL+mrzaTIIPnn+Le0kTcrFUlttRHgj4f27V3HQnYmBnMNf6X -BB3ph5ywRDy+mmTxCdZI4M2uuruaLR63sKo/y2ARg9qmFe57r+Ow+uhc+EkO -MQiwPWq4yTUOi6VY/xvgFQP9xHPdhgWxeJxL+2c3VQxcn9eb5chdw55fuCce -64qB3UW5iWq7aEwkahxd0hcDIZcLKYa7o3HjPrsWuYNikHfxRqykcDTmSa3L -TTksBmXLjWS7tiicr+9i72EhBvtfFtdEKEbhkbyXUwxnMZiRW/Qc54zEOjbx -M1djxUBqQP+d5Ogl/CWm3qI5Xgw2k+rkVB5fwkk10x3LiWJwvPAGr1/aJfye -T6vIPkUMNjUU3IyzvIQDG76dxZliINM70TQ3HIFLxU2+fH8oBrf3KZeoT4Zj -Ur/wvEWfGPwOOhuuQwzD30V4qxrfikGYFeV27J+LuNOMM5g5tN6/tPEpx7uL -OHTwJ/e3UTH4PLtdIzT7Ip4aebslcloMpmgZG9OVLuKKj7esqv6KgU+Y41Mt -41B8+JtklwBNHOZsEi42ugZjOWWRG34McbBd4BIVQMGY3Yv3xOgWcdh5fntW -2eZgXL20NlMoLw4/+4Jrh4uDMHl5jENLTRyKzvKqPfkWiL+sZe1x0xOHuxSh -P95XAnAkz5biF67i4PIi3DT4ky/ml9mru8VDHDZecvt0rskX395n9SHUSxwo -rlohabd8cXFAsrC6nzi07NmsU3bQF7+e5gzJvCgOuR9JIlWV57F46ydDn+vi -4KmdK9md6INLggsXyLXiEG0dl/vxvBfWuNUa7V+/Xq/7i9O0qRduqvjA6G0Q -h7ixoTMUDS/85jPJIuqpOGwO+PpaZtkTL1tEP1nsFAcHdfHJxCBPvFfdObF9 -TBxMPe+djIr1wH1zCqqeHBJg/Gr5PGuRG+5su3kqd6MEkH5z/dXwd8PNmexX -+zdJwMytjl/Vem641Hjkw05eCVAa2v4wcdoVx1RdjdsgKgHE0K1p+fKueG/I -7Ox1GQlQXhr9vNTggks3F2RVG0jA/gN1BQ6iZ3H+lODLmUMScFBniwbXvBNO -b7ywLH5YAqyzr/+YeuaEr3qYGYUelYB9Kp9Sj/s6YYc+zlW9kxLgYRc8TBh2 -xJJ37M2HXCXgmNFWyrniMzhagc63miAB/jVqw2mB9rhCzDLB6roEvOGLL/U0 -s8ejXEmCTckSEE7w0Y9QscfKk2zE8FQJ8N37RMfiy2k8dGecsumuBNCXQoSb -rE9jWb5sZeEaCfj5fJV721E73P6NYrp1VALWFl1Xt9rZ4O9j5gOx7yVA/Ea+ -6Mv9NliiK/74wrgExNjSOe7I2GD3IpZT5Z8kwHmWSO6as8ZEu/dndnyTgA1p -5CaXYGvs2Jvhv59dEvjuiJHLdE7hjdXkOyflJGGjh9+bMakTON02rzRZQRL6 -TGVCLBYtsTqvYku3oiQQntPuENsssYP9ns9aKpJAChNOsHezxC2CJ3Zs2S0J -pfm3xxWfHseh7rf65g5Jwlyo5n2mrwX+IyvEG+ohCeZXZFl/bjbDiX2p1Ede -kuA/0uJwYsYUy16kq333kYSdRidoKy2m2HxA+cTpAEmABaHdU0GmuOrykSK9 -cElYtdsaYDl/DHt9jNXhvyEJk6NdbRdGj+IvaZsuZNdIgma4g8L5j8ZYhV5p -31MrCUdZRTeuthrjgELrg2v1kmCo2Gz8sMAYc1VVk44/kYRft0zlslyNMaPb -voL/uSSQrZLPJa8cwSdZm2dChyWhS8efeodyBHfZBxw9tbaOjz5zvo7XCAt/ -Ye66xkKG3trOLNlRQ3zC8xW1jo0MsvLyC+PFhng2RGZeZCMZst88VlQzNMSc -N/ujuvjIsKVxYNgg8RBGz5Ub91DJcOzAuMUH6YP4geJnWQltMig0uve0X9LH -cs9tz/jrkCHu02Nzx+P6ONd+KLdfjwwVo7vGDyvp45tpHVIJh8hQnXNG+O+g -Hg7lLhDmNCPDqTyn+TxlPWw8dZp1wYkMii+Mgn4u6OClO6MDT+PIILN6kNM5 -XRu77jAVoSaSYeW2iL1hoDae7n1pEnKdDJeKz246Z66NR/573KV5iwxSW9xu -HhfUxq3+qS3F2WSIEhCR/3J1H04+Zl6aUkmGEhfJfzeu7MU7Nr++4jxMBqT3 -cE90HmCKwy3TzHdk4I/WWeKMAczVaM3sGyOD6T2W2GIPwAPu881oggz2jY/s -ffcA9uvlWeP/SgZmUIfS12KMq1J1vWvW1vlU7Cx6S0NYWe6xNQdNCiZ7vv8Q -2b8Li4VHKO1kSIHFwWTT26RdmG3EYM11ixSYx6sk2c7txK+uDaUOyEmB2sjV -b403d2L3b7/676lIQdcu2YzshR34QY3yIeP9UuDpXV95/74mVtAt2JHhKAUd -Iu/uiJuoY93KXac2OEsB9fzuPYEK6tiW3h1x5pwUuAosa0tyquOb/350K3lK -wfyt1Y4ttWp4Q80+h6ZAKfA2exmwj6mGh2TGEj/ESoFQW7qF9kZVHMUt8oVe -KQVcP9Quxv3ajnP9Cvkjq6WgwKqlx3VgO26Y2q3x5ZEU+MleaAx/tB0vNduF -VTRIQa5SB8+hoO3YOvAhcX+7FAhvPh1pwr4da345uN9heJ3fgMLauOQ2vDil -ZdTLQgHxi1ZZYTMK2PzqnRcsbBRoUbIl6tQo4Aal37pbN1AgSh7/PXFFAUf6 -lcJlDgokV7v2hm1RwBLcUsqa3BQgkYqrMhzlsc7WFaE0QQrkcOurFPyVxbe8 -qobstlDgGlf/VXcLabwmKmAWL02B8ugDqdnbpfHp+nNv6mUocIkZo07klsaK -HMxOYXkKDJI/6nfWbcHNyUmP25QokGVCzDCgbcFfHrlnyu+ggIVM5i7dvwyM -WeQdFg0oQMwIdzQfomHLcMV7/x2iwPX6Ze9j9TTsy6m8QDekQPXjVOGwdBp+ -wLMj4OhhCoj9xzXtaEfDUiTd2MqjFNBWUK47PU/F/7bbVfmepACP+vBoHx8V -N9qlcq64UuDi1FCMzwcyHp5KNxByp0BFUsPWfaVk/MspO17BgwIuHiUTVhfI -WMm9UOykFwUMpn0LQshknBFUrdjgS4H2kxy7ja0l8YUbb0xDQ9fxBhakf/gm -jnHbf/nsiRQwGe3pu6xPwktHfVJUkyhAUHnc/EqShIvGR6+cvk4BUUbMnzPf -iVhk7aFjSzIF/EqDdL3TiPiLqrlcRCoFqKOcbmuLovhmdm7xhrsUcHU+4O1S -KoK/Be+pYKuhQIJV3ykfSyGc919+rvIjCihceBCANYXwiVuEG7a1FPhTHnxI -R1gIt1d89Gmup0D0udoArh5BnP45SiPsybqeVx/UmOgJ4gMW/bWsLyiAwy5T -S/YJ4BxVtycsoxSwXUvIf2tLwISs0ACJMQpsf1vIclKPgIM2J6povl/X84IW -52ZFAj46VXHXbZwCdKdn3AOLfOv325+o0SkKGL+59363NB92+nvJuH6eAvLH -VgPU72zGSs1pH31ZqXA5dKzWt5kbpymWpCWxUWH8qvYPlRRuzJXaeOzBBirI -frP7pebCjd97jbdNcVDhqfPfxE2i3DiRKXP/GDcVZlru8n1024R/RJZ7qwhS -QdHrRhqLIheuM3rOMc+ggpzHoqPQIAcOLTwnw7GFCg8Xjiy4VnFg7Q38BuLS -VCCeYT3Acp0Dd1aZxevKUuHLdg7xZ0YceERyUixzKxUq76+O9Xaw45XP/5SO -qFOh0TCeu6ptA0aRasfLdamgna9XYDHNitnGB4I69KgwwPbi+cILVvxsV1DG -mD4VHkcET1c8YMWG880T/x2kAv3T8O9mX1Z8yvSw2+nDVIg2yXgxt4kVhzKc -I4QtqCBdI6+vr86Cm5syS3zPUsHicNTW0OOriMIsCrrrTIV32hmtP6VXUXBU -+YE3LlSwjEnQaPmxgjSNn00pulFBxivV1CZxBT34+Jk85UUFH39X3+vdf1Ea -p0bc0WAqFO7YQ7Gx+IN8D7502x6/3u9z7I3hvF+ot7R/z6kEKjzg5jSTCvmF -lIXf/3ctcX1+oyRG4bFfaO7d9/zp6+v9v+qyXuP4hU67Ed9n3KJCe8KDvkjH -n8g40e4wbw4V+BquTH7e+QMpDPze9rmSCoc3vP1kxbuIQPxeG3s1FXLkB47X -zX9Hx6xOWJFrqBD04d6a3qvvKGSi4eqR2nU9t/Gn/7z+HfUshE9VN1DBi0Ws -PpH8HXlv4k2LaKMC96c7m2J2fkP1O2kbyYNUuFi8HMonPY96gt/c0RiiQpRW -nc+PpTk02RShemSYCmaxhh/ln84hXt1PNhHvqCCiV82MtJ5D1ib362c/UOGA -jqDVQvpXxO6i7lk9S4XeUxITAnJfkMGdA+8Or1ChyZeFbnt+Bv2ZtZEKW13f -xweWrav6M6hA09+mfI0KfUK2lVOSM4i9N39SmJUGxE0D9unPplE9N8fcEAcN -wpVHYpPFp5GCX+PaaT4a6JUtiu94M4V4TFQp/jQamHlvjvjiM4FqMw1si+g0 -mLwmbYiMJ5DjnG3uMIMG7HG7oEtxArVEJcggaRqwPcj8kjf9EQU1zW3boECD -a/UHnyid+oi+bi3UuqZGg5fdI1e0zcZRFxfZLkuPBsrS871t7u+Ritq7cw36 -NKjuenvk37H36KZNmt/wARrkEsQcbHe9R7a1YrHCh2hgX163o4jzPfrhLPoo -6ggN6gsb3nigMSTRTeDzPE6DDuFjoVtL36GzNzbU7XVZx3foXy+pawh1P2lu -PXWOBm8TRB+7ZA8h1bmLPUGuNHA+LtDE6TuE1nRYpqrcaeDu91uPlzqEEpZX -CPI+NNBmOTFv5TeIaix/OgiG0KDywEmFuyoDiIM2IzARRwP0W/3U6GAfat61 -88rfeBr4FgZbLlX1oZBjV/8KJNJgbydZZO/1PrQcuXVC6zoNxBvP2IUb9aHZ -eY/KjJs0ODOW2pbU3ou6Hv8xs8yiAfWueltmyxt004LnzusyGgzp2pxSGn+F -jnqd5J8tp8G3Qi7Z1NZXiP9aySXWShrMknSSVQtfoeimw67bqmmgy/tYc979 -FQqWvoFj62igEOzwNJDtFbL9ITmu30ID3vc18RVbe5B8gpL0kz4aFEs0NmXu -f4nCKqd0FvppwNkvPDUh8BINDN5xkBqgAWv27c+h7ztRBI0nL3iIBlZZ3zUa -gjrRSPk0Y+cYDa68OOK959ELFNufRSufpkFYYk5ll9ZztCAuRL77lwbZ5FEn -92ttSAde7OldoUFPhuF02uk2lHY67OSGNRpYF+tQCbvbkF7xQpoNCx20SLOD -7Z+foSz0UpzMQQeL4qdq5w2fIWOby6QUXjpklnM+sqC0ooq8ZaEoKh02tTp5 -qC02oyeFZqs5NDqc6DnrGt3bjLruV0020Omg29DEyV/VjKbLvKuWmHTgDlDt -eOjfjCQaF8ys5ehwO2ZsXnNDM4p4O31bQ4UOGBM0xKSeIBOuQcqUNh0mLffu -O7DQgKz/09zEqkMHqviqmEZDA3LhTfkmrkuHHlH9H94xDeiy0LHmI/p02PYm -Ou+DbAOqpbyye3yIDuz9TiPujo8RbUdH3nVTOkAZFS8v1qHvTo8U9jnS4em5 -oS5rrUfopm9Ik4/Terzk7KKI8COEL+07WnCWDk9MybViMzUoJvNl4OZzdDjy -ZJR3U2IN2vL2w/O3HnQ418K2zfNTNTquze3kEkgHjaJGEntmFWomW969EUuH -Hxs9DzZrVyBHBcqO9rj1+ZU9PqlOrUB8Oyc7/8TTITfPtml6tRydOOa2dCqJ -DjV5Fa2cNeXo59XwfXI36UB/OLVZQqkcyf2+96Ehiw7ppz0/GMmUoaQ3K5LT -Fev8bPeH0bVLUWKXibhwFR0sQ4OyKDKlKL6jiLi3mg6rQfD7EE8pimk0F0x7 -RIeSYE1e96IH6NK9Cq7DDXRQbKw3u/i6BPmGuyxWt9EhKGqlvl6lGFmqjLRf -GaLDXQ/fcg/1InRcUeVZxTAd+J3PSx/aVITMZaOffhihwy/aJ5PzI4XoqJRm -w64xOshZcjQ9CC9Eh/67Xj7/kQ7S5hFBpX0FCH80SDf7Softys/J/lfyET2p -zkuahQFl73c87ybfRQMutTuAlQF76s/sHlvJRbE6j/6ZszHW9flPjTmci5Z/ -V12NZmfA8gDrCZObuajTuiznKxcDelhM+ZSEc5G3YuGbcn4GaPwm7b1NzEGt -HckqQGdA5/nGazzaWSgg58ZvcwYD2n77mhySyULbgq83ejAZUGeeV1zLk4Vu -b0s0yJFmwJ9gT1ax/kzkmnLNjlOBsf7/Zrp+PJuJROwjkjpVGeCYbsbzXDMD -nWHxXDTXYYBzot/24p1pqGqi/3SULgP0xX4fuLApDbF37Op/pMeAqTGhzfkD -qSg7geORmMF6vkS0xg/fVDRCuxUyYsSAmrgWoaDa2+jI/qZN1hYM0J1gz68y -vIV2RfNSzrgw4JC2d+CW0mQU7eqVkHKOATkfQ+0zIpPRgPEAW7srA7ZJPZc9 -aZOMzotnT8p4MODwHwPbu4LJqPS+2r1ZHwa8/vqrwDLwBmJ2n1B3vcAAw6rn -fX9MryM+oXsHfRIZUByu8pZjdyISelt9OSGJAU9WSBRLciISu93SVHydAU31 -CvfesyQiBmVUdSqZASOFZw0DnyWgnQr8kmapDChP4jGZMklADtq+XzVz1+Ol -+TuP+MajBu99sSuVDGAj9lqzP76GWjQOtxOrGVChs6UvK+Ya6vhzgk2thgGx -q17/rp24hnpDz58/V8uARJ2W84dXY9BsTKHVaMM6vsOtNPe9MUj4Lp9SUxsD -yNK5d0qGopFL33B3+CAD3udvCv2GI1HHpQCv20MMUA4aLd5LikRb1EmiD4cZ -cOXe/thX36+gD8mmVqPvGBC4MPouL+8KMjV/9UVznAH15PfiTP4rCA8/2zQ3 -y4CGyKtMyW+XkMCHh/vMVxjwIopNLmwoHLklHP7kusoAk5of9v214ahTaz76 -0hoDNlD+ME+mhqPL2Qqvy1iYYG8cuMByMhz9tcu33szBBM96+X83x8PQxFRa -cPNmJqiFKku0/byIqr9cqVaQYoLQuM5LIa1QVJIfw2lJYUIs81bHEiMU5dom -HIuiMsFQqNuVY1MoShy4vThJZ8KTtWttrjkXkEtLsVKGDBNy9lu9LHwegmhp -b/L5lZlQMvh66ym5YBRrIHXzpzYTDtfsOpYkF4AucTI+MXSYcOag/fGDq/4o -6ImMuokuExryBKpMevyRk4Zy7wN9JlhueGVi4OuPtOn7CU6G6/mXy+O62/3Q -nz9nI4fNmMBwNZWv9fdFDkVVfk1nmXBZdbK3ks8HCWnbxQ85M+H+1ZmFh1+9 -0ZN3fAVLLkxINjT4O/HCG0nwO72VcWNC9+evfnOR3ui1r7h6ghcTtHbjK5c4 -vBHeH7poE8SE340S6v5cXoj4Xt91QywTUt4Exu5W8UDP/H9ekoxjQpbUh2Vv -UQ/kJZhzRyOeCcNVQjD01x116ax0Oicy4e6vlH1yre4oorhEvjeZCadUTIwG -LNzRQoDgTG4GE1x2fBu3EnFDHcLv7HQeMiHJ3nTrgqgLmvXeeeBiGRPq0N/9 -hpPOiLs3ZVt9+fp89PvvbCx3RgcSjVe3VzFhfDU/IMrIGT3nbU+WrFvn62yj -VhNzFnVuLO9YamEC75RYi4aoE+r6HamUM8CEoKHeMwWODmjOfEp4dJAJO5Pk -ZPaDA+Kt2bdCHGZCv+izh3JEB2R4fq099h0T6tlEhLva7VH3dy/bgHEm1NTa -rp7Zao96PlvdOPKFCR02r4wCNpxGCwfqA2O+MkFHM4LmOGaHCEUk27Y5JlzZ -Tf2VXGeHDjv2Ku75xoSxerPXld526NWEfrvMTybIM7QqPs/You/78kvsfjGh -fPHHYm+bLRLIYb+Rvry+X3KKOX/v2q6/9402Qn+ZsN2ClPzP1hZ5NknoGa0w -gWuscm1YyxYlSgUoRq8yYVUij7JEsUVlIW+FWtfW/RH9eF0WW/T6nerff/+Y -YNzbPN43ZoP+B/eck1I= - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{3.0000000000000067`, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{3, 11}, {0., 0.9709610360313319}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.9919643184825573`*^9, 3.991965223761923*^9}, - CellLabel->"Out[31]=",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.028, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 0.683, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 4, "x min"}, 0, 13, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 11, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.07, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 412.44140625, {20.20800605743925, 25.83300605743925}}, Typeset`update$$ = + 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 0.683, $CellContext`xmax$$ = + 11, $CellContext`xmin$$ = 4, $CellContext`ymax$$ = + 0.07, $CellContext`yyv$$ = 1.028}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l11, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R1, \ +$CellContext`x1, $CellContext`r, $CellContext`b1]/$CellContext`p0^2, \ +$CellContext`R1 -> $CellContext`R01], $CellContext`p0 -> + 0.17], $CellContext`x1 -> + 0], $CellContext`b1 -> $CellContext`b1], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.028, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 0.683, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 4, "x min"}, 0, + 13, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 11, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.07, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{ + 457.54140625, {109.12363105743925`, 114.74863105743925`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.9924889078442383`*^9, 3.992489848193634*^9}, + CellLabel->"Out[4]=",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"] }, Open ]], Cell[BoxData[ @@ -14141,8 +3606,6 @@ Cell[BoxData["0.74`"], "Output", CellLabel->"Out[35]=",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] }, Open ]], -Cell[CellGroupData[{ - Cell[BoxData[ RowBox[{ RowBox[{"l222", "=", @@ -14209,1361 +3672,164 @@ Cell[BoxData[ CellChangeTimes->{3.9917169014568214`*^9}, CellLabel->"In[37]:=",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z -SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb -I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs -Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa -pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 -QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD -IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY -PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH -adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 -3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws -cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 -bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F -sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf -IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 -fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu -dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS -k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 -d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ -k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl -1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz -f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ -Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy -xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 -ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx -vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg -ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS -9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], - LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, - 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, - 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, - 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy -UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z -SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb -I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs -Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa -pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 -QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD -IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY -PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH -adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 -3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws -cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 -bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F -sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf -IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 -fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu -dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS -k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 -d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ -k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl -1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz -f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ -Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy -xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 -ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx -vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg -ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS -9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, - 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, - 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, - 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, - VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 -d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd -D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z -Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd -gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 -w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p -3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 -LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 -UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ -L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc -Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX -+ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ -chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 -EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR -esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k -xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N -AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD -ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB -cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF -ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g -md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF -9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB -wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA -w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF -J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 -IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j -bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 -d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd -D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z -Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd -gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 -w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p -3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 -LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 -UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ -L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc -Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX -+ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ -chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 -EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR -esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k -xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N -AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD -ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB -cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF -ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g -md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF -9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB -wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA -w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF -J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 -IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j -bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z -SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb -I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs -Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa -pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 -QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD -IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY -PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH -adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 -3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws -cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 -bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F -sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf -IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 -fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu -dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS -k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 -d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ -k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl -1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz -f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ -Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy -xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 -ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx -vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg -ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS -9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, - 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, - 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, - 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, 55, 74, - 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> - Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 -d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd -D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z -Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd -gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 -w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p -3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 -LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 -UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ -L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc -Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX -+ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ -chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 -EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR -esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k -xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N -AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD -ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB -cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF -ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g -md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF -9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB -wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA -w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF -J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 -IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j -bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{8.000000000000018, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{8, 13}, {0., 0.9983911300932561}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.991964359553013*^9, 3.9919653448206234`*^9}, - CellLabel->"Out[37]=",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"] -}, Open ]], - -Cell[CellGroupData[{ +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519998013506*^9, + 3.992519998018097*^9}},ExpressionUUID->"2997bdd0-9785-af49-ae97-\ +9f40d7c169a6"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"l111", ",", "l222"}], "]"}]], "Input", CellLabel->"In[38]:=",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992519999593614*^9, + 3.992519999598094*^9}},ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-\ +2e70607d048a"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"y", ",", "b0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", "p0"}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"y", "->", "yv"}], ",", + RowBox[{"b0", "->", "b0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yv", ",", "1.213", ",", "\"\\""}], "}"}], ",", "0.01", ",", + "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"b0v", ",", "0.740", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "7", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "1", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "1.7", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488920030715*^9, 3.99248892003106*^9}, + 3.992489872473383*^9}, + CellLabel->"In[5]:=",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], + Cell[BoxData[ - GraphicsBox[{ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro -GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI -o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h -ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ -AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD -u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf -Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU -bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 -zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD -2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT -Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 -ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK -C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX -jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ -EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO -6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 -v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm -JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq -i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY -cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 -YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 -SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF -RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O -osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor -En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O -4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY -N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa -zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx -6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 -68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R -c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 -1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK -Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI -wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V -h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw -WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq -r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 -EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N -O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk -N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 -nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl -sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN -Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 -DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 -ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 -Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx -uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 -2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z -nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B -NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX -irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf -cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ -6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa -uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax -eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP -wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT -tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L -h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 -1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 -vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 -UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i -rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 -KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p -laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp -+RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 -YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ -PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ -4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz -6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP -yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro -GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI -o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h -ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ -AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD -u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf -Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU -bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 -zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD -2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT -Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 -ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK -C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX -jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ -EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO -6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 -v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm -JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq -i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY -cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 -YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 -SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF -RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O -osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor -En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O -4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY -N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa -zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx -6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 -68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R -c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 -1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK -Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI -wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V -h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw -WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq -r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 -EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N -O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk -N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 -nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl -sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN -Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 -DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 -ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 -Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx -uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 -2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z -nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B -NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX -irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf -cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ -6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa -uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax -eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP -wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT -tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L -h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 -1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 -vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 -UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i -rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 -KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p -laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp -+RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 -YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ -PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ -4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz -6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP -yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwV0Xk41fkXB3BlTU2lRirJvZfvVira0+UcJZQQstwsWWKkIlfZ40bZs0Ro -GE2FREooSzFC2RnSosUyylISFZUsv/v74zyf5/V8nuc873MO28HdxGmuiIhI -o7D+/7JDj4uKiLBwr7PHxffFgyBhXza3XmjDfxav+Fw4CMM7peZenMNC3/7h -ld/vDELJ2HURZVEWCnRa4+ZmD8IBm9fTuhIsjJ1N1JNMGYTAzft+xC5gYeTJ -AvE670F4/R/1SXGFsL9LZyu1dRAuQd9z2MjC+nfmlsdvD0AF6VZY6sLCitWD -u/VO9cNkRMuR5FQW9vTPlO7a/h7WGK24cbqZhffEotxWjPbBol0+Xy6IstEf -Lq2fE/AfSN69tUR6KxsDUhWupi/rhSKD8Z2Vx9lokT2jraHQDWb76Qmva2yU -bE/q81V8A/NqVc/Hd7Dx2q06k5NHOoHvbqDQL81BjqzmxKPI5zCSAJHpGhz8 -zPNQNBTvANuVq8It3DkoqeuWUV7UBiEtC2L3ZXJwuon79XNtCzyYaXe9+oKD -2lOnebzOBsi2zjPauFAJdy06XXpdrBbCV/EfV+9WwhADnW/Jd6ohwHLB4tLT -Slj4m+PL/LFKIKrKHAdzldDdyudZzZ2H0HtDM9q/SwnHRDYei/ctAZMHz8v1 -ZJXReFqqQz6qCO6r8gTL9JXRtNcr+g7ehXWcu3J6Z5RxUNo8MWNXHvC0FEoK -C5WxMM824c7xbEh5Y7supF8ZTfxfiJv9mQGNnZGbTJcTyAN9v+uuV6FQrHGX -jSGBXFmBi/xsGtzO7SEbBQTmP7Vv7T6aAnNMLz3JPEvgitquyiyLFDg4uddZ -EExgjuzH7357UuCnXmHmlnMEUi/El+izU0C7/7zy32EEanfXT4R3JsMr1lrO -6RgCr1wRuey5Pxkkkk4rKKYRuCCXkH2yMwlsBdK/exYTuCUhYa9AMxG2t829 -v7eEwOd7tHP/3JAISzm/LFilBE7oTTf8w0qEuuqPqc1lBMb7vCbXiCbCRslm -JbqCQFIt4WxgXQJIxsRueltDoKTYCWtFswTIT/3dVLedwBRrS8dFXhdhbvHq -i/KfCNQaEt1EPIuDZhvX6j6he29x9C7Ux0GK2P1vuSME6t45vm26PA7WmxhY -cEcJLLk8GfstKw54n/xX2XwlsKvj22X0jYN8pc6s9J8E7ijfen2vYhzYxiU8 -YEuQ2Nc1xP/ZGwOlR6XeU4ok8jsaTItMo0Hd3mdGhEWiuEXj1kDNaHhoOSj3 -SugRx43VFkw0VOrW7YvmkOiqZZC7YzYKnhDh+aMEiQuDFwiKc6Ogo1cyoFSF -RB/NHzHxklHwmSe5VF+dRNnTZ+w8GyKA2Ceh5WZG4tkwd+MsvzBISq4f2m5O -osHVj64bXcNA6n30RVELEqtkW4fqeWEwHLT0XYoliToxUz9W7giDonussGor -En1HeKHaP0JBm72zebkDidIs35LbPqFw5Ic7r9qNxOx02jT37HnIyOr0WB5O -4nPywp+FBSGQ/lfPqm6h2ybdJYnMEEhJHKjNjCDxtl3H3SvJIRAVPK6wKUqY -N8gzKz8gBPi2Mg0GMSTe3K/kiLohoLVsLyckkcRY+f4XMl3B0HW+pP3T3yRa -zd7sN1kSDHJOyZuqS4X7Uq7Pnp8ogLpbVU/+LCOx4dnevMwwAfh8+8TjPyAx -6CO80/MXwKsQbQG7nESZD6UtOQ4CSLs21hRUSWJOk8rr12oCYPfoO3NrSeQ0 -68q9uh4Ea61ELt/rIFFN3XuJhloggPHRmRufSawbW7ry8Rl/6BkZYHmMCu+R -c3VerKs/CKKdd6uPkbi8oNfQ2cIfqmodw5u+kDin/Oc9rpo/6GjaLhkbJ3H6 -1JEfYe/9wHCtKak+JZx3072TcQf8wFpcw7BJikJi10O/taq+4Fe6OH2UTaGK -Uf6aO0u9of1GYXYDh8Il56x9Nsz1hjVJ5oUZShQqBtZ+fzjqBZ38tDpLgsLI -wxFHZpu9YLsK/bWSpvCC1Mp3rAgvmEgHvfgNFOboJoi3zPEC/jm3L2oaFA4V -h8bFTJ0CV6MmHU9LCr37M9pvyXpCQUJVjyZP+D/9poyQ8oTJFyV+0ocoXCVw -WJ89yYdIu8zbV60ofNCUm1bfzYccj8Bl/9pS6EHEvzmTw4ePCar9Kk4UBgbq -r83S4sPxl4nn+z0ovGFl+6vOywNO2NvU8KIo/Nn9NnRy3B24Rsl27GgKK9J3 -EZXd7rBAo21qUGjDthrmUr073Fq+Z4tPDIX9gnb1E3+5w3CrSlZSPIWVx33N -O/a4g6vmVNjTZAqlip3MT192Axf5VH2DDAo1nLZMlumfAMdnL9uxnELn/Ysk -N7xyhQ9Lt1msqKDQNUHurw+PXeGkyaXXY0Kv7rHl37vrCoGtxu+uVVJ4zG91 -nk+EK6TUN4yL1VC4V+BAFu1whZbyh8vrGyi0L9ltNZ52FLZn/W1r/JLCuqQl -sgfdXGCht8sH+68UHihSe7NV3RnOz185s/YbhSfVil9ErXGGqSuNMhNCRziN -Pf+40hk+1K3fETlBYYvng0dNv5zgycrxsIKfFD5aeZAvU+EEgRVnCVERGov6 -DNOvaDvBJ/FUu4wFNLZkKFOpvCPQlNj8vJ+gcYpjmR501QEmfa+3PyJpvCL3 -ldid4AD0Yd+WNIpGyZGF4TLnHSCEIZ6YMDQ+rnpT1uLiAOoVAfcqVGh85FM4 -Xq/qADcH1iYmbaKR/fBU7sMqewhVjzTW0aLxZfjyW1YjdgA9Ok2Z1jR+GlJx -uPPYFr652TUE2NBonuS8PPm2LeRM+9aZ2tIY3BwrH5dsC8vk82rm2NGotVn2 -2b2jtjBstrTcxpHGWP3KvJaFtpDS2J0n60pjNcl9vcbaBr7c94k9701j5U3z -nVtFrSHrQo6J00Ua98gdUJgN4sF+vlzPugQaQ93XjnDcePDF/NyJCaFfiv3B -NbXmgSbLNjzsEo25varrO7fz4FmBTMXNFBrnKVWc8v1iCWIvfZiRdBq5a2oX -irlYgiNHV8Q7l8bPTZ0FEtYWwCruywuvodFL4bjGjJMZnBk+peTwmEbpDAOf -cjMzeMWWuLzzCY0H660kI/aYQUI0fW6klsbbh+5NaRNmIOFw4tDBRhpHg4bQ -6P1BGF7wXYLVTuN4oNeazD8OQomDtF1xN42zM/9Uyp02BaOFakv6J2n8mZsa -uO2uMaRdlpW7+4vG0tGnj3IyjOGD8qR8wBSNbdzgITLFGM7trCaWzNB4TUax -eUeQMZS4mO3QnMPggSHHrfUGxsCq9rVLkmTQ62stFTF8AEa9q27r/M4g4bhP -wVH1AMT3murfWMdg9ccKF8+/DcB5WYCJ23oGLfxq1r2MMgB1/Qzelg0MDvAT -tfW9DeBd0bc/qlUZ7DfpBmtDA9gefulc9yYG2xYVWNLT+6Fr/YtyOXUGIy/L -h9rZ7AeVgEOq4ToMXvwm+vg3Wh9ql9nLHj3MYLrVgjzLd3pgkpYnpmXHYO/8 -1LexbXrQxZ78utyeQTHRg9ufVejBhEpCe50Dg9eeXteKvKwHyrsfx9LODK44 -vNQ/zUgPgt0Z6cHjDHYtHrSxrNAFbt3YjLMfg3WHX7H6M3WgwDd48MglBhd9 -UFPYnKoN6804f6xPYtD/Q2NqfrQ25KhWvf8udN7NYuNtgdpwbWBOX2SKcB/i -rTqO9tpw0ezs2/xU4bzdrJjNtDbw1QTtU1cZDP9Y43C/eDeoDZ15mHhbmNe8 -KF+iaxfkW/rG1dQymOze2uSkowVbHjGBmXUMPuK/7f93uxaUMa+OhdYzKC0p -laezVguqJ9V19RoZHP61dZXJYi14njY13djC4Hdlyb8GXiFM9QQde/qMwQqp -+RPifAS9o6E6//UxyA33F9wxAmhu27q5+h2D4nflNWW2AZioD7Az3jOYus73 -YOhqAKv5etNOAwxmzbtvmPNJE9zy5hUNfWCwlXjW/iJaExLHotljYwzKD5O/ -PWzRgBWHNBa1f2GQY5ltvL9YA9KrPk0VfGXwqtHhOZ+vaMCNBMOXp8YZlG2/ -4nLMQwPKtiyO/fGDQec4rRpNWQ3QTK8M6PzJYM7oeKvdDBeqJTxcyyYZlAhz -6Ugc4ELTi7Y9AVMMhvayYjeWccEYgzfZTAvzRhgyade58Dx7I1tzhsGvq6XP -yV3gwiGZvoWKs8J+8x3jM7y40O2bMDUr9Jcsz9277bjwP7MVrJw= - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.7724483356680106}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z -SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb -I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs -Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa -pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 -QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD -IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY -PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH -adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 -3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws -cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 -bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F -sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf -IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 -fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu -dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS -k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 -d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ -k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl -1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz -f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ -Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy -xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 -ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx -vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg -ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS -9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], - LineBox[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, - 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, - 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, - 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJxTTMoPSvNlYGAoZgESPpnFJWmMKDxmEI8DSAS5Oznn5+QXZYLkMxlgxKjy -UeWjykeVjyofVT6qfFT5qPJR5aPKR5WPKh++ygHj00IN - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z -SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb -I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs -Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa -pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 -QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD -IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY -PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH -adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 -3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws -cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 -bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F -sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf -IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 -fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu -dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS -k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 -d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ -k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl -1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz -f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ -Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy -xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 -ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx -vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg -ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS -9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, - 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, - 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, - 41, 42, 43, 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, - 73, 67, 62, 58, 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, - 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 -d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd -D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z -Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd -gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 -w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p -3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 -LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 -UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ -L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc -Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX -+ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ -chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 -EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR -esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k -xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N -AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD -ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB -cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF -ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g -md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF -9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB -wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA -w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF -J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 -IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j -bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 -d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd -D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z -Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd -gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 -w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p -3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 -LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 -UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ -L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc -Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX -+ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ -chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 -EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR -esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k -xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N -AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD -ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB -cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF -ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g -md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF -9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB -wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA -w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF -J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 -IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j -bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVlGs01AkYxkUJWdSKVJj7zN85tgvVSrxvbBIyYtuN/uNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtR+e83z5fXnO75yH6nvM1U9Z -SUlp72L+b+q5IypKShS8ViGcbp6UwxXob4PNFHT663V6ue0oVLCCi0r9Kdhb -I7eWhY7A7IXGw2nXKejgknG1USEDE66BKLSBgv5HrZ3IvEHQtjk1maBCxZSs -Dblf3PtheWHeKo2tVGx/fjdX16MXivfOWFYeoeK+yW2S2GfdsN+J8+nEbSqa -pEXHnzTvBHXpxrOX31LxzsXBYG2LduAf22s4pEHD+CRucQG3FcZSID7TioZ5 -QgNtm54W8Fy7Pu7XYzTMyDnhMlXWBGcaNRMdsmmYtJL19pBbA5QttATeekdD -IZksTR2ohbvkA+5mLTru8JKF0K5VQ9x6/iuJLR19whnt/EoJRBzQ1CkNpaNY -PfL9Hv8XwHwpPjR8n476zvPmP++vgF6R9cXwbjranKefHhaJwbWsrdx+NQOH -adKoQk4JPNnoLtBzZCBXz/NRMFEMprRCfftIBt5YmBZmPC4E952GT4uKGNg5 -3HHy2ct8SO/yND0zxMDwrm5D05l7UNcRb+a2hokXvn380SBfBEVL62x4zkws -cFr6jn85C/Lv97DqBEyM5jp9rF5+GzwFGrohJUxUFH/2NbK5CcolRsnrRpm4 -bMn3D92I61AaoDbINmbhqPEJqbAlDZgOqjuD97Pwk+jqwo7cVMjK6Ti+Jo6F -sUGPyUi9ZND3SzOTlLJwj/6sJ60yEWBfwIJIzkKr0BrbqEtC+LNUJ3Ocysbf -IhK2ZzLiIJBbbxdygI1dh88vSEdi4agPr8pdyMbEhrRWF8cYONTa3oLlbCx6 -fXzqjoYAtE76j/hMsbHmUsOmseZwqE9taBticvCjRbS7t8cpgB67+mySg3pu -dcVNuqGQk3DP1S+Zgw6afafGHflAKel/EFfFwfFY9FVS+x24WptWDc1y0OLS -k90D0iC43OvmKDIlMLeHqvHVyR+kej6rA7wI9G2zyxzj+sGjsJjhw1cIzOd3 -d3eG+0LBgbCkKimB1k9jl63Z4A1/h6XMfftGYM509vNW2UHo7GOPGhtQMJp+ -k9WZPgb2Aefs+voJ1H9hltDxnSdEmTsoEjUpuCMsudZ5lxzmek4HvWkl0Ipl -1Hl+oxekTlykTkwQ2BRlsVAxQ4ILr3N+tyoFLQNXzI9fl0Pbjbn5ukYCdeoz -f/j0yguCH6gX/zNC4KuvKRoCAQ/EW3QSFQoCV9kXbIs/SsLTiTtKDBUKVif+ -Mu0ulYNkdvtu+zoCvxZkB3WpecPBFfbzfjICLbH5c3s1D0Qpzu1/zBDoHKvy -xq2QhPp3zbsi5gi8FrT+obcJCf9aqiknL6Fgla3CUPeDHMTE+6BztQSqdEf3 -ja3zBtftMmrWIIGVIbfMfxrhQebL0blHUwSO388zCn1DgkT1eKB4lsC1keVx -vY4ktN3dTLVeILCssTh8uToJqj5i5drFf/kQM5s6KZPDlhdEVHbNIs9vuiFg -ekND81ZzyQCBMcluGepzPDDwsNJumVzc0zqtSB0gwTqzMqLjC4FpX9L7CkgS -9mGMGW+eQL/qJPpDAxI8VvZrGS/6umWSXxigOAj/AfskQaI= - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 71, 65, 60, 56, 53, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, - 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, - 44, 45, 46, 47, 48, 49, 72, 66, 61, 57, 54, 52, 73, 67, 62, 58, - 55, 74, 68, 63, 59, 75, 69, 64, 76, 70, 77, 50}, VertexColors -> - Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{8, 13}, {0., 0.9983911300932561}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {8.000000000000018, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVj3s0lAkchkUJWdSKVJj7zOcc24VqJX6/2CRkxLYbfeNWzrqUtrEq69KQ -SiYRitTqVJiURJSMSI0MuRwUEVn3sVrGtSahtX885z3Pf+9D9T3m6qespKS0 -d5H/l3ruiIqSEgWvVQinmyfloOojVq5d9A8xs6mTMjn8a6mmnLyEglW2CkPd -D3J4OnFHiaFCwerEX6bdpXJw4XXO71aloGXgivnx63KIMndQJGpScEdYcq3z -Ljl09rFHjQ0oGE2/yepMH4Mr0N8Gmyno9Nfr9HLbUahgBReV+lOwt0ZuLQsd -gdkLjYfTrlPQwSXjaqNCBiZcA1FoAwX9j1o7kXmDoG1zajJBhYopWRtyv7j3 -w/LCvFUaW6nY/vxurq5HLxTvnbGsPELFfZPbJLHPumG/E+fTidtUNEmLjj9p -3gnq0o1nL7+l4p2Lg8HaFu3AP7bXcEiDhvFJ3OICbiuMpUB8phUN84QG2jY9 -LeC5dn3cr8domJFzwmWqrAnONGomOmTTMGkl6+0htwYoW2gJvPWOhkIyWZo6 -UAt3yQfczVp03OElC6Fdq4a49fxXEls6+oQz2vmVEog4oKlTGkpHsXrk+z3+ -L4D5Unxo+D4d9Z3nzX/eXwG9IuuL4d10tDlPPz0sEoNrWVu5/WoGDtOkUYWc -Eniy0V2g58hArp7no2CiGExphfr2kQy8sTAtzHhcCO47DZ8WFTGwc7jj5LOX -+ZDe5Wl6ZoiB4V3dhqYz96CuI97MbQ0TL3z7+KNBvgiKltbZ8JyZWOC09B3/ -chbk3+9h1QmYGM11+li9/DZ4CjR0Q0qYqCj+7GtkcxOUS4yS140ycdmS7x+6 -EdehNEBtkG3MwlHjE1JhSxowHVR3Bu9n4SfR1YUduamQldNxfE0cC2ODHpOR -esmg75dmJill4R79WU9aZSLAvoAFkZyFVqE1tlGXhPBnqU7mOJWNv0UkbM9k -xEEgt94u5AAbuw6fX5COxMJRH16Vu5CNiQ1prS6OMXCotb0Fy9lY9Pr41B0N -AWid9B/xmWJjzaWGTWPN4VCf2tA2xOTgR4tod2+PUwA9dvXZJAf13OqKm3RD -ISfhnqtfMgcdNPtOjTvygVLS/yCuioPjseirpPY7cLU2rRqa5aDFpSe7B6RB -cLnXzVFkSmBuD1Xjq5M/SPV8Vgd4EejbZpc5xvWDR2Exw4evEJjP7+7uDPeF -ggNhSVVSAq2fxi5bs8EbtrwgorJrCFzLb7ohYHqDmHgfdK6WQJXu6L6xdd4g -md2+276OwK8F2UFdat7QdmNuvq6RQJ36zB8+vfKCuZ7TQW9aCbRiGXWe3+gF -9gHn7Pr6CdR/YZbQ8Z0nNDRvNZcMEBiT7JahPscD1+0yatYggZUht8x/GuHB -wRX2834yAi2x+XN7NQ+CH6gX/zNC4KuvKRoCAQ9SJy5SJyYIbIqyWKiYIcHA -w0q7ZXLxT+u0InWAhMyXo3OPpggcv59nFPqGBFGKc/sfMwQ6x6q8cSskQbxF -J1GhIHCVfcG2+KMkWGdWRnR8ITDtS3pfAUmCRPV4oHh2sT+yPK7XkYT6d827 -IuYIvBa0/qG3CQn7MMaMN0+gX3US/aEBCW13N1OtFwgsaywOX65OgsfKfi3j -bwTeMskvDFAchL/DUua+LXrOdPbzVtlB+A+lOEGi - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{8.000000000000018, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{8, 13}, {0., 0.7724483356680106}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{3.99196436252302*^9, 3.991965349109049*^9}, - CellLabel->"Out[38]=",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"] + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = 1, $CellContext`yv$$ = + 1.213, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, + Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = + 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yv$$], 1.213, "y"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`b0v$$], 0.74, "b0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 7, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 1, "y max"}, 0.01, 1.7, ControlType -> + Manipulator}}, Typeset`size$$ = { + 397.16015625, {20.20800605743927, 25.83300605743927}}, Typeset`update$$ = + 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`b0v$$ = 0.74, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 7, $CellContext`ymax$$ = + 1, $CellContext`yv$$ = 1.213}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`y -> \ +$CellContext`yv$$, $CellContext`b0 -> $CellContext`b0v$$}], {$CellContext`r, \ +$CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yv$$, 1.213, "y"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`b0v$$, 0.74, "b0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 7, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> "Labeled"}, {{$CellContext`ymax$$, 1, "y max"}, + 0.01, 1.7, Appearance -> "Labeled"}}, "Options" :> {}, + "DefaultOptions" :> {}], + ImageSizeCache->{ + 442.26015625, {109.12363105743927`, 114.74863105743927`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488921537119*^9, 3.992489873321525*^9}, + CellLabel->"Out[6]=",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] }, Open ]], Cell[CellGroupData[{ @@ -16360,68 +4626,6 @@ Cell[BoxData[ CellChangeTimes->{{3.991965361745764*^9, 3.991965363244217*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], -Cell[BoxData[ - TemplateBox[{ - "FindRoot", "nlnum", - "\"The function value \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{RowBox[{\ -\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", SuperscriptBox[\ -\\\"2.718281828459045`\\\", RowBox[{\\\"1.`\\\", \\\" \\\", \ -RowBox[{\\\"Plus\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]], \\\" \\\", \\\"R2\\\"}], \ -SuperscriptBox[RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"1.`\\\", \\\"\ -\[VeryThinSpace]\\\"}], \\\"+\\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\ -\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}]}], \\\")\\\"}], \\\"3\\\"]]}], \\\"-\\\", \ -RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.17340000000000003`\\\", \\\" \\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\ -\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\"-\\\", \ -RowBox[{\\\"0.05780000000000001`\\\", \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\ -\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \ -\\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}], \\\" \\\", SuperscriptBox[\\\"R2\\\", \\\"2\\\"]}]}], \ -\\\")\\\"}], \\\" \\\", RowBox[{\\\"(\\\", RowBox[{RowBox[{\\\"-\\\", \ -FractionBox[\\\"0.028900000000000006`\\\", SuperscriptBox[RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"1.`\\\", \\\"\[VeryThinSpace]\\\"}], \\\"+\\\", \ -RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \\\"2\\\"]]}], \ -\\\"-\\\", RowBox[{\\\"2.`\\\", \\\" \\\", RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"0.020563025427959906`\\\", \\\" \\\", RowBox[{\\\"Power\\\ -\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\ -\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", \\\"R2\\\"}], \\\"+\\\", \ -RowBox[{\\\"0.06328318847219941`\\\", \\\" \\\", RowBox[{\\\"Plus\\\", \ -\\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\ -\"}], \\\"]\\\"}], \\\" \\\", RowBox[{\\\"Power\\\", \\\"[\\\", RowBox[{\\\"\ -\[LeftSkeleton]\\\", \\\"2\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}]}], \ -\\\")\\\"}]}], \\\"+\\\", FractionBox[RowBox[{\\\"0.028900000000000006`\\\", \ -\\\" \\\", SuperscriptBox[RowBox[{\\\"Sinh\\\", \\\"[\\\", \ -RowBox[{\\\"Times\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"2\\\", \ -\\\"\[RightSkeleton]\\\"}], \\\"]\\\"}], \\\"]\\\"}], \\\"2\\\"]}], \ -SuperscriptBox[RowBox[{\\\"(\\\", \ -RowBox[{RowBox[{\\\"141498.48776203764`\\\", \\\"\[VeryThinSpace]\\\"}], \ -\\\"+\\\", RowBox[{\\\"Cosh\\\", \\\"[\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"1\\\", \\\"\[RightSkeleton]\\\"}], \\\"]\\\"}]}], \\\")\\\"}], \ -\\\"2\\\"]]}], \\\")\\\"}]}], \\\"+\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \ -\\\"49\\\", \\\"\[RightSkeleton]\\\"}], \\\"+\\\", \ -RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\"}]}], \ -\\\",\\\", RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\[RightSkeleton]\\\ -\"}]}], \\\"}\\\"}]\\) is not a list of numbers with dimensions \ -\\!\\(\\*RowBox[{\\\"{\\\", \\\"2\\\", \\\"}\\\"}]\\) at \ -\\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"yy\\\", \\\",\\\", \\\"bb0\\\"}], \ -\\\"}\\\"}]\\) = \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"2.`\\\", \\\",\\\", \ -\\\"1.`\\\"}], \\\"}\\\"}]\\).\"", 2, 40, 4, 24487566792016397019, "Local"}, - "MessageTemplate"]], "Message", "MSG", - CellChangeTimes->{3.9919643917585564`*^9, 3.991965364224392*^9}, - CellLabel-> - "During evaluation of \ -In[40]:=",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], - Cell[BoxData[ RowBox[{"{", RowBox[{ @@ -16457,8 +4661,6 @@ Cell[BoxData["1.25`"], "Output", CellLabel->"Out[41]=",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] }, Open ]], -Cell[CellGroupData[{ - Cell[BoxData[ RowBox[{"l2222", "=", RowBox[{"Plot", "[", @@ -16533,1062 +4735,10 @@ Cell[BoxData[ 3.9917169296319904`*^9, {3.9919653858356647`*^9, 3.991965385973503*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], -Cell[BoxData[ - GraphicsBox[ - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc -a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ -5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ -tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF -I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 -5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT -Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 -W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S -BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g -CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H -c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl -vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh -ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs -qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp -Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu -QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom -xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 -nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 -nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv -YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP -byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 -JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq -kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm -DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi -NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y -BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y -59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe -E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 -CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT -hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm -9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH -Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y -+GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp -GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B -xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV -Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC -96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk -FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck -Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF -k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 -P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj -Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l -UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM -/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI -9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC -W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk -3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF -4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs -VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW -lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG -M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej -fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE -hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA -turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx -0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe -NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe -/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu -XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia -t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG -pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp -VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx -ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX -6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT -d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv -ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw -Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy -8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh -Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su -p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ -hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== - - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], - LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, - 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, - 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, - 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, - 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, - 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, - 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, - 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, - 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, - 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, - 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, - 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, - 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, - 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, - 203, 50}, - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS -PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j -OI7j/+I30dXt0A== - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc -a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ -5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ -tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF -I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 -5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT -Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 -W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S -BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g -CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H -c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl -vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh -ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs -qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp -Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu -QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom -xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 -nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 -nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv -YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP -byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 -JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq -kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm -DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi -NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y -BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y -59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe -E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 -CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT -hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm -9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH -Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y -+GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp -GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B -xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV -Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC -96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk -FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck -Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF -k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 -P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj -Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l -UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM -/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI -9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC -W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk -3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF -4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs -VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW -lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG -M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej -fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE -hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA -turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx -0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe -NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe -/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu -XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia -t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG -pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp -VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx -ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX -6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT -d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv -ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw -Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy -8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh -Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su -p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ -hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== - - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, - 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, - 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, - 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, - 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, - 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, - 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, - 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, - 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, - 137, 112, 88, 65, 42, 191, 164, 138, 113, 89, 66, 43, 192, - 165, 139, 114, 90, 67, 44, 193, 166, 140, 115, 91, 68, 45, 194, - 167, 141, 116, 92, 69, 46, 195, 168, 142, 117, 93, 70, 47, - 196, 169, 143, 118, 94, 71, 48, 197, 170, 144, 119, 95, 72, 49, - 198, 171, 145, 120, 96, 73, 199, 172, 146, 121, 97, 200, 173, - 147, 122, 201, 174, 148, 202, 175, 203, 50}, VertexColors -> - Automatic]}, "Charting`Private`Tag#1"]}}, VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {7.000000000000016, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc -a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ -8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ -y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k -BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT -P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl -phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez -c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh -MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay -3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD -qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf -UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 -cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF -iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 -rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya -picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa -kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o -6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ -4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf -e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 -zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd -F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz -vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu -FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls -Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF -bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa -b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc -yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV -VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 -ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 -v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE -me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S -WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk -3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE -xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 -iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 -I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z -RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN -Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz -ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd -FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A -hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ -wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj -sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj -sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC -UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is -lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ -CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF -0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC -hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH -FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 -ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk -Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn -LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN -LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 -LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 -mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx -0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC -GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 -G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 -FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV -S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 -NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV -0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP -Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b -S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ -0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H -o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go -2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e -4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {7.000000000000016, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc -a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ -8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ -y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k -BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT -P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl -phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez -c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh -MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay -3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD -qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf -UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 -cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF -iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 -rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya -picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa -kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o -6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ -4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf -e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 -zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd -F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz -vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu -FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls -Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF -bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa -b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc -yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV -VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 -ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 -v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE -me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S -WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk -3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE -xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 -iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 -I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z -RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN -Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz -ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd -FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A -hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ -wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj -sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj -sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC -UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is -lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ -CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF -0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC -hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH -FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 -ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk -Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn -LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN -LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 -LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 -mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx -0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC -GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 -G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 -FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV -S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 -NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV -0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP -Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b -S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ -0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H -o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go -2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e -4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc -a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ -5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ -tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF -I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 -5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT -Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 -W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S -BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g -CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H -c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl -vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh -ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs -qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp -Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu -QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom -xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 -nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 -nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv -YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP -byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 -JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq -kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm -DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi -NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y -BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y -59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe -E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 -CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT -hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm -9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH -Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y -+GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp -GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B -xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV -Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC -96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk -FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck -Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF -k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 -P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj -Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l -UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM -/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI -9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC -W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk -3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF -4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs -VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW -lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG -M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej -fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE -hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA -turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx -0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe -NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe -/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu -XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia -t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG -pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp -VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx -ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX -6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT -d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv -ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw -Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy -8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh -Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su -p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ -hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== - - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, - 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, - 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, - 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, - 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, - 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, - 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, - 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, - 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, - 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, - 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, - 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, - 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, - 203, 50}, VertexColors -> Automatic]}, "Charting`Private`Tag#1"]}}, - VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {7.000000000000016, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, {Identity, Identity}}|>, - "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc -a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ -8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ -y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k -BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT -P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl -phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez -c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh -MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay -3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD -qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf -UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 -cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF -iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 -rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya -picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa -kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o -6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ -4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf -e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 -zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd -F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz -vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu -FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls -Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF -bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa -b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc -yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV -VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 -ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 -v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE -me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S -WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk -3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE -xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 -iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 -I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z -RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN -Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz -ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd -FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A -hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ -wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj -sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj -sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC -UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is -lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ -CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF -0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC -hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH -FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 -ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk -Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn -LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN -LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 -LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 -mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx -0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC -GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 -G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 -FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV -S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 -NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV -0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP -Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b -S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ -0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H -o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go -2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e -4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{7.000000000000016, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{7, 13}, {0., 1.01270012148501}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{ - 3.9919644112859936`*^9, {3.991965376324545*^9, 3.9919653868094997`*^9}}, - CellLabel->"Out[45]=",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] -}, Open ]], - -Cell[CellGroupData[{ +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.992520003015276*^9, + 3.992520003019804*^9}},ExpressionUUID->"a8bb082f-c236-ff48-ad39-\ +40714b1d68e9"], Cell[BoxData[ RowBox[{ @@ -17596,1724 +4746,247 @@ Cell[BoxData[ RowBox[{"l1111", ",", "l2222"}], "]"}], "\[IndentingNewLine]"}]], "Input", CellLabel->"In[46]:=",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[BoxData[""], "Input", + CellChangeTimes->{{3.9925200045686483`*^9, + 3.992520004573666*^9}},ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-\ +0db8ce2e2f72"], + +Cell[CellGroupData[{ + +Cell[BoxData[{ + RowBox[{ + RowBox[{"Clear", "[", + RowBox[{"yy", ",", "bb0"}], "]"}], ";"}], "\n", + RowBox[{"Manipulate", "[", + RowBox[{ + RowBox[{"Show", "[", + RowBox[{"l1111", ",", + RowBox[{"Plot", "[", + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{ + RowBox[{"(", + RowBox[{ + RowBox[{"ppp2", "[", + RowBox[{"p0", ",", "R2", ",", "x2", ",", "r", ",", "b2"}], + "]"}], "/", + RowBox[{"p0", "^", "2"}]}], ")"}], "/.", " ", + RowBox[{"R2", "->", "R02"}]}], "/.", " ", + RowBox[{"p0", "->", "0.17"}]}], "/.", " ", + RowBox[{"x2", "->", "0"}]}], "/.", " ", + RowBox[{"b2", "->", "b2"}]}], "/.", " ", + RowBox[{"{", + RowBox[{ + RowBox[{"yy", "->", "yyv"}], ",", + RowBox[{"bb0", "->", "bb0v"}]}], "}"}]}], ",", + RowBox[{"{", + RowBox[{"r", ",", "xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"PlotStyle", "->", "Red"}]}], "]"}], ",", + RowBox[{"PlotRange", "->", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "xmax"}], "}"}], ",", + RowBox[{"{", + RowBox[{"0", ",", "ymax"}], "}"}]}], "}"}]}]}], "]"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"yyv", ",", "1.350", ",", "\"\\""}], "}"}], ",", "0.01", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"bb0v", ",", "1.251", ",", "\"\\""}], "}"}], ",", "0.1", + ",", "2.5", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmin", ",", "6", ",", "\"\\""}], "}"}], ",", "0", ",", + "14", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"xmax", ",", "13", ",", "\"\\""}], "}"}], ",", "0", ",", + "16", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", + RowBox[{"{", + RowBox[{ + RowBox[{"{", + RowBox[{"ymax", ",", "0.15", ",", "\"\\""}], "}"}], ",", + "0.001", ",", "1", ",", + RowBox[{"Appearance", "->", "\"\\""}]}], "}"}]}], + "]"}]}], "Input", + CellChangeTimes->{{3.992488951695026*^9, 3.9924889516953573`*^9}, + 3.992489911392314*^9}, + CellLabel->"In[7]:=",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], + Cell[BoxData[ - GraphicsBox[{ - InterpretationBox[{ - TagBox[{{{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], LineBox[CompressedData[" -1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX -ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q -rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi -F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M -3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M -3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH -xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A -ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq -B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I -iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 -XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp -HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX -Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 -r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD -YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf -mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 -vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc -4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE -QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd -4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 -Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 -SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q -/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 -Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn -9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws -/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum -sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud -aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ -T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G -T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd -tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ -S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm -q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF -sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 -KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C -QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U -1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 -1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt -wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v -P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu -twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv -0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 -0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp -gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc -k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ -V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM -U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA -e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC -qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe -BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 -fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW -RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW -SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 -+Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH -m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF -E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs -fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 -xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO -Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv -8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r -ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph -NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ -boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT -JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK -GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz -qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE -6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I -CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb -VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F -uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn -XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 -90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI -fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv -+5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp -nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms -ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z -jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ -F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ -Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu -8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v -F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 -XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP -JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl -eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB -lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z -88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH -SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr -yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm -PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca -J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ -2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 -uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx -Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic -nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO -HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y -5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 -sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE -eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ -xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 -sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU -xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD -oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 -eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz -ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI -2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh -gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 -lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf -duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y -NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ -zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 -K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk -Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB -oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB -ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC -KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C -8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM -T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 -AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc -FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o -ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X -jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu -4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur -ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 -UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx -vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe -F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ -8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx -ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh -e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM -hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm -zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY -8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY -CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 -vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA -g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph -k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C -hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 -Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 -HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI -/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 -qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 -bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp -W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP -xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G -+xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX -Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 -RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V -8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l -8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ -XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N -fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y -4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap -zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD -lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN -HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M -4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato -OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 -17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA -z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji -w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ -OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx -DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG -wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 -R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva -m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 -KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO -VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj -HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ -7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf -aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe -JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq -C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 -x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd -JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc -DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ -Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp -mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 -+i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX -RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN -4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb -qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 -xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so -XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf -R/8DuBIZfw== - "]]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX -ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q -rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi -F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M -3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M -3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH -xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A -ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq -B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I -iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 -XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp -HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX -Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 -r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD -YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf -mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 -vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc -4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE -QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd -4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 -Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 -SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q -/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 -Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn -9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws -/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum -sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud -aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ -T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G -T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd -tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ -S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm -q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF -sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 -KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C -QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U -1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 -1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt -wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v -P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu -twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv -0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 -0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp -gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc -k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ -V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM -U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA -e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC -qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe -BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 -fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW -RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW -SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 -+Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH -m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF -E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs -fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 -xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO -Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv -8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r -ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph -NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ -boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT -JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK -GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz -qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE -6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I -CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb -VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F -uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn -XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 -90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI -fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv -+5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp -nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms -ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z -jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ -F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ -Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu -8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v -F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 -XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP -JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl -eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB -lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z -88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH -SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr -yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm -PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca -J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ -2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 -uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx -Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic -nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO -HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y -5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 -sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE -eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ -xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 -sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU -xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD -oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 -eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz -ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI -2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh -gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 -lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf -duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y -NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ -zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 -K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk -Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB -oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB -ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC -KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C -8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM -T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 -AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc -FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o -ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X -jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu -4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur -ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 -UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx -vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe -F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ -8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx -ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh -e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM -hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm -zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY -8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY -CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 -vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA -g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph -k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C -hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 -Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 -HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI -/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 -qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 -bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp -W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP -xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G -+xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX -Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 -RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V -8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l -8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ -XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N -fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y -4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap -zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD -lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN -HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M -4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato -OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 -17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA -z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji -w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ -OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx -DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG -wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 -R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva -m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 -KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO -VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj -HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ -7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf -aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe -JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq -C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 -x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd -JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc -DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ -Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp -mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 -+i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX -RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN -4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb -qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 -xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so -XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf -R/8DuBIZfw== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {6.000000000000013, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {6.000000000000013, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> - False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>], - ImageSizeCache->{{4.503599627370496*^15, -4.503599627370496*^15}, { - 4.503599627370496*^15, -4.503599627370496*^15}}], - Selectable->False]}, - Annotation[{{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVV3c41t8bppCQkGSPd78REsI35zyVzIZERiIjZZNEimREqJBVpJQRRbJX -ZllpSyKysr1vZRQZv/f3z+dcz/Wcc9/Pc9/P57rOkbP3NDm9jo2NTYT1+f9q -rZO0kY1NFG7gb2sLl5h4YJ9Xp8o6URjK19h1gRU77DW8f5pDFDboXZmcC2Bi -F7Sq+ppbFG6n/h36eZGJ/TWcTiUJikJj9EvGkB8TJyiolysQRSF38dnGZz5M -3CHc5WipKwqe95wXhl2Y2HhLoVKMvihIvrJ4YcKKPwlGLdUaisLo4qe/9c5M -3MOPYklHREF+5fTr1LNMPM6dXc00FwWHe4/eGzoxMceKr9A1Z1FgBJ4eu2HH -xHt+bK0vihGFMy7rb2SaM/Hvv9WDwrdEYc1MeevscSbO5bNf7xcnChRenR/A -ikVUC3T/SxIFg/N7rHpMmfhXiO6bpvuisO7fllAOEybOlvXr6SwSBduHGvJq -B5lYwLp7bqFbFIrduiLWARM3ewaJWPay+uN7eUcDM3FgKEmjuk8UqJPyve6I -iSfzvC5dGRKF4VWFic97mPjVIvc67mlRsLovJZGmycQByZqbxdZEYUviLSm2 -XUw88vEu/T+yGGx9n/NElszE3Jmx385TxcBXOtfIkMTECr7XbhXQxaD542Zp -HyIT+247Ny+nKAbaAeLmjXJMzGVt0MC9WwxoMyc5zaWZmPbjj0WXvhicf2eX -Z7GNid3+mEZ6u4nBVHF1cTk3E89JbB7LKRYDRnrs7fJxBm5tobl3lYrBeqb9 -r6djDJzms2+Wo0IMiot8zTNGGXj/a981uxoxuB7xRyNihIHjA75tk3wlBvbD -YZp6Awys/DVXP7ZLDBLYnD2TvzCwa5JOnv+iGMy8XAo+94qB0T4b5Zx/YpCf -mqCm95KBhRh+ZZ9XxEA/lKtLvImBqw48aVRZJw55zRVdtfUMzD0v2DvNIw47 -vkm+WKxm4Oxj33ntJMXh1/dPBlpFDDwkEOBugMUhysku/fs9Bp74YGuYs1cc -4u9kevukMfDP+ANUTh1x4Jje08uZysArwoKD9friYP5N042SwsCiYo9NNUzE -QTyj9dTxeAY+Itf1H/W0OLTLy7h5XWPgmp0qPJzR4lDVzZcc6s7AySaT2fVd -4vCJUWb6RZ2B+T7IbF3oFgfMDF0jqTFw8BGzUPleccj5piTrvYuBzx6st036 -Lg6NFyVqOZQZWEs3SdRtXBw2y3Xri9EZuF9zX9S2JXH4uU368oI4A1Pk7rp7 -SEmA0NOV/f4rM7iUaaAq6SgBAXrdGodfzGDrUKPFYCcJ6OVcO8NePYM5th2q -/XFWAmptn9oXVcxgU2Ss/8xdAp6Z7C/eVDKDf8cct97nJwGMgNYbuXkzWHG7 -Q9jZKAmQjzGNPJ88gx87Xu4sKZSAq4/nHA09Z3Dq14Lzh1YkwG29zaXr21jn -9Tr5ctYkYJ/fJ3KB8Aw2LFvMZFsnCR/qbmm8F5zBf+N1PhdzScK207RbfHws -/oM9auICkjDB1tF+mm0G89Vx/hklSMKZJ/ltKePT+HKm9cVgfUmoQP+0Zsum -sY0nT1DxbUkYa2G34DWaxsTUKzkjiZJQEzsiVKE3jceb595vTZEEGdFAaXud -aewt/Z3onyYJ85ymcgXa0zjsTXHbnixJoIprPyYrT+Nc+ZNbm8skAQk6GscJ -T+O5sWdPu79KgvVhvhdHeqdw1Cmz3hUZKRAR0Li++dQUDslIOmFDkILo+C9G -T09M4YChL721JCkYuv7Q44D5FHZ2tPp2hS4FPa3zHW6Hp7D+Wds+9l1SYPrd -tezWnim8wcv5O6euFFjIwi2S6BQOuxI4vMlNCjg1HFQCOyZxYHrWlFSFFCxQ -S/Wu0SfxUJr6ilmVFGQ+n34XQZrE+qkt/DdrpKCSredNuMwkFkqZ2LlaLwUm -q6tkv62T+HHcDv/+NiloM+GgKLFP4s6wUo77vVLgzO53avbLBJZ3fSUluyYF -sXKWAq9CJvDX3T+OEHSlgffKmIzFm3EsFCgReOKDNOQN5qd+0B7DWzabn3Q5 -KwOD4qTRDUY/8OXlq3En52XAPDCpQG/vMD4uYblni54sjBX3kTh6B/DJm27C -QvGyUMx+bNWs+RsWfeYnsr5bFi5dnOuMonbj3Rc4f/cT5SD0cfHOZxafMM9U -1J+nLnLwPqm6tyLgLfbj3dD73VUOXP+qlqlZvsUj8qG1Qu5yEKiR8OfV7re4 -1u1SuL+nHEi2+s7Lzr/B3gzXLTrn5cCfb2NDo9cb3P3roFJvoBwUuBVJvnTt -wNl/+c9sjJODMc7M+zTvdryX63bX6XI52BL+pUy1phlzCWcQb1fIweddd40v -P2jG7XLPvOor5UAeegK/hjVjU+3XPBI1cvCOSyG381Azdjq/Hr+vl4OFSOGu -twOvcNSQT45WuxzUvBy+3cXzCnfWmvpv7pMDahlFx8izCad02L/a08/ql+vv -0sHjTfhkj5eQy3c52CGkk+Oo3YRH52OevhyUg6rehsHPvE14UeHVwMVROdA6 -0f+9LrcRS6eqGYwwWfiLbjHPJxrwGT8R8cp1BNCLDFVhC6jHQw4dSh/XEyBp -gii053Q9tjEOOTDFQQDSFsOvUcb12JTO8JLaQABtg4MCdtR6vK/3VctVXgIc -k+Tx/f6kDktjX19DYQIkJB1kktxrcSdX5/teMgGuGn3LTuGtwcaz10fnKAQQ -V0A7K0er8evveHkTjQDr3EePrDZU48aKJ1TYTgC20VciC/7V+JlLaFCmIgGM -U19a3R2vwlFvVRTcdxMgBV8uy31bifcmxUWs6hNgaSwq51JpOT5+I19fyZAA -e2uCJi3jy7FLWNvGU0YEqIsq+X3KsxwnnGOPaThEAMXCtcVxejkeP+wdG2bC -qi/prFv/gzIcu+HoHR5rAhDle1MNk0rxgL/AExFPAqw2ce8ISi/G854Kbnpe -BHB6vl5SL7gY85zR3+HvTQDPJeF6NftirGoW/OyrDwHiye9rQinFOHLnz+I0 -fwLQNTanfC8swsqT72oIIQSwlKhdDup4jq+cuPVWMZEA0Ra6vHekC7HhzmMW -RkkEUC3aWZHEVYhFNmwbOpNMAK4zHp6Ofc9wQVH6/IM7BPAImU4PC3qG+zcW -SG5JJ8CFpZboyKYCvKeiw+VPNgHU/Vwzz1vk47/CPBvqKwjgdixUMvppHn45 -+Sb2WyUBvNhCO+6F5uHY+jjxxSoCaJU4CI9a5WGqm5iiygsCBPF8zhHhycPH -m2hmmQ0EkHyne/W3Sy4u8dZ7FNlOAN8PLWIu6o+x99swfPQbax6OHJRdN5uF -E+J6VM72EQCc1J1EPmThClNlypV+AmyynThi8SwLs/X28uUPEODx9hVzR7cs -fHNMpYf7BwHWSzqjlPFMnMc2eL5+hgA8VItsvYlHeEhFO09pjQCjGyyKr/M8 -xFwL8fd02YhgeZM4tDSTgemV47En2YlwcHeuaMKHDOyFE/yi1xPBPzl/RvtO -Bl41mtIZ20AEv9fnvF22Z2Dx03e+pwsQQdGh7Beb6QNskjwvzE8gwkpQXdmv -8Ht48+nnxXuIRAhtKNlONrmHO1TcTVxJRGg6WnUoT/oe1n07cquVQoRXbF2r -ORVpWIuzkydUnoX3Qang9M9UTPQpYvurSoSK0MuasR538dxhz+lBPSK8fDph -NvgwGT+XlI8WMCDCCf1zOeH+ydhjcpSODYlwtfgk1fNwMh4PtzmTdpDVjzP/ -boF/Sbiv5tDQ8aNEOPP0jX6weRJu3q7Q/dqKCDkSet+bJRNxMtdEU6k7EebT -JC6e74rHPMUH5d97EKHkIzXdvCweB9kWxk96EuH1VDO4J8Vjpwo/O5lzRDiK -GNOK5vFY3YVrLfICEUx6Es9x9MbhrjdELesrRGjIfJ3yYioWCyfaFK6LI8Kz -qKL5vbY3ceTexm1S8URwsjISfbz9Jl6eIV/ZfZsI6TFFWxwWbuAR3ZlDbolE -6KBNF32+eQMX/7009fkOEYL/+V990BSDTazvUHIfEuGGq/ql03uicSyxM+1I -CYvPxEk89kwkTu+59+xqKRGEPvY3SmpG4idxZxqLy4hgczX84jJPJG5eWxrb -VkkE9lzCStGzCLzcK7dr4AUR4ht052eWr+EzCZ5tXi1E2JkdHLc9OxwjTt6F -uB4iTDsrDZsrh+KDNZ3cL3uJMFTy4Ycxbyi29EmXWPhGBC26cfyN0RB8fnDn -XqvvrHkQKqS8vxeC815YxBBGiPCmpWGzx+YQLHIhm1A8Q4SAiEmf/NVgPDO6 -90gnGwkMPtoL1wgHYZPoe6/Z1pFA++rOBL7eQFyhtKi3Yz0J7GIW45szAnGI -fyFc4yRBrXHegfPKgViER0ZFg4cE128G7H1kchnDjmXhtC0k6FH4OFqRG4Bv -+5T1OFBIUEW3ugbpfvjvNiHzWCoJ4t+OFQZ4+WGbGvdPNTQS9LcEL2zc74dp -nOSOrfIkMBa4H0aeuIBrkm6/aFEiQc0vlyrQvIBHK70eyGuSIDD7amfU+Hms -ySbvNGtEggVbQeOSK+ewWajiE95DJPgofF/n18lz2JtL5SfxMAnumR/Ict5z -jvV+0QwwNSYBVpSU413yxmJiejdLTUnQHNhmw+XvjRd3OpT5nSRBfXxhXlSQ -F650SOVa9iDBwNrmrXed3PHn0XQjYS8S/F58HntN2R3/cn4Yq+BNAr3DX20/ -Lblhuleu+EkfEnRGTLhHx7rhO5fLFWv9SNDEo1fiUO+KLyZ+Oh4cTIL7oybu -8jtdsGYLbw5HPAmGDhU+XzY5gxmmvsmqt0mQULc2SyWdwZlD/RGOCSQ45Y7v -F8w7YYHV52dfJpFAMyI84vUdJzyqarE9LJXl14VVvHP0NI5/mJm/PosEXaY1 -XFK3HLG+Mn/6rmwSCF5g2jw/7YhXXvjddMghwXJH3UrSHkd89quhZ1MuCfbP -JD89NuWAkcAv5dACEhx35DcPOeiApwK1S9ZVsOqv/OenKmWPH/DmZKpUkmCl -eqw9+a8dPn5HING+igSfDv88sr/TDjeWDPs21rD0dit44xVjh1Omru8OaSCB -lb9sjwibHdax7Kpif02Cw1HzmRrjtvieqmcDWz8J7IdMX+pvs8Y8GcEBkt9Z -88Vgj50fPIEvbIrfpTFAAhcnXTfO/BP48GhJlucQCVxNdsUa6ZzAbClL1/tH -SVAklWZl42eFHf6Fm9QwWfpRRM5yMy0wvTFt2I+dDOKfJ7iXZY7jJMWCtNvr -yNBz0Z/QOm+G16XWmT1bT4YsJ//dw6/NcI/PUMsoJxluinwT4bhohmPItKdm -PGQo2pWuPthlipmRxed3bSGDXba8Z+yDY7j0SDsnk0SGKxk7aYpnj+KAXHca -J4UMlCwbxUC9oxitFzSSoJJZ9xPJBG7qUdxcZh6rRycDEd/o+DhqjLukfog/ -2EGGF5ffaNOdjfHC1JrSUXUyhJ/tquT8dRhrRKpZFeuRYa97bPvpICO8PNh9 -uU2fDKOWEr/jDI1w/X+X7383IEPDQOAJ6W1GWJ/ZOMJ7kAwPdGlaZs8NseVx -Y09HYzKUmGw7Tps0wAEk17CtlmQQrK80/uCmj2vqHxT4uZBBcalA9dPzA1ic -nHc5y5UMLi+KO43DD2C/68WGn9zIoHKyOoFmeQCrmDSPKnqSody4O2+Y/QDO -HZ6SHvUhg22owNx5cx2cxLX7lmkgGaQo/Gc8hPbjORc4GRJEhjxLJSHtqX3Y -5J2BfOEVMjReGjQ68XIf3pRi3cIbQgZZ38O/Q/324TB6yFrjNdb+qR3svoN7 -sffBN547Y8mgH+WcdbQJ8NvCLm3bODJU7gwL/vAAsMLWAd4b8WSw7sq4kRwE -eLzvd854AhlW6IWb5rSA9T4SHbh/hwzcAi+k6twxPhjvYMz/iAxfq8dviVzQ -xpTuReWpUpbf+/cJBw1pYi2JJy0c5WSINpv3fFioiY/YWNtIV7D4FWb7yFc0 -sf9IbfTRKjJIKPPR9KQ0cfvP0NHyWjJs6/JBAyc1sMdG/rSwFjJEXBD53MVU -xyEH61TSW8mw/eB/jqlN6jj5lldbeRsZOBs3nStJVsf1Wz8tTL4mQwvH9ZuD -oI6FCClHj74nA61e+KlIshou0yJskP5KhlCJx7QzJqq4PfDTvd09LLze1hB5 -eVX8vT5M9WgvGaZWSEwtDlXMrTdmF9ZHhlsbGls1yndhq2NPayYHyUAI/Iwz -ZHfhVVf1c+WTZJjfIxJSwKaCD9wz7DNeJkNKTs6A24gSnpu0kwlZIcM6s+zI -2Awl/FDjol3xKhl8HH33Y1slvPop58dWdgrceOV2WfObIi7j4WT0cFLAfbvh -gZBvOzDFv27VcTMFesfP51yYl8edr7ogSYACacuth9ur5HHIFkZIiyAFZvu8 -lFOC5XF/geSG7cIUmFu4UZq+SR4n/bi4mSlKgSI1p8r/dmzHXMdUZS8SKCAf -duHm8FUaLnlgZJ9HpIC9dvkW58M0bM+wz+wlUYDhobZiKUHDtdfjaIjK4j/y -NSKgjIov1DOU1ytQIDSaLy/9FwWP7cjde0ONhd9Gk68KIONWbmmHDH0KeOxQ -zXr9kYB3qPW51xpQwK695MibfAKOt0vz7zWkQGxcMtp2nYCtq8Rvbj1Egde6 -K1VXgYCZrtsqrx+lQOPvO4SHRXJY5J3A5nNWFIgXsMlIfSSLL/17J3brBAXk -Tl3SHAqRxQPUW6Sn1hSQai97f9ZeFucFb9IataFAJ5/UJlWCLNZW4Tlt5UAB -oYrkdhcDGeyYuL56nxsFJls7Iv44S+G2hsZXtu4UOHUxV1tYWQorMq6+v+xB -ATE7Rd2HC5L4ry7baJkXBZKy4gb4wyVx9N9lAXlfCgRJ8McK5UjgohMLTluC -KKA37tDEuyaG1+QmhEZuUaBW/dWK6aIIrvlPK+JfLAVcw8wNfneIYH+z6H9C -8RRofszHHHkggn9H7hjZm0CBMaudtS0GIniE6V16P4UCVW6Xhr3vb8WtL5bM -T2RQYBFF9r+zFMZhX4w6zj2kwOjT2EV/FWG891caRD2iwM8Nle3uvMK4isS6 -AmdRIGwx+JBG7RacHx26JJJHgam7/Pv3UrfgeEu+ex+LKOBfNNmcyyWED/uc -FJwspsB2l+/FHcOCmPdGQTh7KQVajBVbVBoEcVi9sYdyOQXeGT63bb4siP2o -ifhmNQV854TDVxYEsPW81JDBSwq8+S0gHczYjMlxStSGzyy/9t1vfKfHhy+X -jur+7GLprS826c3Hhz9+veck000BzzKHPbEfeHEQgS87sIcCtzldrbRP8uKu -4nGS1ncKFCSP1WoH8ODIrgxC8TjL76t7v661ceP+JYt9QxMUiAxV3/QzkRur -ygjYC05RIOGGpcYhe248cCYow3OGAkvdHpOGyxuw5qKVrMJvVt7Sx/Y/tQ14 -UkJYOusfBX5cUXfeVcWJAV5rdy5ToCE1NC0mhhMnOYacXL9KgcyXwW4HbDnx -vvyfaXZsVODw4Wz5yMmJU9EbCWlOKkx48qzpmnPgg3bXxJL5qVDqMHSSybMe -F2T/Fb4uRwXJVNkm60I2XJ1rvvKIQAXIlmu+c4sNtz4t+1FLpMJ/RwynRDzZ -8FDR+bI5MhUKT889fqfIhkXqfpqf2k6FasoXthP2ayjoy/jd3buoENVxV8kx -ZAVF9+iFmqhS4XDHK2Nv/RWU0pft6q5GhTHXtZ9M/hVUNOy459FuKgyJ52mh -e8tolDnQx7+HCmnfHEkb6v6hQ9xfZUd1qMDMLVWJE1lCVrwaG9l1WXyTlwVM -hheRE3/yLwk9Kpy4Rbf0K1xEwcJmjUcNqBDnFiM5bbSISmQ/OLw4RIW7q5Hm -zhF/kaRmW3bCcSrUW1RV8Av8QdPOlQr7z1LhWGfFdkWHORTvF1Tv68zqNztY -8dXuOaQZvt/0sQsV1gbn3Cr45tC1B28ubXKnwutynZuF5bNI9stg+xdvKjxY -CHD5KDiLTHV4nN0uUcFJvHtQs+sXWjr6bjn9MhWS8HmvPYW/UIZtQuyHQCo0 -vkuovRX1CzECpCvUg6kQbmjPIMMvFPlcZQN7OBW6xX21Vwt+ohrpE1mJN6lA -g/zdD9SYyF5BVrP1FhXaisz7CbMMtFHrR8dSLBV26V4aVXnOQMfNPOdsb1Ph -k9xdjwVFBvoZHbp/ewoVzgRcVJpSnkGkxSeDtRlUmP3H1xl3aArd+LQsNV5C -hWsZWQOBQ2Mo5u0xia1lVDj3N+rx1cIxFNWWJ7qvnAoMS6XvM0Fj6FqdxZa0 -Sios/5vYtSw5hq48KeE2rqWC2bFMia8nR5F3qNtseQsV/Dadutr/awR5BTX9 -HGmlAvtWn1mu5hHkcVGcIdhOhYunhLii744gF8/WcdcOKgwUmgo90hlBDidI -/TIfqKBckrFvNW0Yme361hrRQwWyLP11w8khZKq4q7mklwoGdyK5Du8eQib0 -qKbBbyz/8hcytwsOocMyGrX/faeCg2u6+8dXg0iPN6GYOcyaxwhZhXaVQaQ5 -bJRuPkOFAO/P99+KDyCp29U+VDYaLJUH2kujb+ijW5UmsNOgUznh8zTXNxSp -W7lmsY4G5U7r1lHf96Lfi2XRURw0IM5K7u116EXNp4oezXCz9s/qtSrE9iAP -xdxPxYI0+GTKEfXyXzcicj++0yFEgwvXrFKZ7d2oezDb9scWGlhrsLMH3O1G -+xIzp0REaPA37e5wrlY3Elm+vz5AnAYSbV189le+oLq2pF1ApIGLfktGilgX -Ov8ocdGCRAN22a1jjozPaHtgQp03mQYDov0R4U2fUYJyvNEjKg2e5tgZNXh8 -RmeTbzhwKdBAoE5MQbCtEwmcDrvdoUqDxztHeiNjPiE7tnOzFro0OBGg/r7V -8AMqHOlyvK5HgzLDNTqB8gGttv7XValPA73fQdJt7B9QWhxnpbgRC0+jRH+l -8j3qItwJ+naEBqKeERwzO94jowP1G09ZsmKhX4xG3bfoLp18KdaKBjW5fZMJ -XG/R+Kao6foTNHAbPPiR0fwGXes69k7OhgY9tgbjagZvUP2ZsYRhexpQZr1N -fx/rQGpR/LJn3GhgF7D9rerVdhTm4ROX7E6Dq/J/3683aEcfTbrXtXrQ4L7Y -4FcDwXbkJfHwB82bBjkb/gjsftSG8p6qPZn0pYFsFJXvUkcrknlnre5xhQap -zyD6y64WtFH4yUHfeBoM//zkVnnkJeL/Un4t7jYLr0c6O5j6EgnffVmfn0CD -lfO/fJPXmpC0bL/qaBIr/0jp9PPCJqSqIChlnkoDf+rlO+EiTeiUjt+MRiYN -HrTXMOR/NiCnDWFUsywa9Cuku2R1NCDX9lg772waqHDeUT2d24AuGOd9zn3M -4n+wGlHq0IBirPteiOfT4PfVTXuieutRxfn9N5dLafDO+d5FmWd1qHa3cato -OQ1shDUu2XjVoaYl63VqFTSYVyp/LqZSh94GX7jgXkUDhhZjnK28Fo3E5Nr0 -17LmVf+IuH/zC7Q5a7NSfQsN8tjyT+75V42cPve+C/1Kg4srat/4yypQU3iA -z90eGngZaL0VuFaBZNXFtj3vpUFKhfCY5/EK1Jt03Ka/j6VHg2jNvr/lyNji -w7TGEA3erE5co0I50uxt3siYpMEzV0rC8YFSlBR9Op9jmgZhY9Y7v5aWorn/ -OI5KzNDgx8VAg4LoUlSQtjdFn8n6v9Lfuh7SKEUEmxrKo1kaTGbuOnA4sQTx -DT7fb7FMg9E38pGdJ4uRc5zxmMcKDXTzX7upaxSj5r3MqPBVGvDabrAcFCpG -wQ8VPhax0UFmtlpIoK0IzTvknNrESQfCTMK7Bo0i1D+aFti4iQ43NE/9WyM9 -R8+nI8oVZOhQVndo6zurAvQ4J4brhCwdpkbuyvSIF6B0+ziz63J0uN6v1eva -m49iuu/O/iDS4YQOY0naJh85vcxXuk+jQ7Z/u1uW81MkmfYpR1CFDnxmzWx6 -KXloi3n3At5Fh4YwM3XtU3mIR6jvgIcqHUI2NpzLpeWhPxGjw+3qdGikRsgO -VOWijz6LMmH/0eHe9dRHT0Yeo0gjmZQFHToYtiOb6YM56AoXaYykS4ctiWVj -HyVy0IUGmvoxPTrUGXP0yU5lI4fdKp3PDOhQaS2SzYzKRoh4QMD5MB1aN0uZ -7H2XheaWXCJ7zenwRtP/xZpzJjqVV+Zf70KHSU6JoIShDMSv4xDb40qHlrdf -aE51Gai6b/PjOTdWPeN09sC0DCQi6PyF5kmHx4ktEv7mGajDT0I9zocOmhOe -JxLfP0CaB4Jn7S7TITxh9MPcvftotF+B93IgHcRTnLobbe+jBP+vhKQgOsyq -C+/gJdxHP5+omLQHs/Lv97FveJyOsoV+FKqE02FlzicwrvIeEhow8Fh/kw42 -x71+0H6novqLC+FSt+jQy1u8Wak6FblveXRvdywdEuNDzDPCUlGr7nKHazwd -JizNmc2iqSgov0C+M4kO+XWnzqwduIsmA7ZMZN6ng0t23LBPcQpq2trnoPuc -DowH6312fE5EI+e1DK8Wsfxnz5GFrETE0ZmsXFNMh6YnWsvVvolIJ95kZWcZ -Heov6WRObUtEL/lbk6Sq6VBdIfhH0C4BNW8obpt7SYcacbWhKs7baNRJoFCp -mQ5r25cu/e2NR1zN7kkuLXS4+ed3dVxRPNILozkMtNFBYegPb+epeNTKlr78 -+i0dxl1VrUIa4lD7YqTSo24W3y2x+P74WDRpMbq1/ysdlJJvL17yiEU8FfuX -RXtZ52nf9jgbxiKjC6utN/tY/Ty8mqq8PhZ1/PaxDxiiQ4q4dE/dz5vo7ZRN -4tFpOugdenvVZjAGMQxrLsXM0MGsgTy1kBGD+PPE7FsYdDhmGntF3CEGHTnb -qaj9iw5X6G+cVkej0fsRg1baAh2uOZ1xE52PQj/35xQ4/GHVJ/mf5URlFBJ4 -xJGY/pel134dxT1XotBRuzo74X900HmvLuPAG4XO1UvqH1mmw3CJGbfax+so -XiZAMWqFDgmneM6H3bmOioK+CL9apUOY2sxhY7vr6GOf6r+1NTpEpf6OSKZf -R/8DuBIZfw== - "]]}, "Charting`Private`Tag#1"]}}, {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{6, 13}, {0., 0.9838824269554479}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {6.000000000000013, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {}, "GCFlag" -> False|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]], - InterpretationBox[{ - TagBox[{GraphicsComplexBox[CompressedData[" -1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc -a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ -5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ -tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF -I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 -5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT -Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 -W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S -BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g -CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H -c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl -vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh -ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs -qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp -Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu -QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom -xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 -nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 -nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv -YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP -byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 -JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq -kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm -DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi -NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y -BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y -59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe -E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 -CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT -hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm -9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH -Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y -+GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp -GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B -xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV -Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC -96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk -FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck -Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF -k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 -P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj -Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l -UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM -/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI -9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC -W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk -3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF -4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs -VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW -lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG -M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej -fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE -hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA -turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx -0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe -NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe -/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu -XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia -t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG -pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp -VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx -ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX -6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT -d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv -ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw -Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy -8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh -Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su -p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ -hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== + TagBox[ + StyleBox[ + DynamicModuleBox[{$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35, Typeset`show$$ = True, + Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", + Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = + "\"untitled\"", Typeset`specs$$ = {{{ + Hold[$CellContext`yyv$$], 1.35, "yy"}, 0.01, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`bb0v$$], 1.251, "bb0"}, 0.1, 2.5, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmin$$], 6, "x min"}, 0, 14, ControlType -> + Manipulator}, {{ + Hold[$CellContext`xmax$$], 13, "x max"}, 0, 16, ControlType -> + Manipulator}, {{ + Hold[$CellContext`ymax$$], 0.15, "y max"}, 0.001, 1, ControlType -> + Manipulator}}, Typeset`size$$ = { + 427.72265625, {20.208006057439256`, 25.833006057439256`}}, + Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, + Typeset`keyframeActionsQ$$ = False, Typeset`keyframeList$$ = {}}, + DynamicBox[Manipulate`ManipulateBoxes[ + 1, StandardForm, + "Variables" :> {$CellContext`bb0v$$ = 1.251, $CellContext`xmax$$ = + 13, $CellContext`xmin$$ = 6, $CellContext`ymax$$ = + 0.15, $CellContext`yyv$$ = 1.35}, "ControllerVariables" :> {}, + "OtherVariables" :> { + Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, + Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, + Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, + Typeset`skipInitDone$$, Typeset`keyframeActionsQ$$, + Typeset`keyframeList$$}, "Body" :> Show[$CellContext`l1111, + Plot[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + ReplaceAll[ + + ReplaceAll[$CellContext`ppp2[$CellContext`p0, $CellContext`R2, \ +$CellContext`x2, $CellContext`r, $CellContext`b2]/$CellContext`p0^2, \ +$CellContext`R2 -> $CellContext`R02], $CellContext`p0 -> + 0.17], $CellContext`x2 -> + 0], $CellContext`b2 -> $CellContext`b2], {$CellContext`yy -> \ +$CellContext`yyv$$, $CellContext`bb0 -> $CellContext`bb0v$$}], \ +{$CellContext`r, $CellContext`xmin$$, $CellContext`xmax$$}, PlotStyle -> Red], + PlotRange -> {{$CellContext`xmin$$, $CellContext`xmax$$}, { + 0, $CellContext`ymax$$}}], + "Specifications" :> {{{$CellContext`yyv$$, 1.35, "yy"}, 0.01, 2.5, + Appearance -> "Labeled"}, {{$CellContext`bb0v$$, 1.251, "bb0"}, 0.1, + 2.5, Appearance -> "Labeled"}, {{$CellContext`xmin$$, 6, "x min"}, 0, + 14, Appearance -> "Labeled"}, {{$CellContext`xmax$$, 13, "x max"}, + 0, 16, Appearance -> + "Labeled"}, {{$CellContext`ymax$$, 0.15, "y max"}, 0.001, 1, + Appearance -> "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}], + ImageSizeCache->{ + 472.82265625, {109.12363105743927`, 114.74863105743927`}}, + SingleEvaluation->True], + Deinitialization:>None, + DynamicModuleValues:>{}, + SynchronousInitialization->True, + UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$}, + UnsavedVariables:>{Typeset`initDone$$}, + UntrackedVariables:>{Typeset`size$$}], "Manipulate", + Deployed->True, + StripOnInput->False], + Manipulate`InterpretManipulate[1]]], "Output", + CellChangeTimes->{3.992488953024457*^9, 3.99248991199866*^9}, + CellLabel->"Out[8]=",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], - "], {{}, {}, - TagBox[ - {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[2], - Opacity[1.], - LineBox[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, - 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, - 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, - 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, - 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, - 34, 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, - 36, 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, - 38, 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, - 40, 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, - 42, 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, - 44, 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, - 46, 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, - 48, 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, - 199, 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, - 175, 203, 50}, - VertexColors->Automatic]}, - Annotation[#, "Charting`Private`Tag#1"]& ]}, - VertexColors->CompressedData[" -1:eJztyrEJgDAARNGIFq7hKlrYWGUECyEgBIxbupSmsHAFec2H496w5rhdIYTS -PVlSObfms9q6+idxHqe85yPVP4U3OI7jOI7jOI7jOI7jOI7jOI7jOI7jOI7j -OI7j/+I30dXt0A== - "]], {}}, - {"WolframDynamicHighlight", <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>}], - StyleBox[ - DynamicBox[(Charting`HighlightActionBox["DynamicHighlight", {}, - Slot["HighlightElements"], - Slot["LayoutOptions"], - Slot["Meta"], - Charting`HighlightActionFunction["DynamicHighlight", { - GraphicsComplex[CompressedData[" -1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc -a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ -5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ -tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF -I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 -5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT -Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 -W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S -BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g -CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H -c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl -vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh -ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs -qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp -Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu -QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom -xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 -nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 -nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv -YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP -byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 -JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq -kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm -DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi -NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y -BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y -59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe -E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 -CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT -hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm -9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH -Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y -+GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp -GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B -xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV -Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC -96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk -FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck -Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF -k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 -P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj -Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l -UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM -/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI -9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC -W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk -3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF -4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs -VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW -lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG -M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej -fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE -hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA -turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx -0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe -NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe -/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu -XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia -t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG -pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp -VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx -ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX -6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT -d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv -ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw -Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy -8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh -Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su -p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ -hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 11, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.9924899121466837`*^9}, + CellLabel->"",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, - 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, - 26, 27, 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, - 76, 53, 30, 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, - 102, 78, 55, 32, 181, 154, 128, 103, 79, 56, 33, 182, 155, - 129, 104, 80, 57, 34, 183, 156, 130, 105, 81, 58, 35, 184, - 157, 131, 106, 82, 59, 36, 185, 158, 132, 107, 83, 60, 37, - 186, 159, 133, 108, 84, 61, 38, 187, 160, 134, 109, 85, 62, - 39, 188, 161, 135, 110, 86, 63, 40, 189, 162, 136, 111, 87, - 64, 41, 190, 163, 137, 112, 88, 65, 42, 191, 164, 138, 113, - 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, 193, 166, 140, - 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, 195, 168, - 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, 197, - 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, - 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, - 175, 203, 50}, VertexColors -> Automatic]}, - "Charting`Private`Tag#1"]}}, VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {7.000000000000016, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc -a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ -8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ -y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k -BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT -P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl -phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez -c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh -MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay -3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD -qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf -UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 -cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF -iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 -rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya -picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa -kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o -6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ -4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf -e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 -zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd -F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz -vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu -FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls -Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF -bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa -b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc -yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV -VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 -ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 -v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE -me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S -WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk -3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE -xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 -iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 -I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z -RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN -Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz -ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd -FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A -hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ -wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj -sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj -sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC -UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is -lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ -CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF -0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC -hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH -FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 -ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk -Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn -LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN -LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 -LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 -mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx -0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC -GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 -G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 -FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV -S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 -NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV -0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP -Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b -S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ -0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H -o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go -2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e -4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>]]& )[<| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {7.000000000000016, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), - "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc -a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ -8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ -y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k -BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT -P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl -phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez -c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh -MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay -3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD -qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf -UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 -cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF -iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 -rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya -picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa -kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o -6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ -4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf -e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 -zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd -F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz -vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu -FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls -Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF -bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa -b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc -yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV -VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 -ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 -v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE -me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S -WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk -3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE -xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 -iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 -I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z -RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN -Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz -ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd -FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A -hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ -wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj -sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj -sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC -UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is -lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ -CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF -0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC -hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH -FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 -ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk -Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn -LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN -LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 -LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 -mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx -0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC -GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 -G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 -FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV -S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 -NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV -0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP -Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b -S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ -0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H -o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go -2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e -4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "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[{ - GraphicsComplex[CompressedData[" -1:eJwVlvk7lYkbxoVsU5GK6JDlvO97XvtEatqeh4aypBOyNZIlhKIkWcp2FKEc -a0ecUlKDQk0LsqQUGXspiWzRgjCIUN++P9zX5w+4r+tz38ouvpYHBQUEBOp/ -5f/cfXODmIAAA+dGByUW642B7rpRfd5JBt5izximVIyCTuLmnbZzDJxdlq1+ -tmkYJmVt7LwDFHAiK8Mu4vNnuGTb7ig/ooC/60tG6gl+AgfvEaPRI4rYcNdF -I/rLIPTebNFY/VERx68PrF6YG4DwUvNpd++1+Lf9PPVttA8EOZr32MNrkTN9 -5NrDHz2QW3b4j53rlLAmZWafdnw32K1NjA32V0Jt96L0FPFOGJGV67AtUsIT -Lh7SvIXX4D9sfU1wWAmdT5dsXr/5FYiov+uu1FBGlAzqtQ9rhdAfdXKsQ8p4 -W+puzWmdZvi5WejZ1TxlHIlp+j7eXw/+e78Of/6sjFM/RsUs5p5DvZDhim5S -BVNXTuVNVT0FbUZPXr+HCgY55088LHgMgXUDBik5Kvig0gi/W1VAfY+eqe2g -CobLbpTwyiiB5S83NAyRqriI02YhlXUPNv2VvVvVVRUzWiI2K3jeAT8Lm+1H -c1Qx2Cc1vLDjNsS+Oqrv1auKKxKUysPk8iB5I+boKDDRKct3+Z+MXMhb7BAl -vp+JC2Wueo+OXIXrHm+dEzKYaGPiVrF52WUo0M0tVn3HRClOpFhcBQ9yOpmh -ZxkENkyqO51yToXw1RLGaXYEjis4lgtMccGzclPEAx6BThqR+YsLE0BvrqUs -qp3AbgmvidctMTAuzTiqIE3iSrwb79vIgbKU4vQ6SxLtkwJZ7moR4Jl/q1zp -Aon57SG53XmhoKIxZX2umcRW2vOgyIVAqDS49oW/lML2gv+KuDx/2KUrvBBu -QqHKB8HT8w5+8PF8UVjAOQpNsNfTrMsLPMKeLFr1nMJ3DQu8Olt3mOhQnnom -xkIp5e35/SYucERK19XYhIVTbVuLhMX3Q2NnXrNfNAstb/tRx+fsYNPyI4W3 -nrGQV9ckGO9vDec60xNShWi8+uBEz/AUG+ojjg+aAo3c7LzWdZvMQS4ps0g6 -nEbdox7jXoo7wHSDenD0Ixpb+NzDO7S3Q4f6wNzPnzQW7fScViEBDEaSLptv -YaAfz9smKf0r3NxVFWtXxsS4vgn+8p2ZcPPsh7S980xkc9cs/SMwHaSDZXvP -byJQJaFoVd/FZJj0vtpPBhHo65H2z7hVIlg4nuErPCRwgwi9PZiIA2nRwDT2 -JIH5pfEtZOkZaG9z5/ivI7H9Y1l1xmAkSF8pVJvyI/FTgtmRcacwqPHeE/uq -kMRpX12XxIUgGNM3v7LyK4nj9jkX/U8FwJlSq8kL6hQOdjwqbhs6CvLODtvm -DlGY+CCk2v36YWCJlmLNTQqvuuadMQr3hIKCY3MjQxTO+1d+1d/gBjoBagUi -NAulDXaXtCUdAMXpUd4+Dxa6fDmws9ZtH3BOLEHJXBY6xe/Iqc2wAZfpSL7y -BxYayvduELliCXlaIpv8lGkUuH/7Udu4BUzExtTfdqIxtGIudyTOBO4MuK4y -59NI/WMqHyNpBEnFomWG3TQqEJZtYGIAtaYfrEhFBuZqnWEECoxBrkPD1EQe -E/lbq2QMr2VBXpdRzpZhJs5v8rQ8nHIROtX4WnHqBC61EhbyOpkCmwzbU7o9 -CTwrFv6teC0X9p3vufD5JoFV2lvMN7vGg2oEk/b6QOCVyHqmcdVZcPN/HLxT -hcS5Xp+WlpdR4J6h4/zemUQnq8PbRQ+FQ1pcmGrIZRL3xheXC5iHQGzxleCm -9yQu6OmjcfgJUDk955vOoNCGE4B9ZcdAz7RQocKewgKpZs11TF8QM1t/IItH -Yd1F4vGXG4dAQubS6YjXFMofCf35HA8Cl8ptHlzNQjpTs1H4kDMYC3F/sO1Y -+GKNoIhe4V9A/71PrCqVheyfIWWpT2yhMWomd+gVC0+GZOnt51iB/OKm/khp -GgvE6aKVumzojv7xJnQ3jb679ZW5b03BfbOAq/YFGvsYMcI9UsZw5DhP3q2B -xhJy35uZ9YZwfzRgn/JXGk9t+6YU4okQH7RMa4UkAw/eXljkKj8GZG+betVV -Jk5t1T9WZsOHfLFpNZ0BJmZWp4W1UzzAKOe94kwCm6lB40dfUsBR0+9w6QEC -96znfFaK5UJfboLYnmwCP7FrV9qIJoDGtpCJ6S4Cg/QKtvF2xIDak9GpdfIk -FtqP5KizOZAoezTU2oFEmc5k4Ru14RB2KW1sVzqJttnCT/fOhkD76IshjTck -Vkl/MlQSCYQxpybNNaso1O5ma4bR/lBVYZ9weQ+FP3x5lTc++8LM8ISveBKF -k6nTmW/RCx6aaqNZE4UjLoVGiS8OQrXAQF+7FAv/SQq3kHnjDG/F+4rq2Sy8 -P2SWy3RwhFDDKJ+LCSzU4vpMpDnaAcdUN9+0kYWPt3l6Jn23Aku/uxuX/Ebj -Y+E9L92S2fAyquS96w4ak7/LNOjFmEGVe6N49lkaD2xJlZdJM4Z3e11eTD6l -UY64KiFUbAjM5m2/3RmkcTC98Y7na4SdS2/lJ36j8YXcF4/aGYBRKdVLsaIM -/BLp5LSVGgN35utnuXwmzkr89Jot5oOGosUo3cPEqFKvP58d48Ex7SeeO5UI -9BBZrm9BpsKoSrn9zb8I3L/Ur+dxBRcI3YE/OVkEyhotli91SICiTNJ261sC -W5bc+t0hPgaWeUfrsmRIzJsbNv16ngOkzXKJCzYkGuQaTBjMhsNxVRXbDckk -3tcoUEvaEwqhSw/w970kcd5+R6WOaSC8YZcscVxO4aIgTt9GZ38QmdUyStxF -4aVK2dgOyg/GylsC4TyF1ttKorPPe4HUwVklnXoKd1sEnSyXcgeHEcHhxiUs -VNxnGZAj5QLMBAkJ8V0sfMKyt15V7AiEZDqfE/vLR4KF58QK7OD9LbZm6AsW -lhnyOff0rWH0OtHPFqVxck2glPNTNjQLyrrabqfx26LXjbk9ZuATur6rI4rG -M/XqMZ0dxpD8zFilvIpG1ZUt2Y++GkInqroG99FYequ+a0rSAH6e4grZ/0ej -fuzdn6vWISRm1lrVztFordA1+Ow8AP+vWy1PhRj4hCd04ZrmGIg8s1uZkclE -hf+o97Pv+TDM+t5EdjNxUrOmP+EiD+IWH5/wUCSwJnlAonV7KjzI6t992YHA -turOEw0dXDAOkuzPukSgO9elvpqTABNmobEH3hD4Xf6K/aLCGBCoZLeqrCSx -0o1/P/02B/wCetkF1iS+Zq1pqF4eAUeGPCQ0uCRqKCfrypwOhabMvNljrSQe -NL77ItInEMxNtOZPSVIop6ZgtueUP6ilyWXHmFGYJOC1xdbAD3zIxyEO8RTe -/K3sa8c9L9hybD9XpY5CrW8YTum5Q65r0tgLCRb6xl74V1PTBeoa+fcpMxZu -XPPlx/A7RwieuvIg+CwLueqFQ/w2O4h3chpNqWVhAP+KvsRea3hUtX+j/2Ia -t+QoDq/sYoNFdQ1zjwGNVct07E2WmoOh6Cfj6QgapR7iG/F5Yxj9sdEiu4JG -pY619z0kt4N+0KoL+3to/OTpsjpKwwAc7kdpbx2nsUbnnsC6XQjDL0vDCmZp -VGw2u3XpCYCeWzs1sEDj3l0OHBMHgBOREz59ixgYkd7b/1JnDNrT5MqSLzGx -ZEI2U/obH8y1mpHoYuIfivKPo/N5cNHP/EGgAoGzzqLVVy1TgdE5/SLDnkCX -6iIllyEu2DKIO3kZBH6UeDv2jpcAyao3VI69JtC+RPIf96oYmPG8r6y0gkQT -d6WiUxUckIk2mSy1+vWnKpsoKcUI8K6TcCMTSTRcc7zjaEoonBzYfeN0C4nv -ZFudK04Fwpmaj/7nl1H4tGEk2CfOHx4NLGvimFK4QvDuENPCD/LePlzwiKPw -Q59DdFydF7TOJNatqaWw8c+A6HEjd/hX8e1Erfgvv60tJaM2u0Dm149LNpiy -8I+HAi1jE46Q85F4GnCGhfujV12PGLID14eDFtnPWeiZahlg5GYNqhZzLhxh -Gs99n3QK/cSGJSpZiy2QxigJmd/vqZrD7X+rQ4R/9dUXIC6qt3QHMNasc0su -p3G8dckMe+12cEtddp39nkbxV8PhnZsMIKY11Eh77Nde/W3ysdkBQX78bip/ -hsbTw6JCVDeAS3jT1vZ5Gp87yVmeOg4gsrNr+cQPGtUayrzVEeB/1OSgjA== +Cell[BoxData[ + TemplateBox[{ + "Show", "gcomb", + "\"Could not combine the graphics objects in \ +\\!\\(\\*RowBox[{\\\"Show\\\", \\\"[\\\", RowBox[{\\\"l1111\\\", \\\",\\\", \ +GraphicsBox[List[List[], List[]], List[Rule[DisplayFunction, Identity], \ +Rule[DisplayFunction, Identity], Rule[Ticks, List[Automatic, Automatic]], \ +Rule[AxesOrigin, List[6.000000000000013`, 0]], Rule[FrameTicks, \ +List[List[Automatic, Automatic], List[Automatic, Automatic]]], \ +Rule[GridLines, List[None, None]], Rule[DisplayFunction, Identity], \ +Rule[PlotRangePadding, List[List[Scaled[0.02`], Scaled[0.02`]], \ +List[Scaled[0.05`], Scaled[0.05`]]]], Rule[PlotRangeClipping, True], \ +Rule[ImagePadding, All], Rule[DisplayFunction, Identity], Rule[AspectRatio, \ +NCache[Power[GoldenRatio, -1], 0.6180339887498948`]], Rule[Axes, List[True, \ +True]], Rule[AxesLabel, List[None, None]], Rule[AxesOrigin, List[6.`, 0]], \ +RuleDelayed[DisplayFunction, Identity], Rule[Frame, List[List[False, False], \ +List[False, False]]], Rule[FrameLabel, List[List[None, None], List[None, \ +None]]], Rule[FrameTicks, List[List[Automatic, Automatic], List[Automatic, \ +Automatic]]], Rule[GridLines, List[None, None]], Rule[GridLinesStyle, \ +Directive[GrayLevel[0.5`, 0.4`]]], Rule[Method, \ +List[Rule[\\\"DefaultBoundaryStyle\\\", Automatic], \ +Rule[\\\"DefaultGraphicsInteraction\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]], Rule[Skeleton[2]]]], Rule[\\\"DefaultMeshStyle\\\", \ +AbsolutePointSize[6]], Rule[\\\"ScalingFunctions\\\", None], \ +Rule[\\\"CoordinatesToolOptions\\\", List[Rule[Skeleton[2]], \ +Rule[Skeleton[2]]]]]], Rule[PlotRange, List[List[6, 13], List[0.`, 0.`]]], \ +Rule[PlotRangeClipping, True], Rule[PlotRangePadding, \ +List[List[Scaled[0.02`], Scaled[0.02`]], List[Scaled[0.02`], \ +Scaled[0.02`]]]], Rule[Ticks, List[Automatic, Automatic]]]], \\\",\\\", \ +RowBox[{\\\"PlotRange\\\", \\\"\[Rule]\\\", RowBox[{\\\"{\\\", \ +RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"6\\\", \\\",\\\", \\\"13\\\"}], \ +\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{\\\"0\\\", \\\",\\\", \ +\\\"0.15`\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]}]}], \\\"]\\\"}]\\).\"", 2, 9, 12, + 25981784943947747603, "Local"}, + "MessageTemplate"]], "Message", "MSG", + CellChangeTimes->{3.99248991233014*^9}, + CellLabel->"",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], - "], {{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - - Line[{1, 176, 149, 123, 98, 74, 51, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, - 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, - 28, 177, 150, 124, 99, 75, 52, 29, 178, 151, 125, 100, 76, 53, 30, - 179, 152, 126, 101, 77, 54, 31, 180, 153, 127, 102, 78, 55, 32, - 181, 154, 128, 103, 79, 56, 33, 182, 155, 129, 104, 80, 57, 34, - 183, 156, 130, 105, 81, 58, 35, 184, 157, 131, 106, 82, 59, 36, - 185, 158, 132, 107, 83, 60, 37, 186, 159, 133, 108, 84, 61, 38, - 187, 160, 134, 109, 85, 62, 39, 188, 161, 135, 110, 86, 63, 40, - 189, 162, 136, 111, 87, 64, 41, 190, 163, 137, 112, 88, 65, 42, - 191, 164, 138, 113, 89, 66, 43, 192, 165, 139, 114, 90, 67, 44, - 193, 166, 140, 115, 91, 68, 45, 194, 167, 141, 116, 92, 69, 46, - 195, 168, 142, 117, 93, 70, 47, 196, 169, 143, 118, 94, 71, 48, - 197, 170, 144, 119, 95, 72, 49, 198, 171, 145, 120, 96, 73, 199, - 172, 146, 121, 97, 200, 173, 147, 122, 201, 174, 148, 202, 175, - 203, 50}, VertexColors -> Automatic]}, - "Charting`Private`Tag#1"]}}, VertexColors -> {{ - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}, { - RGBColor[1, 0, 0]}}], {}}, <| - "HighlightElements" -> <| - "Label" -> {"XYLabel"}, "Ball" -> {"InterpolatedBall"}|>, - "LayoutOptions" -> <| - "PanelPlotLayout" -> <||>, - "PlotRange" -> {{7, 13}, {0., 1.01270012148501}}, - "Frame" -> {{False, False}, {False, False}}, - "AxesOrigin" -> {7.000000000000016, 0}, - "ImageSize" -> {360, 360/GoldenRatio}, "Axes" -> {True, True}, - "LabelStyle" -> {}, "AspectRatio" -> GoldenRatio^(-1), "DefaultStyle" -> { - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]]}, - "HighlightLabelingFunctions" -> <|"CoordinatesToolOptions" -> ({ - Identity[ - Part[#, 1]], - Identity[ - Part[#, 2]]}& ), - "ScalingFunctions" -> {{Identity, Identity}, { - Identity, Identity}}|>, "Primitives" -> {{{{}, {}, - Annotation[{ - Directive[ - Opacity[1.], - RGBColor[0.368417, 0.506779, 0.709798], - AbsoluteThickness[2]], - Line[CompressedData[" -1:eJwVkWk4lYkfhoVsU5GK6JDlvO97XvsgNal+PxrKkk7I1kiWEIqSZMt2FKEc -a0ecUlKDQk0bhZSyjL2UlGzRgjCIpP79PzzXc93X9dyfHmU3f+v9ggICAo2/ -8v/eeW29mIAAA+fHhiQW64/DsZhJv/5FDIzO6ht4rjMO/L+utz0RYuBjntDZ -y5rjMCalej5BlIGfY1xcNlPjkBSyTGuFJAP331hY5C4/DnXm721IRQYWaJ1k -BAuMg9Fo6gXLTQwM4PnapWZ9AT3dMQPecQZeZ88ap1eOgU6K4Xb7eQbOLctT -P9UyAlOydg6+QQo4mZvtEP3pE5y373SWH1XA3w0kY/QFP4KT76jJ2CFFbLrl -phH3eQj6rrVprP6giBNXBlcvzA9CVLnljKfvWvzb8Tv1dawfBDmat9kja5Ez -c+jyvR+9UFBx8I/tukpYmz67RzupBxzWpiSEBiqhtmdpVrp4N4zKynXZlyrh -MTcvad7CSwgcsb0sOKKErifuG64zfAEi6m96qjSUESVD+hwj2yH8R70c64Ay -3pC6VXtCpxV+Ggo9vVSojKPxLd8mBhohcPeXkU+flHH6x5iY1fwzaBQyXtFD -qmDGyunC6eonoM3oLRzwUsEQ16LJe8WPILh+0Cg9XwXvVpngN5tKaOzVN7cf -UsEo2Q0SPtn3Yfnz9U3DpCou4nRYSeXeho1/5e1UdVfF7LZoQwXvmxBgZbf1 -cL4qhvplRJV03YCEF4cNfPpUcUWy0sNIuUJI24D5OgpMdMn1X/4nowAKFzvF -iu9l4kKFu/6DQ5fgitdr1+RsJtqZeVQaLrsAnZlyFWnnmXh/UjZH+isfRJ46 -rMzOYaLCf9S7uXd88GS+fFrAZ+KcxE+fuTI+kH0d6tWXmDi92eBIhR0fCpya -picLmcjfXC1jfDkXru2oTnCoYGJi/yR/+fYcKNYrKFN9w0QpToxYYiUPLLVa -kXjLxD8U5R/FFfFghPWthexh4pRm7UDyOR5oKFqN0b1MjC33+fPpER4Uic2o -6QwyMacmM7KT4kHhW5P8TSNM/L7R2/pg+jm4dup95u7vTGRz1yz9IzgL8ruZ -4acYBDZNqbtEuGbAuQDLu8EKBM65itZcss6AxMVHJ70UCaxNG5Ro35oBR7Qf -e29XItBLZLmBFZkBGOu6W5xJYCs1ZPrgczp0q/G1EtUJXGojLORzPB2kQ2X7 -zmwkUCW5dFX/uTSIWi1hmulA4ISC80OBaS4wumcash0JdKspVXIb5sLd3IGd -F5wI7KjpPtbUxYUxlYeO1/4icO/SgN5HlVxw1gw4WL6PwF3rOJ+UEriw0bgz -vcebwFNiUV/L1nJhyvfSABlCoL9X5j8TNingXbUx+i6PQBeNmKLFJclgzyBu -FmYT+EHi9fgbXjKYhkgO5J4n0JPr1ljDSQZCb/BPTi6BsiaL5cudkqG/IFls -Vx6BH9l1K+1Ek2HPmd6zn64RWK29ydLQPQmsnE/yFe4RuF6E3hpKJIL+fFtF -bCeBPRI+ky/b4iFN9arKkZcEOt6X/MezOh4mLcIT9r0i8Jv8RcdFJfFQmkPa -b35NYNuS6787JcWDxpawyZm3BIboF2/hbYsH1Wgm7fOewIsxjUzT6lMgLRqc -yZ4isKg8qY0sPwkT0ozDCtIkrsRbSf7NHJj1vqOstIJEM0+l0ohKDghUsdtV -VpJY5cG/k3WDA8t84/RYMiQWzo+YfznDAbXHY9O68iSWOI7mq7M54BH4KHS7 -ConzfX5tbc9jobPDkxOoS2Lnh4qa7KEYqEgvy6q3JtExNZjlqRYNMnFmU+U2 -v7iqhZJSjIaAoD52sS2JL1lrmmqWRwNpt1zirB2JRgVGk0ZzUZAiezjc1olE -me404at1UeCZreP6zpVEF5uDW0UPRIH0xRK16QASPyZbHJpwiQTvousPlc6S -WNQZVtBTGA6+9RIeZAqJxmuOdh1OD4dDw14SGlwSNZTT9GROhMNRVRX79Wkk -3tEoVkvdFQ6R5zPHd2SRaJ8n/GT3XBhkJkaqhl0gcXdS2UMByzCo9d2V8KKE -xBl/PbeUhRBQ0Zi2Pd1KYjvtvV/kbDAcH9x59UQbiW9k210rI4KhJadw7kg7 -iftNbzXE+AVD+NJ9/D3PSfzuuK1KxzwYOscahjVekVgt/dFYSSQYEsouhra8 -I3FB3wBNo47BuIHlxZVfSJxwzD8XGBEEVUaXP/OXUthZ/F8plxcIJ2s/BJ5Z -RuGTptFQv8RAsDTT+h4hSaGcmoLFrohAeMW+v8R5OYWLQjj9G1wDYdylRXPN -Kgq1e9iakXQgqJyY989iUGjHCcL+iiNwstxm6qw6hUNdD8o6hg/DDj3hhSgz -ClXeC5747hQADwaXtXDMKVwheGuYaRUAaplyefEWFKYK+GyyNwoAkTktk5Qd -FJ6vkk3oogKgutIx+cIuCn/486qufvIHffMShUpHCoulWjV1mf4g7+q0Zf4A -hSl3w2o8rxyED2dKI4NOU2iGfd4Wb32g8PW9Ba9ECt/3O8Ul1vuAH/kozCmJ -wmu/VXzpuu0D4w/bguEMhbZb7sflnfGB2ZFJf/FUCqcyZnJeow+IWazbl8uj -sP4c8ejz1QPAEi3H2msUXnIvPGkS5Q1ekY8XrXpG4ZumBV69vSe0z6bUr6mj -sPnPoLgJE0/YdGQvV6WeQq2vGEXpe4LU/jklnUYKd1qFHH8o5Qn3zLXRooXC -UbcSk5SG/SAhc/5E9EsK5Q+F/3yG+6G4+Mj86DCF3wOrvhis94DJLuXpp2Is -lFLeWjRg5gb/Kr6erBNn4T9ry8lYQzcocE8db5BgoX/C2X81Nd3AaVRwpHkJ -CxX3WAflS7lBjcBgf6fUr31qlJXMK1fgUgWtQ6tZSOdoNgsfcAWdILViEZqF -0kY773ek7oNDUnrupmYsnO7YXCosvhdyvnxYst6chX/cE2gbn3SG+mb+HcqC -hRvWfP4x8sYZmMkSEuI7WPiY5Wi7qswZXov3lzayWXhn2KKA6eQMpkLcH2wH -FjasERTRL/kLFGfGeHu8WOj2ed/2Oo890Nxd2BoQx0LrGwHU0XkHyP9APAk6 -ycK9cauuRA87QOj0xbuhp1jIVS8Z5nc4ACGZxeck/PIFS06LFTtAuHGs37lk -Fmpx/SYznR2A/nuPWHUGC9k/wyoyHtsD59gSlCxgoUvStvy6bDvYuPxQyfWn -LOTVtwgmBdqC+70hq7xnLPTOsA4y8bCFJBeXsfQ6FgbxLxpI7LaFd9fZmuEN -LKww5nNuG9gCx1yvyLyZhY+2eHunfrOB5tjZguEXLDwelqu/l2MDbjMxfOX3 -LDSW71svctEaTndnJWcI0Xjp7rHekWk2qFrNu3GEaTz9bcol/CMbHlTv3RC4 -mMZN+YojK9+yYewKMcAWpXFqTbCU6xM2WAfc2rDkNxofCe967pHGBvnFLQMx -0jQWi9OlK/XYUKglsjFAmUaBOzcedExYQWP00SFzoJGbV9iuu9ESlqjkLrZC -GmMlZH6/rWoJVjW1zF1GNFYv03E0W2oJrYKy7vZbafy66GVzQa8FPI+9/859 -G41p32Sa9OMtoCfux6vwnTT67zRQ5r42h8mE+MYbLjSGV84XjCaagVxqTql0 -FI16h70mfBS3wY1/a8KEo2nsDxIX1V+6DYxFP5rO/GKpe/hK/Lsp+IWve9sV -S+PJRvX47i5TqPZsFs87ReO+TRnyMpmm4Gko4K599pfPiBfulTKFm4Puqyz5 -NFL/mMvHS5qA+Xr10LgHNLbxuQe3aW8Fxhpdj7SHNE60L5llr90KYz82WOVV -0qjUtfaOl+RWSHtqqvKwmkbVlW15D74Yw5vdbg1TT2iUIy5JCJUZw6GjPHmP -Jhrvk3teza4zhtQy0QrjHhoVCOsOMDMCj4xlV9jvaBR/MRLVvdEIDEJWnd3b -S+NHb7fVsRpG0I2q7qH9NJZfb3w7LWkEzNYtv90conEoq/mm90uEO2NBe5S/ -0Bix5atSmDdCfHu4ifb4r//+NvvQ6oTgdCdWe/MEjbU6twV0dyD8jOAKOf5H -o0HCrZ+rdBG2L71elPKVxga5z151swDyE7cy+LM0nhgRFaJ6AEael0cWz9Go -2Gpx/fxjgJScOpu6eRptFd4OPT0D4BbVsrnzO43PXOSsI44C6Ht0UoMLNO7e -4cQxcwIQ2f52+eQPGtWaKnzVEaBLfXD+508aS7d7z6iQAP8DAaWgjA== - "]]}, "Charting`Private`Tag#1"]}}, {}}, "GCFlag" -> True|>, - "Meta" -> <| - "DefaultHighlight" -> {"Dynamic", None}, "Index" -> {}, "Function" -> - Plot, "GroupHighlight" -> False|>|>, "DynamicHighlight"]]}, - AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], - Axes->{True, True}, - AxesLabel->{None, None}, - AxesOrigin->{6.000000000000013, 0}, - DisplayFunction->Identity, - Frame->{{False, False}, {False, False}}, - FrameLabel->{{None, None}, {None, None}}, - FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, - GridLines->{None, None}, - GridLinesStyle->Directive[ - GrayLevel[0.5, 0.4]], - ImagePadding->All, - Method->{ - "DefaultBoundaryStyle" -> Automatic, - "DefaultGraphicsInteraction" -> { - "Version" -> 1.2, "TrackMousePosition" -> {True, False}, - "Effects" -> { - "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, - "Droplines" -> { - "freeformCursorMode" -> True, - "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> - AbsolutePointSize[6], "ScalingFunctions" -> None, - "CoordinatesToolOptions" -> {"DisplayFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& ), "CopiedValueFunction" -> ({ - (Identity[#]& )[ - Part[#, 1]], - (Identity[#]& )[ - Part[#, 2]]}& )}}, - PlotRange->{{6, 13}, {0., 0.9838824269554479}}, - PlotRangeClipping->True, - PlotRangePadding->{{ - Scaled[0.02], - Scaled[0.02]}, { - Scaled[0.05], - Scaled[0.05]}}, - Ticks->{Automatic, Automatic}]], "Output", - CellChangeTimes->{ - 3.991964413959593*^9, {3.9919653785065365`*^9, 3.99196538910149*^9}}, - CellLabel->"Out[46]=",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +Cell["\<\ +Show::gcomb: Could not combine the graphics objects in + Show[l1111, -Graphics-, PlotRange -> {{6, 13}, {0, 0.15}}].\ +\>", "Message", "MSG", + CellChangeTimes->{3.992520011711594*^9}, + CellLabel-> + "During evaluation of \ +In[1]:=",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] }, Open ]] }, -WindowSize->{1428, 741.75}, -WindowMargins->{{0, Automatic}, {Automatic, 0}}, +WindowSize->{1440, 792}, +WindowMargins->{{0, Automatic}, {0, 18}}, CellContext->Notebook, -FrontEndVersion->"14.3 for Microsoft Windows (64-bit) (July 8, 2025)", +FrontEndVersion->"14.1 for Linux x86 (64-bit) (July 16, 2024)", StyleDefinitions->"Default.nb", ExpressionUUID->"1a7a37f1-4b71-ed43-9b79-f0236ef1c974" ] @@ -19329,174 +5002,173 @@ CellTagsIndex->{} (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ -Cell[576, 22, 1152, 34, 80, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], -Cell[1731, 58, 1468, 46, 97, "Output",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] +Cell[576, 22, 1152, 34, 94, "Input",ExpressionUUID->"ffae8b70-aa14-974a-9de2-11aa9ba7fa35"], +Cell[1731, 58, 1468, 46, 98, "Output",ExpressionUUID->"f00538f3-424d-5a45-91bd-3eee5cf83449"] }, Open ]], Cell[CellGroupData[{ -Cell[3236, 109, 720, 20, 61, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], +Cell[3236, 109, 720, 20, 68, "Input",ExpressionUUID->"583e80ed-08b1-3540-acb6-5c5ddc81ef63"], Cell[3959, 131, 863, 25, 71, "Output",ExpressionUUID->"2a18313e-1f31-6d47-a71a-80e32b33c3f8"] }, Open ]], Cell[CellGroupData[{ Cell[4859, 161, 1465, 41, 56, "Input",ExpressionUUID->"0d592b07-0bde-dd44-8769-c843b2d15343"], -Cell[6327, 204, 2559, 75, 146, "Output",ExpressionUUID->"f9210340-71d9-8548-b6dd-6e1f2ea59c91"] +Cell[6327, 204, 2559, 75, 149, "Output",ExpressionUUID->"f9210340-71d9-8548-b6dd-6e1f2ea59c91"] }, Open ]], Cell[CellGroupData[{ Cell[8923, 284, 1680, 48, 56, "Input",ExpressionUUID->"2ab4cb2f-3eb0-8f4d-b0e5-c0b0154d2f35"], -Cell[10606, 334, 2758, 81, 146, "Output",ExpressionUUID->"7bb7a125-449f-3a49-97d2-1464bf24ed55"] +Cell[10606, 334, 2758, 81, 149, "Output",ExpressionUUID->"7bb7a125-449f-3a49-97d2-1464bf24ed55"] }, Open ]], Cell[CellGroupData[{ Cell[13401, 420, 1843, 53, 88, "Input",ExpressionUUID->"80075296-619a-5348-a91f-42a62b35265a"], -Cell[15247, 475, 3728, 111, 121, "Output",ExpressionUUID->"d32a7453-1a51-6e48-86af-b1d1c28a8672"] +Cell[15247, 475, 3728, 111, 126, "Output",ExpressionUUID->"d32a7453-1a51-6e48-86af-b1d1c28a8672"] }, Open ]], Cell[CellGroupData[{ Cell[19012, 591, 2080, 59, 88, "Input",ExpressionUUID->"7e5ea904-38c2-8f45-b173-9fdd0d01cd3b"], -Cell[21095, 652, 4797, 140, 121, "Output",ExpressionUUID->"a6e1e3e7-c00b-3944-a263-f0f98e41f146"] +Cell[21095, 652, 4797, 140, 126, "Output",ExpressionUUID->"a6e1e3e7-c00b-3944-a263-f0f98e41f146"] }, Open ]], -Cell[25907, 795, 153, 3, 28, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], +Cell[25907, 795, 153, 3, 29, "Input",ExpressionUUID->"76dcb41c-d560-6240-8a0d-5f5c4dea74f7"], Cell[CellGroupData[{ -Cell[26085, 802, 330, 6, 28, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], -Cell[26418, 810, 277, 4, 32, "Output",ExpressionUUID->"6a9ddfcd-6773-d042-b72b-ee308eec2141"] +Cell[26085, 802, 330, 6, 29, "Input",ExpressionUUID->"f25944e3-b412-7146-ac6d-f008d8c60ab5"], +Cell[26418, 810, 277, 4, 33, "Output",ExpressionUUID->"6a9ddfcd-6773-d042-b72b-ee308eec2141"] }, Open ]], Cell[CellGroupData[{ -Cell[26732, 819, 253, 6, 28, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], -Cell[26988, 827, 276, 4, 32, "Output",ExpressionUUID->"52096119-62e6-0d42-9c3a-ed392c0f435b"] +Cell[26732, 819, 253, 6, 29, "Input",ExpressionUUID->"24bf6fdb-f0a0-774b-a5d1-1f910c97a298"], +Cell[26988, 827, 276, 4, 33, "Output",ExpressionUUID->"52096119-62e6-0d42-9c3a-ed392c0f435b"] }, Open ]], Cell[CellGroupData[{ -Cell[27301, 836, 176, 3, 28, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], -Cell[27480, 841, 250, 3, 32, "Output",ExpressionUUID->"ff7e327a-caed-ff48-83df-0fe2efc4709b"] +Cell[27301, 836, 176, 3, 29, "Input",ExpressionUUID->"f86d7ec2-4b9e-cb4f-ac44-ab1d7c6b8c93"], +Cell[27480, 841, 250, 3, 33, "Output",ExpressionUUID->"ff7e327a-caed-ff48-83df-0fe2efc4709b"] }, Open ]], Cell[CellGroupData[{ -Cell[27767, 849, 258, 7, 43, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], -Cell[28028, 858, 263, 3, 32, "Output",ExpressionUUID->"93d6f676-720a-5849-a331-8426b6262c0a"] +Cell[27767, 849, 258, 7, 42, "Input",ExpressionUUID->"18b7ff08-61ef-0a43-a3b6-f39456c5d3bf"], +Cell[28028, 858, 263, 3, 33, "Output",ExpressionUUID->"93d6f676-720a-5849-a331-8426b6262c0a"] }, Open ]], Cell[CellGroupData[{ -Cell[28328, 866, 132, 2, 28, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], -Cell[28463, 870, 252, 3, 32, "Output",ExpressionUUID->"f741aa01-a99b-b44b-b60c-e076bb3abbca"] +Cell[28328, 866, 132, 2, 29, "Input",ExpressionUUID->"81606684-c7bc-8847-8110-4e7d8dadb4e3"], +Cell[28463, 870, 252, 3, 33, "Output",ExpressionUUID->"f741aa01-a99b-b44b-b60c-e076bb3abbca"] }, Open ]], Cell[CellGroupData[{ -Cell[28752, 878, 277, 6, 28, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], -Cell[29032, 886, 266, 3, 32, "Output",ExpressionUUID->"71a44cb5-a1c6-d444-bdc5-4d11fddcaa5f"] +Cell[28752, 878, 277, 6, 29, "Input",ExpressionUUID->"f761fcb8-28f7-6340-a8c9-04643afe677c"], +Cell[29032, 886, 266, 3, 33, "Output",ExpressionUUID->"71a44cb5-a1c6-d444-bdc5-4d11fddcaa5f"] }, Open ]], Cell[CellGroupData[{ -Cell[29335, 894, 258, 7, 28, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], -Cell[29596, 903, 262, 3, 32, "Output",ExpressionUUID->"47939d39-036e-054e-9de8-a4bd25512646"] +Cell[29335, 894, 258, 7, 29, "Input",ExpressionUUID->"eb02623b-c429-f44e-955f-4ce148f45177"], +Cell[29596, 903, 262, 3, 33, "Output",ExpressionUUID->"47939d39-036e-054e-9de8-a4bd25512646"] }, Open ]], -Cell[29873, 909, 295, 6, 28, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], -Cell[30171, 917, 299, 6, 28, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], +Cell[29873, 909, 295, 6, 29, "Input",ExpressionUUID->"5a7643d0-24aa-4445-a07d-8c03ae610a22"], +Cell[30171, 917, 299, 6, 29, "Input",ExpressionUUID->"0d6c01d9-da94-5e40-a1b9-b6cc52ad8d72"], Cell[CellGroupData[{ -Cell[30495, 927, 129, 2, 28, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], -Cell[30627, 931, 248, 3, 32, "Output",ExpressionUUID->"5d184a3a-6729-2542-bddb-91c459c84dd2"] +Cell[30495, 927, 129, 2, 29, "Input",ExpressionUUID->"bdbca864-d729-6d45-83af-09286972fe2c"], +Cell[30627, 931, 248, 3, 33, "Output",ExpressionUUID->"5d184a3a-6729-2542-bddb-91c459c84dd2"] }, Open ]], Cell[CellGroupData[{ -Cell[30912, 939, 129, 2, 28, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], -Cell[31044, 943, 245, 3, 32, "Output",ExpressionUUID->"a2015830-d30b-264b-9c26-848d4c35743d"] +Cell[30912, 939, 129, 2, 29, "Input",ExpressionUUID->"ff4d19af-9e5c-ef4d-abe6-b09a5488a2e8"], +Cell[31044, 943, 245, 3, 33, "Output",ExpressionUUID->"a2015830-d30b-264b-9c26-848d4c35743d"] }, Open ]], Cell[CellGroupData[{ -Cell[31326, 951, 1965, 50, 117, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], -Cell[33294, 1003, 31761, 569, 237, "Output",ExpressionUUID->"b99c4f95-df55-1444-95e1-a039c9afcece"] +Cell[31326, 951, 1965, 50, 133, "Input",ExpressionUUID->"1df47ed4-968d-ab47-9cf0-8687993d44a2"], +Cell[33294, 1003, 31761, 569, 236, "Output",ExpressionUUID->"b99c4f95-df55-1444-95e1-a039c9afcece"] }, Open ]], -Cell[65070, 1575, 128, 3, 28, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], +Cell[65070, 1575, 128, 3, 29, "Input",ExpressionUUID->"7b24a916-b850-f042-8ae8-50b3ad5aa448"], Cell[CellGroupData[{ -Cell[65223, 1582, 2276, 59, 68, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], -Cell[67502, 1643, 5393, 79, 107, "Message",ExpressionUUID->"a6ce969d-823a-ef4d-a589-f7cc65df348d"], -Cell[72898, 1724, 339, 7, 32, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] +Cell[65223, 1582, 2276, 59, 53, "Input",ExpressionUUID->"0fd1647e-55ba-6c45-ad3c-c7cf0756600e"], +Cell[67502, 1643, 339, 7, 33, "Output",ExpressionUUID->"bbd66703-49d1-134c-8200-9aff5ce6bb92"] }, Open ]], Cell[CellGroupData[{ -Cell[73274, 1736, 2168, 58, 68, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], -Cell[75445, 1796, 4376, 63, 101, "Message",ExpressionUUID->"4b16b77f-f67d-e34e-87af-3a85ccc8a16f"], -Cell[79824, 1861, 297, 7, 32, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] +Cell[67878, 1655, 2168, 58, 53, "Input",ExpressionUUID->"79d865b0-6c37-3243-a4e0-d7506dcfe14a"], +Cell[70049, 1715, 297, 7, 33, "Output",ExpressionUUID->"2652aef6-326a-b249-aff2-673a6f5b2f37"] }, Open ]], Cell[CellGroupData[{ -Cell[80158, 1873, 302, 5, 28, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], -Cell[80463, 1880, 203, 3, 32, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] +Cell[70383, 1727, 302, 5, 29, "Input",ExpressionUUID->"b936a356-288b-fa49-9ce3-75db208c644a"], +Cell[70688, 1734, 203, 3, 33, "Output",ExpressionUUID->"24c069fc-ebcb-8047-a502-1148cf0d4875"] }, Open ]], Cell[CellGroupData[{ -Cell[80703, 1888, 307, 5, 28, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], -Cell[81013, 1895, 235, 4, 32, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +Cell[70928, 1742, 307, 5, 29, "Input",ExpressionUUID->"d5b02e93-37c6-e046-a015-cd95d27ec9f3"], +Cell[71238, 1749, 235, 4, 33, "Output",ExpressionUUID->"3c0a4e5a-023d-db4e-a7c3-2ef94f5b809b"] +}, Open ]], +Cell[71488, 1756, 2521, 63, 109, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], +Cell[74012, 1821, 152, 3, 29, "Input",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"], +Cell[74167, 1826, 161, 3, 29, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], +Cell[74331, 1831, 156, 3, 29, "Input",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"], +Cell[CellGroupData[{ +Cell[74512, 1838, 2555, 71, 95, "Input",ExpressionUUID->"d40a1c74-8751-488a-a4a7-6da8b04c1580"], +Cell[77070, 1911, 3524, 68, 243, "Output",ExpressionUUID->"8dcd318a-d82b-4487-bbb8-e5b3daa7a97f"] }, Open ]], Cell[CellGroupData[{ -Cell[81285, 1904, 2521, 63, 139, "Input",ExpressionUUID->"7cc2507c-877d-4b47-80a1-806136a93537"], -Cell[83809, 1969, 107321, 2284, 237, "Output",ExpressionUUID->"41956e1f-1f68-414f-abf8-1d85f5f909bc"] +Cell[80631, 1984, 911, 25, 45, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], +Cell[81545, 2011, 45788, 799, 236, "Output",ExpressionUUID->"ac71e15b-ed5e-df47-9b29-0c4867b635da"] }, Open ]], Cell[CellGroupData[{ -Cell[191167, 4258, 161, 3, 42, "Input",ExpressionUUID->"9998eff2-8c55-9c49-a7ba-40c39d494e08"], -Cell[191331, 4263, 138703, 2809, 237, "Output",ExpressionUUID->"6703284e-71ee-2b49-a42f-e34e32f0c333"] +Cell[127370, 2815, 2363, 61, 53, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], +Cell[129736, 2878, 314, 6, 33, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] }, Open ]], Cell[CellGroupData[{ -Cell[330071, 7077, 911, 25, 60, "Input",ExpressionUUID->"c35d5cd1-71e8-0d46-9aff-241fa1902366"], -Cell[330985, 7104, 45788, 799, 237, "Output",ExpressionUUID->"ac71e15b-ed5e-df47-9b29-0c4867b635da"] +Cell[130087, 2889, 226, 4, 29, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], +Cell[130316, 2895, 175, 2, 33, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] }, Open ]], Cell[CellGroupData[{ -Cell[376810, 7908, 2363, 61, 68, "Input",ExpressionUUID->"96e79a55-1eb8-2a4c-bbe6-5fbb4df97bf2"], -Cell[379176, 7971, 5452, 79, 110, "Message",ExpressionUUID->"293d998c-aeb5-184b-97de-8f2d9e85e42d"], -Cell[384631, 8052, 314, 6, 32, "Output",ExpressionUUID->"a6d0bcab-7a5f-3241-a90b-d597e43a8a2c"] +Cell[130528, 2902, 252, 4, 29, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], +Cell[130783, 2908, 177, 2, 33, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +}, Open ]], +Cell[130975, 2913, 981, 26, 46, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], +Cell[131959, 2941, 151, 3, 29, "Input",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"], +Cell[132113, 2946, 163, 3, 29, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], +Cell[132279, 2951, 152, 3, 29, "Input",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"], +Cell[CellGroupData[{ +Cell[132456, 2958, 2578, 72, 95, "Input",ExpressionUUID->"5da43dae-fa53-4074-a6da-9572cbc909be"], +Cell[135037, 3032, 3551, 68, 240, "Output",ExpressionUUID->"ea8cc2eb-ffeb-4c17-a96c-19b1407ec697"] +}, Open ]], +Cell[138603, 3103, 238, 4, 29, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], +Cell[CellGroupData[{ +Cell[138866, 3111, 773, 22, 45, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], +Cell[139642, 3135, 18986, 357, 237, "Output",ExpressionUUID->"ab4a8ae4-7b26-1044-b8e9-90a3af291166"] }, Open ]], Cell[CellGroupData[{ -Cell[384982, 8063, 226, 4, 28, "Input",ExpressionUUID->"e7f8a0fc-58ca-3c43-8050-1041e5611e26"], -Cell[385211, 8069, 175, 2, 32, "Output",ExpressionUUID->"47b1b04b-24ab-8646-9e9d-741b016fa08e"] +Cell[158665, 3497, 2162, 57, 53, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], +Cell[160830, 3556, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], +Cell[161667, 3573, 317, 6, 33, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] }, Open ]], Cell[CellGroupData[{ -Cell[385423, 8076, 252, 4, 28, "Input",ExpressionUUID->"8a3efd5c-480b-0b42-87de-a0381a89eb4a"], -Cell[385678, 8082, 177, 2, 32, "Output",ExpressionUUID->"aadb20c3-ffae-b946-a5c2-c62eda02df65"] +Cell[162021, 3584, 250, 4, 29, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], +Cell[162274, 3590, 177, 2, 33, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] }, Open ]], Cell[CellGroupData[{ -Cell[385892, 8089, 981, 26, 61, "Input",ExpressionUUID->"a14f3f77-6d27-1048-853d-e35ac0579b5a"], -Cell[386876, 8117, 111871, 2376, 237, "Output",ExpressionUUID->"cd317bc8-762f-b249-ba4b-f05e39e52441"] +Cell[162488, 3597, 249, 4, 29, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], +Cell[162740, 3603, 179, 2, 33, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +}, Open ]], +Cell[162934, 3608, 2560, 64, 130, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], +Cell[165497, 3674, 152, 3, 29, "Input",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"], +Cell[165652, 3679, 165, 3, 29, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], +Cell[165820, 3684, 152, 3, 29, "Input",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"], +Cell[CellGroupData[{ +Cell[165997, 3691, 2528, 71, 95, "Input",ExpressionUUID->"f1789845-e085-4390-8b6b-ab58b27f10b4"], +Cell[168528, 3764, 3509, 67, 240, "Output",ExpressionUUID->"b1ef69cd-3ffe-4c17-b7c5-7c870bc52e59"] }, Open ]], Cell[CellGroupData[{ -Cell[498784, 10498, 163, 3, 42, "Input",ExpressionUUID->"7f7adb48-d16c-ff46-92de-216bf33e0dd7"], -Cell[498950, 10503, 157319, 3132, 237, "Output",ExpressionUUID->"9e14947f-42bc-8641-8034-f5e698425a9d"] -}, Open ]], -Cell[656284, 13638, 238, 4, 42, "Input",ExpressionUUID->"1a4d7ad0-fdd7-c149-91c3-f4bf148c2ba8"], -Cell[CellGroupData[{ -Cell[656547, 13646, 773, 22, 60, "Input",ExpressionUUID->"5f40daf9-1e74-0640-ab31-9384896fd730"], -Cell[657323, 13670, 18986, 357, 238, "Output",ExpressionUUID->"ab4a8ae4-7b26-1044-b8e9-90a3af291166"] +Cell[172074, 3836, 851, 24, 45, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], +Cell[172928, 3862, 39726, 699, 236, "Output",ExpressionUUID->"06c0f498-eac1-0847-9c8e-eda5d2c44b2b"] }, Open ]], Cell[CellGroupData[{ -Cell[676346, 14032, 2162, 57, 68, "Input",ExpressionUUID->"90f0001a-9463-4d4f-9baf-b5d8df3a0ca0"], -Cell[678511, 14091, 834, 15, 26, "Message",ExpressionUUID->"d45217bd-3db0-d84b-b93e-b4da41993a99"], -Cell[679348, 14108, 317, 6, 32, "Output",ExpressionUUID->"0c3ee823-26f7-754d-aaf4-945766964406"] +Cell[212691, 4566, 2333, 60, 73, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], +Cell[215027, 4628, 317, 6, 33, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] }, Open ]], Cell[CellGroupData[{ -Cell[679702, 14119, 250, 4, 28, "Input",ExpressionUUID->"dbdfb703-96b0-7646-a6d8-1714cb27d7e0"], -Cell[679955, 14125, 177, 2, 32, "Output",ExpressionUUID->"0033eac9-b93a-5840-8e79-2fdb31b1f0d6"] +Cell[215381, 4639, 251, 4, 29, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], +Cell[215635, 4645, 179, 2, 33, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] }, Open ]], Cell[CellGroupData[{ -Cell[680169, 14132, 249, 4, 28, "Input",ExpressionUUID->"b1797ad3-1841-6d4a-802c-01a83775cf12"], -Cell[680421, 14138, 179, 2, 32, "Output",ExpressionUUID->"2c6f3eab-7b12-5342-ba0c-9ee44e09e8e4"] +Cell[215851, 4652, 252, 4, 29, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], +Cell[216106, 4658, 177, 2, 33, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] }, Open ]], +Cell[216298, 4663, 2844, 72, 136, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], +Cell[219145, 4737, 152, 3, 29, "Input",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"], +Cell[219300, 4742, 204, 4, 49, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], +Cell[219507, 4748, 154, 3, 29, "Input",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"], Cell[CellGroupData[{ -Cell[680637, 14145, 2560, 64, 161, "Input",ExpressionUUID->"44ce8c70-9506-d44d-96f8-61e476c7c15f"], -Cell[683200, 14211, 23768, 514, 237, "Output",ExpressionUUID->"2997bdd0-9785-af49-ae97-9f40d7c169a6"] -}, Open ]], -Cell[CellGroupData[{ -Cell[707005, 14730, 165, 3, 42, "Input",ExpressionUUID->"299aaf37-7ffd-574a-9050-d17f2288bbc9"], -Cell[707173, 14735, 41611, 830, 238, "Output",ExpressionUUID->"3bdc7a5c-e2ee-584c-ac64-2e70607d048a"] -}, Open ]], -Cell[CellGroupData[{ -Cell[748821, 15570, 851, 24, 60, "Input",ExpressionUUID->"f3943b5b-dc03-1343-88ab-8e6b6abbdcf4"], -Cell[749675, 15596, 39726, 699, 237, "Output",ExpressionUUID->"06c0f498-eac1-0847-9c8e-eda5d2c44b2b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[789438, 16300, 2333, 60, 87, "Input",ExpressionUUID->"821ca014-9c3d-214a-9c1a-0b2310271344"], -Cell[791774, 16362, 4044, 60, 95, "Message",ExpressionUUID->"50f338a9-2714-414e-bdb7-3725d4c972eb"], -Cell[795821, 16424, 317, 6, 32, "Output",ExpressionUUID->"a7b97199-28ed-c646-8d22-78ffeb63ef4c"] -}, Open ]], -Cell[CellGroupData[{ -Cell[796175, 16435, 251, 4, 28, "Input",ExpressionUUID->"4524f895-5d5e-a74f-a717-0cd15a841249"], -Cell[796429, 16441, 179, 2, 32, "Output",ExpressionUUID->"377d765f-55cd-dc47-820d-b3643247f64b"] -}, Open ]], -Cell[CellGroupData[{ -Cell[796645, 16448, 252, 4, 28, "Input",ExpressionUUID->"17f8190f-852b-fa46-bdc8-1bb243b31de3"], -Cell[796900, 16454, 177, 2, 32, "Output",ExpressionUUID->"23a36480-da27-694e-95bd-3cc076086ad0"] -}, Open ]], -Cell[CellGroupData[{ -Cell[797114, 16461, 2844, 72, 140, "Input",ExpressionUUID->"86a6c2bf-ff39-cc4d-a1c0-fb8141afbdb9"], -Cell[799961, 16535, 49805, 1052, 237, "Output",ExpressionUUID->"a8bb082f-c236-ff48-ad39-40714b1d68e9"] -}, Open ]], -Cell[CellGroupData[{ -Cell[849803, 17592, 204, 4, 63, "Input",ExpressionUUID->"8a3460c1-aa75-4842-9332-c34c99c08aa4"], -Cell[850010, 17598, 88691, 1711, 237, "Output",ExpressionUUID->"e3c73124-5ee5-7e4d-83eb-0db8ce2e2f72"] +Cell[219686, 4755, 2580, 72, 95, "Input",ExpressionUUID->"0e478780-37de-4a3c-b23f-eb9cc7d05af8"], +Cell[222269, 4829, 3550, 68, 240, "Output",ExpressionUUID->"2198db38-9a66-4dbf-8083-834740ccfbac"], +Cell[225822, 4899, 2324, 36, 54, "Message",ExpressionUUID->"1ff75dd0-d05d-4193-b75e-a87d4fef0dd1"], +Cell[228149, 4937, 2321, 36, 54, "Message",ExpressionUUID->"0e19fb6a-1a1e-478e-9749-3bfc938b1311"], +Cell[230473, 4975, 299, 7, 36, "Message",ExpressionUUID->"51ec0e94-6958-4ccd-a470-7b9dc859d016"] }, Open ]] } ] diff --git a/templates/heavy_case/rename.bat b/templates/heavy_case/rename.bat deleted file mode 100755 index 19235ed..0000000 --- a/templates/heavy_case/rename.bat +++ /dev/null @@ -1,47 +0,0 @@ -@echo off -chcp 65001 > nul -if "%~1"=="" ( - echo You must specify the name prefix >&2 - echo E.g. prefix "my_prefix" : >&2 - echo h___фитирование.nb --^> my_prefix_фитирование.nb >&2 - exit /b 1 -) else ( - if exist "h____фитирование.nb" ( - rename "h____фитирование.nb" "%~1_фитирование.nb" - ) else ( - echo skipped "h____фитирование.nb" due to absence - ) - - if exist "h____pr_Qw2.nb" ( - rename "h____pr_Qw2.nb" "%~1_pr_Qw2.nb" - ) else ( - echo skipped "h____pr_Qw2.nb" due to absence - ) - if exist "h____pr_Qw1.nb" ( - rename "h____pr_Qw1.nb" "%~1_pr_Qw1.nb" - ) else ( - echo skipped "h____pr_Qw1.nb" due to absence - ) - - if exist "h____osc_Qw2.nb" ( - rename "h____osc_Qw2.nb" "%~1_osc_Qw2.nb" - ) else ( - echo skipped "h____osc_Qw2.nb" due to absence - ) - if exist "h____osc_Qw1.nb" ( - rename "h____osc_Qw1.nb" "%~1_osc_Qw1.nb" - ) else ( - echo skipped "h____osc_Qw1.nb" due to absence - ) - - if exist "h____gid_Qw2.nb" ( - rename "h____gid_Qw2.nb" "%~1_gid_Qw2.nb" - ) else ( - echo skipped "h____gid_Qw2.nb" due to absence - ) - if exist "h____gid_Qw1.nb" ( - rename "h____gid_Qw1.nb" "%~1_gid_Qw1.nb" - ) else ( - echo skipped "h____gid_Qw1.nb" due to absence - ) -) diff --git a/templates/heavy_case/rename.zsh b/templates/heavy_case/rename.zsh index 19235ed..f26637d 100755 --- a/templates/heavy_case/rename.zsh +++ b/templates/heavy_case/rename.zsh @@ -1,47 +1,30 @@ -@echo off -chcp 65001 > nul -if "%~1"=="" ( - echo You must specify the name prefix >&2 - echo E.g. prefix "my_prefix" : >&2 - echo h___фитирование.nb --^> my_prefix_фитирование.nb >&2 - exit /b 1 -) else ( - if exist "h____фитирование.nb" ( - rename "h____фитирование.nb" "%~1_фитирование.nb" - ) else ( - echo skipped "h____фитирование.nb" due to absence - ) - - if exist "h____pr_Qw2.nb" ( - rename "h____pr_Qw2.nb" "%~1_pr_Qw2.nb" - ) else ( - echo skipped "h____pr_Qw2.nb" due to absence - ) - if exist "h____pr_Qw1.nb" ( - rename "h____pr_Qw1.nb" "%~1_pr_Qw1.nb" - ) else ( - echo skipped "h____pr_Qw1.nb" due to absence - ) - - if exist "h____osc_Qw2.nb" ( - rename "h____osc_Qw2.nb" "%~1_osc_Qw2.nb" - ) else ( - echo skipped "h____osc_Qw2.nb" due to absence - ) - if exist "h____osc_Qw1.nb" ( - rename "h____osc_Qw1.nb" "%~1_osc_Qw1.nb" - ) else ( - echo skipped "h____osc_Qw1.nb" due to absence - ) - - if exist "h____gid_Qw2.nb" ( - rename "h____gid_Qw2.nb" "%~1_gid_Qw2.nb" - ) else ( - echo skipped "h____gid_Qw2.nb" due to absence - ) - if exist "h____gid_Qw1.nb" ( - rename "h____gid_Qw1.nb" "%~1_gid_Qw1.nb" - ) else ( - echo skipped "h____gid_Qw1.nb" due to absence - ) -) +#!/bin/zsh +if [[ -z "$1" ]]; then + echo "You must specify the name prefix" 1>&2 + echo 'E.g. prefix "my_prefix" :' 1>&2 + echo 'h___фитирование.nb --> my_prefix_фитирование.nb' 1>&2 + exit 1 +fi + +prefix="$1" + +suffixes=( + "фитирование" + "pr_Qw2" + "pr_Qw1" + "osc_Qw2" + "osc_Qw1" + "gid_Qw2" + "gid_Qw1" +) + +for suf in "${suffixes[@]}"; do + src="h____${suf}.nb" + dst="${prefix}_${suf}.nb" + + if [[ -e "$src" ]]; then + mv -- "$src" "$dst" + else + echo "skipped \"$src\" due to absence" + fi +done